📄 042.htm
字号:
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI基础教程-->第十七章 SQL编程（二）</TITLE>
<META NAME="keywords" CONTENT=" DELPHI基础教程 第十七章 SQL编程（二）">
<META NAME="description" CONTENT=" - DELPHI基础教程 - 第十七章 SQL编程（二）">
<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 background="bg.gif" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TR>
<TD CLASS="tt3" VALIGN="top" width="8%" background="bg.gif"><strong><A HREF="043.htm" ><FONT style="FONT-SIZE: 9pt">后一页</font></A><BR>
<A HREF="041.htm" ><FONT style="FONT-SIZE: 9pt">前一页</font></A><BR>
<A HREF="index.html" ><FONT style="FONT-SIZE: 9pt">回目录</font></A><BR>
<A HREF="../../../../../index.htm"><FONT style="FONT-SIZE: 9pt">回首页</font></A><BR>
</strong>
</TD>
<TD class="tt2" background="bg.gif" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">第十七章 SQL编程（二）</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p>17.5 SQL编程实例 </p>
<p>我们在学习了SQL程序的编写方法之后，我们便可以着手创建自己的应用程序了，
通过创建应用程序我们对Delphi的强大功能就会有更深刻的印象，同时会进一步全面掌握有关SQL编程的知识，在本节中我们主要介绍两个例子，前一个例子主要是用静态的SQL语句编程，后一个例子是用动态SQL语句编程。 </p>
<p>17.5.1 设计简单的SQL程序编辑器 </p>
<p>例17.1：在这个例子中，我们设计一个交互式的SQL程序编辑器，
在这个编辑器中，我们可以根据SQL语言的语法规则，编写常用的SQL命令，并通过单击编辑器中的有关的按钮，直接执行编写好的SQL命令，SQL命令的执行结果也会及时地通过一个TDBGrid
部件显示出来。 </p>
<p>表17.3 SQL编辑器中个主要部件的属性</p>
<p>━━━━━━━━━━━━━━━━━━━━</p>
<p>部 件 属 性 值</p>
<p>────────────────────</p>
<p>Form1 Caption=SQL程序编辑器</p>
<p>DBGrid1 DataSource=DataSource1</p>
<p>Button1 Caption=执行(&E)</p>
<p>Button2 Caption=清除(&C)</p>
<p>Button3 Caption=退出(&X)</p>
<p>Button3 kind=bkClose</p>
<p>Memo1 </p>
<p>DataSource1 DataSet=Query1</p>
<p>Query1 DatabaseName=DEMOS</p>
<p>━━━━━━━━━━━━━━━━━━━━</p>
<p> </p>
<p>因为我们在设置Query1的DatabaseName属性时将其设置为DEMOS，
所以我们设计的这个SQL程序编辑器只能对DEOMS中的数据库表进行操作。</p>
<p>单击按钮Button1的事件处理过程代码为：</p>
<p> </p>
<p>程序清单17.1</p>
<p> </p>
<p>procedure TForm1.Button1Click(Sender:TObject);</p>
<p>begin</p>
<p>Query1.close;</p>
<p>Query1.SQL.clear;</p>
<p>Query1.SQL.Add(Memo1.text);</p>
<p>Query1.Open;</p>
<p>end;</p>
<p> </p>
<p>单击按钮Button2的事件处理过程为：</p>
<p> </p>
<p>程序清单17.2</p>
<p> </p>
<p>procedure TForm1.Button2Click(Sender:TObject);</p>
<p>begin</p>
<p>Query1.close;</p>
<p>Query1.SQL.clear;</p>
<p>Query1.ExceSQL;</p>
<p>end;</p>
<p> </p>
<p>下面我们对程序清单17.1和程序清单17.2中的程序代码进行简要的分析：</p>
<p>程序清单17.1中的程序代码是用来执行查询的。</p>
<p> </p>
<p>Query1.close;</p>
<p> </p>
<p>这一行程序是用来关闭Query1的，我们在前面的章节中介绍过，只有在调用close
方法将TQuery部件关闭之后，才能修改其SQL属性值，执行close命令关闭查询是很安全的，如果查询已经被关闭了，调用该方法不会产生任何影响。</p>
<p> </p>
<p>Query1.SQL.clear;</p>
<p> </p>
<p>因为TQuery部件的SQL属性只能包含一条SQL语句，调用Clear
方法的目的是为了清除SQL属性原来的属性值即原来的SQL命令语句，如果不调用clear方法清除原来的SQL命令语句，当在后面的程序中调用Add方法为SQL属性设置新的SQL命令语句时，Delphi
会将新的SQL命令语句加在原来的SQL命令语句，这样使得SQL属性中包含两条独立的SQL语句，这是不允许的。</p>
<p> </p>
<p>Query1.SQL.Add(Memo.text);</p>
<p> </p>
<p>该条命令是将SQL编辑器的编辑区内的内容(TMemo部件Memo1)设置成Query1的SQL属性值。</p>
<p> </p>
<p>Query1.open;</p>
<p> </p>
<p>该语句用来执行Query1中的SQL命令语句，
如果执行查询从数据库中获得查询结果，查询结果会在数据网格DBGrid1中显示出来。</p>
<p>程序清单２是用来清除查询的，
其前两行语句跟程序清单１中的代码是一样的。Query1.ExecSQL有一些特别，调用ExecSQL方法也是打开Query1，ExecSQL方法与open方法不一样的，请参看前面的章节，当Query1中SQL属性值为空时，即没有SQL语句时，只能调用ExecSQL方法来打开Query1，如果调用
open 方法会返回一个错误。 在执行完 Query1.ExecSQL语句之后，应用程序将会清除数据网格DBGrid1中的所有内容。 </p>
<p>17.5.2 设计一个数据库查询器 </p>
<p>例17.2：在数据库查询器中，用户可以选择要查询的数据库，查询数据库中的那一个表、根据数据库表中那一个字段进行查询，并且可以方便地指定查询条件，指定查询条件主要包括指定逻辑运算符(=、>、<、<=、>=、like、in、NOT
like、NOT in)和字段值。</p>
<p>例子全部的程序清单如下：</p>
<p>unit main;</p>
<p> </p>
<p>interface</p>
<p> </p>
<p>uses</p>
<p>SysUtils, Windows, Messages, Classes, Graphics, Controls,</p>
<p>Forms, Dialogs, StdCtrls, DB, DBTables, Buttons, ComCtrls, Tabnotbk;</p>
<p> </p>
<p>type</p>
<p>TQueryForm = class(TForm)</p>
<p>BitBtn1: TBitBtn;</p>
<p>DataSource1: TDataSource;</p>
<p>Table1: TTable;</p>
<p>GroupBox1: TGroupBox;</p>
<p>CheckBox1: TCheckBox;</p>
<p>CheckBox2: TCheckBox;</p>
<p>PageControl1: TPageControl;</p>
<p>TabSheet1: TTabSheet;</p>
<p>Label5: TLabel;</p>
<p>Label1: TLabel;</p>
<p>Label2: TLabel;</p>
<p>Label3: TLabel;</p>
<p>Label4: TLabel;</p>
<p>ListBox1: TListBox;</p>
<p>ListBox2: TListBox;</p>
<p>ListBox3: TListBox;</p>
<p>Edit1: TEdit;</p>
<p>ComboBox1: TComboBox;</p>
<p>BitBtn2: TBitBtn;</p>
<p>TabSheet2: TTabSheet;</p>
<p>Memo1: TMemo;</p>
<p>procedure FormCreate(Sender: TObject);</p>
<p>procedure ListBox1Click(Sender: TObject);</p>
<p>procedure ListBox2Click(Sender: TObject);</p>
<p>procedure BitBtn2Click(Sender: TObject);</p>
<p>end;</p>
<p> </p>
<p>var</p>
<p>QueryForm: TQueryForm;</p>
<p> </p>
<p>implementation</p>
<p> </p>
<p>{$R *.DFM}</p>
<p> </p>
<p>uses RSLTFORM;</p>
<p> </p>
<p>procedure TQueryForm.FormCreate(Sender: TObject);</p>
<p>begin</p>
<p>Screen.Cursor := crHourglass;</p>
<p> </p>
<p>{ Populate the alias list }</p>
<p> </p>
<p>with ListBox1 do</p>
<p>begin</p>
<p>Items.Clear;</p>
<p>Session.GetAliasNames(Items);</p>
<p>end;</p>
<p> </p>
<p>{ Make sure there are aliases defined }</p>
<p> </p>
<p>Screen.Cursor := crDefault;</p>
<p>if ListBox1.Items.Count < 1 then</p>
<p>MessageDlg( 'There are no database aliases currently defined. You</p>
<p>need at least one alias to use this demonstration.',</p>
<p>mtError, [mbOK], 0 );</p>
<p> </p>
<p>{ Default the drop-down list to the first value in the list }</p>
<p>ComboBox1.ItemIndex := 0;</p>
<p>end;</p>
<p> </p>
<p>procedure TQueryForm.ListBox1Click(Sender: TObject);</p>
<p>var</p>
<p>strValue: string; { Holds the alias selected by the user }</p>
<p>bIsLocal: Boolean; { Indicates whether or not an alias is local }</p>
<p>slParams: TStringList; { Holds the parameters of the selected alias }</p>
<p>iCounter: Integer; { An integer counter variable for loops}</p>
<p>begin</p>
<p> </p>
<p>{ Determine the alias name selected by the user }</p>
<p> </p>
<p>with ListBox1 do</p>
<p>strValue := Items.Strings[ItemIndex];</p>
<p> </p>
<p>{ Get the names of the tables in the alias and put them in the</p>
<p>appropriate list box, making sure the user's choices are reflected</p>
<p>in the list. }</p>
<p> </p>
<p>ListBox2.Items.Clear;</p>
<p>Session.GetTableNames(strValue, { alias to enumerate }</p>
<p>'', { pattern to match }</p>
<p>CheckBox1.Checked, { show extensions flag }</p>
<p>CheckBox2.Checked, { show system tables flag }</p>
<p>ListBox2.Items); { target for table list }</p>
<p> </p>
<p>{ Make sure there are tables defined in the alias. If not, show an</p>
<p>error; otherwise, clear the list box. }</p>
<p> </p>
<p>Screen.Cursor := crDefault;</p>
<p>if ListBox2.Items.Count < 1 then</p>
<p>MessageDlg('There are no tables in the alias you selected. Please</p>
<p>choose another', mtError, [mbOK], 0 );</p>
<p> </p>
<p>ListBox3.Items.Clear;</p>
<p>end;</p>
<p> </p>
<p>procedure TQueryForm.ListBox2Click(Sender: TObject);</p>
<p>begin</p>
<p>Screen.Cursor := crHourglass;</p>
<p>try</p>
<p>{ First, disable the TTable object. }</p>
<p>if Table1.Active then</p>
<p>Table1.Close;</p>
<p> </p>
<p>{ Open the selected table }</p>
<p> </p>
<p>with ListBox1 do</p>
<p>Table1.DatabaseName := Items.Strings[ItemIndex];</p>
<p> </p>
<p>with ListBox2 do</p>
<p>Table1.TableName := Items.Strings[ItemIndex];</p>
<p> </p>
<p>{ Open the table and put a list of the field names in the Fields</p>
<p>list box. }</p>
<p> </p>
<p>Table1.Open;</p>
<p>if Table1.Active then</p>
<p>Table1.GetFieldNames(ListBox3.Items);</p>
<p>finally</p>
<p>Screen.Cursor := crDefault;</p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -