17.4 動態(tài)SQL語句的編程

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

　　動態(tài)SQL語句中的參數(shù)，我們可以通過兩種途徑來為它賦值：

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

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

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

　　Setect * From Customer Where CustNO=:Number;

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

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

　　用這種方式為參數(shù)賦值有三種方法：

　�、俑鶕�(jù)參數(shù)在SQL語句中出現(xiàn)的順序，設(shè)置TQuery部件的Params屬性值為參數(shù)賦值。

　�、谥苯痈鶕�(jù)SQL語句中各參數(shù)的名字，調(diào)用ParamByName方法來為各參數(shù)賦值。

　�、蹖�TQuery部件的DataSource屬性設(shè)置為另一個數(shù)據(jù)源，這樣將另一個數(shù)據(jù)源中與當(dāng)前TQuery部件的SQL語句中的參數(shù)名相匹配的字段值賦給其對應(yīng)的參數(shù)。

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

　　17.4.1 使用Params屬性為參數(shù)賦值

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

　　例如：一個TQuery部件Query1，我們?yōu)樗�編寫的動態(tài)SQL語句是：

　　Insert Into Customer(CustNo,Name,Country)

　　Values(:CustNo,:Name, : Country)

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

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

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

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

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

　　17.4.2 使用ParamByName方法為參數(shù)賦值

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

　　例如在17.4.1節(jié)中的例子中，也可以用下述方法給參數(shù)賦值：

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

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

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

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

　　17.4.3 使用Datasource屬性為參數(shù)賦值

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

　　例如：在如圖17.7所示的應(yīng)用中，設(shè)置了下列部件：

　　● 一個TTable部件

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

　　● 一個TDatasource部件

　　名字為Custsource，其Dataset屬性被設(shè)置為Cust。

　　● 一個TQuery部件

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

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

　　WHERE Orders.CustNo =: CustNo

　　ORDERS的DataSouce屬性被設(shè)置為CustSource

　　● 一個TDatasource部件

　　名字為OrderSource，其DataSet屬性被設(shè)置為Orders。

　　● 兩個TDBGrid部件

　　它們分別連接CustSource和OrderSource。

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