Consejo para una aplicación ( paradox )

[[Lepe]]

Código Delphi [-]

procedure TFAgregar_Usuario.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  //Cerramos la Tabla al cerrar el form
  TUsuarios.Cancel;
  //liberamos el formulario de memoria
  //Action := caFree;
end;

¿Seguro que cierras la tabla? jejeje para mí que el Code Insight de delphi te ha jugado una mala pasada, en lugar de Close estas usando Cancel

Saludos

[BlackDaemon]

jejeje es verdad Lepe bueno tendré un poco mas de cuidado en esos aspectos.

Pero en fin uds como lo ven ??? le falta algo ? esta mal organizado ?

una cosa mas... ta carpeta datos la ponen en c:\ y listo cosa que quede c:\datos y así no tendrán que compilarlo de nuevo..

bueno un saludo y gracias Lepe por haberte dado la molestia de mirarlo y revisarlo pero quisiera mas criticas para que me ayuden a observar en que esta el error o que tengo que hacer para ahorrarme lineas de codigo o memória o cosas así (tips)
bueno saludos y gracias de new

[BlackDaemon]

Bueno.. resulta que me baje los componentes ZEOS y funcionaron sin problema alguno y tampoco tuve problemas para la conección
Bueno ahora tengo asi mi base de datos.

