三层架构之Socket

通过 WinSocket 架设三层应用程序 , 除了使用 TSocketConnection 组件外还需要 TDataSetProvider 将 两端的 DataSet 连接起来.

步骤如下:

 

Server 端:

1. 创建一个新的 Project , 命名为 SCKTServer, 同时会有一个 MainForm 窗体.

2. 添加 Remote Data Module , 命名为 RDMServer.

3. 在 RDMServer 需添加 3个数据组件:

     一个 TADOConnection , 命名为 Con1, 设置其 ConnectionString 为如下: Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=数据库名;Data Source=SqlServer服务器名; (注意因为sa密码为空,所以没有密码项).

设置LoginPrompt = False, 不需要提示输入密码.

设置Connected = True , 测试一下是否可以正常连接 SqlServer 数据库.

     一个 TADODataSet , 命名为 ds1, 设置 Connection 为 Con1;

     一个 TDataSetProvider , 命名为DSProvider, 设置 DataSet 为 ds1 ; 设置  Option 中的 poAllowCommandText = True , 意为允许 Client 端DataSet 可以 设置 Sql 语句操作数据表.

Ok , 编译运行一下 , 即注册一下服务.

 

Client 端:

1. 创建一个新的 Project , 命名为 SCKTClient, 同时会有一个 MainForm 窗体.

2. 在窗体上添加一个 TSocketConnection , 设置 Address 为服务器 IP ,这里是本机, 为 127.0.0.1; 设置