17.2.2 在TQuery部件中編寫簡單的SQL查詢命令

　　在這一節(jié)里我們將學(xué)習(xí)如何使用TQuery部件編寫簡單的SQL查詢命令，并在Delphi 應(yīng)用程序中實現(xiàn)SQL查詢。

　　例如，如果我們想查詢出表Customer.DB中客戶的編號和公司名稱，我們按下列步驟來實現(xiàn)：

　　①在應(yīng)用窗體中放置一個TQuery部件、一個TDataSource部件一個TDataGrid部件，并將它們連接起來

　�、谠O(shè)置窗體TQuery 部件Query1的DatabaseName屬性值為DBDEMOS

　�、垭p擊Object Inspector窗口中Query1的SQL 屬性， Delphi 將顯示 String List Editor窗口。

　�、茉趫D17.3中的窗口中輸入SQL語句：

　　Select CustNo,Company From Custormer;

　�、輪螕鬙K按鈕，關(guān)閉String List Editor窗口。

　　⑥設(shè)置Query的Open屬性為True。

　　17.3 SQL語言編程概述

　　在Delphi應(yīng)用程序中的SQL命令語句是包含在TQuery部件的SQL屬性中，TQuery部件的SQL屬性是TString類型的，也就是說SQL屬性值是一個字符串列表，這個字符串列表非常類似于一個字符串類型的數(shù)組，有關(guān)TString類型的信息請參看聯(lián)機(jī)幫助。在前一節(jié)里我們介紹了TQuery部件可以執(zhí)行兩種SQL語句：

　　● 靜態(tài)SQL語句

　　● 動態(tài)SQL語句

　　靜態(tài)SQL語句在程序設(shè)計時便已固定下來，它不包含任何參數(shù)和變量，例如下面的語句便是一條靜態(tài)SQL語句：

　　Select * From Cusromer Where CustNo = 1234;

　　而動態(tài)SQL語句，也被稱作參數(shù)化的語句，在其中間包含著表示字段名或表名的參數(shù)，例如下面的語句是一條動態(tài)SQL語句：

　　Select * From Customer Where CustNo =: Number;

　　其中的變量Number便是一個參數(shù)變量，它由一個冒號引導(dǎo)，在程序運行過程中，必須要為該參數(shù)賦值，該條SQL語句才能正確執(zhí)行，每次運行應(yīng)用程序時可以為該參數(shù)變量賦予不同的值。

　　17.3.1 SQL命令文本的編寫

　　1. 使用String List Editor編寫

　　我們要為TQuery部件的SQL屬性設(shè)置SQL命令文本時，可以在應(yīng)用窗體中選擇TQuery部件且雙擊Object Inspector窗口中的SQL屬性，這樣便打開了String List Editor 窗口，在該窗口中我們便可以編寫各種SQL命令，如圖17.3所示。

　　在編寫完適當(dāng)?shù)腟QL語句之后，選擇 OK 按鈕便可以將編輯器中的 SQL 命令文裝入到TQuery部件的SQL屬性中，選擇SAVE按鈕可以將編寫好的SQL命令保存到一個文件中供以后編程時使用。我們在編寫SQL命令文本時還可以選擇Load按鈕從一個 SQL 命令文件中調(diào)入SQL命令。在程序運行過程中，要想設(shè)置TQuery部件的SQL屬性，必須首先調(diào)用Close方法，關(guān)閉TQuery部件，然后再調(diào)用Clear方法清除SQL屬性中現(xiàn)存的SQL命令語句，最后再調(diào)用Add方法為SQL屬性設(shè)置新的SQL命令語句。例如：

　　Query1.Close {關(guān)閉Query1)

　　Query1.SQL.Clear {清除SQL屬性中的SQL命令語句}

　　Query1.SQL.Add('Select * From Country');

　　Query1.SQL.Add('Where Name ="ARGENTINA" ');

　　在為TQuery部件設(shè)置SQL屬性時調(diào)用Close方法總是很安全的，如果TQuery部件已經(jīng)被關(guān)閉了，調(diào)用Close方法時不會產(chǎn)生任何影響。在應(yīng)用程序中為SQL屬性設(shè)置新的SQL 命令語句時，必須要調(diào)用Clear方法以清除SQL屬性中現(xiàn)存的SQL命令語句，如果不調(diào)用Clear方法，便調(diào)用Add方法向SQL屬性中設(shè)置SQL命令語句，那么新設(shè)置的SQL命令語句會追加在現(xiàn)存SQL命令語句后面，在程序運行時常常會出現(xiàn)出乎意料的查詢結(jié)果甚至程序無法運行下去。

　　在這里要特別注意的，一般情況下TQuery部件的SQL屬性只能包含一條完整的SQL語句，它不允許被設(shè)置成多條SQL語句。當(dāng)然有些數(shù)據(jù)庫服務(wù)器也支持在TQuery部件的SQL屬性中設(shè)置多條SQL語句，只要數(shù)據(jù)庫服務(wù)器允許這樣，我們在編程時可以為 SQL 屬性設(shè)置多條SQL語句。

　　2. 使用Visual Query Builder編寫

　　客戶/服務(wù)器版本的Delphi還包含一個可視化的查詢構(gòu)造器Visual Query Builder ，用這個可視化的工具我們只能編寫Select語句。在應(yīng)用程序窗體中選擇TQuery部件后，單擊鼠標(biāo)右鍵，彈出一個彈出式菜單，從中選擇Run Visual Query Builder后便會彈出一對話框提示你選擇要訪問的數(shù)據(jù)庫，選擇想要訪問的數(shù)據(jù)庫之后選擇OK按鈕，緊接著會出現(xiàn)一個彈出式對話框提示你選擇要查詢的數(shù)據(jù)庫表，一次可以選擇多個數(shù)據(jù)庫表，若要選擇多個數(shù)據(jù)庫表，每選擇一個表之后單擊Add按鈕，接著選擇另一個表，選擇完要查詢的表之后單擊Close按鈕，這樣，可視化的查詢構(gòu)造器中將會顯示出用戶選擇的數(shù)據(jù)庫表。

　　有關(guān)如何使用可視化的查詢構(gòu)造器Visual Query Builder 請參看聯(lián)機(jī)幫助信息， 在Visual Query Builder中構(gòu)造完一個查詢并退出Visual Query Builder時，其中的SQL 命令語句會自動地寫入相應(yīng)的TQuery部件的SQL屬性。