<b>第十七章　SQL编程（二）</b>[Delphi编程]

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中的全部内容.