Columnas adicionales en TDBGrid

[noob]

Hola tengo un componente TDBGrid que muestra el contenido de una tabla MySQL con los campos Codigo Cantidad y Precio, yo lo que quiero es añadir una columna a mi TDBGrid para almacenar información útil para el usuario pero que no se almacene en la base de datos.
Para crear una nueva columna hago lo siguiente en el evento OnCreate de mi formulario:

Código Delphi [-]
DBGrid1.Columns.Add.Title.Caption := 'Nueva Columna';

hasta aquí bien, mi columna adicional es creada pero no se cómo introducir datos en ella, ni a mano, porque todo lo que meto no se guarda ni mediante código.

Tal vez lo que intente hacer no se pueda, ¿me ayudáis?

Feliz Navidad y muchas gracias.

[[Fenareth]]

Empezado por noob

Hola tengo un componente TDBGrid que muestra el contenido de una tabla MySQL con los campos Codigo Cantidad y Precio, yo lo que quiero es añadir una columna a mi TDBGrid para almacenar información útil para el usuario pero que no se almacene en la base de datos.
Para crear una nueva columna hago lo siguiente en el evento OnCreate de mi formulario:

Código Delphi [-]DBGrid1.Columns.Add.Title.Caption := 'Nueva Columna';


hasta aquí bien, mi columna adicional es creada pero no se cómo introducir datos en ella, ni a mano, porque todo lo que meto no se guarda ni mediante código.

Tal vez lo que intente hacer no se pueda, ¿me ayudáis?

Feliz Navidad y muchas gracias.

Hola noob

Soy yo o eso me suena un poco contradictorio ????

[luisgutierrezb]

lo que necesitas es crear un campo calculado, en el dataset boton derecho del mouse en la opcion field Editor, ahi podras crear uno nuevo y lo veraz en el dbgrid, modificas el valor en el evento oncalcfields

[*Caro*]

Hola noob, creo que deberías explicar un poco mas para que necesitas tu nuevo campo, ¿pertenece a tu tabla?, si utilizas un ClientDataSet todo lo que vayas registrando e inclusive campos temporales se almacenan en memoria hasta que no apliques ApplyUpdates, menos en el caso de que te crees un campo en memoria, ya que no estara en tu tabla.

Saluditos

[noob]

Empezado por Fenareth

Hola noob

Soy yo o eso me suena un poco contradictorio ????

Fenareth, no es contradictorio porque esa información no quiero que se guarde en la base de datos pero sí quiero que se guarde temporalmente en memoria principal mientras se está ejecutando mi aplicación.

Empezado por luisgutierrezb

lo que necesitas es crear un campo calculado, en el dataset boton derecho del mouse en la opcion field Editor, ahi podras crear uno nuevo y lo veraz en el dbgrid, modificas el valor en el evento oncalcfields

Supongo que eso dependerá del tipo de Dataset utilizado porque en mi caso no veo dicha opción.

Empezado por Caro

Hola noob, creo que deberías explicar un poco mas para que necesitas tu nuevo campo, ¿pertenece a tu tabla?, si utilizas un ClientDataSet todo lo que vayas registrando e inclusive campos temporales se almacenan en memoria hasta que no apliques ApplyUpdates, menos en el caso de que te crees un campo en memoria, ya que no estara en tu tabla.

Saluditos

Hola Caro, te explico un poco, tengo una tabla Ventas con los campos Producto Unidades Precio Proveedor, el campo Producto mostrará el código de producto (en mi base de datos tengo también una tabla Productos con los campos Codigo y Descripcion). Lo que hago es esto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  ListaProductos: TStringList;
  i: integer;
begin
  ListaProductos := TStringList.Create;
  with BaseDatos.Tabla('Producto') do
    try
      Active := true;
      First;
      DisableControls;
      while not EOF do
        begin
          ListaProductos.Add(FieldByName('Codigo').AsString);
          Next;
        end;
    finally
      Active := false;
      for i := 0 to DBGrid1.Columns.Count - 1 do
        begin
          if (DBGrid1.Columns[i] as TColumn).FieldName = 'Producto' then
            begin
              DBGrid1.Columns[i].PickList := ListaProductos;
              Break;
            end;
        end;
      EnableControls;
      ListaProductos.Free;
    end;
end;

De este modo en el campo Producto del TDBGrid tengo todos los códigos de producto que hay en la tabla Productos listos para que el usuario escoja uno de ellos. El problema es que yo quiero añadir una columna adicional para que me muestre también la descripción del producto ya que seleccionar el producto "PR0034" puede que no diga mucho sin embargo si selecciono el producto "PR0034" y nada más seleccionarlo se me rellena la columna de al lado con "2 GB Memoria RAM DDR 400 MHz" entonces el usuario sabe bien qué producto ha cogido, pero claro esa información adicional no ha de guardarse en la tabla Ventas sino que sólo ha de mostrarse para dar información adicional al usuario.

Lo que hago es crear esa columna nueva:

Código Delphi [-]
DBGrid1.Columns.Add.Title.Caption := 'Descripcion';

Pero no sé cómo asignar al contenido de la celda de la nueva columna la descripción del producto cuyo código es el seleccionado. Primero porque no encuentro un evento que se dispare al escoger un código del PickList (el que más se ajusta a lo que quiero es el evento OnColExit del TDBGrid) y segundo porque no veo ninguna propiedad que sea el contenido de una celda.

Espero haberme explicado.

Saludos.

[Kipow]

Con los calcfields creo que no te funcionara porque estos se resetearan cada vez que se ejecute el evento. podrias probar talvez on el componente de las Jedi el jvMemoryData que es una tabla en memoria.

[noob]

¿No se puede hacer con el TDBGrid sin más o cómo mucho usando alguna estructura de datos tipo array dinámico?

[PepeLolo]

Empezado por noob

¿No se puede hacer con el TDBGrid sin más o cómo mucho usando alguna estructura de datos tipo array dinámico?

No necesitas hacer nada de eso, la vida es muy sencilla con delphi. Lo que tienes que hacer en primer lugar es olvidarte del Picklist, eso no sirve para lo que quieres, lo que necesitas es un lookup combo box, en el cual expecifiques las columnas que quieres visualizar (Código y descripción).

Antes que nada, si de lo que hablo no entiendes algo, busca en la ayuda de delphi las palabras en negrita.

Empecemos, primero tienes que crear los TField de la tabla "Producto", una vez creados, posicionado en el campo "Codigo" y pulsa F11 para mostrar las prompiedades del TField, veras las propiedades "LookupDataSet, LookupKeyFields y LookupResultField)

Segundo, añade un dataset nuevo que devuelva los datos del código y descripción que quieres visualizar. Añade un dataSource y asociale el DataSet creado.

Tercero asocia el dataSource creado a la propiedad TField.LookupDataSet del campo "Codigo". En la propiedad TField.LookupKeyFields pones los campos del DataSet creado separados por ";" ejemplos: "CODIGO;DESCRIPCION". En la propiedad TField.LookupResultField poner el campo del que tomará el valor a guardar en tu tabla por ejemplo: 'CODIGO'.

Cuarto, tienes que abrir el DataSet creado con el resto de los DataSet.

Fin, ahora cuando en el dbgrid pulses sobre el botón del campo "CODIGO"SE mostrará el código y descripción, justo lo que quieres.

un saludo