17.4.4 Prepare方法的使用
在使用動態SQL語句編程時，常常用到一個很重要的方法prepare，調用prepare 方法之後，Delphi會將帶參數的SQL語句傳送給與其對應的數據庫引擎，對動態SQL語句進行語法分析和優化。雖然在用動態SQL語句編程時，調用prepare方法並不是必須的，但是這裡我們要極力推薦調用prepare方法，因為調用prepare方法後，會大大提高動態SQL 語句的執行性能，特別是當要反復多次執行同一條動態SQL語句時，其優越性會更加明顯。如果在應用程序中執行一條SQL語句之前並沒有顯式地調用prepare方法，每次在執行SQL 語句時，Delphi會隱含地調用propare方法以准備這個查詢。
TQuery部件還有一個prepare屬性，這是一個布爾型屬性，當其屬性值為True時，表明該查詢已被准備好了( SQL 語句已被傳送到數據庫引擎中 ) ，當我們使用參數編輯器Parameters Editor來為動態SQL語句中的參數賦值時，當設置完相應的參數值並退出參數編輯器時，Delphi會隱含地調用prepare方法以准備好查詢。
當SQL語句執行完之後，要想准備下一個查詢，首先必須調用close方法，然後才能調用prepare方法准備下一個查詢。一般來說，在一個應用程序中應該調用一次prepare方法，常常在窗體的OnCreate事件處理過程中調用prepare方法，然後用上述介紹的方法為參數賦值，最後調用Open方法或ExecSQL方法執行SQL語句，以完成查詢。
當然在調用prepare方法准備好一個查詢時，會消耗一些數據庫資源，因而每當一個查詢執行完畢之後，要養成調用Unprepare方法以撤消查詢的好習慣。在運行程序過程中，通過程序改變TQuery部件的SQL屬性值時，Delphi會自動地調用Close方法和Unprepare 方法，以撤消查詢。
17.5 SQL編程實例
我們在學習了SQL程序的編寫方法之後，我們便可以著手創建自己的應用程序了，通過創建應用程序我們對Delphi的強大功能就會有更深刻的印象，同時會進一步全面掌握有關SQL編程的知識，在本節中我們主要介紹兩個例子，前一個例子主要是用靜態的SQL語句編程，後一個例子是用動態SQL語句編程。
17.5.1 設計簡單的SQL程序編輯器
例17.1：在這個例子中，我們設計一個交互式的SQL程序編輯器，在這個編輯器中，我們可以根據SQL語言的語法規則，編寫常用的SQL命令，並通過單擊編輯器中的有關的按鈕，直接執行編寫好的SQL命令，SQL命令的執行結果也會及時地通過一個TDBGrid 部件顯示出來。
表17.3 SQL編輯器中個主要部件的屬性
━━━━━━━━━━━━━━━━━━━━
部 件 屬 性 值
────────────────────
Form1 Caption=SQL程序編輯器
DBGrid1 DataSource=DataSource1
Button1 Caption=執行(&E)
Button2 Caption=清除(&C)
Button3 Caption=退出(&X)
Button3 kind=bkClose
Memo1
DataSource1 DataSet=Query1
Query1 DatabaseName=DEMOS
━━━━━━━━━━━━━━━━━━━━
因為我們在設置Query1的DatabaseName屬性時將其設置為DEMOS，所以我們設計的這個SQL程序編輯器只能對DEOMS中的數據庫表進行操作。
單擊按鈕Button1的事件處理過程代碼為：
程序清單17.1
procedure TForm1.Button1Click(Sender:TObject);
begin
Query1.close;
Query1.SQL.clear;
Query1.SQL.Add(Memo1.text);
Query1.Open;
end;
單擊按鈕Button2的事件處理過程為：
程序清單17.2
procedure TForm1.Button2Click(Sender:TObject);
begin
Query1.close;
Query1.SQL.clear;
Query1.ExceSQL;
end;
下面我們對程序清單17.1和程序清單17.2中的程序代碼進行簡要的分析：
程序清單17.1中的程序代碼是用來執行查詢的。
Query1.close;
這一行程序是用來關閉Query1的，我們在前面的章節中介紹過，只有在調用close 方法將TQuery部件關閉之後，才能修改其SQL屬性值，執行close命令關閉查詢是很安全的，如果查詢已經被關閉了，調用該方法不會產生任何影響。
Query1.SQL.clear;
因為TQuery部件的SQL屬性只能包含一條SQL語句，調用Clear 方法的目的是為了清除SQL屬性原來的屬性值即原來的SQL命令語句，如果不調用clear方法清除原來的SQL命令語句，當在後面的程序中調用Add方法為SQL屬性設置新的SQL命令語句時，Delphi 會將新的SQL命令語句加在原來的SQL命令語句，這樣使得SQL屬性中包含兩條獨立的SQL語句，這是不允許的。
Query1.SQL.Add(Memo.text);
該條命令是將SQL編輯器的編輯區內的內容(TMemo部件Memo1)設置成Query1的SQL屬性值。
Query1.open;
該語句用來執行Query1中的SQL命令語句，如果執行查詢從數據庫中獲得查詢結果，查詢結果會在數據網格DBGrid1中顯示出來。
程序清單２是用來清除查詢的，其前兩行語句跟程序清單１中的代碼是一樣的。Query1.ExecSQL有一些特別，調用ExecSQL方法也是打開Query1，ExecSQL方法與open方法不一樣的，請參看前面的章節，當Query1中SQL屬性值為空時，即沒有SQL語句時，只能調用ExecSQL方法來打開Query1，如果調用 open 方法會返回一個錯誤。 在執行完 Query1.ExecSQL語句之後，應用程序將會清除數據網格DBGrid1中的所有內容。
