ActiveDelphi

[ronaldofm]

Olá!

Estou precisando de controle de Logins, após a confirmação do nome de usuário e sua senha o acesso é permitido ao sistema.
Para esta situação fiz este codigo:

procedure Tloginx.entrarxxClick(Sender: TObject);
var
logando : string;
senhando : string;
tentativa : integer;

begin
logando := (loginxx.text);
senhando := (senhaxx.text);

tentativa := 0;
if logando = \'\' then
if senhando = \'\' then
begin
Showmessage(\'Preencha seus Dados de Acesso!\');
exit
end
else
qysqlbusca.Close;
qysqlbusca.SQL.Clear;
qysqlbusca.SQL.Add(\'Select Nome, Senha\');
qysqlbusca.SQL.Add(\'From Users\');
qysqlbusca.SQL.Add(\'Where Nome = \"\' + logando + \',\' + senhando + \'\"\');
qysqlbusca.Open;
showmessage(\'Seja Bem Vindo ao Sistema\');
Application.CreateForm(TfmMenu, fmMenu);
fmMenu.showmodal;
loginx.Close





end;

Eu também quero estabelecer o numero de tentativas que o usuário tentou fazer a autenticação que serão no máximo 3 tentativas.
Este codigo acima faz verificação dos campos que estão em branco, mas caso os campos contiverem qualquer informação sistema já permite o Login, que mudar isso para que só seja permito o login após a validação de nome e senha. Será que alguem pode dar uma luz?

Obrigado!

[KMerlotti]

[url]http://www.activedelphi.com.br/modules.php?op=modload&name=XForum&file=search [/url]
_________________
Kelver Merlotti - Coordenador Editorial da Active Delphi
http://twitter.com/kmerlotti
Por favor, leia as regras do fórum.

[ridoval]

Utilize o user control que ira facilitar muito a sua vida.

é um componente que gera a base de dados para o cadastro de usuario, controle de acesso, controle de menus, controle de tentativas, cadastro de perfis, etc.

vale a pena vc dar uma olhada.

vá em www.usercontrol.com.br

espero ter ajudadeo

[blackstile]

[b] Aqui vai um exemplo de codigo de login que eu usei uma vez[/b]

[b] If [/b]Table1.Locate (\'Usuario\',EdtLogin.Text,[ ]) = False [b] Then [/b] [i] //verifica o usuario[/i]
[b] begin[/b]
[b] Messagedlg[/b] (\'Senha e/ou Usuário Inválido(s)\',mtinformation, [mbok],0);
[b] end[/b]
[b] Else[/b]
[b] If [/b]Table1.FieldValues[\'senha\']<>EdtSenha.Text [b] Then[/b] [i] //verifica a senha[/i]
[b] Messagedlg [/b](\'Senha e/ou Usuário Inválido(s)\',mtinformation, [mbok],0)
[b] else[/b]
[b] begin[/b] [i] //se tudo estiver certo fecha um e mostra o outro[/i]
application.CreateForm(TfrmPrincipal,FrmPrincipal);
FrmPrincipal.Show;
FrmLogin.close;
[b] end;[/b]

[b] Existem varias formas de fazer essa é uma delas, eu acho a forma mais simples de fazer e bastante eficiente também[/b]

Meu status no msn é: [img]http://www.bencastricum.nl/msn/status.php/e86a475c-0ffd-41de-a9b0-511476e2f794.png [/img]

[Editado em 21/6/2005 por blackstile]
_________________
Meu status no msn é: [img]http://www.bencastricum.nl/msn/status.php/e86a475c-0ffd-41de-a9b0-511476e2f794.png [/img]
Eu odeio policia - Quem é preto como eu já tá ligado qual é nota fiscal RG policia no pé - "Racionais MC's"