Demo programa táctil

[[José Luis Garcí]]

Hola compañeros, el compañero A-CLICK me solicito en una serie de mensajes privados que le ayudara en un programa TOUCH (táctil), para ello le he montado una demo de un programa totalmente táctil, no tendremos por que usar para nada ni teclado ni ratón, pero si una pantalla de este tipo.

Primero os pongo los mensajes que me ha mandado

Hola Jose 1/2
Disculpa que te escriba por aquí en privado, pero considero que cuando lo haga por el foro que inicie sea aportando información jejeje...

Te cuento en mis inicios con Delphi ya logre conectarme a la base de datos y hacer la primera parte del pequeño sistema que estoy programando... pero me quede en la parte mas importante del sistema touch... te lo explico de nuevo por pasos

1.- Introduzco el numero de "Tarjeta" ( esto es simplemente un numero de pedido manual asignado a un cliente)

2.- Muestra: "Nombre del Cliente" y Numero de la "Tarjeta" asociada perfecto, abajo abra un grid que muestra en blanco si no se le a asignando un servicio o si ya tiene servicios cuales tiene...

Ejm:

Cliente: Maria Mora
Trajeta:1121

Servicio - Servidor
Lavado - Ana Pachecho
Corte - Jesus Aguilera

pero aquí debe haber un botón que diga [AGREGAR SERVICIO]

"AQUI COMIENZA MIS DUDAS"

3.- En un Formulario Nuevo o Ventana Nueva me da las opciones

Formulario Servicios

[LAVADOS] [CORTES] [TINTES] [COMBOS] [PROMOCIONES]

//Pueden ser muchos mas... aquí me gustaría un botón adelante y atras com me dijiste se podia hacer y que muestre por pagina max 10 botones por decir algo...


Bien....

3.- Selecciono [TINTES]

desaparecen el primer grupo de botones y aparecen

[TINTE BÁSICO] [MECHAS] [REFLEJOS]

Selecciono la opción [TINTE BASICO] y allí sale un menú con todos los servicios de ese tipo

-Tinte cabello corto
-Tinte Cabello largo
-Tinte Marca WELLA
-Tinte Marca STILE
-Tinte blablabla

recuerda que es en touch

Ingrese su "Código de Servidor" (es la persona que hace el servicio)

// TOMO EL VALOR DEL BOTON Y EL CODIGO DEL SERVIDOR Y LO ANEXO EN EL GRID ASOCIADO AL CLIENTE

// Puede llegar a haber un nuevo nivel antes de asignar el servicio ojo

Hola Jose 2/2
MUUUUY FACIL JAJAJAJAJA (PARA TI )
Ahora te explico de donde provienen
TABLA CLASIFICACION DE SERVCIOS
CodInsta - Descripcion - Nivel - InsPadre
1 LAVADOS - 1 - 0
2 CORTES - 1 - 0
3 TINTES - 1 - 0
4 COMBOS - 1 - 0
5 PROMOCIONES - 1 - 0
6 TINTE BASICO - 2 - 3
7 MECHAS - 2 - 3
8 REFLEJOS - 2 - 3

HAY OTRA TABLA DE SERVICIOS

CodServ - DescServ - Insta - Precio
TC01 - Tinte cabello corto - 2 - 700,00
TC02 - Tinte Cabello largo - 2 - 900,00
TC03 - Tinte Marca WELLA - 2 - 1500,00
TC05 - Tinte blablabla - 3 - 1650,00
CC01 - Corte de Cabello Corto - 2 - 180,00
CC02 - Corte de Cabello largo - 2 - 250,00

Fíjate que los servicios pueden estar asociados a un Nivel 1 ó 2
Pero no mezclados eso es una condición que yo pondré

Me comentaste de unos controles pero la verdad o no se o me perdi
me dijiste q agrupara los botones... pero te soy sincero no se como hacerlo

Me gustaría que los caption de los botones provengan directamente de los valores de las tablas de la base de datos y que la cantidad de botones sea definida al espacio del formulario ejemplo máximo por decir 10 botones x pantalla, si son mas de 10 aparezca el botón siguiente. cuando seleccione el nivel 1 del menu paso al menu 2 o al menu de servicios selecciono el q voy a agregar... paso a una pantalla de confirmacion donde me muestra

JESUS AGUILERA (EL SERVIDOR)

DESEA AGREGAR: Tinte Marca WELLA

AL CLIENTE: Maria Mora
[CONFIRMAR] [ANULAR]

si anulo voy a la pantalla principal obvio si Confirmo allí es cuando guardo en la base de datos que se muestra en el grid principal

me ayudas paso a paso???

Gracias de Antemano

Re: Hola Jose 1/2
Buenisimo... estas autorizado... todo lo que venga de ayuda es bueno... luego de todo eso voy a construir un turorial en word o pdf paso a paso con las pantallas identificando cada componente o cada cosa... que haga, eso si... colocandote los creditos que te mereces...

bueno manos a la obra...

nota: el delphi 2010 es el Embarcadero XE2 ???

He de decir, que la demo esta hecha de manera rápida, así que es probable, que pueda tener algún error, que la he hecho en firebird, que esta con componentes estándar + el imagengrid de los componentes del Clubdelphi y los míos propios, tanto los del ccd como los míos son totalmente gratuitos.

La demo es eso una demo, lo que muestro es como aplicar un programa a los sistemas táctiles, el tamaño de las pantallas es de 800 x 1000, me he basado en el texto del compañero A-CLICk sólo en ciertos puntos, lo que he hecho es una visión personal de como hacer este tipo de programas, espero os sea útil y sirva para algo.

