Begin
With DtModule Do
Begin
//Testa usuário
If TblUsuario.FindKey([Editusuario.text]) Then
Begin
//Testa senha
If EditSenha.text =
TblUsuario.FieldByName('UsSenha').asstring Then
Begin
//Controla o status do menu
FrmPrinc.M21.Enabled :=
TblUsuario.FieldByName('M21').AsBoolean;
FrmPrinc.M22.Enabled :=
TblUsuario.FieldByName('M22').AsBoolean;
FrmPrinc.M23.Enabled :=
TblUsuario.FieldByName('M23').AsBoolean;
FrmPrinc.M24.Enabled :=
TblUsuario.FieldByName('M24').AsBoolean;
//Registra o log do Sitema
FrmPrinc.EUser :=
TblUsuario.FieldByName('UsUsuario').Asinteger;
With DTModule.TblLogSistema Do
Begin
Open;
Insert;
FieldByName('LSData').AsDateTime :=
Date;
FieldByName('LSUsusario').AsInteger :=
FrmPrinc.EUser;
FieldByName('LSHoraI').AsDateTime :=
Time;
Post;
End;
FrmPrinc.ELogSistema :=
TblLogSistema.FieldByName('LSID').AsInteger;
Close;
End else
ShowMessage('Senha errada. Tente novamente.');
End else
ShowMessage('Usuário não cadastrado. Tente novamente ou contate o
Supervisor do Sistema!');
End;
End;
----- Original Message -----
From: "aamelia" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Tuesday, May 17, 2005 7:27 AM
Subject: [delphi-br] Login e senha
> Pessoas,
>
> Bom Dia!
> Estou precisando de um código para login e senha, alguém
> pode me ajudar??????
>
> Até mais,
> Ana Amélia
> ****************************************
> O grande portal dos mineiros
> http://www.uai.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
