Delphi中实现多线程同步查询(1)Delphi教程 -免费技术教程下载中心

　　优秀的数据库应用应当充分考虑数据库访问的速度问题。通常可以通过优化数据库、优化查询语句、分页查询等途径收到明显的效果。即使是这样，也不可避免地会在查询时闪现一个带有 SQL符号的沙漏，即鼠标变成了查询等待。最可怜的是用户，他（她）在此时只能无奈地等待。遇到急性子的，干脆在此时尝试 Windows中的其它应用程序，结果致使你的数据库应用显示一大片白色的窗口。真是无奈！

　　本文将以简单的例子告诉你如何实现线程查询。还等什么，赶快打开Delphi对照着下面的完整源代码试试吧。

　　在查询时能够做别的事情或者取消查询，这只是基本的线程查询，在你阅读了Delphi有关线程帮助之后能立刻实现。这里介绍的是多个线程查询的同步进行。

　　在Delphi数据库应用中，都有一个缺省的数据库会话 Session。通常情况下，每个数据库应用中只有这一个会话。无论是查询函数修改数据，在同一时间内只能进行其中的一件事情，而且进行这一件事情的时候应用程序不能响应键盘、鼠标以及其它的 Windows消息。这就是在窗口区域会显示一片空白的原因所在。当然，只要将查询或数据操纵构造成线程对象，情况会好一些，至少可以接受窗口消息，也可以随时终止查询或数据操纵，而不会在屏幕上显示出太难看的白色。不过，这只是解决了问题的一部分。假如在进行一个线程查询的时候，用户通过按钮或菜单又发出了另一个查询的命令，这可如何是好，难道终止正在执行的数据库访问吗？解决之道就是：多线程同步查询。

　　实现多线程同步查询的基本思想是，为每一个查询组件（如TQuery组件）创建一个独占的数据库会话，然后各自进行数据库访问。需要特别注意的是，因为Delphi中的 VCL组件大多都不是线程安全的，所以应当在线程查询结束后再将DataSource组件与查询组件关联，从而显示在DBGrid组件中。

　　下面的例子只实现了静态的线程同步查询，即线程对象是固定的，并随窗体的创建和销毁而创建和销毁。你可以就此进行改进，为每一个数据查询或数据操纵命令创建一个单独的线程对象，从而达到多线程同步查询的目的。

　　注意：应用程序中的线程不是越多越好，因为线程将严重吞噬CPU资源，尽管看上去并不明显。谨慎创建和销毁线程将避免你的应用程序导致系统资源崩溃。

　　下面的例子给出了同时进行的两个线程查询。第一次按下按钮时，线程开始执行；以后每次按下按钮时，如果线程处于挂起状态则继续执行，否则挂起线程；线程执行完毕之后将连接 DataSource，查询结果将显示在相应的DBGrid中。