guardar datos de una fila seleccionada de un dbrig en variables

[[Caral]]

Hola
Para mi esto es un masterdetail, creo que nos falta informacion de tu parte
Saludos

[[Caral]]

Hola
Que base de datos usas?.
Que tan grande es el programa?.
Esto te lo digo para saber si lo envías en un zip, tal vez me guío mas.
Saludos

[deprimera]

tengo 2 tablas distintas una d productos y otra d servicios...necesito guardar en las variables cod y desc lo seleccionado por el usuario para luego pasarlo a una factura...toy haciendo un software de una pelukeria para un final d la facultad...q otros datos necesitas?

[deprimera]

la base de datos la hice en access y el programa zipeado con la base de datos pesa 1.93 mb.. como t lo puedo enviar?

[[coso]]

hola, puedes usar directamente el dataset de cada dbgrid

Código Delphi [-]

cod1 := DBGrid1.DataSource.Dataset.FieldByName('cod').Asinteger;
cod2 := DBGrid2.DataSource.DataSet.FieldByName('cod').Asinteger;

[*Caro*]

Parece que no me estan leyendo , ni modo.

Saluditos

[deprimera]

caro gracias por tus respuestas lo q m pasast funciona bien...pero lo q yo kiero es guardar los datos en cod y desc ya sea si se esta pulsando el dbgrid1 o el dbgrid2 no kiero hacer otras variables para desp pasarlo a una factura

[[Caral]]

Hola
Caro, yo si te leo, como no hacerlo.
Saludos

[*Caro*]

Empezado por Caral

Hola
Caro, yo si te leo, como no hacerlo.
Saludos

Oh, muchas gracias amiguito .

Creo que ya te he entendido deprimera, tu quieres obtener los valores del ultimo DBGrid que ha tenido el foco, si es así no se puede directamente, ya que si preguntas por Focused el que va tener el foco es tu boton o si preguntas por ActiveCOntrol lo mismo.

Lo que se me ocurre es que guardes en una variable el ultimo dbGrid en el que s ele ha hecho click, eso lo puedes hacer en el evento OnEnter, pero también debes definirte una variable global.

Código Delphi [-]
 DBGridFoco : TDBGrid; //Nuestra variable global
 
 en el codigo de tu boton
 
 if DBGridFoco = DBGrid1 then
  begin
   cod:= adotable1.fieldbyname('Codigo').AsInteger;
   desc:= adotable1.fieldbyname('Servicio').AsString;
  end;

 if DBGridFoco = DBGrid2 then
  begin
   cod:= adotable2.fieldbyname('Codigo').AsInteger;
   desc:= adotable2.fieldbyname('descripcion').AsString;
  end;
 
//Ahora en el evento OnEnter de cada DBGrid
 
procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
 DBGridFoco := DBGrid1;
end;
procedure TForm1.DBGrid2Enter(Sender: TObject);
begin
 DBGridFoco := DBGrid2;
end;

La variable global puede ser de otro tu tipo, solo te sirve para que identifiques cual ha sido el ultimo que ha tenido el foco.

Saluditos

[[coso]]

Yo es que no entiendo bien bien que es lo que quiere hacer...

para coger los valores de cada campo (por cierto, código no es un nombre de campo correcto) puedes o bien, sabiendo a que dataset esta relacionado

Código Delphi [-]

cod := AdoQuery1.FieldByName('codigo').Asinteger;

o bien desde el dataset del dbgrid (que es el mismo solo que accedido de manera mas relativa)

Código Delphi [-]

cod := DBGrid1.DataSource.DataSet.FieldByName('codigo').Asinteger;

no sobreescribas variables, pues no tienes sentido

procedure Tcodigo.BitBtn1Click(Sender: TObject);
var
cod: Integer;
desc: String;
begin
cod:= adotable1.fieldbyname('Código').Value;
desc:= adotable1.fieldbyname('Servicio').Value; // con lo de despues...esto para que sirve?

cod:= adotable2.fieldbyname('Código').Value;
desc:= adotable2.fieldbyname('Descripción').Value;

edit1.Text:=inttostr(cod);
edit2.Text:= desc;
end;

y si nos explicas un poco mejor que es lo que quieres hacer...

[[Caral]]

Hola
Vamos a ver si entiendo.
Tienes dos dbgrid
Estos, estan enlazados a dos adotables independientes
Quieres que cuando se presione en alguno de los dos dbgrid este dato se pase a los edits, independientemente de cual dbgrid o table sea.
Es asi?.
Saludos

[[coso]]

si lo que quieres es coger cod, descr (que existen tanto en productos como servicios) entonces si, tendras que averiguar que dbgrid es la seleccionada (aunque si lo miras bien, puedes usar una unica tabla productos+servicios y en ella que este incluidos todos los trabajos/ventas). Puedes usar DBGrid.Focused, por ejemplo:

Código Delphi [-]

if DBGrid1.Focused then 
begin     
    cod := DBGrid1.DataSource.DataSet.FieldByName('cod').Asinteger;
...
end
else
if DBGrid2.Focused then 
begin
    cod := DBGrid2.DataSource.DataSet.FieldByName('cod').Asinteger;
...

end;

lo malo es que al clickar el boton, las grids te perderan el foco. Creo que tendrias que ponerlo todo en una unica tabla o bien hacer dos botones de agregar, uno por productos y otro por servicios. saludos.

[[coso]]

O bien usando el dblclick de cada dbgrid...

Código Delphi [-]

procedure TForm1.DBGridDblClick(sender : TObject);
begin
    cod := (sender as TDBGrid).DataSource.DataSet.FieldByName('codigo').Asinteger;
    descr := (sender as TDBGrid).DataSource.DataSet.FieldByName('descr').Asstring;

    insertar_(cod,descr);
end;

poniendo esto en el OnDblClick de las dos dbgrids.

[deprimera]

tengo 2 tablas una de Servicios y otra de Productos...
los campos de Servicios son Código, Servicio y Precio
los campos de Productos son Código, Descripción y Precio..echos en access

yo quiero q al seleccionar una fila d cualkier dbgrid (el dbgrid1 asociado a un adotable1 q pertenece a la tabla Servicios y el dbgrid2 asociado a un adotable2 q pertenece a la tabla Productos) m lo guarde en las variables cod y desc para pasarlos a otra pantalla donde se realiza una factura

[[Caral]]

Hola
Perdona pero no termino de entender el concepto, para mi se podría hacer con sql.
Coso va muy bien con la explicación, creo que mejor lo sigues a el.
Saludos

[[coso]]

Entonces, en el evento OnDblClick o bien OnClick, deberas recoger las variables y luego enviarlas.

Código Delphi [-]
procedure TForm1.DBGridOnDblClick(sender : TObject);
var
    cod : integer;
    dsc : string;
    prc : double;
begin
    cod := (sender as TDBGrid).FieldByName('codigo').Asinteger;
    prc := (sender as TDBGrid).FieldByName('precio').Asfloat; 

    if (sender as TDBGrid) = DBGrid1 then // DBGrid1 = la de servicios
    dsc := DBGrid1.DataSource.Dataset.FieldByName('servicio').Asstring
    else 
    if (sender as TDBGrid) = DBGrid2 then // DBGrid2 = la de productos
    dsc := DBGrid2.DataSource.DataSet.FieldByName('descripcion').Asstring;

    Insertar_en_factura(cod,dsc,prc);
end;