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

本文格式为Word版，下载可任意编辑——delphi三层架构CS简单例子一步步做delphi三层CS架构一步步建立的简单例子所谓三层：(1)客户端(2)服务器端(3)数据库

在数据访问时，使得客户端必需通过服务器来访问数据库。提高了系统的安全性。

在Delphi中可以使用Socket或者Dcom组件来连接他们相互间的通讯。本例使用SOCKET组件.DCOM用在局域网,SOCKET用在互联网.环境为windowsxp+delphi7+access2000创立过程：

1、请用ACCESS2000新建一个数据库database02.mdb.2、请在delphi7执行file-new-application,新建一个桌面,上面放一个label,label.caption=’服务器端已运行….’

3、接下来在delphi7执行file--new--other,选择\data

module\。在跳出来的对话框里面输入名称（任意），例如：AppSqlConn。选择确定，进入remotedatamodule窗口。

界面如下图所示

4、参与组件：adodataset，点击connectionstring属性，点击后面的…，进入

设定连接窗口。在选择数据库中选择自己想要使用的数据库database02.mdb。一般只要地址正确、用户名和密码无误，确定可以连接通过。确定。

3、ADODATASET1在commandtext中点击后面的…，啥也不用设定,默认配

置;

4、ADODATASET1将active属性设置为false。

5、再参与组件：datasetprovider。设定其dataset属性为上面的adodataset1。

5.1接着设置datasetprovider1的属性,poallowcommandtext=true,其他的参数默认即可.

datasetprovider1的属性如下图所示

6、到此服务器端已经设置完成。请保存并且运行一次，从而使服务注册。

7、接下来运行delphi的bin目录下面的scktsrvr.exe，由于下面要使用socket

连接。运行后任务栏中出现socketserver的图标。

文件具体位置C:\\programfiles\\borland\\delphi7\\bin\\scktsrvr.exe

8、下面开始建客户端程序

先是新建程序（application），然后file--new--datamodule，会创立客户端的datamodule。

9、参与组件：socketconnection，在address中输入服务器的ip地址，然后在

servername中输入方才创立的remotedatamodule的服务程序。程序会自动在serverguid中参与id。然后选择connected属性为true。只要此处不报告错误，此程序基本成功了。

(下面图中IP地址:是啥?是WINDOWS的本机专用IP地址.也就是WINDOWS操作系统对所有的本地计算机专门分派的,不明白请百度)

10、接着参与组件：clientdataset，选择remoteserver属性为socketconnection1，

选择providename为服务器程序的datasetprovider。然后选择active属性为false。Commandtext啥也不填写,如下图所示

11、切换到程序的form1程序窗口，首先选择在程序中引用方才datamodule

的单元文件，

(下图中的unit12,是方才建的datamodule的单元文件名)

12、然后在FORM1中参与组件datasource和dbgrid,两个BUTTON。选择

datasourece1的dataset属性为datamodule的clientdataset1，选择dbgrid1的datasource为这里的datasource1组件。

13.开始编写BUTTON1,BUTTON2的程序

procedureTForm1.Button1Click(Sender:TObject);begin

unit12.DataModule2.ClientDataSet1.Close;

unit12.DataModule2.ClientDataSet1.CommandText:='select*from用户基本信息表';unit12.DataModule2.ClientDataSet1.Open;end;

procedureTForm1.Button2Click(Sender:TObject);begin

unit12.DataModule2.ClientDataSet1.Close;

unit12.DataModule2.ClientDataSet1.CommandText:='select