sql編程實例-免費閱讀
【正文】 { Display the query text } MessageDlg(39。 begin Close。 SpeedButton2: TSpeedButton。 interface uses SysUtils, Windows, Messages, Classes, Graphics, Controls, StdCtrls, DB, Forms, DBCtrls, DBGrids, DBTables, Buttons, Grids, ExtCtrls, Dialogs。...39。...39。No records matched your criteria. Please try again.39。 := strAlias。 + strWhere else strQuery := 39。 if = Ord(soNoCondition) then strQuery := 39。 + strValue + 39。%39。 soNoEndsWith: strWhere := strField + 39。 + strQuote + strValue + 39。 + strQuote + strValue + strQuote。 soLessEqual: strWhere := strField + 39。 = 39。 then with (strField) do if (DataType = ftString) or (DataType = ftMemo) then strQuote := 39。) and ( Ord(soNoCondition)) and ( Ord(soBlank)) then raise (39。Can39。t Run Query: No Alias Selected39。 { The Results form } type { The following type is used with the Type dropdown list. The text values corresponding with each item is described in ments, along with the relevant SQL operators. } etSQLOps = (soNoCondition, { not field conditions: no WHERE clause } soEqual, { equals: = } soNotEqual, { is not equal to: } soLessThan, { is less than: } soLessEqual, { is less than or equal to: = } soMoreThan, { is greater than: } soMoreEqual, { is greater than or equal to: = } soStartsWith, { starts with: LIKE xx% } soNoStartsWith, { doesn39。 if then ()。 。 (strValue, { alias to enumerate } 39。 procedure (Sender: TObject)。 (Items)。 procedure ListBox2Click(Sender: TObject)。 ListBox3: TListBox。 TabSheet1: TTabSheet。 interface uses SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, Buttons, ComCtrls, Tabnotbk。 該條命令是將 SQL編輯器的編輯區(qū)內(nèi)的內(nèi)容 (TMemo 部件 Memo1)設(shè)置成 Query1的 SQL 屬性值。 。 begin 。 SQL 編程實例 我們在學(xué)習(xí)了 SQL程序的編寫方法之后，我們便可以著手創(chuàng)建自己的應(yīng)用程序了，通過創(chuàng)建應(yīng)用程序我們對 Delphi 的強大功能就會有更深刻的印象，同時會進一步全面掌握有關(guān) SQL 編程的知識，在本節(jié)中我們主要介紹兩個例子，前一個例子主要是用靜態(tài)的 SQL 語句編程，后一個例子是用動態(tài) SQL語句編程。 。 end。 。 type TQueryForm = class(TForm) BitBtn1: TBitBtn。 Label5: TLabel。 Edit1: TEdit。 procedure BitBtn2Click(Sender: TObject)。 end。 var strValue: string。39。 en
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1