Delphi数据库编程一日通(2)_Deiphi数据库编程_Deiphi_编程开发

Delphi数据库编程一日通(2)

日期：2008-10-20 22:12:16　　　　来源：

　·用DELPHI通过写注册表来实现建立IIS的虚拟目录！　·Delphi数据库编程一日通(3)

Delphi数据库编程一日通。y组件）创建一个独占的数据库会话，然后各自进行数据库访问。需要特别注意的是，因为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 }
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); { 执行线程和挂起线程 }
private
public
end;

TThreadQuery = class(TThread) { 声明线程类 }
private
FQuery: TQuery; { 线程中的查询组件 }
FDataSource: TDataSource; { 与查询组件相关的数据感知组件 }
procedure ConnectDataSource;{ 连接数据查询组件和数据感知组件的方法 }
protected
procedure Execute; override;{ 执行线程的方法 }
public
constructor Create(Query: TQuery;
DataSource: TDataSource); virtual; { 线程构造器 }
end;

var
Form1: TForm1;
Q1, { 线程查询对象1 }
Q2: TThreadQuery; { 线程查询对象2 }

implementation

{$R *.DFM}

{ TThreadQuery类的实现 }

{ 连接数据查询组件和数据感知组件}
procedure TThreadQuery.ConnectDataSource;
begin
FDataSource.DataSet := FQuery;{ 该方法在查询结束后才调用 }
end;

procedure TThreadQuery.Execute;{ 执行线程的方法 }
begin
try
FQuery.Open; { 打开查询 }
Synchronize(ConnectDataSource);{ 线程同步 }
except
ShowMessage('Query Error'); { 线程异常 }
end;
end;

{ 线程查询类的构造器 }
constructor TThreadQuery.Create(Query: TQuery; DataSource: TDataSource);
begin
FQuery := Query;
FDataSource := DataSource;
inherited Create(True);
FreeOnTerminate := False;
end;

{ 创建窗体时创建线程查询对象 }
procedure TForm1.FormCreate(Sender: TObject);
begin
Q1 := TThreadQuery.Create(Query1, DataSource1);
Q2 := TThreadQuery.Create(Query2, DataSource2);
end;

{ 销毁窗体时销毁线程查询对象 }
　[1]

Delphi中动画设计(2)

VB数据库编程经验两则

--->ShellBrowser For C++ & Delphi V5.02
--->Delphi学习宝典 V2.0
--->Delphi小助手 V1.04
--->GB/BIG5简繁转换器 V3.1.0 Delphi工程版
--->AutoUpgrader Pro for BCB and Delphi v4.6.4
Tags:　 Delphi 数据库编程 {$enumber$}

◎→	本类最新
asp + sqlserver 分页方法（不用在Delphi中用拼音首字符序列来实在Delphi中实现多重查询用DELPHI编程访问SQL SERVER数据加密ACCESS数据库增加安全性加密ACCESS数据库增加安全性文本数据导入数据库的方法

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
九赢广告联盟的优点和缺点通过IP反查域名用VB的Printer对象编写打印程序用DELPHI通过写注册表来实现建立网络积件再思考。（其实也只是胡 Delphi中动画设计(2) Delphi中动画设计