FireDac 连接问题

Question

我用的是这里的例子：

是这样做的:

procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
with FDGUIxLoginDialog1.VisibleItems do begin
  Clear;
  Add('Server=Strežnik');
  Add('User_name=Uporabnik');
  Add('Password=Geslo');
  Add('Database=Baza');
end;
try
FDConnection1.Connected := True;
except
  on E: EAbort do
  application.terminate;   // user pressed Cancel button in Login dialog

  on E:EFDDBEngineException do
    case E.Kind of
    ekUserPwdInvalid: ; // user name or password are incorrect
    //ekUserPwdExpired: ; // user password is expired
    ekServerGone: ;     // DBMS is not accessible due to some reason
    else
                 // other issues
    end;
end;
end;

但是，在登录对话框中点击取消后，应用程序不会终止，而是显示我的主窗体。我应该怎么做才能纠正这个问题？

此外，在这种情况下，如果密码错误，我该如何闪现消息？

Firedac 正在连接到 SQL 服务器。

ps

即使这样也行不通:

.....
except
  on E: EFDDBEngineException do
  if E.Kind = ekUserPwdInvalid then
      begin
        ShowMessage('A user name or a password are invalid');
        Abort;
      end;

Answer 1

应用程序通常通过关闭其主窗体来退出。
您永远不应该通过发出异常来让应用程序退出；这是糟糕的形式。

EAbort 不是登录对话框发出的异常。实际上在正常情况下登录对话框不会抛出任何异常。
如果用户按下 Cancel 那么连接将无法连接 ehm.. 连接，你可以测试一下。
Here's a list of all the errors TFDConnection can generate.

以下代码应该有效：

type
  TAction = (aSuccess, aGiveup, aWrongPassword, aPasswordExpired);

procedure TDataModule2.DataModuleCreate(Sender: TObject);
var
  VI: TStrings; 
  WhatToDo: TAction;
begin
  WhatToDo:= aSuccess;
  VI:= FDGUIxLoginDialog1.VisibleItems; 
  VI.Clear;
  VI.Add('Server=Strežnik');
  VI.Add('User_name=Uporabnik');
  VI.Add('Password=Geslo');
  VI.Add('Database=Baza');
  try
    FDConnection1.Connected := True;
  except
    on E:EFDDBEngineException do case E.Kind of
      ekUserPwdInvalid: WhatToDo:= aWrongPassword;
      ekUserPwdExpired: WhatToDo:= aPasswordExpired;
      else WhatToDo:= aGiveUp;
    end; {case}
  end;
  if Not(FDConnection1.Connected) then WhatToDo:= aGiveUp;
  case Action of
    aWrongPassword: begin
      ShowMessage('You've entered a wrong username or password please try again');
      DataModuleCreate(Sender);
      Action:= aSuccess;
    end;
    aPasswordExpired: ShowMessage('You password has expired, please request a new one from the PHB');
  end;
  if Action <> aSuccess then Application.Terminate;
end;

关于编码风格的评论
不要使用 with。 With 是邪恶的，使用临时变量代替并使用它来引用嵌套变量。

因错误而终止而不发出错误真的很愚蠢。
没有任何用户会乐意让应用程序在他们身上死掉而没有任何解释。

您永远不应该因密码或用户名错误而终止。
至少给用户重新尝试 3 或 4 次的机会。
如果他到时还没有弄好，那么发出 "wrong username or password" 错误消息并退出。
永远不要告诉用户哪个（用户名或密码）是错误的，攻击者可以使用它来生成用户名列表。

FireDac 连接问题

FireDac connection issue

delphi

firedac