DBGrid... agregar un campo calculado...?
 

Hola a todos...

tengo el siguiente problema... en un BDGrid muestro los datos que poseo en una tabla...

Tabla : Detalle
Campos: Cantidad, Descripcion, Valor_Unit

Como puedo hacer para agregar un campo más al DBGrid, en cual me muestre el Valor_Total por medio de una operación (Cantidad*Valor_Unit)...

Espero que me entiendan... la idea es que el propio DBGrid haga el proceso.. :p

Campo calculado
 

Hola Marcel!


Mi sugerencia sería agregar el campo calculado en la tabla directamante y no en el DBGrid

Para lograr esto entras en el editor de campos de la tabla y agregas el campo Valor_Total con el tipo adecuado y le indicas que será un campo calculado.

Después solamente hay que hacer el calculo en el evento OnCalcFields de la tabla.

Código Delphi [-]
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
DataSet.FieldByName('Valor_Total').AsFloat:=
   Dataset.FieldByName('Cantidad').AsFloat* DataSet.FieldByName('Valor_Unit').AsFloat;
end;

Sólo resta agregar este campo en una columna del DBGrid o en cualquier otro control de acceso a datos en la forma.

Espero que sea lo que estás buscando, un Saludo.

gracias por tu ayuda... pero en realidad andaba buscando algo para poderlo hacer en el DBGrid... ya que no queria modificar la TABLA.... pero si no hay otra solución.. no me queda otra que entrar a picar....

gracias = :p

Ya me funciono.... lo pude hacer... Al final agregue 1 campo más al DBGrid, y en el evento OnDrawColumnCell, puse el siguiente Codigo...

Procedure TOrdenes.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
Begin
if (Column.Index = 3) then
Begin
DBGrid2.Canvas.TextOut(Rect.Left, Rect.Top, IntToStr(IBQ_Items['DOr_Cantidad']*IBQ_Items['DOr_Valor_Unitario']));
End;

End;

// Explicación :

Column.Index = 3, corresponde a la columna que agregue...
Rect,Left, Rect.Top = en realidad no se que significa, pero no me funciona si no pongo esto?... parece que es la posición dentro de la Celda...
IntToStr(IBQ_Items['DOr_Cantidad']*IBQ_Items['DOr_Valor_Unitario']) : Corresponde al calculo que realizo....

Campo Calculado
 

Como decía el compañero Héctor (aunque no explicó muy bien, todo sea dicho), lo más cómodo es añadir un campo nuevo no a la tabla, sino al dataset. La tabla de la base de datos no hay que tocarla para nada!!!
Mi solución es mejor si el contenido del dbgrid es dinámico. La solución de BlueSteel es también buena, pero se complica si cambia la consulta (los campos que la componen, más concretamente)

Para este ejemplo, he utilizado un ADOQuery. Es cuestión de probar con otros componentes de acceso a datos... ;-). Primero, hay que configurar el ADOQuery para que se conecte a la base de datos, y poner la consulta en tiempo de diseño para que seleccione todos los campos.
Selecciona el ADOQuery, y pulsa Shift+Alt+F11 para ver el Object Tree. En la jerarquía de objetos que aparece, (con el ADOQuery seleccionado), despliega el ADOQuery, y te aparecen 3 subcategorías: . Dale con el botón derecho a la categoría Fields, y Add All Fields. Luego, vuelves a dar con el botón derecho a Fields, y esta vez pincha en New Field. Te deja rellenar el nombre, el tipo, y opcionalmente tamaño y otras cosas. Con el nombre y el tipo es suficiente.
Es importante saber que ésto no toca para nada la tabla original de los datos... es decir, la base de datos con contemplará ningún cambio que hagamos aquí.
Bueno, ya sólo queda, como decía el compañero Héctor, establecer el código del evento OnCalcFields del ADOQuery.
Selecciona en tiempo de diseño el ADOQuery en el formulario, y en el object inspector, selecciona la pestaña Events, y haz doble click sobre OnCalcFields.
Suponiendo que hayas creado un campo que se llama Total, que multiplica Precio y Cantidad (que existen en la tabla original):

Código Delphi [-]

procedure TfrmMain.ConsultaCalcFields(DataSet: TDataSet);
begin
   DataSet.FieldByName('Total').AsFloat:=
         Dataset.FieldByName('Precio').AsFloat * 
         DataSet.FieldByName('Cantidad').AsInteger;
end;

Como puedes ver, en tres clicks y con una línea de código, ya está hecho!!
Espero que no lo haya liado mucho!!