delphi 三层架构CS简单例子一5.docxVIP

delphi 三层CS架构一步步建立的简单例子?所谓三层：(1) 客户端(2) 服务器端(3) 数据库 在数据访问时，使得客户端必须通过服务器来访问数据库。提高了系统的安全性。在Delphi中可以使用Socket或者Dcom组件来连接他们相互间的通讯。本例使用SOCKET组件. DCOM用在局域网, SOCKET用在互联网.环境为windows xp+ delphi 7 + access2000创建过程：请用ACCESS2000新建一个数据库database02.mdb. 请在delphi7执行 file-new- application, 新建一个桌面, 上面放一个label,label.caption =’服务器端已运行….’接下来在delphi7执行file --new--other,选择Multitier--Remote data module。在跳出来的对话框里面输入名称（任意），例如：AppSqlConn。选择确定，进入remote data module窗口。界面如下图所示加入组件：adodataset，点击connectionstring属性，点击后面的 …，进入设定连接窗口。在选择数据库中选择自己想要使用的数据库database02.mdb。一般只要地址正确、用户名和密码无误，肯定可以连接通过。确定。ADODATASET1在commandtext中点击后面的…，啥也不用设定,默认配置; ADODATASET1将active属性设置为false。再加入组件：datasetprovider。设定其dataset属性为上面的adodataset1。 5.1 接着设置datasetprovider1的属性,poallowcommandtext=true,其他的参数默认即可.datasetprovider1的属性如下图所示到此服务器端已经设置完成。请保存并且运行一次，从而使服务注册。接下来运行delphi的bin目录下面的scktsrvr.exe，因为下面要使用socket连接。运行后任务栏中出现socket server的图标。文件具体位置 C:\program files\borland\delphi7\bin\scktsrvr.exe下面开始建客户端程序先是新建程序（application），然后file--new--data module，会创建客户端的data module。加入组件：socketconnection，在address中输入服务器的ip地址，然后在servername中输入刚才创建的remote data module的服务程序。程序会自动在serverguid中加入id。然后选择connected属性为true。只要此处不报告错误，此程序基本成功了。(下面图中IP地址:是啥? 是WINDOWS的本机专用IP地址.也就是WINDOWS操作系统对所有的本地计算机专门分配的, 不清楚请百度)接着加入组件：clientdataset，选择remoteserver属性为socketconnection1，选择providename为服务器程序的datasetprovider。然后选择active属性为false。Commandtext啥也不填写,如下图所示切换到程序的form1程序窗口，首先选择在程序中引用刚才data module的单元文件，(下图中的unit12,是刚才建的data module的单元文件名)然后在FORM1中加入组件datasource和dbgrid,两个BUTTON。选择datasourece1的dataset属性为data module的clientdataset1，选择dbgrid1的datasource为这里的datasource1组件。13.开始编写BUTTON1, BUTTON2的程序procedure TForm1.Button1Click(Sender: TObject);begin unit12.DataModule2.ClientDataSet1.Close;unit12.DataModule2.ClientDataSet1.CommandText:=select * from 用户基本信息表; unit12.DataModule2.ClientDataSet1.Open;end;procedure TForm1.Button2Click(Sender: TObject);begin unit12.DataModule2.ClientDataSet1.Close; unit12.DataModule2.ClientDataSet1.CommandText:=select * from 电表基本信息表 where id=2; unit12.DataModu