Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-08-2007
TKW04 TKW04 is offline
Miembro
 
Registrado: ene 2007
Posts: 27
Poder: 0
TKW04 Va por buen camino
Question Login-Delphi

Buenas a todos se que pregunto mucho pero es que quiero aprender, estoy trabajando con un programita y se me ocurrio crear un login pero no se como hacer que el programa haga la relacion usuario, contraseña en la base de datos (uso Sql server 2000) y quiero dar prioridades a usarios por ejemplo si entra Usuario: Admin, Pass: bacalao se activen o desactiven algunas propiedades de los forms.

En si es como un control de usuario para dar restrinciones a ciertos usuarios. si alguien sabe como hacerlo que me esplique como o que me envie un pequeño ejemplo a mi correo thewolf04@gmail.com. Gracias por anticipado .....
Responder Con Cita
  #2  
Antiguo 15-08-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Aqui hay un ejemplo sencillo:
http://www.clubdelphi.com/foros/showthread.php?t=44976
Saludos
__________________
Siempre Novato
Responder Con Cita
  #3  
Antiguo 15-08-2007
TKW04 TKW04 is offline
Miembro
 
Registrado: ene 2007
Posts: 27
Poder: 0
TKW04 Va por buen camino
Gracias

Lo voya chequear a ver si me sirve muchas gracias cualqueir cosa te escrivo ok??¿??
Responder Con Cita
  #4  
Antiguo 15-08-2007
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Poder: 23
maeyanes Va por buen camino
Hola TKW04...

Agradeceríamos que cualquier otra duda que tengas sobre tu mismo problema la plasmes en este mismo hilo y no le mandes privados a Caral o cualquier otro que te conteste. Esto es por que lo que se te responda en este hilo le podría servir a alguien más para resolver un problema igual o similar...



Saludos...
Responder Con Cita
  #5  
Antiguo 16-08-2007
TKW04 TKW04 is offline
Miembro
 
Registrado: ene 2007
Posts: 27
Poder: 0
TKW04 Va por buen camino
No entiendo

Caral No he podido noner en marcha tu programa pero eh estdo viendo los forms y no ve ninguna que sea para login son todos de control de nomina.....
Responder Con Cita
  #6  
Antiguo 16-08-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Este?
http://www.clubdelphi.com/foros/showthread.php?t=46017
Saludos
__________________
Siempre Novato
Responder Con Cita
  #7  
Antiguo 22-08-2007
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 21
enecumene Va por buen camino
Hola de nuevo, continuando con el mismo hilo, quisiera saber como defino los privilegios de los usuarios? ejemplo:

la tabla de usuario contiene esos campos tipo "Yes/No" que son los botones y menus a restringir el acceso:

backup
findped
findtra
instra
insped
settings
reports
findsupli
inssupli
stats

con el mismo codigo del login como defino los accesos por ejemplo:
si se loguea pedro y el tiene estos privilegios:

backup->No
findped->Yes
findtra->Yes
instra->Yes
insped->Yes
settings->No
reports->Yes
findsupli->Yes
inssupli->Yes
stats->No

al momento de pedro loguearse los menus y botones correspondientes se pongan false o true dependiendo del Yes o No.

quise hacerlo asi pero no me funciona:

Código Delphi [-]
var
BackUp: string;
Begin
BackUp:=ADLoginbackup.Dataset.DatasetField.Value;
if BackUp = 'No' then
Begin
incio.BackUpdatos1.Enabled:=False;
end
else
Begin
incio.BackUpdatos1.Enabled:=True;
end;
end;
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
  #8  
