Delphi中实现多线程同步查询

• 
  　　优秀的数据库应用应当充分考虑数据库访问的速度问题。通常可以通过优化数据库、优化 查询语句、分页查询等途径收到明显的效果。即使是这样，也不可避免地会在查询时闪现一个带有 SQL符号的沙漏，即鼠标变成了查询等待。最可怜的是用户，他（她）在此时只能无奈地等待。遇到急性子的，干脆在此时尝试 Windows中的其它应用程序，结果致使你的数据库应用显示一大片白色的窗口。真是无奈！
  
  本文将以简单的例子告诉你如何实现线程查询。还等什么，赶快打开Delphi对照着下面的完整源代码试试吧。
  
  在查询时能够做别的事情或者取消查询，这只是基本的线程查询，在你阅读了Delphi有关线程帮助之后能立刻实现。这里介绍的是多个线程查询的同步进行。
  
  在Delphi数据库应用中，都有一个缺省的数据库会话 Session。通常情况下，每个数据库应用中只有这一个会话。无论是查询函数修改数据，在同一时间内只能进行其中的一件事情， 而且进行这一件事情的时候应用程序不能响应键盘、鼠标以及其它的 Windows消息。这就是在 窗口区域会显示一片空白的原因所在。当然，只要将查询或数据操纵构造成线程对象，情况会好一些，至少可以接受窗口消息，也可以随时终止查询或数据操纵，而不会在屏幕上显示出太难看的白色。不过，这只是解决了问题的一部分。假如在进行一个线程查询的时候，用户通过 按钮或菜单又发出了另一个查询的命令，这可如何是好，难道终止正在执行的数据库访问吗？ 解决之道就是：多线程同步查询。
  
  实现多线程同步查询的基本思想是，为每一个查询组件（如TQuery组件）创建一个独占的 数据库会话，然后各自进行数据库访问。需要特别注意的是，因为Delphi中的 VCL组件大多都 不是线程安全的，所以应当在线程查询结束后再将DataSource组件与查询组件关联，从而显示 在DBGrid组件中。
  
  下面的例子只实现了静态的线程同步查询，即线程对象是固定的，并随窗体的创建和销毁 而创建和销毁。你可以就此进行改进，为每一个数据查询或数据操纵命令创建一个单独的线程对象，从而达到多线程同步查询的目的。
  
  注意：应用程序中的线程不是越多越好，因为线程将严重吞噬CPU资源，尽管看上去并不明显。谨慎创建和销毁线程将避免你的应用程序导致系统资源崩溃。
  
  下面的例子给出了同时进行的两个线程查询。第一次按下按钮时，线程开始执行；以后每次按下按钮时，如果线程处于挂起状态则继续执行，否则挂起线程；线程执行完毕之后将连接 DataSource，查询结果将显示在相应的DBGrid中。
  
  { 这里的多线程同步查询演示程序仅包括一个工程文件和一个单元文件 }
  { 窗体中放置的组件有： }
  { 两个Session组件 }
  { 两个Database组件 }
  { 两个Query组件 }
  { 两个DataSource组件 }
  { 两个DBGrid组件 }
  { 一个Button组件 }
  { 除非特别说明，否则上述各组件的属性都取默认值（见各组件注释） }
  { 对于Database组件，就和一般设置一样，有一个正确的连接即可 }
  { 对于Query 组件，需要在各自的属性 SQL中添加一些查询语句，为了 }
  { 看得更清除，建议不要在两个Query 组件中填写相同的查询语句。 }
  
  unit Unit1;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, StdCtrls;
  
  type
  TForm1 = class(TForm)
  Session1: TSession; { 属性SessionName填写为S1 }
  Database1: TDatabase; { 属性SessionName选择为S1 }
  Query1: TQuery;{ 属性Database选择为Database1；属性SessionName选择为S1 }
  
• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi中实现多线程同步查询 相关文章：
• ·Flash制作交互动画教程 星座查询器
• ·经典：交换机故障检测检查表
• ·制作有趣的星座查询器Flash教程
• ·还原Vista隐藏更新严查详情
• ·SQL Server用索引视图查看性能状况
• ·DB中查询Table占用空间的大小
• ·液晶显示器简易故障自己查询
• ·排查无线局域网络故障技巧和方法
• ·QQ缘伪装任务管理器进程的查杀
• ·STK——乖巧易用的股价查询小软件
• Delphi中实现多线程同步查询 相关软件
• ·〈理查德·伯恩斯拉力赛〉预告片欣赏
• ·Wii存档路径查看器 0.1Beta
• ·《陈查理探案集》
• ·查尔斯·狄更斯作品集
• ·全球IP地址查询（天意版）
• ·MSN聊天记录查看器V3.1
• ·看便便，检查你的健康
• ·中国UFO悬案调查--CCTV10
• ·H3C产品速查(800)v2.1
• ·HP网络产品速查手册

上一篇:对“网页内容查询控制”主题所得（下载）：

下一篇:多线程技术在Delphi数据库编程中的应用

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

精品推荐

热点TOP10

特别推荐