動態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。