Cita:
|
Empezado por vtdeleon
Necesito que al cerra el form de consulta, este transfiera el Codigo selecionadao de un empleado "X" al edit1 del formulario que lo llamo (form1,Form2 o form3).
|
Mejor deja que el formulario que lo llamó tome el valor él mismo.
En tu formulario de consultas agrega una propiedad pública para el código del empleado:
Código Delphi
[-]
type
TFormaConsultas = class(TForm)
private
FCodigo: Integer;
public
property Codigo: Integer read FCodigo write Codigo;
end;
En el evento OnCloseQuery de FormaConsultas asignas a FCodigo el valor que que corresponda al empleado seleccionado. Por ejemplo, si usas un Table para mostrar los empleados en FormaConsultas sería algo como:
Código Delphi
[-]
procedure TFormaConsultas.FormCloseQuery(...);
begin
if ModalResult = mrOk then
FCodigo := TablaEmpleados.FieldByName('cod_empleado').AsInteger;
end;
Así, cuando el formulario de consultas se cierre, ya tendrás en Codigo el valor adecuado. De esta manera, desde cualquier formulario donde requieras seleccionar un empleado haces:
Código Delphi
[-]
var
FormaConsultas: TFormaConsultas;
begin
FormaConsultas := TFormaConsultas.Create(nil);
try
if FormaConsultas.ShowModal = mrOk then
Edit1.Text := FormaConsultas.Codigo;
finally
FormaConsultas.Free;
end;
end;
Si observas, con esta metodología, el formulario de consultas podrás usarlo en cualquier parte sin que éste tenga que preocuparse por quién lo llama y por dónde hay que colocar el dato.
// Saludos