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

delphi三层CS架构一步步建立的简单例子所谓三层：客户端服务器端数据库在数据访问时，使得客户端必须通过服务器来访问数据库。提高了系统的安全性。在Delphi中可以使用Socket或者Dcom组件来连接他们相互间的通讯。本例使用SOCKET组件.DCOM用在局域网，SOCKET用在互联网.环境为windowsxp+delphi7+access2000创建过程：请用ACCESS2000新建一个数据库database02.mdb.请在delphi7执行file-new-application,新建一个桌面,上面放一个label,label.caption='服务器端已运行....’

接下来在delphi7执行file--new--other,选择"Multitier"--"Remotedatamodule"。在跳出来的对话框里面输入名称（任意），例如：AppSqlConn。选择确定，进入remotedatamodule窗口。界面如下图所示

加入组件：adodataset，点击connectionstring属性，点击后面的…，进入设定连接窗口。在选择数据库中选择自己想要使用的数据库database02.mdb。一般只要地址正确、用户名和密码无误，肯定可以连接通过。确定。通过。确定。.DFM}.DFM}月艮务提处程序件看后破所有枪舁.FFI世音以详集钊Axem数由：I边界或铜人效据片名药口）

P、站•文怦壬行Z.输人登至数据库的信息：3、ADODATASET1在commandtext中点击后面的…，啥也不用设定,默认配3、置;ADODATASET1将active属性设置为false。

再加入组件：datasetprovider。设定其dataset属性为上面的adodatasetl。接着设置datasetproviderl的属性,poallowcommandtext=true,其他的参数默认即可.datasetproviderl的属性如下图所示ObjectInspectorDataSetProviderlTDataSetProviderDataSetProviderlTDataSetProviderPropertiesEventsConstraintsTrue0DataSetADODataSetlE-portedTrueNameDataSetProviderl□Options[poAllowCommandTexpoFetchBlobs0nDemandFalsepoFetchDetailsDnDemandFalsepdncFieldPropsFalsepoCascadeDeletesFalsepoCascadeUpdatesFalsepuReadDnlyFalsepoAllowHultiRecordUpdatesFalsepoDi?ableln?ertsFdfep口Di河bDEditwFdfepaDi?aLleDeletesFdfepaNoResetFdfepoAuWRMwhFdfepaPrapogaleChangesFdfepoAllowCommandText|True▼poFietainServerOrderFalseResolveToDataSetFalseTag0UpdatehlodeupWhereAII到此服务器端已经设置完成。请保存并且运行一次，从而使服务注册。接下来运行delphi的bin目录下面的scktsrvr.exe,因为下面要使用socket连接。运行后任务栏中出现socketserver的图标。文件具体位置C:\programfiles\borland\delphi7\bin\scktsrvr.exe

下面开始建客户端程序先是新建程序(application),然后file--new--datamodule，会创建客户端的datamodule。

加入组件：socketconnection，在address中输入服务器的ip地址，然后在servername中输入刚才创建的remotedatamodule的服务程序。程序会自动在serverguid中加入id。然后选择connected属性为true。只要此处不报告错误，此程序基本成功了。（下面图中IP地址:是啥？是WINDOWS的本机专用IP地址.也就是WINDOWS操作系统对所有的本地计算机专门分配的，不清楚请百度）Address|SocketConnectionl卬日Events5口匚:ket匚口门门已Address|SocketConnectionl卬日Events5口匚:ket匚口门门已ctknlTSacketConnectionQdule2LoginPromptFalseNameSocketConnectionlObjectBrokerPort211ServerGUIDqg明0ARR啊好Z!理±fDF748A49(lEServerNameserver.AppSqlConnSupportCallbacTrueTmg0ConrectedH口MInterceptGUIDInterceptName10、接着加入组件:clientdataset，选择remoteserver属性为socketconnection1，选择providename为服务器程序的datasetprovider。然后选择active属性为false。Commandtext啥也不填写，如下图所示11、切换到程序的forml11、切换到程序的forml程序窗口，首先选择在程序中引用刚才datamodule的单元文件，（下图中的unit12,是刚才建的datamodule的单元文件名）implementationusesuni112;'{SR*.dfm}12、然后在FORM1中加入组件datasource和dbgrid,两个BUTTON。选择datasourecel的dataset属性为datamodule的clientdataset1，选择dbgrid1的datasource为这里的datasource1组件。.开始编写BUTTON1,BUTTON2的程序procedureTForm1.Button1Click(Sender:TObject);beginunit12.DataModule2.ClientDataSet1.Close;unit12.DataModule2.ClientDataSet1.CommandText:='select*from用户基本信息表'；unit12.DataModule2.ClientDataSet1.Open;end;procedureTForm1.Button2Click(Sender:TObject);beginunit12.DataModule2.ClientDataSet1.Close;unit12.DataModule2.ClientDataSet1.CommandText:='select*from电表基本信息表wher