17.2.1 TQuery部件的使用
TQuery部件是一個數據集部件，它在Delphi部件選擇板上的數據訪問頁(Data Access)上，它與TTable部件具有很多共同的特性，我們在第十五章“數據訪問部件的應用及編程”中較詳細地進行了介紹。 TQuery 部件在 SQL 編程中占居了十分重要的地位。 它實現了Delphi對SQL語言的支持，在Delphi開發的數據庫應用中，SQL語句是通過TQuery部件傳遞到要訪問的數據庫系統的數據庫引擎中，由數據庫引擎具體執行SQL語句，以實現對數據的操作，而不是傳遞給Delphi中的BDE，由BDE實施具體的SQL動作。
我們已經知道了TTable部件在訪問數據庫時已經具備很強大的功能。TTable部件通過Delphi內置的BDE可以實現對各種數據庫系統的訪問，然而TQuery部件提供了一些 TTable部件不具備的功能，它們是：
●多表聯接查詢
●復雜的嵌套查詢(Select中包含著Select子查詢)
●明確需要按SQL語言進行的操作
因為TTabel部件不能使用SQL語言，而在TQuery部件可以使用SQL語言，因而TQuery部件也就具備了強大的關系查詢能力。當然這也使數據庫應用程序本身變得更復雜了。
在Delphi應用程序中編寫和使用的SQL語句有兩種：即靜態SQL語句、動態SQL 語句。靜態SQL語句是在程序設計階段，將SQL命令文本作為TQuery部件的SQL屬性值設置。而動態SQL語句編程是SQL語句中包含一系列的參數，在程序運行過程中各參數值是可變的，即可以動態地給SQL語句中的參數賦值。
靜態方式是把SQL命令文作為TQuery部件的SQL屬性值進行設置，這樣，當執行應用程序時，Delphi便執行TQuery部件SQL屬性中設置的SQL命令。如果是SQL中的查詢命令，把TQuery部件通過TDataSource部件與數據控制部件相連，查詢的結果將會顯示在與 TQuery部件相連接的數據浏覽部件中。動態SQL語句是指SQL語句中包含一些參數變量，在程序中可以為這些參數賦值，在程序運行過程中，各個參數值是變化的。TQuery部件的SQL 屬性中的SQL語句的編寫也有兩種方法，一種方法是在程序設置階段便將相應的SQL語句寫入到TQuery的SQL屬性中，另一種方法是在Delphi開發的應用程序將SQL語句，包含在Pascal代碼單元中。
在SQL編程中使用TQuery部件的具體方法步驟如下：
①為TQuery部件設置DatabaseName屬性，它可以是用BDE建立的數據庫的別名，或桌面數據庫系統中的目錄名或數據庫服務器中的文件名，如果在應用中使用了TDatabase 部件，那麼TQuery部件的DatabaseName屬性可以是TDatabase部件中定義的一個數據庫別名。詳細情況請參看“TDatabase部件的使用”；
②為TQuery部件設置SQL屬性，TQuery部件的SQL屬性值就是應用程序要執行的SQL 命令文本，設置SQL屬性有兩種方法：
● 在程序設計過程中，我們可以通過對象浏覽器(Object Inspector)編輯SQL屬性在Object Inspector中選擇SQL屬性，這樣會打開String List Editor窗口，在其中我們便可以編寫SQL命令，我還可以打開Visual Query Builder來編寫SQL命令 (只有Delphi的客戶/服務器版本才具有這一工具)。
● 將SQL命令包含在Pascal代碼單元中
在程序運行過程中，首先調用TQuery部件的Close方法關閉當前的TQuery部件，然後調用Clear方法清除SQL屬性，並說明新的SQL命令文本，然後調用Add方法，將新的SQL命令文本加入到SQL屬性中。
③通過調用TQuery部件的Open方法或ExecSQl方法執行 SQL 命令。 Open 方法只執行Select命令，ExecSQL方法還可以執行其它的SQL命令。Open方法和ExecSQL 方法的區別我們在後面的章節裡會進一步地加以討論的。
如果使用動態SQL語句，首先調用prepare方法，給動態SQL語句中的參數賦值，然後再調用Open方法或ExecSQL方法。調用propare 方法並不是必須的，但是對於要多次執行TQuery部件中SQL屬性中的動態SQL語句，調用Prepare可以大大提高TQuery部件執行SQL語句的性能。
17.2.2 在TQuery部件中編寫簡單的SQL查詢命令
在這一節裡我們將學習如何使用TQuery部件編寫簡單的SQL查詢命令，並在Delphi 應用程序中實現SQL查詢。
例如，如果我們想查詢出表Customer.DB中客戶的編號和公司名稱，我們按下列步驟來實現：
①在應用窗體中放置一個TQuery部件、一個TDataSource部件一個TDataGrid部件，並將它們連接起來
②設置窗體TQuery 部件Query1的DatabaseName屬性值為DBDEMOS
③雙擊Object Inspector窗口中Query1的SQL 屬性， Delphi 將顯示 String List Editor窗口。
④在圖17.3中的窗口中輸入SQL語句：
Select CustNo,Company From Custormer;
⑤單擊OK按鈕，關閉String List Editor窗口。
⑥設置Query的Open屬性為True。
