Seleccionar ítem del TDBGrid Tform1 a TForm2
 

Antes que nada quisiera agradecer a la comunidad por la ayuda anterior, me sorprendió la rapidez y la buena respuesta.
y bueno a seguir aprendiendo!! haber si con sus ayudas puedo aprender algo nuevo hoy. :)

bueno siguiente problema, ya tengo todos los datos que necesito en el TDBgrid del TForm1.
quisiera seleccionar un cliente y que los datos de esa persona se muestren en el TForm2, ya sea el NOMBRE, TELEFONO, CELULAR

Muchas gracias de antemano.

Codigo Fuente:
https://www.dropbox.com/s/6grawxspvi...er1.1.rar?dl=0

-------------
Metas:
Crear tablas en una BD Firebird - Solucionado
Conectar BD con Lazarus - Solucionado
Mostrar Resultados en Grid - Solucionado
Filtrar los datos por Búsqueda y Orden – Solucionado
Solución al Problema (MEMO) – Solucionado por ecfisa (v1.0)
Pasar Datos del TDBGrid del form1 a Form2 - Pendiente (v1.1)

Hola Minoru.

Podes hacer,

Código Delphi [-]
(***   Unit1   ***)
...

implementation

uses Unit2;

// (Usé el evento OnDblClick del DBGrid pero podrías usar cualquier otro)
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  if not Assigned(Form2) then
     Form2:= TForm2.Create(Self);
  with Form2 do
  begin
    EditNombre.Text:= SQLQ.FieldByName('NOMBRES').AsString;
    EditTel.Text   := SQLQ.FieldByName('TELEFONO').AsString;
    EditCel.Text   := SQLQ.FieldByName('CELULAR').AsString;
    EditNS.Text    := SQLQ.FieldByName('NS').AsString;
    EditFalla.Text := SQLQ.FieldByName('FALLA').AsString;
    Show;
   end
end;    
...

De todos modos no es la forma de trabajo que te recomendaría... Mejor sería que usaras un módulo de datos para depositar tus componentes de conexión a bd.
Conectando ambos formularios a él, en Form2 podrías usar DBEdits y disponer de la información de forma automática (sin tener que pasarla previamente como en el caso de los Edits).

Saludos :)

muchas gracias otra vez por tu ayuda!! T_T
si funciono, me gustaría aprender como tu dices de esa forma. no hay algún ejemplo que tengas por hay de código para aprender a usar esos métodos? disculpa mi ignorancia :(

Hola Minoru.

Intentaré explicarlo lo mejor posible sobre el ejemplo que trabajas.

1) Agrega un módulo de datos: Archivo->Nuevo->Modulo de datos. (vg.: Unit3)
2) Pone en él el TIBConnection, el TSQLTransaction y el TSQLQuery.

3) Quitar los componentes de datos de los formularios.
4) Agregar el modulo de datos (Unit3) a la cláusula uses de los forms en que vaya a ser requerido

Código Delphi [-]
...
uses ..., Unit3;

5) Agregar un TDataSource al form y asociar la propiedad DataSet del TDataSource al TSQLQuery:

Luego vas a tener que indicar el origen en cada referencia a los datos de este modo:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  with DataModule1 do
  begin
    sqlq.Active:=False;
    sqlq.sql.text:= 'SELECT CLIENTES.CODIGO,REPARACIONES.CODIGO, ...';
    sqlq.Active:=True;
    sqlq.FilterOptions := [foCaseInsensitive];
    sqlq.Filter := 'NOMBRES=' + QuotedStr('*'+text1.text+'*');
    sqlq.Filtered := true;
    sqlq.First;
  end;
end;

Y la llamada a Form2, sería solamente:

Código Delphi [-]
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  if not Assigned(Form2) then
     Form2:= TForm2.Create(Self);
  Form2.Show;
 end;

Por último en Form2 agrega otro TDataSource, enlazalo con el TSQLQuery (igual que en 5) y reemplaza los TEdit por TDBEdit, poniendo en todos la propiedad DataSource igual a DataSource1 y en la propiedad DataField el nombre de campo que corresponda.

Quedaría mas o menos así:


Espero haber sido claro, cualquier duda consulta nuevamente.

Saludos :)

realmente me impresiona tus conocimientos y mas me impresiona la rápida respuesta. jejeje. aveces uno hace una consulta en los foro y pasan meses cuando recibes una respuesta. y aveces ya lo solucionaste o la ayuda no es buena. pero aquí contigo me has ayudado un montón. ahora aplico lo que me has enseñado. muchas gracias por las molestias. :)