Bem, nesse tempo em que estive presente aki no fórum percebi que muita gente pergunta como fazer um sistema com login e senha. Eu fiz um aqui bem legalzinho e relativamnente pouco complexo de se entender a lógica. Agora uma pequena explicação:
Crie uma tabela no seu banco de dados com apenas 3 campos: Login, Senha e Cargo (todos os três alfanuméricos, podendo qualquer um ser chave primária).
No DataModule ou no próprio formulário de senha coloque um TTable, um TDataSource e um TQuery. No formulário de senha ponha 2 TEdits e um TButtom (BtnOK) O código está listado abaixo.
procedure TFrmAcesso.BtnOKClick(Sender: TObject);
Var Login, Senha, Tipo : String;
begin
DM.QrAcesso.Close;
DM.QrAcesso.SQL.Text := 'Select * from Acesso '+
'Where Login =:LoginBusca and Senha =:SenhaBusca';
DM.QrAcesso.Params[0].AsString := (Edit1.Text);
DM.QrAcesso.Params[1].AsString := (Edit2.Text);
DM.QrAcesso.Open;
Login := DM.QrAcessoLogin.Value;
Senha := DM.QrAcessoSenha.Value;
Tipo := DM.QrAcessoTipo_Usuario.Value;
if (Login = Edit1.Text) and (Senha = Edit2.Text) and (Tipo = 'Administrador')then begin
{Nesse caso é um Administrador que está utilizando o sistema, então habilite todas as funções do sistema}
FrmPrincipal.ShowModal;
end;
if ( Login = Edit1.Text) and (Senha = Edit2.Text) and (Tipo = 'Usuário')then begin
{Nesse caso é um Usuário que está acessando o sistema, então desabilite tudo que você não quer que ele tenha acesso, como determinados formulários, botões, consultas, entre outros}
FrmPrincipal.ShowModal;
end;
if (Login <> Edit1.Text) or (Senha <> Edit2.Text) then begin
ShowMessage('Login ou Senha inválidos.');
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end;
end;
Uma coisa legal dessa rotina é que permite que o programador possa implementar no código o que é permitido fazer por um Usuário do sistema e o Administrador do mesmo.
Pergunta
Arlon
Vou meter uma ajudinha pra galera aki tb.
Bem, nesse tempo em que estive presente aki no fórum percebi que muita gente pergunta como fazer um sistema com login e senha. Eu fiz um aqui bem legalzinho e relativamnente pouco complexo de se entender a lógica. Agora uma pequena explicação:
Crie uma tabela no seu banco de dados com apenas 3 campos: Login, Senha e Cargo (todos os três alfanuméricos, podendo qualquer um ser chave primária).
No DataModule ou no próprio formulário de senha coloque um TTable, um TDataSource e um TQuery. No formulário de senha ponha 2 TEdits e um TButtom (BtnOK) O código está listado abaixo.
Uma coisa legal dessa rotina é que permite que o programador possa implementar no código o que é permitido fazer por um Usuário do sistema e o Administrador do mesmo.
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.