delphi CS 文件 服务器,delphi+三层架构CS简单例子一步步做.doc

文档介绍：

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

内容来自淘豆网www.taodocs.com转载请标明出处.