Delphi三层数据库开发应用

服务器端程序实际上是个COM 工程，它本身连接数据源，再通过接口与
客户端联系，这个COM 工程必须注册在服务器上。

首先建立一个空白的工程。
file -> New -> Other -> Multitier -> Remote Data Module(远程数据模块)
对话框：
Coclass Name : COM程序的名称，前台依据这个名字查找COM程序
（Project121）
Instancing :执行模式，大部分用Multiple Instance（多重实例）
Threading Model：线程模式，建议用Apartment（单元）

下面我们就会对这几个选择详加说明。

OK，产生一个窗口，在这个窗口里，可以放入数据控件。

在Viwe -> Type Libray 中，我们可以看到这个COM 的一些特性。我们
也可以记下系统提供的GUID，以备后来使用。
加入一个ADOTable，并设置其指向一个数据库。
再设置一个DataSetProvider指向ADOTable

这就完成了服务器端的程序设计。
保存，编译，注册。

这里需要做几个说明：
1） 在客户端，数据控件一般要和Datasource相连，但在服务器端，主
要要考虑数据和接口相连，Delphi 5.0以上版本规定，使用DataSetProvider
就不需要再针对每个控件做Export（导出）操作，而是由应用程序服务器自
动帮前台查找这就简化了程序和维护量。但是，前台每个DataSet 必须有个
对应的DataSetProvider 才行。
2）关于建立COM 是的几个选项现在说明一下：

A) Instancing :
Multiple Instance: 一个应用程序可以被多个前台程序调用使
用，启动和执行的效率比较高，不耗费服务器太多的
资源，管理上也比较方便。
Single Instance: 一个应用程序只能被一个前台程序调用，由
于没有排队问题，所以当某个查询崩溃时，不会影响
其它的查询，但是，一个前台调用必然在服务器上建
立一个应用程序服务器的Process （进程），占用资
源比较多，影响服务器整体执行效率。
Internal： 建立一个In-Process的COM 程序（也就是DLL文件
的格式），由于Mult-Tier 结构中，应用程序服务器
和前台程序是放在不同的地方的，两台机器的两个程
序就无法共享同一个Process，所以很少设置成Internal
模式的。
B) Threading Model:
Apartment: 每个实例一次只能处理一个前台发出的Request（请
求），如果同时建立多个In-Process COM 程序，那每
个COM 程序就会有一个现程服务，所以数据是安全的，
当然要注意某些共享变量的冲突。
Single: 单线程，循环工作，不会出现多任务的问题。
Free : 可以让Remote Data Module自己处理多线程问题，客
户端程序需要用多线程方法来处理。
Both : 和Free几乎相同，但对应前台界面的Callback都是连
续的。

如果注册后无法确认是否注册成功，可以用C:\WINNT\Regedit.exe检查。

在Two-Tier模式中，客户端(Client)程序是直接和服务器的数据源相连的，
而Multi-Tier模式，多个客户端连接的是一个应用程序服务器，因为收费是按
客户端数计算的，所以，数据库的使用费用比较低。
下面的例子只提供了数据库操作的最基本的功能，主要说明数据源的连接
方法。

1）建立一个普通的工程。

2）放置一个TDCOMConnrction控件（在Datasnap页），属性：
ComputerName：服务器名（自动给出网上邻居）
ServerName:应用程序服务器注册名（project121.Test121server）
必要时ServerGUID输入GUID值。
Connected=true 为激活

说明：在调试的时候，如果是在Windows 2000本机的情况，可以先运行
project121.exe，然后就可以在ServerName中找到project121.Test121server
了，然后Connected=true 激活。

3）放置一个TClientDataSet控件（在Data Access页），属性：
Name:cdsCustomer（重新起名）
RemoteServer: DCOMConnrction1
ProviderName: DataSetProvider1（服务器端将被激活）
Active:true （激活后将能正常连接）

4）放置TDataSource，属性：
Dataset:指向cdsCustomer。

