tipo...quero fazer uma tela de login que controle o acesso dos usuários...tipo o usuario 1 só pode acessar a tela de departamento de RH.... o usuario 2 pode acessar tudo...
inicialmente minha tela de login esta assim:
procedure Tfrmcarregar.BTNOKClick(Sender: TObject);
begin
msql := 'select * from tblogin where login = ' + quotedstr(Edit1.Text) + ' and senha =' + quotedstr(Edit2.Text);
with DataModule1.Query1 do
begin
close;
sql.clear;
sql.add(msql);
open;
if recordcount > 0 then
begin
if pos = 1 then
begin
controle := true;
frmusuario.ShowModal;
end else begin
controle := true;
frmabas.ShowModal;
end;
end else begin
ShowMessage('Usuário ou senha invalida');
end;
end;
end;
como posso fazer pra dar ou restringir essas permissões?
Editado por Micheus Adicionado o delimitador de código [code] [/code]. Lembre-se de utilizá-lo para melhor visualização
Pergunta
biakeffer
Oi pessoal...to eu aqui de novo...rs
tipo...quero fazer uma tela de login que controle o acesso dos usuários...tipo o usuario 1 só pode acessar a tela de departamento de RH.... o usuario 2 pode acessar tudo...
inicialmente minha tela de login esta assim:
procedure Tfrmcarregar.BTNOKClick(Sender: TObject); begin msql := 'select * from tblogin where login = ' + quotedstr(Edit1.Text) + ' and senha =' + quotedstr(Edit2.Text); with DataModule1.Query1 do begin close; sql.clear; sql.add(msql); open; if recordcount > 0 then begin if pos = 1 then begin controle := true; frmusuario.ShowModal; end else begin controle := true; frmabas.ShowModal; end; end else begin ShowMessage('Usuário ou senha invalida'); end; end; end;como posso fazer pra dar ou restringir essas permissões?
Editado por MicheusAdicionado o delimitador de código [code] [/code]. Lembre-se de utilizá-lo para melhor visualização
Link para o comentário
Compartilhar em outros sites
4 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.