Limpar e preencher de novo - Urgente!!!!

03/02/2003

8

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:


Responder

Posts

03/02/2003

Robsonismael

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

dbedit3.setfocus;


Responder
      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!
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar