Delphi 与SQL编程(二)(1)

• 5 SQL编程实例　

  我们在学习了SQL程序的编写方法之后，我们便可以着手创建自己的应用程序了，通过创建应用程序我们对Delphi的强大功能就会有更深刻的印象，同时会进一步全面掌握有关SQL编程的知识，在本节中我们主要介绍两个例子，前一个例子主要是用静态的SQL语句编程，后一个例子是用动态SQL语句编程。　

  5.1 设计简单的SQL程序编辑器　

  例1：在这个例子中，我们设计一个交互式的SQL程序编辑器，在这个编辑器中，我们可以根据SQL语言的语法规则，编写常用的SQL命令，并通过单击编辑器中的有关的按钮，直接执行编写好的SQL命令，SQL命令的执行结果也会及时地通过一个TDBGrid 部件显示出来。　

  表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属性值。

• [1] [2] [3] [4] [5] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi 与SQL编程(二)(1) 相关文章：
• ·Delphi 与SQL编程(二)(1)
• Delphi 与SQL编程(二)(1) 相关软件

上一篇:DELPHI多层分布式开发(2)

下一篇:Dephi 消息处理机制(1)

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