我參考了 http://delphi.ktop.com.tw/topic.php?topic_id=22091 製作登入程式,但我有每次登入失敗時,就不會再顯示出登入畫面了,如下程式碼,應該我有三次的登入機會才對,搞了好久,但還是弄不出來,可否有人遇到相同之問題,謝謝各位高手!! 程式碼如下: //在專案中程式 Application.Initialize; Application.CreateForm(TFrmMain, FrmMain); Application.CreateForm(TDM, DM); Application.CreateForm(TFrmReport, FrmReport); Application.CreateForm(TFrmRptEnter, FrmRptEnter); Application.CreateForm(TfrmLogin, frmLogin); if frmLogin.ShowModal <> mrOK then Application.Terminate; Application.Run; //登入按鈕下之程式 procedure TfrmLogin.bbtnLoginClick(Sender: TObject); begin with qrUser do begin gsSQL := 'select * from 領料人員 where 人員編號=''%s'' and 密碼=''%s'' '; gsSQL := Format(gsSQL, [LeftStr(CmbUserID.Text, 4), Trim(edtPassword.Text)]); close; SQL.Clear; sql.Add(gsSQL); open; if eof then begin ShowMessage('使用者代號或通行密碼錯誤，請重新輸入！'); inc(iLoginNumber); if iLoginNumber = 3 then begin ShowMessage('您進行系統身份確認程序錯誤，本系統將停止執行！'); ModalResult := mrNo; end; end else begin ModalResult := mrOk; end; end; end;; 突然想學Delphi的新手

改成如下試試:

    var
  iLoginCount: integer;
begin
  Application.Initialize;
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TFrmReport, FrmReport);
  Application.CreateForm(TFrmRptEnter, FrmRptEnter);
  Application.CreateForm(TfrmLogin, frmLogin);      iLoginCount := 0;
  frmLogin.ShowModal;
  while True do
    if frmLogin.ModalResult <> mrOK then
    begin
      Inc(iLoginCount);
      if iLoginCount = 3 then
      begin
        ShowMessage('您進行系統身份確認程序錯誤，本系統將停止執行！');
        Application.Terminate;
      end;
      frmLogin.ShowModal;
    end
    else
      Break;
  end;
  Application.Run;

//登入按鈕下之程式
procedure TfrmLogin.bbtnLoginClick(Sender: TObject);
begin
  with qrUser do
  begin
    gsSQL := 'select * from 領料人員 where 人員編號=''%s'' and 密碼=''%s'' ';
    gsSQL := Format(gsSQL, [LeftStr(CmbUserID.Text, 4), Trim(edtPassword.Text)]);
    Close;
    SQL.Clear;
    SQL.Add(gsSQL);
    Open;
    if Eof then
    begin
      ShowMessage('使用者代號或通行密碼錯誤，請重新輸入！');
      ModalResult := mrNo;
    end
    else
    begin
      ModalResult := mrOk;
    end;
  end;
end;;

-- 分擔可以輕省, 分享帶來喜樂!