Problema ao editar registro no banco

30/04/2020

Ol� pessoal. Entrei recentemente no mundo Delphi e criei algumas aplica��es para cadastro de clientes usando o banco MySQL. Os registros adicionados ao banco s�o mostrados em um DBGrid e ao dar um duplo click em cima do registro, abre a p�gina do PageControl onde � realizado o cadastro, exclus�o e edi��o dos dados. At� ai tudo bem, por�m ao clicar no bot�o para editar o registro, todos os DBEdits da p�gina de cadastro mudam para o �ltimo cadastro feito no sistema. Algu�m saberia me auxiliar a resolver esse erro?

C�digo do OnDblClick do DBGrid:

procedure TFrmClienteFisico.DBGrid1DblClick(Sender: TObject);
begin
  pg_Detalhes.TabVisible := True;
  pg_Cadastrados.TabVisible  := False;
  txt_codigo.Text  := IntToStr(dm.sql_con_fisicocli_codigo.Value);
  txt_Data_cad.Text   := DateToStr(dm.sql_con_fisicocli_data_cad.Value);
  cb_situacao.Text   := dm.sql_con_fisicocli_situacao.Value;
  txt_nome.Text := dm.sql_con_fisicocli_nome.Value;
  txt_cpf.Text := dm.sql_con_fisicocli_cpf.Value;
  txt_rg.Text := dm.sql_con_fisicocli_rg.Value;
  txt_orgao.Text := dm.sql_con_fisicocli_orgao.Value;
  txt_data_nasc.Text := DateToStr(dm.sql_con_fisicocli_data_nasc.Value);
  cb_sexo.Text := dm.sql_con_fisicocli_sexo.Value;
  txt_email.Text := dm.sql_con_fisicocli_email.Value;
  txt_telefone.Text := dm.sql_con_fisicocli_telefone.Value;
  txt_celular.Text := dm.sql_con_fisicocli_celular.Value;
  txt_cep.Text := dm.sql_con_fisicocli_cep.Value;
  txt_tipo.Text := dm.sql_con_fisicocli_tipo.Value;
  txt_logradouro.Text := dm.sql_con_fisicocli_logradouro.Value;
  txt_numero.Text := IntToStr(dm.sql_con_fisicocli_numero.Value);
  txt_bairro.Text := dm.sql_con_fisicocli_bairro.Value;
  txt_municipio.Text := dm.sql_con_fisicocli_municipio.Value;
  cb_uf.Text := dm.sql_con_fisicocli_uf.Value;
  txt_ibge_estado.Text := dm.sql_con_fisicocli_ibge_estado.Value;
  txt_ibge_cidade.Text := dm.sql_con_fisicocli_ibge_municipio.Value;
  txt_complemento.Text := dm.sql_con_fisicocli_complemento.Value;
  pg_Detalhes.Show;
end;

C�digo do click do bot�o Editar:

procedure TFrmClienteFisico.btn_alterarClick(Sender: TObject);
begin
    dm.tb_cli_fisico.Edit;
    ConfigBotoes();
    HabilitarCampos;
end;

Lucas Ferreira

Curtir t�pico + 0

Responder