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!!
05-02-2009
Modo Hilado