llenar campo calculado en ejecucion

[andresorozco86]

Buenos dias:

De antemano agradezco sus respuestas, Lo que sucede es que estoy trabajando en delphi con una BD oracle, entonces tengo un DBgrid donde me muestra la informacin de una tabla por medio de un query, al DBgrid le cree un campo calculado pero quiero que este se llene al darle clik a un boton. Osea en ejecucion el DBgrid esta lleno pero el campo calculado no tiene nada y al darle click al boton quiero que los otro campos queden como estan y que se llene el calculado.¿Alguien me podria decir como hacerlo?

[cloayza]

Para asignar valor a un campo calculado debes utilizar el evento OnCalcFields del TTable o TQuery...

Aqui un ejemplo de como calcular el valor...

Código Delphi [-]
{
VALOR_1 ->Campo de la Tabla...
VALOR_2 -> Campo de la TABLA

VALOR_3 ->Campo calculado...

}

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
       {Forma 1}
      Dataset['VALOR_3']:=Dataset['VALOR_1'] + Dataset['VALOR_2'];

      {Forma 2}
      Table1.FieldByName('VALOR_3').AsInteger:=Table1.FieldByName('VALOR_1').AsInteger+Table1.FieldByName(  'VALOR_2').AsInteger;
end;

Saludos...

[andresorozco86]

Empezado por cloayza

Para asignar valor a un campo calculado debes utilizar el evento OnCalcFields del TTable o TQuery...

Aqui un ejemplo de como calcular el valor...


Código Delphi [-]{ VALOR_1 ->Campo de la Tabla... VALOR_2 -> Campo de la TABLA VALOR_3 ->Campo calculado... } procedure TForm1.Table1CalcFields(DataSet: TDataSet); begin {Forma 1} Dataset['VALOR_3']:=Dataset['VALOR_1'] + Dataset['VALOR_2']; {Forma 2} Table1.FieldByName('VALOR_3').AsInteger:=Table1.FieldByName('VALOR_1').AsInteger+Table1.FieldByName( 'VALOR_2').AsInteger; end;


Saludos...

Hola lo que sucede es que utilizo el evento OnCalcFields el llena el campo cuando se ejecuta el programa y yo necesito es que se calcule el campo cuando se le de click a un boton es decir en tiempo de ejecucion.

[ecfisa]

Hola.

Si sólo querés que muestre el valor en en campo calculado del registro actual, basta con que hagas:

procedure TForm1.BtnClick(Sender: TObject);
begin
  Tabla.Edit;
  TablaCpoCalculado.Value:= TablaCpo1.Value + TablaCpo2 *  TablaCpo3...;
end

Pero por supuesto, el dato sólo va a permanecer en pantalla hasta que cambies la posición del registro...

Saludos.