Cita:
Empezado por ecfisa
Hola.
No puedo saber con seguridad la lógica que has implementado, pero suponiendo que fListadoClientes es el form que tiene el DBGrid y el Button, fcliente el form donde se editan los datos y fmodulo el DataModule donde residen qCliente y tCliente, creo que podrías hacer:
Código Delphi [-]
procedure TfListadoCliente.bModificarClick(Sender: TObject);
begin
fmodulo.tCliente.Active := true;
if fmodulo.tCliente.Locate('id_cliente', fmodulo.qCliente['id_cliente'], []) then
begin
fmodulo.tCliente.Edit;
fcliente := Tfcliente.Create(Self);
try
fcliente.ShowModal;
finally
fcliente.Free;
end;
end;
fmodulo.tCliente.Active := false;
fmodulo.qCliente.Refresh;
end;
Eso tratando de respetar lo mas posible el código original y suponiendo que esa es tu organización...
Saludos
|
Funciona de maravilla, ahora es muy distinto a que entienda lo que hace, por lo cual te voy a preguntar que quieren decir estas declaraciones, asi aprendo que hiciste xD y de paso aprendo
Código Delphi
[-] try
fcliente.ShowModal; => esta si entiendo
finally
fcliente.Free;
end;