FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
login con niveles
hola a todos, necesito ayuda. Estoy creando un login con niveles dependiendo el usuario que entre me explico si me logueo como administrador quiero habilitar el menu de configuracion de usuarios, si me logueo como usuario normal que se desabilite la configuracion de usuario. si necesitan saber algo mas solo posteenlo aqui!. he visto unos cuantos link del club pero ninguno me a cumplido. tengo el login echo solo quiero que se desabiliten o habiliten las opciones del menu segun el nivel del usuario. solo son dos niveles administradores y usuarios normales.
codigo del button entrar del login sin niveles: procedure TfrmLogin.Button1Click(Sender: TObject); var user: string; clave: String; begin user:=edit1.Text; clave:=edit2.text; if (user='') or (clave='') then begin showmessage('Debe Introducir un Usuario y Contraseña'); exit; end else table1.Open; with table1 do locate('User;Clave',vararrayof([user,clave]),[]); if table1.Locate('User;Clave',vararrayof([user,clave]),[]) then begin ModalResult := mrOK; showmessage('Bienvenido al sistema '+user+''); end else begin inc(intento); if intento = 1 then begin showmessage('Clave o Usuario Incorrectos Le Queda Un Intento'); edit1.SetFocus; end else begin showmessage('Usted No Tiene Acesso Al Sistema'); close; end; end; table1.Close; end; ------------------------------------- Pregunta: Donde coloco el codigo de identificacion de los niveles y donde va el codigo de habilitar o deshabilitar? y si tienen algun ejemplo por favor. ------------------------------------- codigo que he puesto en el proyecto --------------------------------------- var frmlogin: tfrmLogin; begin Application.Initialize; frmlogin:= Tfrmlogin.Create(Application); if frmlogin.showmodal = MrOk then begin Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TAboutBox, AboutBox); Application.CreateForm(TfrmLogin, frmLogin); Application.CreateForm(TDataModule1, DataModule1); Application.CreateForm(TForm1, Form1); frmlogin.free; Application.Run; end else begin application.Terminate; end; ------------------------------------------ |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
DBGrid con posibilidad de agrupar en niveles... | Neftali [Germán.Estévez] | OOP | 3 | 29-11-2004 00:58:42 |
programa por niveles | marcelofabiani | Varios | 2 | 21-10-2003 18:27:17 |
Niveles de Acceso/ | UTECYBER | Varios | 5 | 07-10-2003 20:56:23 |
Niveles de Acceso/ | UTECYBER | OOP | 5 | 07-10-2003 20:53:18 |
niveles en programas | marcelofabiani | Varios | 1 | 10-05-2003 22:30:15 |
|