Fórum Login doido #443360

  public
    { Public declarations }
    entrada : Integer;
  end;

procedure TfrmLogin.btnOkClick(Sender: TObject);
var
  i : Integer;
begin
  DM.Usuario.Open;
  if DM.Usuario.Locate('LOGIN',edtLogin.Text,[])then
  begin
     if DM.UsuarioSenha.Value = edtSenha.Text then
     begin
        DM.Permissao.Open;
        for i := 0 to FPrincipal.ComponentCount - 1 do
          if FPrincipal.Components[i] is TAction then
          begin
             if DM.Permissao.Locate('action_nome', TAction(FPrincipal.Components[i]).Name,[]) then
             begin
                if DM.PermissaoPermissao.Value = 'N' then
                  TAction(FPrincipal.Components[i]).Enabled := False
                else
                  TAction(FPrincipal.Components[i]).Enabled := True;
             end
             else
                TAction(FPrincipal.Components[i]).Enabled := False;
                entrada := 1;
                Close;
             end;
        end
        else
        begin
           Application.MessageBox('Senha inválida!', 'Aviso',0+mb_IconInformation);
           edtSenha.SetFocus;
       end;
    end
    else
    begin
           Application.MessageBox('Usuário inexistente!', 'Aviso',0+mb_IconInformation);
           edtLogin.SetFocus;
    end;
end;

procedure TfrmLogin.FormShow(Sender: TObject);
begin
  entrada := 0;
end;

procedure TfrmLogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if entrada = 0 then
   Application.Terminate
 else
   CanClose := True;
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   DM.Usuario.Close;
end;

procedure TfrmLogin.BitBtn2Click(Sender: TObject);
begin
  Application.Terminate;
end;