Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Problemas Para Visualizar Tabla En Acces (https://www.clubdelphi.com/foros/showthread.php?t=72239)

Richard Mejia 05-02-2011 04:30:24

Problemas Para Visualizar Tabla En Acces
 
hola que tal estoy desarrollando una aplicacion en DELPHI 2009 para una compañia de soporte tecnico de redes y servicios de mantenimiento de pc, la aplicacion almacena en una BD echa en acces(por el precio tan bajo que lo vendi no se merecen una BD en sql server) almacena licencias de windows, los equipos que hay en cada departamento, informacion del hardware que tienen cada una, etc, , el problema es el siguiente

cuando estoy en el formulario de accesos de usuarios en modo diseño yo abro la tabla usuarios mediante el componente TADOQuery que tengo en un Data Module selecciono la tabla ebn el TADOQuery (SELECT * FROM USUARIOS) y en el Data Set del Data Source eligo el TADOQuery luego en el evento OnActivate del form fusuarios escribo DataModule1.QTusuarios.open; (para que me abra la tabla usuarios) bueno en fin es que en diseño me salen los datos digitado en esa tabla pero cuando ejecuto el programa no me salen los datos en el DBGrid

Caral 05-02-2011 14:04:10

Hola
Utiliza el evento OnChow o OnCreate del formulario.
Saludos

Richard Mejia 05-02-2011 14:46:39

este es el codigo que uso en el boton (ENTRAR) del formulario (FENTRADA) que es el loggin:

Código Delphi [-]
procedure TFENTRADA.BENTRARClick(Sender: TObject);
begin
 with DataModule1.atbUsuarios do
begin
 close;
sql.Clear;
sql.add('select * from usuarios where usuario =:usuario');
Parameters.ParamByName('usuario').Value :=FENTRADA.EUSUARIO.Text;
open;
USUARIO:= DataModule1.atbUsuariosusuario.Value;
CLAVE:=DataModule1.atbUsuariospassword.Value;

IF(EUSUARIO.Text=USUARIO)AND(ECLAVE.Text=CLAVE)THEN
BEGIN
  FENTRADA.Hide;
FMENUPRI.SHOWMODAL;
END

ELSE
  SHOWMESSAGE('NOMBRE DE USUARIO Y CONTRASEÑA INVALIDOS');
 EUSUARIO.CLEAR;
ECLAVE.Clear;
 EUSUARIO.SetFocus;

end;
end;


pienso que esto me esta creando el conflicto por que cuando me logueo con el usuario: SOPORTE y Pass 12345 y voy al formulario de de crear usuarios que hai tengo un DBGRid que solo me muestra la columna de Usuarios ya creados en ese DB grid tengo 5 usuarios creados entonces cuando me logueo con usuario SOPORTE solo me sale en el DBGRID ese Usuario, pero si cierro la aplicacion y me logueo con el user;EDWIN que es otro usuario que esta en la tabla entonces en ves de salirme anteriormente el user SOPORTE me sale el usuario EDWIN es como si cuando me logueo con un usuario especifico solo me sale ese usuario en la tabla y me oculta los demas

Caral 05-02-2011 14:51:14

Hola
Lo que no dices es que sql llama al dbgrid ?.
Segun lo que veo, si el usuario esta en la tabla se loguea, pero no se que haces antes o en el momento de ver el dbgrid?.
Saludos

Richard Mejia 05-02-2011 16:46:59

ya muchas gracias era que tenia que poner otros 2 ADOTquery y otro DsSource y conectarlos a la tabla usuarios por q los dos primeros el form de loggin los deja abiertos

al parecer no puedo usar los mismos para los 2 forms

Neftali [Germán.Estévez] 07-02-2011 10:26:31

Hola Richard. Si utilizas TAG's cuando escribas código Dephi verás que se visualiza bastente mejor.

Un saludo.

Richard Mejia 07-02-2011 13:21:38

Gracias Nefthali... Ahora tengo un problemita con ese mismo codgio, que cuando le doy a entrar sin escribir usuario y contraseña, el programa abre, pero si escribo contraseÑa mal digitada no me entra me dice use o pass incorrectos y cuando la escribo bien el programa abre, en fin el problema ahora es cuando no dijito nada y le doy a boton entrar el entra al programa como si hubiera escrito

Neftali [Germán.Estévez] 07-02-2011 13:39:20

Cita:

Empezado por Richard Mejia (Mensaje 390162)
Gracias Nefthali... Ahora tengo un problemita con ese mismo codgio, que cuando le doy a entrar sin escribir usuario y contraseña, el programa abre, pero si escribo contraseÑa mal digitada no me entra me dice use o pass incorrectos y cuando la escribo bien el programa abre, en fin el problema ahora es cuando no dijito nada y le doy a boton entrar el entra al programa como si hubiera escrito

Deberías comprobar, al menos, que el nombre de usuario es diferente de vacío.

Si es vacío, no continues y muestra un mensaje pidiendo que escriban algo en el Edit de usuario.


La franja horaria es GMT +2. Ahora son las 01:56:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi