DELPHI多层分布式开发(一)

客户端程序

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

2）放置一个TDCOMConnrction控件（在Datasnap页），属性：

在本机注册时，可直接设置以下属性：

ServerName:应用程序服务器注册名（pro1.pc121）

Connected=true 激活

这时你可以看到服务器端的COM 程序被激活了。

如果在网络上调试，需要给出服务器名:

ComputerName：服务器名（自动给出网上邻居）

注意：

ServerGUID的GUID值是自动给出的。

3）放置一个TClientDataSet控件（在Data Access页）

属性：

Name=cdsCustomer（重新起名）

RemoteServer= DCOMConnrction1

ProviderName:=DataSetProvider1（服务器端将被激活）

Active=true （激活后将能正常连接）

4）放置TDataSource，属性：

Dataset:指向cdsCustomer。

其余犹如普通的数据库设计。我们也可以练习一下TActionList控件的使用，先做一个小练习：先用普通的方法连上数据库，并用表格显示：

在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的属性放入适当的值。只要服务器端正确的注册，这个程序使用是没有问题的。

查看本文来源