小弟在與資料庫連線前先去做檢查資料庫是否連線,如果沒有連線則秀出一警告視窗後結束程式,但小弟用Showmessage來秀訊息時,程式依然往下跑,BDE錯誤依然出現!! 小弟的問題是該如何做到秀出訊息時將程式暫停!!該下何指令可以經程式強制關閉呢?? ======================== 我是DELPHI5的初學者

jch 你好

  看你連線檢查在什麼位置
若在專案檔，則你可以如下程式處理
If 未連線 Then Begin
  // 使用MessageDlg
  MessageDlg('資料庫未連線,將結束程式..',mtWarning,[mbOK],0);
  Application.Terminate;
end Else Begin
  一般正程序
   ...
End;    若在主Form 同樣用MessageDlg秀訊息後直接Close;即可以了
或統一用Application.Terminate;結束程式的執行。

引言: 小弟在與資料庫連線前先去做檢查資料庫是否連線,如果沒有連線則秀出一警告視窗後結束程式,但小弟用Showmessage來秀訊息時,程式依然往下跑,BDE錯誤依然出現!! 小弟的問題是該如何做到秀出訊息時將程式暫停!!該下何指令可以經程式強制關閉呢?? ======================== 我是DELPHI5的初學者

在 OnFormCreate , OnFormShow 中是不能用 MainForm.Close 來結束程式的. 如果一定要在這兩個 EVENT 中結束程式, 可參考下列兩個方法. 方法一: 用 Application.Terminate 來結束程式 方法二: 用 Halt 指令結束程式. ...Aquarius

多謝大哥!!不過小弟測試連線的方法失敗了........ ======================== 我是DELPHI5的初學者

引言: 多謝大哥!!不過小弟測試連線的方法失敗了........ ======================== 我是DELPHI5的初學者

把你的 Source Code 放上來看看吧!! 不然很難猜測你的問題在那裏!! ...Aquarius

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin if ErrorEvent = eeConnect then begin Caption := ''SQL Server is not Actived.''; ErrorCode := 0; // Reset Error end; end; procedure TForm1.Button1Click(Sender: TObject); begin ClientSocket1.Close; ClientSocket1.Host := ''localhost''; ClientSocket1.Port := 1433; ClientSocket1.Open; Caption := ''Testing SQL Server Active...''; end; procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin Caption := ''SQL Server is ready.''; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin if ClientSocket1.Active then ClientSocket1.Close; end; //---------------------------------------------------------- 以上為資料庫區Mickey大哥所提出的測試資料庫是否連線的方法, 我將Button1Click的內容改寫到fromcreat資料庫連線前檢查資料庫是否連線!! 並將更改Caption的部份改為showmessage來提示使用者,但是在檢查時SQL也去連線了,造成SQL的錯誤依然產生,並造成程式死當........ ======================== 我是DELPHI5的初學者

引言: procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin if ErrorEvent = eeConnect then begin Caption := ''SQL Server is not Actived.''; ErrorCode := 0; // Reset Error Application.Terminate ; end; end;

加上紅色的那一行, 把 FormCreate 中的 Application.Terminate 拿掉, 應該就會對了!! 你錯誤的原因是沒搞清楚 Event 的順序. 在 FormCreate 中, 不會知道 Socket 是否已經成功的建立!! ...Aquarius

多謝aquarius大哥的指教,如大哥所言'在 FormCreate 中, 不會知道 Socket 是否已經成功的建立'那麼小弟只好再另想辦法測試了,因為小弟在Create時就該始連接資料庫了....... ======================== 我是DELPHI5的初學者

sleep(毫秒); 可以讓程式延遲


===================引 用 jch 文 章===================
小弟在與資料庫連線前先去做檢查資料庫是否連線,如果沒有連線則秀出一警告視窗後結束程式,但小弟用Showmessage來秀訊息時,程式依然往下跑,BDE錯誤依然出現!! 小弟的問題是該如何做到秀出訊息時將程式暫停!!該下何指令可以經程式強制關閉呢?? ======================== 我是DELPHI5的初學者

建議在 Afterconstrction 內進行
===================引 用 jch 文 章===================
多謝aquarius大哥的指教,如大哥所言'在 FormCreate 中, 不會知道 Socket 是否已經成功的建立'那麼小弟只好再另想辦法測試了,因為小弟在Create時就該始連接資料庫了....... ======================== 我是DELPHI5的初學者

將資料庫連結程式段寫在 TDatamodule，
讓Datamodule 比 主form 先執行，應可解決你的問題。