Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   dbgrid con cantidad de filas fijas (https://www.clubdelphi.com/foros/showthread.php?t=54998)

laukri 04-04-2008 21:15:06

dbgrid con cantidad de filas fijas
 
hola!
Tengo que hacer una tablita tipo doble entrada que tenga coomo cabecera mes, cuit 0, cuit 1, ... cuit 9 en la primera columna los meses en numeros del 1 al 12. La idea es la de hacer que me aparezca dicha estructura y que el usuario pueda llenar los campos restantes. ¿Se podria hacer con una dbgrid? Todos los campos se guardan en la base de datos, donde tengo una tabla fechasVencimientos que tiene los campos mes, cuit00, cuit1...cuit9 y codImpuesto. Este ultimo es una FK a otra tabla.
Bueno espero que se haya entendido y que me puedan ayuda. Uso Delphi 2007 y Firebird 2.0

jcarteagaf 04-04-2008 22:23:47

dbGrid
 
Si se puede hacer (si es que te entendi bien).

En realidad la restricción no la colocas al dbGrid sino a la tabla. Es decir:
1. Defines un evento OnNewRecord para tu Tabla en la parte de private de tu forma o datamodule:

Código Delphi [-]
private
  procedure No_Mas_Registros (Dataset : TDataset);

2. En la parte de implementacion del evento simplemente colocas lo siguiente:

Código Delphi [-]
procedure TTuforma.No_Mas_Registros(Dataset : Tdataset);
begin
   Abort;  // que impida cualquier insercion
end;

3. Haces los procesos para llenar tu tabla (generalmente en el evento Onshow de la forma)

Código Delphi [-]
var 
  i : integer;
begin
  Tabla.OnNewRecord := nil;
  for i := 1 to 12 do
  begin
    Tabla.append;
    TablaMES.value := i;
    .... // aca puedes llenar los otros campos
    Tabla.Post;
  end;
  Tabla.OnNewRecord := No_Mas_Registros;  //Que apunte al evento creado;
end;

Espero que sea lo que querias.
Saludos.

laukri 07-04-2008 02:36:27

Gracias! voy a probarlo y despues te cuento...
saludos :)


La franja horaria es GMT +2. Ahora son las 22:18:19.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi