delphi三层架构CS简单例子一步步做

delphi 三层CS 架构一步步建立的简单例子 所谓三层： (1) 客户端 (2) 服务器端 (3) 数据库 在数据访问时，使得客户端必须通过服务器来访问数据库。提高了系统的安全性。 在Delphi 中可以使用Socket 或者Dcom 组件来连接他们相互间的通讯。 本例使用SOCKET 组件. DCOM 用在局域网, SOCKET 用在互联网. 环境为windows xp+ delphi 7 + access2000 创建过程： 1、 请用ACCESS2000 新建一个数据库database02.mdb. 2、 请在delphi7 执行 file-new- application, 新建一个桌面, 上面放一个 label, label.caption =’服务器端已运行… .’ 3、 接下来在 delphi7 执行 file --new --other,选择"Multitier"--"Remote data module"。在跳出来的对话框里面输入名称（任意），例如：AppSqlConn。选择确定，进入 remote data module 窗口。 界面如下图所示 4、 加入组件：adodataset，点击connectionstring 属性，点击后面的 …，进入设 定 连 接 窗 口 。 在 选 择 数 据 库 中 选 择 自 己 想 要 使 用 的数 据 库database02.mdb 。一般只要地址正确、用户名和密码无误，肯定可以连接通过。确定。 3、 ADODATASET1 在 commandtex t 中点击后面的…，啥也不用设定,默认配置; 4、 ADODATASET1 将 activ e 属性设置为 false。 5、 再加入组件：datasetprovider。设定其 dataset 属性为上面的 adodataset1。 5.1 接着设置 datasetprovider1 的属性,poallowcommandtext=true, 其他的参数默认即可. datasetprovider1 的属性如下图所示 6、 到此服务器端已经设置完成。请保存并且运行一次，从而使服务注册。 7、 接下来运行 delphi 的 bin 目录下面的 scktsrv r.ex e，因为下面要使用 socket连接。运行后任务栏中出现 socket serv er 的图标。 文件具体位置 C:\program files\borland\delphi7\bin\scktsrv r.ex e 8、 下面开始建客户端程序 先是新建程序（application），然后 file--new --data module，会创建客户端的 data module。 9、 加入组件：socketconnection，在 address 中输入服务器的 ip 地址，然后在serv ername 中输入刚才创建的 remote data modu le 的服务程序。程序会自动在 serv ergu id 中加入 id。然后选择 connected 属性为 tru e。只要此处不报告错误，此程序基本成功了。...