Limpar e preencher de novo - Urgente!!!!

Delphi

03/02/2003

Estou com um pequeno problema: quando preencho os dados de um form e clico no botão Salvar, gostaria que ele gravasse a informação, limpasse o form e fosse para o primeiro DBEdit para que eu pudesse cadastrar novos dados, só que não sei como fazer isso... :cry:


Hermeson Menezes

Hermeson Menezes

Curtidas 0

Respostas

Robsonismael

Robsonismael

03/02/2003

quando voce der o insert todos são limpos, bastando apenas do o foco.

dbedit3.setfocus;


GOSTEI 0
Wanderson Cardoso

Wanderson Cardoso

03/02/2003

      QuerySelect.ExcecSql;
      for I := 0 to Pred(Self.ComponentCount) do
      begin
            if (Self.Components[ I ] is TDBEdit) then
           begin
                TDBEdit(Self.Components[ I ]).text := ' ';
           end;
      end;
      DBEdit1.SetFocus;


Caso tenha outros componentes que queira limpar é só complementar esse código!
GOSTEI 0
POSTAR