Ver Mensaje Individual
  #5  
Antiguo 30-07-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 27
Caral Va por buen camino
Hola
Vamos por partes:
1- Form Modificar. (Form33)
2- Form Busqueda.(Form32)
Primero:
El form Modificar, llama al form Busqueda con un boton1, supongo que lo llamas con el metodo convencional asi:
En el Boton1 que llama al from Busqueda.
Código Delphi [-]
   Form32:=TForm32.Create(self);
   try
    Form32.ShowModal;
   finally
   If Form32.nive_sall <> '' then
   Edit1.Text := Form32.nive_sall;
   Edit2.Text := Form32.salario_sal;
   Form32.Free;
   end;
Como ves, el form Modificar indica que quiere de regreso los datos del from Busqueda.
Ahora en el From Busqueda:
Declaramos las variables del from Modificar, como publicas:
Código Delphi [-]
 private
    { Private declarations }
  public
    { Public declarations }
     nive_sall: string;
     salario_sal: string;
  end;
En el boton que cierra el Form Busqueda:
Aqui estoy asumiendo que los campos se llaman, nive_sall y salario_sal igual que las variables y que el adotable o adoquery se llama b_nivel, si no es asi, verifica los nombres y los cambias.
Código Delphi [-]
  nive_sall := b_nivelnive_sall.AsString;
  salario_sal := b_nivelsalario_sal.AsString;
  Close;
Como ves lo que indico es que cuando se salga del form se mantengan las variables.
Espero lo entiendas mejor.
Saludos
Responder Con Cita