sql編程實例-全文預(yù)覽
【正文】 then raise (39。t start with: NOT LIKE xx% } soEndsWith, { ends with: LIKE %xx } soNoEndsWith, { doesn39。 var strAlias, { Alias name selected by the user } strTable, { Table name selected by the user } strField, { Field name selected by the user } strValue, { Field Value entered by the user } strWhere, { WHERE clause for the user39。 finally := crDefault。 { Open the selected table } with ListBox1 do := [ItemIndex]。 end。 if 1 then MessageDlg(39。39。 { An integer counter variable for loops} begin { Determine the alias name selected by the user } with ListBox1 do strValue := [ItemIndex]。 var strValue: string。, mtError, [mbOK], 0 )。 end。 procedure (Sender: TObject)。 procedure BitBtn2Click(Sender: TObject)。 Memo1: TMemo。 Edit1: TEdit。 Label4: TLabel。 Label5: TLabel。 CheckBox1: TCheckBox。 type TQueryForm = class(TForm) BitBtn1: TBitBtn。 在執(zhí)行完 語句之后，應(yīng)用程序?qū)宄龜?shù)據(jù)網(wǎng)格 DBGrid1 中的所有內(nèi)容。 。 。 end。 單擊按鈕 Button2 的事件處理過程為： 程序清單 procedure (Sender:TObject)。 。C) Button3 Caption=退出 (amp。 SQL 編程實例 我們在學(xué)習(xí)了 SQL程序的編寫方法之后，我們便可以著手創(chuàng)建自己的應(yīng)用程序了，通過創(chuàng)建應(yīng)用程序我們對 Delphi 的強大功能就會有更深刻的印象，同時會進一步全面掌握有關(guān) SQL 編程的知識，在本節(jié)中我們主要介紹兩個例子，前一個例子主要是用靜態(tài)的 SQL 語句編程，后一個例子是用動態(tài) SQL語句編程。E) Button2 Caption=清除 (amp。 begin 。 end。 。 這一行程序是用來關(guān)閉 Query1 的，我們在前面的章節(jié)中介紹過，只有在調(diào)用close 方法將 TQuery 部件關(guān)閉之后，才能修改其 SQL 屬性值，執(zhí)行 close 命令關(guān)閉查詢是很安全的，如果查詢已經(jīng)被關(guān)閉了，調(diào)用該方法不會產(chǎn)生任何影響。 該條命令是將 SQL編輯器的編輯區(qū)內(nèi)的內(nèi)容 (TMemo 部件 Memo1)設(shè)置成 Query1的 SQL 屬性值。 有一些特別，調(diào)用 ExecSQL 方法也是打開 Query1， ExecSQL 方法與 open 方法不一樣的，請參看前面的章節(jié)，當(dāng) Query1 中 SQL 屬性值為空時，即沒有 SQL 語句時，只能調(diào)用 ExecSQL 方法來打開 Query1，如果調(diào)用 open 方法會返回一個錯誤。 interface uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, Buttons, ComCtrls, Tabnotbk。 GroupBox1: TGroupBox。 TabSheet1: TTabSheet。 Label3: TLabel。 ListBox3: TListBox。 TabSheet2: TTabSheet。 procedure ListBox2Click(Sender: TObject)。 implementation {$R *.DFM} uses RSLTFORM。 (Items)。There are no database aliases currently defined. You need at least one alias to use this demonstration.39。 procedure (Sender: TObject)。 { Holds
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1