Código SQL [-]
-- Base de datos: `sisconas`
-- 
CREATE DATABASE `sisconas` DEFAULT CHARACTER SET latin1 COLLATE latin1_swedish_ci;
USE sisconas;
-- --------------------------------------------------------
-- 
-- Estructura de tabla para la tabla `datos`
-- 
CREATE TABLE `datos` (
  `ID_usuario` int(11) NOT NULL auto_increment,
  `Nombres` varchar(30) NOT NULL default '',
  `Apellidos` varchar(30) NOT NULL default '',
  `Telefono` varchar(15) default NULL,
  `Celular` varchar(15) default NULL,
  `Email` varchar(30) default NULL,
  `Direccion` varchar(255) default NULL,
  `Otros` varchar(255) default NULL,
  `Fecha` date default '0000-00-00',
  `User` varchar(10) NOT NULL default '',
  `Pass` varchar(10) NOT NULL default '',
  `Nivel` int(1) NOT NULL default '0',
  PRIMARY KEY  (`ID_usuario`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;
-- 
-- Volcar la base de datos para la tabla `datos`
-- 
-- Estructura de tabla para la tabla `horarios`
-- 
CREATE TABLE `horarios` (
  `ID_usuario` int(11) NOT NULL auto_increment,
  `Entrada` datetime NOT NULL default '0000-00-00 00:00:00',
  `Salida` datetime NOT NULL default '0000-00-00 00:00:00',
  PRIMARY KEY  (`ID_usuario`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=1 ;

bueno espero que lo haya hecho bién ahora la duda que tengo es que como hago para que el ID_usuario de la tabla horarios sea el mismo de ID_usuarios de la tabla datos, para que al hacer el reporte utilize esa sentencia sql que me paso Lepe en el anterior post.

BUeno para el que quiera ver la aplicación esta en mi anterior post todo será igual ahora lo que quiero hacer es esa parte principal donde se logean los usuarios para registrar su horario

bueno saludos

PD algun moderador creo que deberia mover este tema al subforo MYSQL

gracias de antemano

[[Caral]]

Hola
Baje el programa y esta simpatico, muy basico pero bien.
Ahora ma queda la duda, Paradox o Mysql, cual va a ser la base de datos, veo que estas usando zeos, bueno esto me dice que te vas por mysql o no?
Creo que siempre es bueno empezar con algo y terminar con lo mismo, si al final se necesita cambiar pues se hace.
Sigue como vas, para mi vas muy bien, solo persistir.
saludos

[BlackDaemon]

Hola Caral

gracias por lo de simpatico jejeje bueno pero no es funcional y en si no sirve para nada xD, bueno me quedaré creo con paradox para esta pequeña aplicación y ya para las demás usaré mysql, ahora alguna idea de que el usuario al meter su user y pass se registre su horario con su ID y así al hacer el reporte me de solo las horas y fechas de ese usuario algo asi como la sentencia que puse Lepe en el segundo post, ahh una cosa mas Caral con respecto a lo que esta simple es verdad pues es mi primer programa en delphi, una cosa que mas podría implementarle ? La verdad no se me ocurrio nada mas que los reportes

Bueno saludos

PD lo de mysql solo era una opción y en si resulta lo mismo los mismos querys etc.

saludos de new y gracias.

[[Lepe]]

Dado que es MySql ya dejaré de contestar porque no sé mucho, al menos en Firebird puedes poner:

Código SQL [-]
`Entrada` datetime NOT NULL default 'NOW'

NOW es una función que entiende, por tanto al crear un nuevo registro en la tabla usuarios (para que quede constancia de su entrada en el sistema), automáticamente se añade la fecha que tenga el servidor.

Id_usuario no puede ser clave primaria, ya que no permitiría la entrada de un mismo usuario dos veces.

En la tabla horarios, el id_usuario no puede ser un autoincrement, ya que se incrementaría automáticamente, y por tanto, no coincidiría con el verdadero código del usuario.


Yo puse clave primaria dos campos a la vez, el id_usuario y la fecha de entrada (ambos a la vez forman la clave primaria), ya que las dos cosas a la misma vez es imposible que ocurra, salvando una posible violación de clave primaria en la tabla.

Otra cosa: Si te fijas en esta línea:

Código SQL [-]
 `User` varchar(10) NOT NULL default '',

UserName

"User" aparece en negrita, lo que quiere decir que es una palabra reservada de SQL, por tanto, al intentar acceder por SQL a ese campo te dará errores. Cambia el nombre del campo añadiendo una letra más. Acabo de hacer la prueba y "UserName" no lo detecta como palabra reservada.

Faltaría añadir los índices secundarios a los campos que vas a acceder constantemente, por ejemplo el nombre del usuario, que lo buscarás cada dos por tres en el login de tu sistema.

Saludos

[[Caral]]

Hola BlackDaemon
Me he tardado un poco en contestarte porque estaba tratando de hacer algo para que te sirviera de ejemplo.
Por lo de simpatico, lo digo con la mejor de las intenciones, nunca en modo burlon, no se me ocurriria hacer eso nunca, menos como aprendiz que soy.
Bueno aqui te envio un ejemplo sencillo, modificando tu programa.
Hay usuarios autorizados y no autorizados, con esto evitas varias cosas, ya lo veras, si entras con usuario caral, clave caral, te aparece el menu principal, si entras con el usuario nada, el menu desaparece.
Pruebalo, tal vez te sirva de guia.
La entrada se registra como entrada o salida y se registra la fecha, la hora y el usuario, no he echo mas modificaciones para que las veas y si te gustan poder seguir tu mismo.
Aqui esta:
http://rapidshare.com/files/6215322/...encia.zip.html
Saludos

[BlackDaemon]

Hola Caral , jejej gracias por lo de simpatico en serio xD es que no puedo creer que este bién, aunque no me gusta mucho por que veo ejemplos de otros y lo hacen con un buen aspecto visual, yo creo que con el tiempo iré adquiriendo experiencia en eso, me gusta muchisimo delphi y espero manejarlo con el tiempo bien y poder usar como herramienta de trabajo en mi futuro.

Bueno ahora pasando al otro tema te doy muchas GRACIAS Caral por darte el tiempo de hacerme un ejemplo verdad que dan ganas de llorar
bueno lo miraré y luego te digo que tal y que cosas mas le quisiera agregar...
para ser sincero no se que mas agregarle... a ver alguien con mas experiencia quisieran que me digan que cosas mas se le puede agregar al programa... me refiero a opciones... ya tiene reporte osea la planilla, Bueno espero mas ideas para que asi mi primer programa valga la pena

bueno saludos y muchas gracias Caral y Lepe con gente como uds. si vale la pena aprender..

PD.- LEpe ya estoy leyendo La cara oculta de delphi 4