FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ventana de Logeo para ingreso al Sistema
Hola amigos, estoy trabajando con una base de datos SQL Server y estoy usando ODBC, y tengo una Tabla de USUSARIO que estará en un SERVIDOR, y he creado un formulario para hacer el logeo y conectarme segun el usuario (con su respectivo USUARIO y PASSWORD). Tambien le quite el check al loginprompt...
Me pueden ayudar?, cómo podría hacer esto, con todos los requerimientos que puse... GRACIAS
__________________
Dios te bendiga |
#2
|
|||
|
|||
quizás este hilo te sirva http://www.clubdelphi.com/foros/show...&threadid=6398
Sino, especifica un poco más tu duda a ver si podemos ayudarte |
#3
|
|||
|
|||
Bueno...
Solo quisiera tener mi aplicacion tuviera una ventana de LOGEO (para ingresar Usuario y Password)... Pero que el usuario se verifique en una tabla USUARIOS. El tipo de coneccion a la BAse de Datos que estoy usando para mi aplicacion es ODBC... pero no sé si tendrá que ver. Y tambien no sé si tendra que ver que al ejecutar la aplicación, la tabla ya no este en mi ordenador, sino en otro ordenador el cual será el servidor de Datos (SQL SERVER) Espero me entiendan graciass.
__________________
Dios te bendiga |
#4
|
||||
|
||||
Por cierto a propósito del hilo citado, me parece que la idea la tome de otra respuesta de Cadetill y como me gustó la adapte para mi uso.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#5
|
|||
|
|||
Cita:
Bueno, con respecto a la pregunta de thecarlos, haciendo lo del citado hilo, en la pantalla de logeo, en el botón de "aceptar" deberás hacer las comprobaciones pertinentes. Si se cumplen cierras la pantalla con ModalResult = mrOk y sino, puedes hacer lo que creas conveniente (o cerrar la pantalla con ModalResult = mrCancel o bien no cerrarla y darle otra oportunidad al usuario) |
#6
|
||||
|
||||
Siguiendo con lo que apunta Cadetill, yo las oportunidades se las doy en el formulario de conexión, coloco una variable, por ejemplo nIntentos y la voy incrementado cada vez que introducen una clave si pasa por ejemplo de tres, devuelvo al control del programa un número distinto del que espera, es decir se ha superado el número válido de intentos para la conexión.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#7
|
|||
|
|||
yo hice una aplicación que funcionaba con un sistema de logeo como el que quieres tu, el problema que después en el servidor proivieron el ingreso y lecturas desde fuera del servidor, por lo que la utilidad ya no sirvió. Asegurate de que tu servidor si lo permite.
|
#8
|
|||
|
|||
amigo CADETILL, intenete haxcer lo que me propones en el hilo de vinculo que me diste para ver, pero no pude, quizas porque no sé el significado de DPR, uya que se supone que alli es donde debo poner la programación.
POr favor, si me podrias ayudar te lo agradeceria. .....Solo quisiera tener mi aplicacion que tuviera una ventana de LOGEO (para ingresar Usuario y Password)... Pero que el usuario se verifique en una tabla USUARIOS, usando un tipo de coneccion a la base de Datos, ODBC... GRACIAS.
__________________
Dios te bendiga |
#9
|
|||
|
|||
Mita thecarlos, esto es más o menos lo que hice yo con mi ventana de login:
Código:
procedure TLogin.Button1Click(Sender: TObject); begin categoria:=edit1.text; if edit1.text='' then begin application.MessageBox('Categoría o contraseña incorrectas, o no está conectado a Internet ','Error',MB_OK or MB_ICONHAND); form1.Close; end; if edit2.text='' then begin application.MessageBox('Categoría o contraseña incorrectas, o no está conectado a Internet ','Error',MB_OK or MB_ICONHAND); form1.Close; end; try zmysqldatabase1.Connect; except end; if edit1.text=dbedit1.Text then if edit2.text=dbedit2.Text then begin zmysqldatabase1.Disconnect; login.close; end else begin application.MessageBox('Categoría o contraseña incorrectas, o no está conectado a Internet ','Error',MB_OK or MB_ICONHAND); form1.close; end else begin application.MessageBox('Categoría o contraseña incorrectas, o no está conectado a Internet ','Error',MB_OK or MB_ICONHAND); form1.close; end; end; procedure TLogin.ZMySqlDatabase1AfterConnect(Sender: TObject); var mysql:string; begin mysql:='SELECT * FROM users WHERE username='+#39+edit1.text+#39; zmysqlquery1.Sql.Clear; zmysqlquery1.Sql.Add(mysql); zmysqlquery1.Open; end; Saludos |
#10
|
|||
|
|||
Cita:
Espero te sirva |
|
|
|