17.4 動態SQL語句的編程

　　在17.3節中，我們已經介紹了動態SQL語句(又被稱為參數化的SQL語句)，在其中包含在程序過程中可以變化的參數，在實際的程序設計中使用得更多的是動態SQL語句，因而在這一節里我們重點介紹如何給動態SQL語句的參數賦值，以在應用程序中靈活地使用SQL語句。動態SQL語句的編寫、執行等等與17.3節中介紹的SQL語句的編寫、執行是一樣的。

　　動態SQL語句中的參數，我們可以通過兩種途徑來為它賦值：

　　1. 利用參數編輯器(Parameter Editor)來為參數賦值

　　具體方法是：選中TQuery部件，單擊鼠標右鍵，然后從中選擇Define Parameters 便可以打開參數編輯器。

　　例如，在TQuery部件的SQL屬性中我們設置如下的SQL語句：

　　Setect * From Customer Where CustNO=:Number;

　　TQuery的DatabaseName屬性為DBDEMOS，其中Number為參數變量。我們便可以為參數Number賦值，在Datetype組合框中選擇該參數的數據類型為整數Integer，在Value編輯框中可以為參數Number賦一個值，也可以單擊Null Value檢查框為參數Number賦一個空值Null。給參數賦值之后，單擊OK按鈕，這樣TQuery部件中的SQL 查詢便準備好了，而且參數值也被賦給了動態SQL語句中相應的參數，此時當把TQuery 部件的Active屬性設置成True時，在與TQuery部件相連的數據瀏覽部件中會顯示出查詢結果，通過參數編輯器為參數賦值，這種方式缺乏應有的靈活性，在實際應用中用得較少，在實際應用中程序設計人員希望用更靈活方便的方式為參數賦值，那就是我們接下來要介紹的另一種途徑：

　　2. 在運行過程中，通過程序為參數賦值

　　用這種方式為參數賦值有三種方法：

　　①根據參數在SQL語句中出現的順序，設置TQuery部件的Params屬性值為參數賦值。

　　②直接根據SQL語句中各參數的名字，調用ParamByName方法來為各參數賦值。

　　③將TQuery部件的DataSource屬性設置為另一個數據源，這樣將另一個數據源中與當前TQuery部件的SQL語句中的參數名相匹配的字段值賦給其對應的參數。

　　這三種方法我們將在下面的三小節中具體地介紹

　　17.4.1 使用Params屬性為參數賦值

　　TQuery部件具有一個Params屬性，它們在設計時不可用，在程序運行過程中可用，并且是動態建立的，當為TQuery部件編寫動態SQL 語句時， Delphi 會自動地建立一個數組Params，數組Params是以0下標開始的，依次對應動態SQL 語句中的參數， 也就是說動態SQL語句中第一個參數對應Params[0],第二個參數對應params[1]，依此類推。

　　例如：一個TQuery部件Query1，我們為它編寫的動態SQL語句是：

　　Insert Into Customer(CustNo,Name,Country)

　　Values(:CustNo,:Name, : Country)

　　對于上述這條動態SQL語句中的參數，我們可以利用TQuery部件的params 屬性為參數賦值：

　　Query1.params[0].AsString := "1988";

　　Query1.params[1].AsString := "Lichtenstein";

　　Query1.params[2].AsString := "USA";

　　上述語句將把"1988"賦給參數:Cuse_No，"Lichtenstein"賦給參數:Name，"USA"賦給參數:Country。

　　17.4.2 使用ParamByName方法為參數賦值

　　ParamByName是一個函數，用動態SQL語句中的參數作為調用ParamByName函數的參數，這樣便可以為它們賦值，使用這種賦值方法，必須要知道動態SQL語句參數的名字。

　　例如在17.4.1節中的例子中，也可以用下述方法給參數賦值：

　　Query1.ParamByName('CustNo').AsString := "1988";

　　Query1.ParamByName('Name').AsString := "Lichtenstein";

　　Query1.ParamByName('Country').AsString := "USA";

　　使用這種方法同樣可以為各參數賦值，而且更加直觀一些。

　　17.4.3 使用Datasource屬性為參數賦值

　　上述兩種方法的共同特點是：我們在為各參數賦值時，我們是知道各參數對應的具體參數值的。而在具體的應用程序中，有些參數值常常是無法確定的，例如參數值來自于另一個查詢結果，對于這種情況，Delphi提供了使用Datasource屬性為動態SQL 語句中尚存在沒有賦值的參數時， Delphi 會自動檢查 TQuery 部件的 Datasource 屬性， 如果為Datasource屬性設置了屬性值(該屬性的值是另一個TDatasource部件的名字)，Delphi 會把沒有賦值的參數與TDatasource部件中的各字段比較，Delphi 會將相應的字段值賦給與其相匹配的參數，利用這種方法也能實現所謂的連接查詢，我們在學習使用TTable部件時，便會創建主要--明細型數據庫應用，用TQuery部件創建的連接查詢與主要- -明細型應用是相似的。

　　例如：在如圖17.7所示的應用中，設置了下列部件：

　　● 一個TTable部件

　　名字為Cust，它的DatabaseName屬性為DEMOS，TableName屬性為Customer。

　　● 一個TDatasource部件

　　名字為Custsource，其Dataset屬性被設置為Cust。

　　● 一個TQuery部件

　　名字為ORDERS，其DatabaseName被設置為DEMOS，SQL屬性值為：

　　Select Orders.CustNo,Orders.OrderNo,Orders.SaleDate FROM Orders

　　WHERE Orders.CustNo =: CustNo

　　ORDERS的DataSouce屬性被設置為CustSource

　　● 一個TDatasource部件

　　名字為OrderSource，其DataSet屬性被設置為Orders。

　　● 兩個TDBGrid部件

　　它們分別連接CustSource和OrderSource。

　　TQuery部件Orders中的動態SQL語句中的參數:CustNo在程序設計過程中沒有給它賦值，當該應用程序運行時Delphi會自動地到其Datasource屬性中說明的數據源CustSource中查找與參數:CustNo匹配的字段，而CustSource中正好有一個名字為 CustNo 的字段與參數:CustNo匹配，這樣Customer表中的CustNo字段值被賦給了參數 : CustNo ， 而當每移動Customer表中的記錄指針，參數:CustNo的值會隨之改變，而參數:CustNo的值發生改變時，Orders中的動態SQL語句會根據新的參數值重新查詢，從數據庫表中獲取相應的訂單數據，這樣也變實現了類似于主要--明細型應用。即連接查詢。