Ventana de Logeo para ingreso al Sistema

[thecarlos]

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

[__cadetill]

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

[thecarlos]

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.

[marcoszorrilla]

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.

[__cadetill]

marcoszorrilla comentó:
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.

jejeje, y yo sin saberlo

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)

[marcoszorrilla]

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.

[jpcancino]

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.

[thecarlos]

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.

[jpcancino]

Mita thecarlos, esto es más o menos lo que hice yo con mi ventana de login:

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;

Espero te sirva

Saludos

[__cadetill]

thecarlos comentó:
....quizas porque no sé el significado de DPR.....

Bueno, el DPR es el cuerpo principal de cualquier aplicación delphi y lo puedes ver/encontrar pulsando CTRL+F12 y buscando allí el nombre de tu proyecto o bien en el menú Project-View Source

Espero te sirva