其余犹如普通的数据库设计。注意到这里使用了TActionList控件，其中
写入和退出在Standard Action 内找不到，需要自己编写：

procedure TForm1.ApplyUpdateExecute(Sender: TObject);
begin
cdsCustomer.ApplyUpdates(-1);
ShowMessage('已经正确地写入数据库中!!');
end;

procedure TForm1.CloseActionExecute(Sender: TObject);
begin
Close;
end;

只要服务器端正确的注册，这个程序使用是没有问题的。

第四节 客户端实现SQL 查询

由于在客户端不存在TQuery控件，似乎客户服务器模式是无法做SQL
查询的。但是，Delphi很好的解决了这个问题。事实上，只要客户端连接上
服务端应用程序，客户端的TClientDataSet就包含了一个名字为Provider
的属性，对应到服务器端DataSetProvider的所有默认属性和方法，其中
DataSetProvider有一个Options属性，只要让其中的poAllowCommandText
=true， 那么，DataSetProvider的poAllowCommandText就可以接受前台来
的SQL 命令，并传送给TQuery。
可以看出，真正传递数据的是DataSetProvider的接口，所以，用这个
接口搭建传递SQL 的桥梁是必需的。
客户端进行SQL 查询的方法是：

ClientDataSet.Close;
ClientDataSet.CommandText := 'SQL语句';
ClientDataSet.Open;

第五节 客户端查询服务器端的别名集

在SQL 查询以前，用户往往需要制定查询哪个数据库，所以需要把服
务器上BDE 数据库别名（Alias ）设置数据抓到前台程序来
具体做法是：

首先，在服务器端建立一个TSession和一个TDataBase

Session1属性：
SessionName=Session1_4

DataBase1属性：
DataBaseName: 连接数据库名
SessionName: Session1_4 （SessionName值）

TQurey 增加个属性
SessionName: Session1_4

这样就可以用Session对象来管理数据源的信息了。
为了传给客户端值

View -> Type Library 显示接口窗口。
右键 ITest125Server（具体根据设置名不同而不同） -> New ->
建立两个方法：

GetDatabaseNames ，用以传下别名数据，其接口信息为：
Return type :HRESULT
Parameters
name type modifier

Param VARIANT* [out,retval]

SetDatabaseName ， 用以接受客户机来的信息，其接口信息要求传入
三个信息。

Return type :HRESULT
Parameters
name type modifier

DBName BSTR [in] ----传上来的别名
UserName BSTR [in]
Password BSTR [in]

刷新（Refresh Implementation）以后，就产生两个函数

function TTest125Server.GetDatabaseNames: OleVariant;
var
I: Integer;
DBNames: TStrings;
begin
// 建立一个字符串数组存放BDE所有的数据库别名数据。
DBNames := TStringList.Create;
try
// 利用Session控件取得当前BDE所有的数据库别名数据。
Session1.GetDatabaseNames(DBNames);

/// 建立一个变量数组给函数返回变量Result。
Result := VarArrayCreate([0, DBNames.Count - 1], varOleStr);

// 最后再把数据库别名数据指定给该变量数组。
for I := 0 to DBNames.Count - 1 do
Result[I] := DBNames[I];
finally
DBNames.Free;
end;
end;

上面的函数的关键除了取得BDE 数据库别名以外，还声明了一个变量数
组来存放数据库别名数据，所以用VarArrayCreate函数建立一个变量数组，
其中 参数1： 指定数组范围
参数2： 数组数据类型，由于别名要通过DCOM传给前台，数据类型必
须设成varOleStr 才有效。

第二个过程是客户机提供上来的联机数据。

procedure TTest125Server.SetDatabaseName(const DBName, UserName,
Password: WideString);
begin
try
// 把前台传来的数据库别名、用户上线名称、用户上线密码
// 等三项数据指定给TDatabase控件，并且执行联机的操作。

