Asignar valor a columna dbgrid en Lazarus


Dbgrid en Lazarus

lazarus-asignar-valor-dbgrid

 

 

 

Veamos ahora como asignar el valor de una variable a un dbgrid en lazarus, realmente lo que haré será actualizar el DataSource que hace de puente entre el dbgrid y el dataset, en este caso una conexión con Zeos ZConnection.

 
var
  vfrmCuadre: TfrmCuadre;
  vEstadillo: String;
  vFecha: String;
 
implementation
 
{$R *.lfm}
 
{ TfrmCuadre }
 
 
 
procedure TfrmCuadre.FormCreate(Sender: TObject);
begin
   DataModule1.ZQuery1.Open;
end;
 
procedure TfrmCuadre.DBGrid1ColExit(Sender: TObject);
begin
   try
 
  if DBGRid1.SelectedIndex = 0 then
      vEstadillo:=Dbgrid1.Columns[0].Field.Text;
 
  if DBGRid1.SelectedIndex = 2 then
     vFecha:=Dbgrid1.Columns[2].Field.Text;
 except
   showmessage('Error en columna');
 
   end;
end;
 
 
 
procedure TfrmCuadre.DataSource1UpdateData(Sender: TObject);
begin
   if DataSource1.DataSet.FieldByName('ESTADILLO').Text= '' then
     DataSource1.DataSet.Fieldbyname('ESTADILLO').AsString := vEstadillo;
   if DataSource1.DataSet.FieldByName('FECHA').Text= '' then
     DataSource1.DataSet.Fieldbyname('FECHA').AsString := vFecha;
end;

Fuerza y honor.