「例外」無法作用？？ |
|
缺席
|
|
c905165
中階會員   發表：50 回覆：120 積分：54 註冊：2002-09-29 發送簡訊給我 |
如果根據手冊，理論上，下面這一段程式碼，如果在輸入錯誤密碼時，會利用ShowMessage顯示出使用者所指定的錯誤訊息。
但是實際上卻不是如此，會變成編譯環境本身顯示出錯誤訊息，但這是不對的。
因為我們只是要它顯示程式密碼錯誤而已，卻出現類似「這個作業無效.......」。
如何修正呢？ 謝謝!! procedure TForm1.Button1Click(Sender: TObject);
begin
try
begin
DataModule10.SQLConnection1.LoginPrompt:=False;
//SQLConnection1.Params.Values['DriverName']:='MYSQL';
DataModule10.SQLConnection1.Params.Values['User_Name']:=username.Text;
DataModule10.SQLConnection1.Params.Values['Password']:=password.Text;
DataModule10.SQLConnection1.Params.Values['HostName']:=servername.Text;
//SQLConnection1.Params.Values['Database']:='hkchms';
DataModule10.SQLConnection1.Connected:= True;
end;
except
ShowMessage('伺服器/帳號/密碼錯誤，請重新檢查');
end;
end;
------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩 |
|
T.J.B
版主 發表：29 回覆：532 積分：497 註冊：2002-08-14 發送簡訊給我 |
引言: 如果根據手冊，理論上，下面這一段程式碼，如果在輸入錯誤密碼時，會利用ShowMessage顯示出使用者所指定的錯誤訊息。 但是實際上卻不是如此，會變成編譯環境本身顯示出錯誤訊息，但這是不對的。 因為我們只是要它顯示程式密碼錯誤而已，卻出現類似「這個作業無效.......」。 如何修正呢？ 謝謝!! procedure TForm1.Button1Click(Sender: TObject); begin try begin <---此行拿掉 DataModule10.SQLConnection1.LoginPrompt:=False; //SQLConnection1.Params.Values['DriverName']:='MYSQL'; DataModule10.SQLConnection1.Params.Values['User_Name']:=username.Text; DataModule10.SQLConnection1.Params.Values['Password']:=password.Text; DataModule10.SQLConnection1.Params.Values['HostName']:=servername.Text; //SQLConnection1.Params.Values['Database']:='hkchms'; DataModule10.SQLConnection1.Connected:= True; end;<---此行也拿掉 except ShowMessage('伺服器/帳號/密碼錯誤，請重新檢查'); end; end;try....except 之間的begin 跟 end 拿掉應該就可以了 回首來時路 也無風雨也無晴~~@.@
------
天行健 君子當自強不息~~@.@ |
|
c905165
中階會員 發表：50 回覆：120 積分：54 註冊：2002-09-29 發送簡訊給我 |
引言:還是不行引言: 如果根據手冊，理論上，下面這一段程式碼，如果在輸入錯誤密碼時，會利用ShowMessage顯示出使用者所指定的錯誤訊息。 但是實際上卻不是如此，會變成編譯環境本身顯示出錯誤訊息，但這是不對的。 因為我們只是要它顯示程式密碼錯誤而已，卻出現類似「這個作業無效.......」。 如何修正呢？ 謝謝!! procedure TForm1.Button1Click(Sender: TObject); begin try begin <---此行拿掉 DataModule10.SQLConnection1.LoginPrompt:=False; //SQLConnection1.Params.Values['DriverName']:='MYSQL'; DataModule10.SQLConnection1.Params.Values['User_Name']:=username.Text; DataModule10.SQLConnection1.Params.Values['Password']:=password.Text; DataModule10.SQLConnection1.Params.Values['HostName']:=servername.Text; //SQLConnection1.Params.Values['Database']:='hkchms'; DataModule10.SQLConnection1.Connected:= True; end;<---此行也拿掉 except ShowMessage('伺服器/帳號/密碼錯誤，請重新檢查'); end; end;try....except 之間的begin 跟 end 拿掉應該就可以了 回首來時路 也無風雨也無晴~~@.@
------
有困難就是能力不足，有麻煩就是方法不對... 劣者總是遇到困難，也時常出現麻煩 |
發表時間：2002-10-13 02:17:23
IP:203.204.xxx.xxx 未訂閱
系統時間：2024-05-14 22:57:25
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |