Tela de Login

Delphi

09/10/2003

Quero q os usuarios acessem meu sistema usando uma tela de login, eu quero ligar ela em um database, alguem tem um exemplo para mim ?


Imortal

Imortal

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

09/10/2003

Colega,

Exemplo de uma sistema que utiliza o ProLoginDialog da ProLib (freeware) encontrado no site www.torry.net

  try
  tbUsuarios.Open;
pLogin.Execute;
    try
    If not tbUsuarios.FindKey([pLogin.UserName]) Then
    Application.Terminate;
    If (pLogin.Password<>tbUsuariosSENHA.Value) then
    Application.Terminate;
Usuario:= tbUsuariosNOME.Value;
Privilegio:= tbUsuariosPRIVILEGIO.AsInteger;
      sbMenu.Panels[1].Text := UpperCase(Usuario);
      sbMenu.Panels[3].Text := IntToStr(Privilegio);
try
        qItensAcesso.Close;
        qItensAcesso.ParamByName(´NOME´).AsString:= Usuario;
        qItensAcesso.Open;
      except
ShowMessage(´Falha ao tentar abrir tabela de acessos.´);
        Application.Terminate;
      end;

except
   Application.Terminate;
    end;
  finally
  tbUsuarios.Close;
  end;



GOSTEI 0
POSTAR