Antiguo 22-08-2007
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 25
Caral Va por buen camino
Hola
Te voy a explicar como lo hago yo:
Creo un campo (permiso) este campo es numerico, defino los permisos en base a la numeracion, 1, 2, 3
1= acceso a todo
2= acceso a x parte o botones
3= acceso a otros botones
asi se pueden tener tantos accesos o permisos como se quiera.
Agrego el campo a la tabla, esta quedara en tercer lugar, 0-1-2-3
el codigo que uso es este:
Lo reconoceras, facilmente:
Código Delphi [-]
  LoginOK :=False;
   AdoQuery1.Parameters.ParamByName('Cod').Value:= Edit1.Text;
   AdoQuery1.Active:= True;
  If AdoQuery1.Fields[3].AsString = '1' then
     // todo
   begin
  // todo
   end;
   If AdoQuery1.Fields[3].AsString = '2' then
   // bodega
   begin
     FmainForm.BitBtn3.Enabled := False;
     FmainForm.BitBtn17.Enabled := False;
     FmainForm.BitBtn18.Enabled := False;
     FmainForm.BitBtn19.Enabled := False;
     FmainForm.BitBtn6.Enabled := False;
     FmainForm.BitBtn1.Enabled := False;
     FmainForm.BitBtn2.Enabled := False;
     FmainForm.BitBtn15.Enabled := False;
     FmainForm.BitBtn14.Enabled := True;
     FmainForm.BitBtn8.Enabled := True;
     FmainForm.BitBtn23.Enabled := False;
     FmainForm.BitBtn24.Enabled := False;
     FmainForm.Timer2.Enabled := False;
     FmainForm.PopupMenu7.Items[3].Enabled:= False;
     FmainForm.PopupMenu7.Items[4].Enabled:= False;
     FmainForm.PopupMenu7.Items[5].Enabled:= False;
     FmainForm.PopupMenu7.Items[6].Enabled:= False;
     FmainForm.PopupMenu7.Items[7].Enabled:= False;
     FmainForm.PopupMenu7.Items[8].Enabled:= False;
     FmainForm.PopupMenu7.Items[20].Enabled:= False;
     FmainForm.PopupMenu7.Items[21].Enabled:= False;
     FmainForm.PopupMenu7.Items[23].Enabled:= False;
     FmainForm.PopupMenu7.Items[24].Enabled:= False;

   end;
    If AdoQuery1.Fields[3].AsString = '3' then
   // produccion, acabado
   begin
     FmainForm.BitBtn2.Enabled := False;
     FmainForm.BitBtn3.Enabled := False;
     FmainForm.BitBtn17.Enabled := False;
     FmainForm.BitBtn18.Enabled := False;
     FmainForm.BitBtn19.Enabled := False;
     FmainForm.BitBtn16.Enabled := False;
     FmainForm.BitBtn5.Enabled := False;
     FmainForm.BitBtn6.Enabled := False;
     FmainForm.BitBtn7.Enabled := False;
     FmainForm.BitBtn1.Enabled := False;
     FmainForm.BitBtn15.Enabled := False;
     FmainForm.BitBtn13.Enabled := False;
     FmainForm.BitBtn4.Enabled := False;
     FmainForm.BitBtn14.Enabled := False;
     FmainForm.BitBtn8.Enabled := False;
     FmainForm.BitBtn27.Enabled := False;
     FmainForm.BitBtn21.Enabled := False;
     FmainForm.BitBtn22.Enabled := False;
     FmainForm.BitBtn23.Enabled := False;
     FmainForm.BitBtn24.Enabled := False;
     FmainForm.BitBtn25.Enabled := False;
     FmainForm.Timer2.Enabled := False;
     FmainForm.PopupMenu7.Items[1].Enabled:= False;
     FmainForm.PopupMenu7.Items[2].Enabled:= False;
     FmainForm.PopupMenu7.Items[3].Enabled:= False;
     FmainForm.PopupMenu7.Items[4].Enabled:= False;
      end;
 If AdoQuery1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       Edit1.Text := '';
       Edit2.Text := '';
       AdoQuery1.Active := False;
       If Cuenta = 3 then Close;
    end
   else
       If AdoQuery1Clave.AsString = Edit2.Text then
        Begin
           LoginOk := True;
           Usuario := AdoQuery1CodUsuario.AsString;
           Nombre := AdoQuery1Nombre.AsString;
           AdoQuery1.Active := False;
           Close;
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           Edit2.Text := '';
           AdoQuery1.Active := False;
           If Cuenta = 3 then Close;
         end;
espero te sirva.
Saludos
__________________
Siempre Novato
Responder Con Cita
  #9  
Antiguo 22-08-2007
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 21
enecumene Va por buen camino
Gracias Caral ahora mismo intentare implementarlo, luego te comento. Gracias.
__________________

Mi BLOG - ¡Joder, leanse la guia de estilo!
Las Palabras son enanas, los ejemplos gigantes.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Login via base de datos en Delphi eudy.net Conexión con bases de datos 1 08-06-2007 08:28:14
Login intraweb rober_kobe Internet 4 06-07-2006 03:55:04
Ayuda En Login Y Pass Para Ingresar En un programa creado en Delphi Solojuegospc.tk Conexión con bases de datos 8 07-07-2005 04:18:28
Automatizar Login JoseQ Internet 0 30-03-2005 13:35:50
Login y Logout douguiehm Varios 5 10-12-2004 20:46:36


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


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