[chileno]

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");