Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Como transferir datos de un ADOquery a un Formulario (https://www.clubdelphi.com/foros/showthread.php?t=46337)

maru1981 29-07-2007 06:47:24

Como transferir datos de un ADOquery a un Formulario
 
hola mi pregunta en si es como transfiero de un formulario donde hice una busqueda a otro donde quiero modificar esos datos mi codigo es

Cita:

procedure TForm32.BitBtn1Click(Sender: TObject);
begin
b_nivel.Active:=False;
b_nivel.Parameters.ParamByName('A1').Value:=Edit1.Text;
DBGrid1.DataSource:=nivel;
b_nivel.Active:=true;
end;
el resultado de la busqueda quiero que se visualice en otro formulario supongamos un Form33 donde tengo un edit1.text y un edit2.tex quiero visualizar la busqueda del for32 dando un click en BitBtn2 para tranferir los datos a los edit del form33.

Gracias de antemano por su ayuda.

Caral 29-07-2007 15:28:37

Hola
Me parece que esto:
http://www.clubdelphi.com/foros/showthread.php?t=46017
Te podria ayudar un poco, revisalo, casi al final hay algo parecido a lo que necesitas.
Pasar los datos de un form a otro e insertarlos en edits.
saludos

maru1981 29-07-2007 23:43:16

no puedo bajar los datos adjuntos
 
hola caral sabes no pude ver como jalar los datos a el otro formulario en los edit, por lo que vi tengo que declara como publicas unas variables donde se transfiere la informacion pero no se como hacer que se vean en mi otro formulario, pasa que quise bajar uno de tus datos adjuntos pero me manda error ok mi idea es en mi formulario de buscar tengo un edit y datagrid quiero
que al seleccionar en el datagrid y dar click en mi boton aceptar se visualice en mis edit del otro formulario asi quedo mi codigo
Cita:

Formulario de buscar
public
{ Public declarations }
nive_sall: string;
salario_sal: string;
[FONT='Times New Roman','serif'] end;[/font]
[FONT='Times New Roman','serif']boton aceptar de formulario de busqueda
nive_sall := ADOTable1nive_sall.integer;salario_sal := ADOTable1salario_sal.currency;Close;[/font]

ya tengo mi ADOtable y la busqueda ya funciona, solo que no se como pasar esto a mi otro formulario en los edit, espero haberme explicado saludos.

MaMu 29-07-2007 23:56:07

Cita:

Empezado por maru1981
hola caral sabes no pude ver como jalar los datos a el otro formulario en los edit, por lo que vi tengo que declara como publicas unas variables donde se transfiere la informacion pero no se como hacer que se vean en mi otro formulario, pasa que quise bajar uno de tus datos adjuntos pero me manda error ok mi idea es en mi formulario de buscar tengo un edit y datagrid quiero
que al seleccionar en el datagrid y dar click en mi boton aceptar se visualice en mis edit del otro formulario asi quedo mi codigo

ya tengo mi ADOtable y la busqueda ya funciona, solo que no se como pasar esto a mi otro formulario en los edit, espero haberme explicado saludos.

maru1981, en primer lugar, se te agradeceria mucho que tomaras la libertad de usar etiquetas para los codigos, ya que la funcion de estas es hacer mas legible y comprensible el codigo propiamente dicho, emulando un entorno de darrollo.

Con respeto a tu pregunta, no entiendo. Porque yo, puedo hacer esto perfectamente:

Código Delphi [-]
implementation
 
uses Unit1; //la unidad del Form1
 
//estoy en Form2
begin
Edit1.Text:=Form1.ADOQuery1.FieldByName('campo').AsString;
end;

No se si es esto lo que queres hacer.

Saludos

Caral 30-07-2007 00:37:09

Hola maru1981
Copia el codigo del form1 y el from2, el que busca y el que recibe la informacion, le hacemos los ajustes y ya.
Te parece?
Saludos

maru1981 30-07-2007 01:16:40

aqui es mi "codigo"
 
mira este es mi codigo en el formulario de busqueda mis datos los tipeo en un edit y los visualizo en un DataGrid este es el codigo que tengo en mi boton de busqueda.

Código:

begin
b_nivel.Active:=False;
b_nivel.Parameters.ParamByName('A1').Value:=Edit1.Text;
DBGrid1.DataSource:=nivel;
b_nivel.Active:=true;
end;
 



lo unico que pude hacer es agregar un boton de visualizar busqueda en el formulario de modificar para asi poder ver los datos buscado en mi formulario de busqueda, pero no quiero hacerlo asi quiero que parezcan al dar click en mi boton de aceptar y que salga del formulario de busqueda y transfiera los datos a mi formulario de modificar en los edit

este es el codigo de mi boton de visualizar busqueda en el formulario de modificar

Código:

begin
Edit1.Text:=Form32.b_nivel.FieldByName('nive_sall').AsString;
Edit2.Text:=Form32.b_nivel.FieldByName('salario_sal').AsString;
end;

ya declare las variables publicas. espero haberme explicado. gracias de ante mano.

Caral 30-07-2007 01:46:20

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

maru1981 30-07-2007 02:13:18

me manda un error!!
 
Hola caral mira ya lo hice pero me manda un error en mi formulario de busqueda en esta linea

[code]
nive_sall := b_nivelnive_sall.AsString;
salario_sal := b_nivelsalario_sal.AsString;
Close;
[/close]

el error que manda es este

Código:

[Error] Unit32.pas(62): Undeclared identifier: 'nive_sall'
[Error] Unit32.pas(63): Undeclared identifier: 'salario_sal'
[Error] Unit32.pas(63): Missing operator or semicolon





que hago mal? gracias por tu atencion...

Caral 30-07-2007 02:23:39

Hola
Creo segun entiendo tienes un ADOTable, este ve la tabla, bueno, dale doble click y te saldra una pantallita pequeña, dale click derecho y add, selecciona todos los campos , hecho esto, estaran en la pantallita, bien, aqui veras los nombres de los campos a los que vas a llamar, son estos los que vas a poner en la linea que te da error, asi:
Código Delphi [-]
  nive_sall   := b_nivelELNOMBREDELCAMPO1.AsString;
  salario_sal := b_nivelELNOMBREDELCAMPO2.AsString;
Si los nombres coinciden y estan en la pantallita, no tendras problemas.
Espero lo entiendas ahora, si no, pues a seguir.:D
Saludos

maru1981 30-07-2007 02:47:59

muchas gracias!!
 
ya lo hice eres un genio gracias por tu ayuda me es mucha ayuda en estos momento ya que tengo que entregar este pequeño sistema para mañana y no tenia ni idea de como empezar..

saludos!!!:p

Caral 30-07-2007 02:52:02

Hola
Me alegro que te funcione.
Saludos


La franja horaria es GMT +2. Ahora son las 01:21:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi