Foros Club Delphi - Ventana de logeo, para ingreso al sistema

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ventana de logeo, para ingreso al sistema (https://www.clubdelphi.com/foros/showthread.php?t=6218)

Ventana de logeo, para ingreso al sistema

Holas, tengo una consulta, me gustaria darle seguridad a un programa que estoy haciendo con conexion a una base de datos MS SQL Server, seguridad en el sentido que quisiera dar como ingreso al sistemas, una ventana de logeo... con un usuario y un password, y luego pueda entrar al sistema.???
Estoy trabajando con ODBC para coneccion a la base de datos, he visto que el ODBC me pide usuario y password para conectarme, y siempre pongo SA, y entro, como puedo hacer quizas para que esto pueda tambien ser un medio de seguridad extra, en el cual pueda poner usuario y clave, y pueda entrar??
son dos preguntas... bueno.. de verdad necesito tu ayuda... gracias... FELIZ NADIDAD

Si al adoconnection, o al connection, le pones loginprompt a false, no te pedira esta contraseña que pones SA.

Y para hacer que se logonen, tan solo tienes que poner un par de edits, que en uno te entren el nombre y en el otro el password

Y un boton de entrar.

Al boton de entrar le pones una sentencia sql, que mire en tu tabla de usuarios o personal o como le llames a la tabla, y segun el resultado les dices que no entran, o saltas al siguiente formulario, que diriamos que es el menu, si el nombre y password son correctos.

Si no te gustan los edits, puedes hacer inputbox o inputquery, si no quieres tener que hacer un form para esto.

Ejemplo sentencia.

Código:

const

sel = 'select * from usuarios where nombre = ''%s'' and password = ''%s''';



with query1 do begin

  close;

  sql.clear;

  add(format(sel,[edit1.text,edit2.text]));

  open;

  if recordcount = 0 do begin

    showmessage('No puede entrar marchese')

    exit;

  end

  else begin

    form2.showmodal;

  end;

end;

Saludos