Database1.Close;
Database1.AliasName := DBName;
if (UserName<>'') and (Password<>'') then begin
Database1.Params.Values['PASSWORD'] := Password;
Database1.Params.Values['USER NAME'] := UserName;
end;
Database1.Open;
except
// 如果联机时发生错误，则产生一个exception给前台程序
// 前台程序将会利用到这个exception来判断是否要把输入上
// 线数据的窗口激活。

on E: EDBEngineError do
raise Exception.Create('Password Required') ;
end;
end;

第六节 服务器端进行客户计数

除了上面的功能外，这个程序还加上了一个在线用户以及查询用户统计
的功能。由于这个应用程序执行模式是 Multiple Instance执行模式，所以
当某个前台第一次连上线后，应用程序服务器会激活RemoteDataModule的
事件程序，而断线后又会执行OnDestroy事件程序，因此就可以用这两个事件
计算连上服务器的用户个数。至于Query个数的计算，则由TQuery的OnAfterOpen
事件函数判断。

-----------------------------------------------------------------
Form1部分，主要用于显示
-----------------------------------------------------------------

procedure TMainForm.UpdateClientCount(Incr: Integer);
begin
FClientCount := FClientCount + Incr;
ClientCount.Caption := IntToStr(FClientCount);
end;

procedure TMainForm.IncQueryCount;
begin
Inc(FQueryCount);
QueryCount.Caption := IntToStr(FQueryCount);
end;
--------------------------------------------------------

COM部分

--------------------------------------------------------

procedure TTest125Server.RemoteDataModuleCreate(Sender: TObject);
begin
// 增加一位前台上线者（调用Form1上的程序）
MainForm.UpdateClientCount(1);
end;

procedure TTest125Server.RemoteDataModuleDestroy(Sender: TObject);
begin
// 减少一位前台上线者（调用Form1上的程序）
MainForm.UpdateClientCount(-1);
end;

procedure TTest125Server.AdHocQueryAfterOpen(DataSet: TDataSet);
begin
// 新打开一个TQuery查询（调用Form1上的程序）
MainForm.IncQueryCount;
end;

上述完整的客户/服务器数据库实例，见SQL服务器和SQL客户端两个程
序，数据源部分需要自己调整。

第七节 一对多表的服务器端程序

一、Application Server

事先要有一个标准的Form

file -> New -> Multitier -> Remote Data Module

CoClass Name :test63
Instacting: Multiple Instacting
Threading Model: Apartment

放入 ADOTable1
ADOTable2
Datasouce1
DataSetProvider1(在Data Access)
DataSetProvider2
属性：
ADOTable1（主表）
ADOTable2（从表）
用ConnectionString和TableName连上数据库

ADOTable1 DataSetProvider1

Datasouce1

ADOTable2 DataSetProvider2

连上相应的数据库（这里为: 奖金数据库.mdb）
TADOQuery.SQL=select * from 奖金
TADOQuery.Active=true

TDataSetProvider.Dataset=ADOQuery1

保存（工程名改为pChpServer），运行（注册）

客户端

DCOMConnection1
属性：ComputerName=计算机名（本地可以不写）
ServerName=服务器端程序名（COM）
Connecter=true （表示连上）

ClientDataSet1
属性：RemoteServer=DCOMConnection1
ProviderName=DataSetProvider1
Active-=true
ClientDataSet2
属性：RemoteServer=DCOMConnection2
ProviderName=DataSetProvider2
Active-=true

加入两个TDataSource，TDBGrid分别连上
ClientDataSet1和
ClientDataSet2
似乎应该显示主从关系了，但DBGrid2并没有显示。

解决办法：
双击ClientDataSet1，出现Form1.ClientDataSet1窗口，右键，快
捷菜单上选Add Field 这时，我们可以看到最后一行出现：ADOTable2
这是很重要的，正是靠这个建立了主从联接关系
OK 让它进入Form1.ClientDataSet1窗口（也可以调整主表所显示
的字段，但ADOTable2 不能少，它实际上是把从表作为主表的一个字段
使用了）。
ClientDataSet2属性：
DataSetField=ClientDataSet1ADOTable2
Active=true
主从关系建立起来了。