Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 24-12-2003
thecarlos thecarlos is offline
Miembro
 
Registrado: dic 2003
Ubicación: Trujillo - Perú
Posts: 32
Poder: 0
thecarlos Va por buen camino
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
__________________
Dios te bendiga
Responder Con Cita
  #2  
Antiguo 24-12-2003
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 21
Descendents Va por buen camino
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
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 18:26:03.


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