分布式多层数据库开发（2）

放一个Toolbar加入四个按钮。然后把Standard--àActionList加入进去。

 

 

在ActionList上右键，选：Action List Editor

 

 

 

 

 

多层数据库中的一个例子在“客户端-2”中。其中写入和退出在Standard Action 内找不到，需要自己编，在ToolBar1内再加入两个Button，写：

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

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

下面装饰这个Button组，调入一个ImageList1，调入相应的图形：

 

ToolBar1的属性Image=ImageList1
ShowHint=true

把每个Button的Hint的属性放入适当的值。

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

第四节 客户端实现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 服务器端程序：

首先用上面相同的方法建立一个服务器端COM 工程。工程名取为：PcSQL。
放入一个Query和一个DataSetProvider。

 

 

DataSetProvider的属性Options下的poAllowCommandText=true

 

 

 

这实际上已经建立了一个基于SQL 查询的服务器端程序。

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

在SQL 查询以前，用户往往需要指定查询哪个数据库，所以需要把服
务器上BDE 数据库别名（Alias ）设置数据抓到前台程序来
具体做法我们通过一个实例来解决：

还是先回到服务器端：

在上述服务器端再建立一个TSession和一个TdataBase（在BDE 页下）

Session1属性：
AutoSessionName=true
SessionName=Session1_4 （运行中是可以自动调整的）
KeepConnection=true
Active=true

DataBase1属性：
AliasName: 连接数据库别名（比如Mymdb）
DataBaseName: 自定义的名（这里比如为a）
SessionName: Session1_4 （SessionName值）
如果不希望输入密码：
LoginPrompt : false

这样
Query1的连接属性要变一下，因为它要通过Database来联接数据库（以后在前台可以直接通过改变DataBase的属性来改变联接）
DataBaseName= DataBase1的DataBaseName:自定义的名（这里比如为a）。
SQL属性输入一个基本的SQL语言：select * from 奖金
Active=true 表示这样也可以连接上了。

 

 

TQurey 增加个属性
SessionName: Session1_4

 

这样就可以用Session对象来管理数据源的信息了。
再加入四个Label，显示当前在线人数，以及进行SQL 查询的人数。

为了传给客户端值，并能够由客户端来对服务器端进行某些控制，需要在COM 中加入两个方法：

View -> Type Library 显示接口窗口。

 

右键 IPcSQL（具体根据设置名不同而不同） -> New ->
建立两个方法（Method）：

 

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

Param1 VARIANT* [out,retval]

 

SetDatabaseName ， 用以接受客户机来的信息，其接口信息要求传入
三个信息（注意：图上的SetDatabaseName误为SetDatabaseNames，实际请设为SetDatabaseName，否则客户调用名称可能会出错）。

Return type :HRESULT
Parameters
name type modifier

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

（用Add加入）

UserName BSTR [in]
Password BSTR [in]

 

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

 

function TPcSQL.GetDatabasenames: OleVariant;
begin

end;

procedure TPcSQL.SetDatabasename(const DBname, Username,
Password: WideString);
begin

end;

 

function TPcSQL.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释放掉。

DBNames.Free;
end;
end;

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

同时还要说明VarArrayCreate函数是在Variants单元中建立的，所以，在implementation下还需要声明：
uses Variants;
否则会编译出错,，必要时还要加上Unit1。

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

procedure TPcSQL.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;