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