L
lishourun
Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi5实现多层Client/Server应用程序
我用该方法编写：1. 远程数据模块(Remote Data Module)的创建
使用File菜单上的“New Application”命令开始一个新工程，双击Multitier页面中的“Remote Data Module”图标，Delphi将要求指定类名，如图1所示。
(1)在“Class Name”框内键入类名后（类名第一个字母不必是T），单击OK按钮，Delphi就在当前工程中加入一个远程数据模块。
(2)TTable数据集构件的创建
置入一个Ttable构件，设定它的属性databasename和tablename，然后设定active为true。
(3)TdataSetProvider构件的创建
置入一个TDataSetProvider构件，设定属性DataSet为Table1。
至此，一个简单的应用服务器创建完毕。如图2所示。
执行此程序，该应用程序将在系统中自动注册，今后的客户端程序就可以调用该应用服务器程序了。
三、客户程序的创建
从用户角度看，创建多层的Client/Server结构的“瘦”客户是用TclientDataSet构件实现的，并且通过TDCOMConnection构件与应用服务器端连接。创建步骤如下：
1. 建立一个新的数据模块
使用“File”菜单上的“New Application”命令开始一个新的工程，使用“File”菜单上的“New Data Module”命令加入一个数据模块。
2. TDCOMConnection构件的创建
把一个TDCOMConnection构件放到数据模块上，设置它的ServerName属性指定应用服务器名（在这里，应用服务器就是上面创建的名为MyDcomServer服务器程序。如果“瘦”客户与应用服务器不在同一个计算机上，还要设置ComputerName属性指定服务器所在的机器名。
3. TclientDataSet文件添加
把一个TclientDataSet构件放到数据模块上，设置它的RemoteServer属性指定TDCOMConnection构件，再设置ProviderName属性指定应用服务器中的DataSetProvider名，因此，“瘦”客户程序可以透明地访问远端数据库服务器上的数据。如图3所示。
4. TdataSource文件添加
把一个TdataSource构件放到Form上，设置它的DataSet属性指定TclientDataSet构件。
5. TDBGrid构件添加
把一个TDBGrid构件（也可以是其他数据控制构件）放到Form上，设置它的DataSource属性指定TdataSource构件，
但在客户端不能运行，，显示该程序错误，请问一下是那错了，谢谢。
我用该方法编写：1. 远程数据模块(Remote Data Module)的创建
使用File菜单上的“New Application”命令开始一个新工程，双击Multitier页面中的“Remote Data Module”图标，Delphi将要求指定类名，如图1所示。
(1)在“Class Name”框内键入类名后（类名第一个字母不必是T），单击OK按钮，Delphi就在当前工程中加入一个远程数据模块。
(2)TTable数据集构件的创建
置入一个Ttable构件，设定它的属性databasename和tablename，然后设定active为true。
(3)TdataSetProvider构件的创建
置入一个TDataSetProvider构件，设定属性DataSet为Table1。
至此，一个简单的应用服务器创建完毕。如图2所示。
执行此程序，该应用程序将在系统中自动注册，今后的客户端程序就可以调用该应用服务器程序了。
三、客户程序的创建
从用户角度看，创建多层的Client/Server结构的“瘦”客户是用TclientDataSet构件实现的，并且通过TDCOMConnection构件与应用服务器端连接。创建步骤如下：
1. 建立一个新的数据模块
使用“File”菜单上的“New Application”命令开始一个新的工程，使用“File”菜单上的“New Data Module”命令加入一个数据模块。
2. TDCOMConnection构件的创建
把一个TDCOMConnection构件放到数据模块上，设置它的ServerName属性指定应用服务器名（在这里，应用服务器就是上面创建的名为MyDcomServer服务器程序。如果“瘦”客户与应用服务器不在同一个计算机上，还要设置ComputerName属性指定服务器所在的机器名。
3. TclientDataSet文件添加
把一个TclientDataSet构件放到数据模块上，设置它的RemoteServer属性指定TDCOMConnection构件，再设置ProviderName属性指定应用服务器中的DataSetProvider名，因此，“瘦”客户程序可以透明地访问远端数据库服务器上的数据。如图3所示。
4. TdataSource文件添加
把一个TdataSource构件放到Form上，设置它的DataSet属性指定TclientDataSet构件。
5. TDBGrid构件添加
把一个TDBGrid构件（也可以是其他数据控制构件）放到Form上，设置它的DataSource属性指定TdataSource构件，
但在客户端不能运行，，显示该程序错误，请问一下是那错了，谢谢。
