繁體中文当前位置: 首页 > 图文教程 > 开发语言 > Delphi > Delphi中实现多线程同步查询(2)
- Delphi
- 在线播放器DIY
- 关于VisiBroker For Delphi的使用（3）
- 关于VisiBroker For Delphi的使用（2）
- 关于VisiBroker For Delphi的使用（1）
- Delphi的两个实用技巧(2)巧用Windows的API函数
- Delphi的两个实用技巧(1)播放Flash
- delphi学习:两种方法使用xml文档
- Delphi与Word之间的融合技术
- Delphi中动态链接库(DLL)的建立和使用
- Delphi基础:Window 消息大全使用详解下
- Delphi基础:Window 消息大全使用详解上
- 教你在DELPHI中如何调用系统对话框
- Delphi开发单机瘦小数据库程序要点
- 用Delphi + DirectX开发简单RPG游戏
- Delphi7从入门到精通之认识Delphi编辑器
- Delphi7从入门到精通之历数Delphi七个版本
- Delphi学习:图像放大漫游攻略
- 用编程来实现24小时制到12小时制的转换
- 一个实际的OLE服务器的开发
- Delphi一点通:如何将源代码学好
Delphi中实现多线程同步查询(2)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-10-30 浏览: 81 ::
收藏到网摘: n/a
{ 这里的多线程同步查询演示程序仅包括一个工程文件和一个单元文件 }
{ 窗体中放置的组件有： }
{ 两个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 }
DataSource1: TDataSource; { 属性DataSet设置为空 }
DBGrid1: TDBGrid; { 属性DataSource选择为DataSource1 }
Session2: TSession; { 属性SessionName填写为S2 }
Database2: TDatabase; { 属性SessionName选择为S2 }
Query2: TQuery;{ 属性Database选择为Database2；属性SessionName选择为S2 }
DataSource2: TDataSource; { 属性DataSet设置为空 }
DBGrid2: TDBGrid; { 属性DataSource选择为DataSource2 }
BtnGoPause: TButton; { 用于执行和挂起线程 }
procedure FormCreate(Sender: TObject); { 创建窗体时创建线程对象 }
procedure FormDestroy(Sender: TObject); { 销毁窗体时销毁线程对象 }
procedure BtnGoPauseClick(Sender: TObject); { 执行线程和挂起线程 }
评论 (0) All
