DELPHI DATASNAP 2010 入门操作(2)不写一行代码，绿色三层我也行

没有一行代码的三层，功能肯定非常的简单，但是，再简单，我们也三层了，学习一个东西，需要从入门开始就有兴趣，如果入门就给吓怕了，哪么后来何来信心学习呢？现在就让我们开始吧，不只是没有华丽的词语，而是连用词都不专业，因为，我也只是一个入门者。

我所用的版本为：Embarcadero® Delphi® 2010 Version 14.0.3593.25826

一、让我们 file->new->other ，再选 datasnap server ，或者F6，输入 datasnapProvider

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=db.mdb;Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;

connected为true

ADOTable1

connection为ADOConnection1

tablename为：test

active为:true

DataSetProvider1

dataset为：ADOTable1



设置完成了，现在我们记下DSTCPServerTransport1的prot值

ServerMethodsUnit1中的： TServerMethods1 = class(TDSServerModule) ，如果TServerMethods1给你改成了其它的代码了，则需要记住对应的代码

以上两个值一会儿在客户端要用到

编译并独立于IDE运行服务器端吧

运行后如图：



保持服务器端不要关闭，让我们开始客户端的编程吧

file->new-> vcl for the application 打开一个应用程序

把FROM的标题改成：datasnap client

放上一个 SQLConnection1

loginprompt为:false

把derver 改成：Datasnap 然后点derver前的+号

hostname 输入 127.0.0.1

prot 设置与服务器的相同，默认为211（刚刚服务器上要求记住的）

放上一个DSProviderConnection1

sqlconnection为：SQLConnection1

serverclassname 为: tServerMethods1（刚刚服务器上要求记住的）

把 SQLConnection1的connected 设置为true

放上一个ClientDataSet1

RemoteServer设置为：DSProviderConnection1

providername 设置为：DataSetProvider1

active设置为:true

放上一个：DataSource1

dataset设置为：ClientDataSet1

放上一个：DBNavigator1

DataSource设置为DataSource1

放上一个DBGrid1

DataSource设置为DataSource1

现在保存客户端为datasanpdemo1client



然后编译成EXE独立于IDE运行吧

如图：



我们的简单的三层终于完成了，你有写代码了吗？

试试把你的程序COPY到U盘上，放到任意电脑上运行呢？

提示少DLL文件？哪到本机上COPY过去吧，啥，你不是说服务器及客户机都只有一个EXE的吗，哪请你在USES里面加上MidasLib 吧

修改的数据关闭后不见了？我可没有说过我的三层程序是可以保存数据的，如果需要保存，请谷哥clientdataset 如何提交数据吧,就一条代码，很简单的

是绿色的吧，要不你把客户机程序的IP改改，然后把服务器程序放到另一台电脑上运行，看下可以运行吗？

想要源程序鸦用：请去QQ群67803772的共享中下载吧，本站我现在还不懂上传rar文件

文件名是：datasnapdemo不要一行代码就能三层.zip