|
17.5 SQL編程實(shí)例
我們在學(xué)習(xí)了SQL程序的編寫方法之后，我們便可以著手創(chuàng)建自己的應(yīng)用程序了，通過創(chuàng)建應(yīng)用程序我們對Delphi的強(qiáng)大功能就會(huì)有更深刻的印象，同時(shí)會(huì)進(jìn)一步全面掌握有關(guān)SQL編程的知識，在本節(jié)中我們主要介紹兩個(gè)例子，前一個(gè)例子主要是用靜態(tài)的SQL語句編程，后一個(gè)例子是用動(dòng)態(tài)SQL語句編程。
17.5.1 設(shè)計(jì)簡單的SQL程序編輯器
例17.1：在這個(gè)例子中，我們設(shè)計(jì)一個(gè)交互式的SQL程序編輯器，在這個(gè)編輯器中，我們可以根據(jù)SQL語言的語法規(guī)則，編寫常用的SQL命令，并通過單擊編輯器中的有關(guān)的按鈕，直接執(zhí)行編寫好的SQL命令，SQL命令的執(zhí)行結(jié)果也會(huì)及時(shí)地通過一個(gè)TDBGrid 部件顯示出來。
表17.3 SQL編輯器中個(gè)主要部件的屬性
━━━━━━━━━━━━━━━━━━━━
部 件 屬 性 值
────────────────────
Form1 Caption=SQL程序編輯器
DBGrid1 DataSource=DataSource1
Button1 Caption=執(zhí)行(&E)
Button2 Caption=清除(&C)
Button3 Caption=退出(&X)
Button3 kind=bkClose
Memo1
DataSource1 DataSet=Query1
Query1 DatabaseName=DEMOS
━━━━━━━━━━━━━━━━━━━━
因?yàn)槲覀冊谠O(shè)置Query1的DatabaseName屬性時(shí)將其設(shè)置為DEMOS，所以我們設(shè)計(jì)的這個(gè)SQL程序編輯器只能對DEOMS中的數(shù)據(jù)庫表進(jìn)行操作。
單擊按鈕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中的程序代碼進(jìn)行簡要的分析：
程序清單17.1中的程序代碼是用來執(zhí)行查詢的。
Query1.close;
這一行程序是用來關(guān)閉Query1的，我們在前面的章節(jié)中介紹過，只有在調(diào)用close 方法將TQuery部件關(guān)閉之后，才能修改其SQL屬性值，執(zhí)行close命令關(guān)閉查詢是很安全的，如果查詢已經(jīng)被關(guān)閉了，調(diào)用該方法不會(huì)產(chǎn)生任何影響。
Query1.SQL.clear;
因?yàn)門Query部件的SQL屬性只能包含一條SQL語句，調(diào)用Clear 方法的目的是為了清除SQL屬性原來的屬性值即原來的SQL命令語句，如果不調(diào)用clear方法清除原來的SQL命令語句，當(dāng)在后面的程序中調(diào)用Add方法為SQL屬性設(shè)置新的SQL命令語句時(shí)，Delphi 會(huì)將新的SQL命令語句加在原來的SQL命令語句，這樣使得SQL屬性中包含兩條獨(dú)立的SQL語句，這是不允許的。
Query1.SQL.Add(Memo.text);
該條命令是將SQL編輯器的編輯區(qū)內(nèi)的內(nèi)容(TMemo部件Memo1)設(shè)置成Query1的SQL屬性值。
Query1.open;
該語句用來執(zhí)行Query1中的SQL命令語句，如果執(zhí)行查詢從數(shù)據(jù)庫中獲得查詢結(jié)果，查詢結(jié)果會(huì)在數(shù)據(jù)網(wǎng)格DBGrid1中顯示出來。
程序清單２是用來清除查詢的，其前兩行語句跟程序清單１中的代碼是一樣的。Query1.ExecSQL有一些特別，調(diào)用ExecSQL方法也是打開Query1，ExecSQL方法與open方法不一樣的，請參看前面的章節(jié)，當(dāng)Query1中SQL屬性值為空時(shí)，即沒有SQL語句時(shí)，只能調(diào)用ExecSQL方法來打開Query1，如果調(diào)用 open 方法會(huì)返回一個(gè)錯(cuò)誤。 在執(zhí)行完 Query1.ExecSQL語句之后，應(yīng)用程序?qū)?huì)清除數(shù)據(jù)網(wǎng)格DBGrid1中的所有內(nèi)容。
[1] [2] [3] [4] 下一頁
| 