Os pondré algunas pantallas y comentarios, así como la estructura d las tablas, y subiré al final el programa al FTP del club.

[[José Luis Garcí]]

Comenzamos con las 12 tablas, no haré comentarios, si existe alguna duda ya sabéis comentar, e intentare ser explicito

CREATE TABLE CITAS (
ID INTEGER NOT NULL,
FECHA DATE,
HORA TIME,
CLIENTE VARCHAR(20),
TRABAJO VARCHAR(80),
OPERARIO VARCHAR(20)
);

CREATE TABLE CLIENTES (
ID INTEGER NOT NULL,
NOMBRE VARCHAR(80) NOT NULL,
TELEFONO VARCHAR(20),
ANOTACION VARCHAR(150),
CODIGO VARCHAR(20)
);

CREATE TABLE TRABAJOSDETALLE (
ID INTEGER NOT NULL,
IDENTIFICADOR INTEGER,
TRABAJO VARCHAR(20),
OPERARIO VARCHAR(20),
FECHA DOUBLE PRECISION,
HORA TIME,
CANTIDAD INTEGER,
IMPORTE NUMERIC(15,4),
DESCUENTO NUMERIC(15,4),
IMPUESTO NUMERIC(15,4)
);

[[José Luis Garcí]]

Seguimos con la segunda tandada de tablas

CREATE TABLE CONFIGURACION (
ID INTEGER NOT NULL,
IMPUESTO1 NUMERIC(15,4),
IMPUESTO2 NUMERIC(15,4),
IMPUESTO3 NUMERIC(15,4),
IMPUESTO4 NUMERIC(15,4),
NOMBREDELIMPUESTO VARCHAR(20),
NOMBREIMPUESTO1 VARCHAR(20),
NOMBREIMPUESTO2 VARCHAR(20),
NOMBREIMPUESTO3 VARCHAR(20),
NOMBREIMPUESTO4 VARCHAR(20),
NUMERO VARCHAR(20),
SERIE VARCHAR(3),
COLORA VARCHAR(20),
COLORB VARCHAR(20),
COLORACTIVO VARCHAR(20),
COLORNOACTIVO VARCHAR(20)
);

CREATE TABLE CORTES (
ID INTEGER NOT NULL,
CODIGO VARCHAR(20) NOT NULL,
CORTE VARCHAR(80) NOT NULL,
IMPORTE NUMERIC(15,4) NOT NULL,
IMAGEN BLOB SUB_TYPE 0 SEGMENT SIZE 80
);

CREATE TABLE EMPLEADOS (
ID INTEGER NOT NULL,
CODIGO VARCHAR(20),
NOMBRE VARCHAR(80),
COMISION NUMERIC(15,4),
IMAGEN BLOB SUB_TYPE 0 SEGMENT SIZE 80
);

[[José Luis Garcí]]

La tercera de tablas

CREATE TABLE LAVADOS (
ID INTEGER NOT NULL,
CODIGO VARCHAR(20) NOT NULL,
LAVADO VARCHAR(80) NOT NULL,
IMPORTE NUMERIC(15,4) NOT NULL
);

CREATE TABLE PEINADOS (
ID INTEGER NOT NULL,
CODIGO VARCHAR(20) NOT NULL,
PEINADO VARCHAR(80) NOT NULL,
IMAGEN BLOB SUB_TYPE 0 SEGMENT SIZE 80,
IMPORTE NUMERIC(15,4)
);

CREATE TABLE PROMOCIONES (
ID INTEGER NOT NULL,
CODIGO VARCHAR(20),
PROMOCION VARCHAR(80),
IMPORTE NUMERIC(15,4)
);

[[José Luis Garcí]]

A por la última de tablas

CREATE TABLE TINTES (
ID INTEGER,
CODIGO VARCHAR(20),
TINTE VARCHAR(80),
IMPORTE NUMERIC(15,4)
);

CREATE TABLE TRABAJOS (
ID INTEGER NOT NULL,
NUMERO VARCHAR(20) NOT NULL,
CLIENTE VARCHAR(20) NOT NULL,
FECHA DATE,
HORA TIME,
PAGADO VARCHAR(1),
SUBTOTAL NUMERIC(15,4),
IMPUESTOS NUMERIC(15,4),
DESCUENTOS NUMERIC(15,4)
);

CREATE TABLE TRABAJOSDETALLE (
ID INTEGER NOT NULL,
IDENTIFICADOR INTEGER,
TRABAJO VARCHAR(20),
OPERARIO VARCHAR(20),
FECHA DOUBLE PRECISION,
HORA TIME,
CANTIDAD INTEGER,
IMPORTE NUMERIC(15,4),
DESCUENTO NUMERIC(15,4),
IMPUESTO NUMERIC(15,4)
);

Estas dos últimas están con un FORINGKEY del IDENTIFICADOR=ID

[[José Luis Garcí]]

Como podemos ver son tablas muy simples, cortas, ya que debemos tener en cuenta que al ser un programa táctil, debe contener la menor cantidad de datos a rellenar por el usuario, ni estoy usando todos los campos en el programa, pero sería los menos que necesitaríamos, por supuesto, para un programa comercial, faltan campos e incluso más tablas, pero recordar que es una demo.

Ahora comenzare con las pantallas, ya se que no estáis muy de acuerdo con el diseñe de las mismas, pero diré que en este caso, no podemos usar componentes pequeños.

El código, esta casi sin comentarios y si pongo algo en los siguientes post, será algo muy determinado.

Si existen dudas, ya sabéis, preguntar aquí e intentaré explicarme.