Insertat dato de un from a otro.
Cita:
Yo tengo un from con un boton buscar que cuando le doy me trae otro from y de ese from que me trae, quiero que cuando selección un cliente me lo inserte en el primer from eso es lo que quiero hacer con este codigo. del from que estoy tratando de insertar los dato tengo esta varibles Nom_Cliente := string declarada como publica
|
Cita:
procedure TFFacturacion.BSeleccionarClick(Sender: TObject);
begin
FRegistroclient:=TFRegistroclient.Create(self);
try
FRegistroclient.ShowModal;
finally
If FRegistroclient.Nom_Cliente <> '' then
EdiCliente.Text := FRegistroclient.Nom_Cliente;
LabDireccion.Caption:= QuotedStr(FRegistroclient.Direccion);
FRegistroclient.Free;
end;
end;
|