Campo calculado en Lazarus

Campo calculado en lazarus

 

 

Vamos a crear una columna «Total» para que realice un cálculo simple en un dbgrid «Importe»*»Apunte»

 

 

 

1. zquery1
2. botón derecho
3. editar campos
4. Crear un nuevo campo y añadirlo en la posición actual (Insert)
5. Calculados

 

 

 

 

 

 

procedure TDataModule1.ZQuery1CalcFields(DataSet: TDataSet);
begin
  DATASET.FieldByName('Total').Value := dataset.fieldbyname('IMPORTE').Value *dataset.fieldbyname('APUNTE').VALUE;
end;     

Fuerza y honor.