Programa de gestión desde 0

[PepeLolo]

Para la interface es cuestión de mirar aplicaciones y ver las partes que estéticamente quedan bien. Colores, agrupaciones, estilos, etc, cuestión de fisgar mucho.
Un ejercicio muy bueno es dibujar en papel lo que se quiere. No es necesario toda la interface de golpe sino lo repetitivo, ejemplo:
- Como voy a distribuir los botones de navegación y de acciones y donde colocarlos. Pues se pintan estos en un papel, se recortan y se reservan.
- Datos grupales, ejemplo "Dirección", los Pinto, los recorto y se reservan.
- Asi con cada grupo de botones, elementos, etc.

Cuando ya tienes un grupo de elementos habituales de la interface, sólo es cuestión de colocarlos sobre una superficie lisa y empezar a moverlos para ver como quedan mejor y seguir esa línea de trabajo.

Los recordables hacen mucho bien cuando no eres un manitas con el diseño.

[[José Luis Garcí]]

Primero disculparme por el retraso, pero debido a un problema en el apartado de configuración de un programa y a los dos componentes que ya he puesto aquí, no he podido seguir adecuadamente con el programa, en primer lugar un cambio en Data Module, quedando el código al final de la siguiente manera;

Código Delphi [-]
 //Primero añadimos las llamadas

    procedure conectar;
    procedure DataModuleCreate(Sender: TObject);

//y luego el código

implementation

{$R *.dfm}

procedure TDM.conectar;
//------------------------------------------------------------------------------
//**************************************************************[ Conectar ]****
//Nos permite conectar las tablas, querrys + IBDatabase + IBTransaction
//------------------------------------------------------------------------------
begin
   IBDatabase1.Connected:=True;            //La base de datos
  IBTransaction1.Active:=True;  //Las Tansacciones
   IBDCLIEN.Active:=True;        //La tabla Clientes
   IBDirecciones.Active:=True;   //La tabla Direcciones
   IBDPC.Active:=True;           //La tabla Personas de Contacto
   IBDContacto.Active:=True;     //La Tabla de datos de contacto
   IBDBcos.Active:=True;         //La tabla de Bancos
   IBDCONFI.Active:=True;        //La tabla de Configuración
   IBDUSUA.Active:=True;         //La tabla de usuarios (permisos de acceso)
end;

procedure TDM.DataModuleCreate(Sender: TObject);
//------------------------------------------------------------------------------
//************************************************************[ Al crearse ]****
// 1º Debemos irnoa l menú de Delphi a  Project > View Source y arir el proyecto
// 2º Según tengamos la carga del proyecto ponemos el modulo de datos el primero
// Con esto conseguimos la carga de la base de datos este ok
//------------------------------------------------------------------------------
begin
   VarBPrimeraConeccion:=False;        //Para sólo la primera conección con la base de datos
   IBDatabase1BeforeConnect(Sender);
end;

procedure TDM.IBDatabase1BeforeConnect(Sender: TObject);
//------------------------------------------------------------------------------
//*****************************************************[ Antes de conectar ]****
// Cogemos la ruta del Ejecutable
//------------------------------------------------------------------------------
var Ruta:string;
    VarBPaso:Boolean;
