我利用logindialog去控制登入者可是，似乎只要username相同即可以開啟， logindialog('Demo',ausername,apassword); if logindialog('Demo',ausername,apassword) then exit 請各位前輩指導......

我試了一下不會呀！您是否少了判斷式呢 < class="code"> procedure TForm1.Button1Click(Sender: TObject); var sUser, sPass:String; begin //uses Dblogdlg if LoginDialog('DEMO', sUser, sPass) then begin if (sUser='Admin')and(sPass='Key')then begin ShowMessage('Yes!Go...'); end else begin ShowMessage('Login Error!'); Halt; end; end else Halt; end; 霧裡探花

第1次執行時不會有誤，可是當第一次輸入錯誤時再登入時就只要username正確就可以開啟後面的動作了。 關於大大這樣的做法，我有試過，是可以run的。 但我想輸入錯誤時，會再回到logindialog再做輸入及檢驗。 可是好像都不行耶！ 還煩請問大大該如何解決這一問題 再此能先謝謝大大的回應。

看 logindialog 的help 說明,你遇到的問題是正常的 LoginDialog returns false if the user cancels out of the dialog. If LoginDialog returns true, the application can attempt to connect to the database server using the supplied user name and password. 只要按LoginDialog ok 就會return true. 並且去連DB 只要按LoginDialog cancel 就會return false. 所以判斷LoginDialog 的return 值只能判斷user 在logindialog 按ok or cancel. 所以你如果要用DB來 check username password 好像不能用這樣做 我的作法是new 一個database ,填好params 以後 try database.Connected:=True; except on E : Exception do begin MessageBeep(Word(-1)); ShowMessage(E.Message); //沒連上 end; if database.Connected then showmessage('OK'); 發表人 - vinchenkimo 於 2004/11/12 17:19:29

謝謝vinchenkimo大大的解答，有點搞清楚了。