Limpar campos Delphi
01/05/2020
0
Bom dia galera!
Então, estou desenvolvendo uma aplicação no Delphi 7 (meu pc não roda versões mais recentes xD).
Eu fiz um formulário de cadastro de clientes e um outro formulário para exibição das informações.
Funciona assim:
No menu principal, ao clicar no ícone do cadastro de clientes, ele abre um formulário que exibe uma DBGrid com os clientes cadastrados. Nesse mesmo formulário tenho os campos TDBText que exibem os todos os dados cadastrais do cliente que eu selecionei na minha DBGrid.
Nesse formulário tem os botões de INSERIR, EDITAR e EXCLUIR.
No evento OnClick do botão EDITAR todas as informações dos meus TDBText são coletadas e abre o formulário de CADASTRO preenchendo automaticamente todos os campos (TLabeledEdit.Text do formulário de cadastro recebem TDBText.caption do formulário de clientes). A ideia é usar o mesmo formulário para INSERIR e EDITAR clientes.
Até aqui tudo normal.
O PROBLEMA é que após editar, sempre que abro esse formulário usando o BOTÃO INSERIR os campos continuam preenchidos...
Qual seria a melhor solução para esse problema?
Agradeço a contribuição! :D
Então, estou desenvolvendo uma aplicação no Delphi 7 (meu pc não roda versões mais recentes xD).
Eu fiz um formulário de cadastro de clientes e um outro formulário para exibição das informações.
Funciona assim:
No menu principal, ao clicar no ícone do cadastro de clientes, ele abre um formulário que exibe uma DBGrid com os clientes cadastrados. Nesse mesmo formulário tenho os campos TDBText que exibem os todos os dados cadastrais do cliente que eu selecionei na minha DBGrid.
Nesse formulário tem os botões de INSERIR, EDITAR e EXCLUIR.
No evento OnClick do botão EDITAR todas as informações dos meus TDBText são coletadas e abre o formulário de CADASTRO preenchendo automaticamente todos os campos (TLabeledEdit.Text do formulário de cadastro recebem TDBText.caption do formulário de clientes). A ideia é usar o mesmo formulário para INSERIR e EDITAR clientes.
Até aqui tudo normal.
O PROBLEMA é que após editar, sempre que abro esse formulário usando o BOTÃO INSERIR os campos continuam preenchidos...
Qual seria a melhor solução para esse problema?
Agradeço a contribuição! :D
Fernando
Curtir tópico
+ 0
Responder
Posts
05/05/2020
Raimundo Pereira
Bom dia galera!
Então, estou desenvolvendo uma aplicação no Delphi 7 (meu pc não roda versões mais recentes xD).
Eu fiz um formulário de cadastro de clientes e um outro formulário para exibição das informações.
Funciona assim:
No menu principal, ao clicar no ícone do cadastro de clientes, ele abre um formulário que exibe uma DBGrid com os clientes cadastrados. Nesse mesmo formulário tenho os campos TDBText que exibem os todos os dados cadastrais do cliente que eu selecionei na minha DBGrid.
Nesse formulário tem os botões de INSERIR, EDITAR e EXCLUIR.
No evento OnClick do botão EDITAR todas as informações dos meus TDBText são coletadas e abre o formulário de CADASTRO preenchendo automaticamente todos os campos (TLabeledEdit.Text do formulário de cadastro recebem TDBText.caption do formulário de clientes). A ideia é usar o mesmo formulário para INSERIR e EDITAR clientes.
Até aqui tudo normal.
O PROBLEMA é que após editar, sempre que abro esse formulário usando o BOTÃO INSERIR os campos continuam preenchidos...
Qual seria a melhor solução para esse problema?
Agradeço a contribuição! :D
Então, estou desenvolvendo uma aplicação no Delphi 7 (meu pc não roda versões mais recentes xD).
Eu fiz um formulário de cadastro de clientes e um outro formulário para exibição das informações.
Funciona assim:
No menu principal, ao clicar no ícone do cadastro de clientes, ele abre um formulário que exibe uma DBGrid com os clientes cadastrados. Nesse mesmo formulário tenho os campos TDBText que exibem os todos os dados cadastrais do cliente que eu selecionei na minha DBGrid.
Nesse formulário tem os botões de INSERIR, EDITAR e EXCLUIR.
No evento OnClick do botão EDITAR todas as informações dos meus TDBText são coletadas e abre o formulário de CADASTRO preenchendo automaticamente todos os campos (TLabeledEdit.Text do formulário de cadastro recebem TDBText.caption do formulário de clientes). A ideia é usar o mesmo formulário para INSERIR e EDITAR clientes.
Até aqui tudo normal.
O PROBLEMA é que após editar, sempre que abro esse formulário usando o BOTÃO INSERIR os campos continuam preenchidos...
Qual seria a melhor solução para esse problema?
Agradeço a contribuição! :D
Segue uma rotina que uso bastante
Procedure TFunções.LimpaEdits(Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount-1 do
begin
if Form.Components[i] is TEdit then
(Form.Components[i] as TEdit).Text:='';
if Form.Components[i] is TMaskEdit then
(Form.Components[i] as TMaskEdit).Text:='';
if Form.Components[i] is TLabeledEdit then
(Form.Components[i] as TLabeledEdit).Text:='';
end;
end;
Basta que no onshow do seu form de cadastro você chame esta procedure
LimpaEdits(Self);
Responder
Clique aqui para fazer login e interagir na Comunidade :)