Fórum Tela de Login #187576

  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;