Politica de Acesso

Delphi

11/11/2003

Tenho um sistema q gostaria de implantar uma politica de acesso aos usuarios, gostaria de restrigir as forms, e colocar um cadastro de usuarios e senhas.....alguem pode me ajudar?


Imortal

Imortal

Curtidas 0

Respostas

Marcelo.c

Marcelo.c

11/11/2003

Crie uma tabela com um campo para cada acesso a ser proibido ou liberado mais os campos senha e usuario.

Então você deverá ter um form de Login para pegar o usuário e a senha, conferir com o BD e liberar (ou não) o acesso.

O código para a tela de login poderia ser assim:

procedure TF_Senha.BitBtn1Click(Sender: TObject);
begin
  i:=i+1;
  vusuario:=Edit1.Text;
  vsenha:=Edit2.Text;
  with DM_Geral do
  begin
    CDSSenha.Close;
    TabSenha.SQL.Clear;
    TabSenha.SQL.Add(´Select * from senhas where USUARIO=´+QuotedStr(vusuario));
    CDSSenha.Open;
    if not (CDSSenhausuario.AsString = vusuario) then
    MessageDlg(´Usuário não Cadastrado !!! ´, mtInformation, [mbOk], 0)
    else
    begin
      if (CDSSenhaSenha.Value=vsenha) and (Length(Edit1.Text) > 1) then
      begin
        Application.CreateForm(TF_Menu, F_Menu);
        F_Menu.ShowModal;
        F_Menu.Free;
        i:=3;
      end
      else
      MessageDlg(´ Senha inválida !!! ´, mtInformation, [mbOk], 0);
    end;
  end;
  if i=3 then
  close;
end;



GOSTEI 0
Orlandotosta

Orlandotosta

11/11/2003

Utilize a OTLib Security um componente para controlar o acesso de usuarios

www.noclop.hpg.ig.com.br/OTLib.html


GOSTEI 0
POSTAR