begin
    VarBPaso:=false;
    if VarBPrimeraConeccion=False then
    begin
      Ruta:=ExtractFilePath(Application.ExeName);    //Sacamos la ruta
      if FileExists(Ruta+ 'PGF2.FDB') then
      begin
         IBDatabase1.DatabaseName:=ruta + 'PGF2.FDB';
         VarBPaso:=True;
      end else
      begin
         if FileExists(ruta+'bd\'+'PGF2.FDB') then
         begin
           IBDatabase1.DatabaseName:=Ruta+'bd\' + 'PGF2.FDB';
           VarBPaso:=True;
         end else Showmessage('Lo sentimos pero no encontramos el archivo PGF.FDB, donde se encuentra el ejecutable, o en la capeta BD de la ubicación del Ejecutable'+#13+#10+'La Aplicación se cerrara');
      end;
   //   ShowMessage(IBDatabase1.DatabaseName);
      VarBPrimeraConeccion:=True;
      if VarBPaso then conectar                 //si encontro la B.D. Activa el conjunto
                  else Application.Terminate;   //Si no la encontro sale del programa
   end;
end;
end.

Ahora las tablas (las dejo como estaban pues supone cambiar todo el código, las que tenga que hacer nuevas ya aplicare los sabios concejos de los compañeros)

CREATE TABLE CLIENTES (
ID INTEGER NOT NULL,
NOMMODULO T20 /* T20 = VARCHAR(20) */, //Nombre del módulo*
CODIGO T20 /* T20 = VARCHAR(20) */, //Código asignado en este Módulo
NOMBRE T80 /* T80 = VARCHAR(80) */, //Nombre del cliente
FORMAPAGO T40 /* T40 = VARCHAR(40) */, //Forma de pago
FECHAALTA DATE, //Fecha de alta
DTO NUMERIC(15,4), //Dto máximo a aplicar (1)
NOTAS MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */, //Campo memo para notas (se podría poner en una tabla independiente)
IMG IMG /* IMG = BLOB SUB_TYPE 0 SEGMENT SIZE 80 */, //Campo Imagen (se podría poner en una tabla independiente)
IMPUESTOS LOG /* LOG = CHAR(1) */, //Aplicar impuestos en nuestro caso sería S o N
TIPOIMP INTEGER, //Tipo de impuesto vinculado a La tabla de configuración
CIF T20 /* T20 = VARCHAR(20) */, //C.I.F., N.I.F. etc. (no ponemos comprobador, para que funcione con otros tipos de documentos)
RET LOG /* LOG = CHAR(1) */, //Usar la retenciones en nuestro caso sería S o N
PORRET POR /* POR = NUMERIC(15,4) */, //Porcentaje de retenciones vinculado a La tabla de configuración
TARIFA T20 /* T20 = VARCHAR(20) */, //Que tarifa de precios aplicaremos de la tabla artículos
USARRAPEL LOG /* LOG = CHAR(1) */, //Usar Rapel, si el cliente usa albaranes, sumaremos los artículos del código y se aplica el precio según el rapel
DIASPRESENT T20 /* T20 = VARCHAR(20) */, //Días de presentación de la factura/s
DIASDECOBRO T20 /* T20 = VARCHAR(20) */, //Días de cobro de la factura/s
AVISOS MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */, //Campo memo para avisos (se podría poner en una tabla independiente) a la hora de facturar
LIMITECREDITO POR /* POR = NUMERIC(15,4) */, // Limite de crédito que asignamos, si lo sobrepasa nos avisa
PENDIENTEPAGO POR /* POR = NUMERIC(15,4) */, //El pendiente actual de crédito que tiene dispuesto
SECTOR T20 /* T20 = VARCHAR(20) */, //Sector que tipo de sector de trabaja (Hostelería, Automoción, etc)
CODAGENTE T20 /* T20 = VARCHAR(20) */ //Código del Agente (Comercial) asignado
);

[[José Luis Garcí]]

Primero explicar los * y el (1)

el * se refiere a NOMMODULO (Nombre del módulo) en el caso anterior seria (CLIENTES), si fuera Artículos sería (ARTICULOS), etc. en cuanto a CODIGO (Código asignado en el módulo). Funciona de la siguiente manera tenemos tablas con campos en común, como por ejemplo, Proveedores, Clientes, Personal, Agentes, etc tiene en común, los campos Teléfono, Móvil, email, Etc. al ponerlos en una tabla independiente para poder vincular los datos (Seguimos con el ejemplo clientes)de la tabla Contactos con la tabla clientes, usamos el NOMMODULO=CLIENTES y el CODIGO= al código asignado al cliente. de esta manera logramos poder tener varios medios de contacto, personas de contacto o bancos, por poner algunos ejemplos.

el (1) se refiere al campo DTO de la tabla CLIENTES, tenemos que tener en cuenta a la hora de hacer un documento de venta (Presupuesto, pedido, Albarán, factura, etc.), que el descuento aplicado al cliente puede ser superior o inferior al del artículo, yo normalmente suelo optar por si el del articulo menor que el del cliente cojo el del articulo, y si es mayor el del cliente.

[[José Luis Garcí]]

Ahora ale toca a la tabla bancos

CREATE TABLE BCOS (
ID INTEGER NOT NULL,
MODULO T20 /* T20 = VARCHAR(20) */,//Nombre del módulo*
CODIGO T20 /* T20 = VARCHAR(20) */, //Código asignado en este Módulo
BANCO T80 /* T80 = VARCHAR(80) */, //Nombre del Banco
ENTIDAD INTEGER,//Dígitos de la entidad de la cuenta corriente
OFICINA INTEGER,//Dígitos de la oficina de la cuenta corriente
DC INTEGER,//Dígitos de control de la cuenta corriente
TF T20 /* T20 = VARCHAR(20) */,//Teléfono de la sucursal
CUENTA INTEGER//Dígitos de la entidad //Dígitos de la cuenta corriente( Podría usar un varchar, pero personalmente me gusta más un integer)
);

[[José Luis Garcí]]

Ahora toca a contactos

CREATE TABLE CONTACTOS (
ID INTEGER NOT NULL,
MODULO T20 /* T20 = VARCHAR(20) */,//Nombre del módulo*
CODIGO T20 /* T20 = VARCHAR(20) */, //Código asignado en este Módulo
NOMBRE T80 /* T80 = VARCHAR(80) */, //Nombre sea entidad o persona física (de esta manera, tenemos ya la agenda de contactos sin ninguna tabla adicional)
TF T20 /* T20 = VARCHAR(20) */, //Teléfono
TF2 T20 /* T20 = VARCHAR(20) */, //2º número de teléfono
FAX T20 /* T20 = VARCHAR(20) */, //Número de fax
MAIL T80 /* T80 = VARCHAR(80) */, //Email
MAIL2 T80 /* T80 = VARCHAR(80) */, //Si dispone de un segundo email
WEB T80 /* T80 = VARCHAR(80) */, //Dirección de la página web
CLAVEWEB T40 /* T40 = VARCHAR(40) */, //Si para acceder a la web tiene clave (este campo ha de ser ocultado según el acceso que tenga la persona que esta consultando)
MOVIL T20 /* T20 = VARCHAR(20) */, //Número de móvil
MOVIL2 T20 /* T20 = VARCHAR(20) */, //Si disponemos de otro número de móvil
NOTAS MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */ //Campo memo para notas (se podría poner en una tabla independiente)
);

[[José Luis Garcí]]

Ahora direcciones

CREATE TABLE DIRECCIONES (
ID INTEGER NOT NULL,
MODULO T20 /* T20 = VARCHAR(20) */,//Nombre del módulo*
CODIGO T20 /* T20 = VARCHAR(20) */, //Código asignado en este Módulo
DIRECCION T80 /* T80 = VARCHAR(80) */, //Dirección
CP T10 /* T10 = VARCHAR(20) */, //Código postal
POBLACION T80 /* T80 = VARCHAR(80) */, //Población
PROVINCIA T80 /* T80 = VARCHAR(80) */, //Provincia
TF T20 /* T20 = VARCHAR(20) */, //Teléfono
NOTA MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */, //Campo memo para notas (se podría poner en una tabla independiente)
PAIS T20 /* T20 = VARCHAR(20) */ //País
);

[[José Luis Garcí]]

y ya hoy por último

Código Delphi [-]
CREATE TABLE PC (
    ID          INTEGER NOT NULL,
MODULO T20 /* T20 = VARCHAR(20) */,//Nombre del módulo*
CODIGO T20 /* T20 = VARCHAR(20) */, //Código asignado en este Módulo
    NOMBRE      T80 /* T80 = VARCHAR(80) */,  //Nombre de la persona de contacto
    MOVIL       T40 /* T40 = VARCHAR(40) */,  //Número de móvil
    EMAIL       T80 /* T80 = VARCHAR(80) */,  //Email
    CASADO      LOG /* LOG = CHAR(1) */,    //Esta caso (S o N)
    HIJOS       LOG /* LOG = CHAR(1) */,    //Tiene Hijos (S o N)
    FECHANACIM  DATE,     //Fecha de nacimiento. (Teniendo este dato podemos hacer que el programa nos avise en la fecha)
    PUESTO      T40 /* T40 = VARCHAR(40) */,  //Puesto que ocupa
    EXT         T10 /* T10 = VARCHAR(20) */,  //Si para llamarlo tiene extensión desde una centralita
    NOTAS       MEMO /* MEMO = BLOB SUB_TYPE 1 SEGMENT SIZE 80 */,  //Campo memo para notas (se podría poner en una tabla independiente) (aquí podriamos los datos del nombre de la mujer y de los hijos si esta casado y tiene claro)
    FOTO        IMG /* IMG = BLOB SUB_TYPE 0 SEGMENT SIZE 80 */  //Campo Imagen (se podría poner en una tabla independiente)
);

Espero poder mañana terminar un poco de código que me queda de estos módulos y lo subo.