第三节 客户端程序
在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;
只要服务器端正确的注册,这个程序使用是没有问题的。
(出处:DelphiFans.com)