Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Seleccion en DBgrid y visualizar en Edit y Combobox (https://www.clubdelphi.com/foros/showthread.php?t=83796)

koalasoft 31-07-2013 02:33:52

Seleccion en DBgrid y visualizar en Edit y Combobox
 
Siguiendo el ejemplo de este hilo ..

http://www.clubdelphi.com/foros/show...ghlight=DBGrid

Busque algo relacionado pero sin respuesta o a menos que se me haya pasado.

Lo que me gustaría hacer es .. que una vez que hago la búsqueda de esa forma, al seleccionar una fila ya filtrada, estos datos aparezcan en sus respectivos campos Edit, Combobox, pero en otro formulario.

Osea que el filtrado me sirva de consulta y al seleccionarlo cada campo del grid dandole al boton OK, estos aparezca en sus respectivos Controles Edit, combobox en otro formulario. es posible esto?

Gracias por sus comentario.. !! :D

koalasoft 31-07-2013 02:45:42

Me respondo a mi mismo jeje ...

Entro del Boton (Buscar) Del Formulario 02 coloque el siguiente código:
Código Delphi [-]
form1.Edit1.Text:= DataSource1.DataSet.FieldByName('NOMBRE').AsString;
form1.ComboBox1.Text:= DataSource1.DataSet.FieldByName('APELLIDO').AsString;

De esta forma al quedar seleccionado la fila con con el filtrado al hacer ese llamado, en el formulario 01 aparece dichos datos en sus respectivos Campos.

Gracias por el tiempo .. Saludos !! .. :D

koalasoft 20-08-2013 23:28:53

Continuando con este detalle ..

Lo anterior esta bien .. lo que no habia notado es el detalle de ...

Recordaran que en el DBGRIG puedes personalizarlo para que solo se pueda ver ciertas columnas de la tabla, bueno requiero esa opción. Tengo el siguiente código para que al momento de seleccionar la fila de esa columna personalizada (DBgrid.Column[0]) en mi caso .. al seleccionar esta celda el dato de alli sea reflejado en una Edit.

Código Delphi [-]

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
 with TDBGrid(Sender) do
  begin
    if SelectedRows.IndexOf(DataSource.Dataset.Bookmark) >= 0 then
      begin Canvas.Brush.Color := clPurple;   // Defines un color al seleccionar la Celda
       Edit1.Text := Dbgrid1.SelectedField.Text; // Muetra la Celda Selecionada en un Edit
      end;
  end;
end;


Con el DBgrid sin usar columnas personalizadas por ejemplo de 10 campos solo quiero se vea 1 campo, cuando le doy al al editr de columnas el codigo mencionado ya no me muestra en el Edit1 la celda seleccionada.

Faltará algo ? gracias !! ..

TiammatMX 20-08-2013 23:31:02

jejejejejeje ¿Nos dejas participar a los demás? :p :D :confused:

koalasoft 20-08-2013 23:40:26

Cita:

Empezado por tiammat (Mensaje 465834)
jejejejejeje ¿Nos dejas participar a los demás? :p :D :confused:

jajaja ok ok .. adelante pues !! .. :rolleyes:


La franja horaria es GMT +2. Ahora son las 03:44:54.

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