Limpar e preencher de novo - Urgente!!!!
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
Curtidas 0
Respostas
Robsonismael
03/02/2003
quando voce der o insert todos são limpos, bastando apenas do o foco.
dbedit3.setfocus;
dbedit3.setfocus;
GOSTEI 0
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