Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
小弟近來要寫一支 function 給同事用,這支 function 會去檢查資料庫中的設定,但是它又沒有畫面,不知到 tquery 的部份 該怎麼寫..
建議您可以在這個 function 中以動態產生 TQuery 物件的方式產生一TQuery 來完成, 至於 TQuery.Create(OWner) 的 owner,以 Application 或 nil 代入都可以, 實在很在意這個引數的話,那可以在為這個函數多一個引數,用這個引數作為TQuery.Create的傳入引數.
信末附上一份程式簡例, 請您參考看看. :)
uses ...., DB, DBTables; ... ... function YourFunction(AForm: TForm): integer; var qryWork: TQuery; begin qryWork := TQuery.Create(AForm); // qryWork := TQuery.Create(Application); 亦可 // qryWork := TQuery.Create(nil); 亦可 with qryWork do begin DatabaseName := 'utDbf'; // then..., do the other work like this for example with SQL do begin Clear; Add('...'); Add('...'); end; ExecSql; Free; end; end; // 呼叫示例 procedure TForm1.Button1Click(Sender: TObject); begin YourFunction(Self); // 或者 YourFunction(nil); end;
(本題在Delphi主題公園, BDE 4.0 Foxpro Driver」之「產生DBF資料檔」一節, 提出了如何用TTable.Create, SQL Create Table 乃至呼叫 BDE API BdiCreateTable 等三個方法的說明).
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |