mi aporte...
 

hola a todos ¡¡¡

hace mucho tiempo estaba realizando un programa de retail....la cosa que quedo por ahi...en un computador viejo....y ahora quiero retomarlo....a qui les dejo una pequeña parte (ingreso de usuario).
los componentes que utilice son:

jvcl 3.10
pngimagelist
mysql access (tambien use zeos, ado y otros que ya no acuerdo)
wamp5 1.3.1 (mysql ...la version no me acuerdo creo que 4.1)
delphi 7.0

aca va las tablas que se necesitan.

Código SQL [-]
drop database if exists Almacen;

create database almacen;

use almacen;


create table if not exists Almacen
(
    id_almacen        smallint         not null auto_increment,
  tipo            enum("sv","bg")  default "bg",
    direccion           varchar(60)        not null,
    ciudad                varchar(20)        not null,
    fono                  varchar(15)      default 0,
    fax                   varchar(15)      default 0,
    fechaAlta           date               not null,
    bloqueado           enum("si","no")    default 'no',
    primary key (id_almacen)
)
type=innodb;

create table if not exists perfil
(
    id_perfil      smallint        not null,
    descripcion    enum("Administracion","Bodega","Sala de Ventas","Punto de Ventas") not null,
    primary key (id_perfil)
)
type=innodb;

Create table if not exists usuario
(
    rutusuario    integer                     not null,
    id_Almacen        smallint          not null,
    digusuario      varchar(1)                not null,
    nombres             varchar(60)             not null,
    apellidos         varchar(60)             not null,
    usuario             varchar(15)             not null unique,
    password          binary(32)        not null unique,
    bloqueado         enum("si","no")     not null default "no",
    fechaAlta         date                    not null,
    primary key (rutusuario),
    index (id_almacen),
    foreign key (id_almacen) references Almacen (id_almacen)
)
type=innodb;

create table desempena
(
    rutusuario   integer              not null,
    id_perfil        smallint         not null,
    conectado        enum("no","si")    default 'no',
    primary key (rutusuario, id_Perfil),
    index (rutusuario),
    foreign key (rutusuario) references usuario (rutusuario),
    index (id_perfil),
    foreign key (id_perfil) references perfil (id_perfil)
)
type=innodb;





insert into perfil values (1,"Administracion"),
                          (2,"Bodega"),
                          (3,"Sala de Ventas"),
                          (4,"Punto de Ventas");

insert into almacen values (1,"sv","xxxxxxx xxxxxxxxx xx","xxxxx","0","0",0000000,"no");

insert into usuario values   (11111111,1,"1","xxxxxx xxxxxxx ","xxxxxxx xxxxxxxx","11111111",MD5("1"),"no",00000000);

insert into desempena values (11111111,1,"no"),
                             (11111111,2,"no"),
                             (11111111,3,"no"),
                             (11111111,4,"no");

¿Y cual es el aporte? :confused:

¿Se te olvidó algo? ;-)

zorry...tengo un pc de los 90 y una conexion superlenta..... quise pegar los pas y dfm....creo que son esos...pero son un poco grandes para colocarlos por aca.....pido paciencia....

Comprímelos en un zip/rar y lo subes a nuestro FTP, a la sección adecuada.

Te he modificado el nombre, ya que 'programa' no es muy decriptivo. Le he puesto programa_almacen, está aquí.

Gracias por el aporte; Le echaremos un vistazo...

hola neftali...

me gustaria saver tu opinion, si mi forma de programar tiene sentido o me voy dando vueltas y vueltas....
si tiene algun error de seguridad....que yo no pude ver cuando puse a tirar lineas de codigo.

cualquier opinion...sea lo que sea...pesimista optimista realista...sera de gran ayuda.....invito que se devate dicho programa por todos....

desde ya gracias...

¿?..............

paciencia
 

paciencia hay que evaluar el codigo, y analizarlo, con trabajo no se hace de un dia a otro., roma no se creo en un dia.
y cualquier bug, lo hare notar., para que mejoremos el codigo.

Hola.
No he podido ejecutarlo, porque me faltan algunos componentes. He ojeado el código y no le veo nada raro.
Tal vez algún bloque donde repites líneas (o similares) que tal vez se podrían pasar a algún procedimiento, pero por lo demás no he visto nada raro... (tampoco lo he mirado línea a línea... ;-) )

hola neftali....si quieres te envio el ejecutable¡¡¡....