跪求,delphi 三层 谁有一份.关于delphi三层的例子呀.我的要求是.界面层.业务逻辑层.和数据访问层.其中的业务逻辑层是封装在dll中的.希望哪位哥哥可以帮我传一份小弟没有多少分了.就求你了[email protected] 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 兄弟,我現在和你一樣啊,我正在學delphi三層架構,也需要這樣的資料,有的話請發份給我[email protected] 謝謝了 一个三层的例子:应用服务器的编写:(1)新建一个工程(2)点击“File”“New”“Other”,选择Multiter页标签的Remote Data Module(3)设置CoClassName(例:输入TestServer),点击OK就会进入Remote Data Module编辑框(4)在编辑框中可以添加任何与数据库相连的组件,既然你的机器上装了sql server ,你就可以 添加一个ADOConnection和ADOTable,进行数据库的连接设置。这里我要提醒一句,就是在用ADOConnection连接数据库的时候,最好把登陆数据库的密码保存下来,并且ADOTable1.active不要设置为True!!!然后再添加一个DataSetProvider1(在Data Access页中),并将其DataSet设置为TADOTable1.(5)编译运行此程序,就算注册了客户端的编写:(1)新建一个工程文件(2)在其中添加SocketConnection1(在DataSnap页中),将它的Host设置为你的应用服务器所在的机器名,在ServerName的下拉列表框中选择应用服务器的名称,port默认为211(注意:TSocketConnection靠的是TCP/IP协议进行通讯,所以要在应用服务器端需额外运行Scktsrvr.exe程序,该程序在..\\Borland\Delphi6\Bin目录里)(3)然后添加一个ClientDataSet1(在Data Access中),将其RemoteServer设置为SocketConnection1,将PorviderName设置为DataSetProvider1,(4)再添加一个DataSouce1和一个DbGrid1,将DataSouce1.DataSet设置为ClientDataSet1,DBGrid1.DataSource设置为DataSource1(5)在FormCreate中编写代码如下: procedure TForm1.FormCreate(Sender:TObject); begin SocketConnection1.Connected:=True; ClientDataSet1.Active:=True; end;(6)编译运行,你的客户端就可以读取Sql Server数据库中的数据了! 三层结构+ActiveX,中间层和用户层都使用dll。请参阅:http://liwei.csdn.net/Forum/topic.aspx?topicid=677 delphi高手们请进,小弟有个问题困惑了好久 为何给ADOQuery1新添的栏位无法在DBGrid中显示? 求教关于纸牌游戏的问题? 关于TreeView treeView的问题,请大家帮忙 如何用Delphi自身的报表来制作主从式报表,本人只知道大概方向,却不知具体如何做,请多指教!!1 在使用ADO数据库时,如何获得非ADO封装好的错误呢 !!!!!!请教!!!!!!!!!! 关于子类改变父类静态方法的疑问 调用屏幕保护的问题 fastReport设计报表的时候,出现这样子一个问题? 对datetimepicker的查询操作
[email protected] 謝謝了
(1)新建一个工程
(2)点击“File”“New”“Other”,选择Multiter页标签的Remote Data Module
(3)设置CoClassName(例:输入TestServer),点击OK就会进入Remote Data Module编辑框
(4)在编辑框中可以添加任何与数据库相连的组件,既然你的机器上装了sql server ,你就可以 添加一个ADOConnection和ADOTable,进行数据库的连接设置。这里我要提醒一句,就是在用ADOConnection连接数据库的时候,最好把登陆数据库的密码保存下来,并且ADOTable1.active不要设置为True!!!然后再添加一个DataSetProvider1(在Data Access页中),并将其DataSet设置为TADOTable1.
(5)编译运行此程序,就算注册了
客户端的编写:
(1)新建一个工程文件
(2)在其中添加SocketConnection1(在DataSnap页中),将它的Host设置为你的应用服务器所在的机器名,在ServerName的下拉列表框中选择应用服务器的名称,port默认为211(注意:TSocketConnection靠的是TCP/IP协议进行通讯,所以要在应用服务器端需额外运行Scktsrvr.exe程序,该程序在..\\Borland\Delphi6\Bin目录里)
(3)然后添加一个ClientDataSet1(在Data Access中),将其RemoteServer设置为SocketConnection1,将PorviderName设置为DataSetProvider1,
(4)再添加一个DataSouce1和一个DbGrid1,将DataSouce1.DataSet设置为ClientDataSet1,DBGrid1.DataSource设置为DataSource1
(5)在FormCreate中编写代码如下:
procedure TForm1.FormCreate(Sender:TObject);
begin
SocketConnection1.Connected:=True;
ClientDataSet1.Active:=True;
end;
(6)编译运行,你的客户端就可以读取Sql Server数据库中的数据了!
http://liwei.csdn.net/Forum/topic.aspx?topicid=677