======================================================
注:本文源代码点此下载
======================================================
这个主要是三层数据库开发学习用的。delphi学习者如果用的上这个mailto本人,空间放不下了,谅。
以下有关分布式数据库开发资料--来源网上
delphi 多层数据库开发
2006-10-20 04:22服务器端程序
http://hi.baidu.com/gzsunsos/blog/item/406918d5fe7be1c451da4bd6.html
服务器端程序实际上是个com 工程,它本身连接数据源,再通过接口与
客户端联系,这个com 工程必须注册在服务器上。
首先建立一个空白的工程。
file -> new -> other -> multitier -> remote data module(远程数据模块)
对话框:
coclass name : com程序的名称,前台依据这个名字查找com程序
(project121)
instancing:执行模式,大部分用multiple instance(多重实例)
threading model:线程模式,建议用apartment(单元)
下面我们就会对这几个选择详加说明。
ok,产生一个窗口,在这个窗口里,可以放入数据控件。
在viwe -> type libray 中,我们可以看到这个com 的一些特性。我们
也可以记下系统提供的guid,以备后来使用。
加入一个adotable,并设置其指向一个数据库。
再设置一个datasetprovider指向adotable
这就完成了服务器端的程序设计。
保存,编译,注册。
这里需要做几个说明:
1) 在客户端,数据控件一般要和datasource相连,但在服务器端,主
要要考虑数据和接口相连,delphi 5.0以上版本规定,使用datasetprovider
就不需要再针对每个控件做export(导出)操作,而是由应用程序服务器自
动帮前台查找这就简化了程序和维护量。但是,前台每个dataset 必须有个
对应的datasetprovider 才行。
2)关于建立com 是的几个选项现在说明一下:
a)instancing:
multiple instance: 一个应用程序可以被多个前台程序调用使
用,启动和执行的效率比较高,不耗费服务器太多的
资源,管理上也比较方便。
single instance: 一个应用程序只能被一个前台程序调用,由
于没有排队问题,所以当某个查询崩溃时,不会影响
其它的查询,但是,一个前台调用必然在服务器上建
立一个应用程序服务器的process (进程),占用资
源比较多,影响服务器整体执行效率。
internal: 建立一个in-process的com 程序(也就是dll文件
的格式),由于mult-tier 结构中,应用程序服务器
和前台程序是放在不同的地方的,两台机器的两个程
序就无法共享同一个process,所以很少设置成internal
模式的。
b) threading model:
apartment: 每个实例一次只能处理一个前台发出的request(请
求),如果同时建立多个in-process com 程序,那每
个com 程序就会有一个现程服务,所以数据是安全的,
当然要注意某些共享变量的冲突。
single:单线程,循环工作,不会出现多任务的问题。
free:可以让remote data module自己处理多线程问题,客
户端程序需要用多线程方法来处理。
both:和free几乎相同,但对应前台界面的callback都是连
续的。
如果注册后无法确认是否注册成功,可以用c:\winnt\regedit.exe检查。
在two-tier模式中,客户端(client)程序是直接和服务器的数据源相连的,
而multi-tier模式,多个客户端连接的是一个应用程序服务器,因为收费是按
客户端数计算的,所以,数据库的使用费用比较低。
下面的例子只提供了数据库操作的最基本的功能,主要说明数据源的连接
方法。
1)建立一个普通的工程。
2)放置一个tdcomconnrction控件(在datasnap页),属性:
computername:服务器名(自动给出网上邻居)
servername:应用程序服务器注册名(project121.test121server)
必要时serverguid输入guid值。
connected=true为激活
说明:在调试的时候,如果是在windows 2000本机的情况,可以先运行
project121.exe,然后就可以在servername中找到project121.test121server
了,然后connected=true激活。
3)放置一个tclientdataset控件(在data access页),属性:
name:cdscustomer(重新起名)
remoteserver: dcomconnrction1
providername: datasetprovider1(服务器端将被激活)
active:true (激活后将能正常连接)
4)放置tdatasource,属性:
dataset:指向cdscustomer。
其余犹如普通的数据库设计。注意到这里使用了tactionlist控件,其中
写入和退出在standard action 内找不到,需要自己编写:
procedure tform1.applyupdateexecute(sender: tobject);
begin
cdscustomer.applyupdates(-1);
showmessage('已经正确地写入数据库中!!');
end;
procedure tform1.closeactionexecute(sender: tobject);
begin
close;
end;
只要服务器端正确的注册,这个程序使用是没有问题的。
第四节客户端实现sql 查询
由于在客户端不存在tquery控件,似乎客户服务器模式是无法做sql
查询的。但是,delphi很好的解决了这个问题。事实上,只要客户端连接上
服务端应用程序,客户端的tclientdataset就包含了一个名字为provider
的属性,对应到服务器端datasetprovider的所有默认属性和方法,其中
datasetprovider有一个options属性,只要让其中的poallowcommandtext
=true, 那么,datasetprovider的poallowcommandtext就可以接受前台来
的sql 命令,并传送给tquery。
可以看出,真正传递数据的是datasetprovider的接口,所以,用这个
接口搭建传递sql 的桥梁是必需的。
客户端进行sql 查询的方法是:
clientdataset.close;
clientdataset.commandtext := 'sql语句';
clientdataset.open;
第五节客户端查询服务器端的别名集
在sql 查询以前,用户往往需要制定查询哪个数据库,所以需要把服
务器上bde 数据库别名(alias )设置数据抓到前台程序来
具体做法是:
首先,在服务器端建立一个tsession和一个tdatabase
session1属性:
sessionname=session1_4
database1属性:
databasename: 连接数据库名
sessionname:session1_4(sessionname值)
tqurey 增加个属性
sessionname:session1_4
这样就可以用session对象来管理数据源的信息了。
为了传给客户端值
view -> type library 显示接口窗口。
右键 itest125server(具体根据设置名不同而不同) -> new ->
建立两个方法:
getdatabasenames ,用以传下别名数据,其接口信息为:
return type :hresult
parameters
nametypemodifier
paramvariant*[out,retval]
setdatabasename , 用以接受客户机来的信息,其接口信息要求传入
三个信息。
return type :hresult
parameters
nametypemodifier
dbnamebstr[in]----传上来的别名
usernamebstr[in]
passwordbstr[in]
刷新(refreshimplementation)以后,就产生两个函数
function ttest125server.getdatabasenames: olevariant;
var
i: integer;
dbnames: tstrings;
begin
// 建立一个字符串数组存放bde所有的数据库别名数据。
dbnames := tstringlist.create;
try
// 利用session控件取得当前bde所有的数据库别名数据。
session1.getdatabasenames(dbnames);
/// 建立一个变量数组给函数返回变量result。
result := vararraycreate([0, dbnames.count - 1], varolestr);
// 最后再把数据库别名数据指定给该变量数组。
for i := 0 to dbnames.count - 1 do
result[i] := dbnames[i];
finally
dbnames.free;
end;
end;
上面的函数的关键除了取得bde 数据库别名以外,还声明了一个变量数
组来存放数据库别名数据,所以用vararraycreate函数建立一个变量数组,
其中参数1: 指定数组范围
参数2: 数组数据类型,由于别名要通过dcom传给前台,数据类型必
须设成varolestr 才有效。
第二个过程是客户机提供上来的联机数据。
procedure ttest125server.setdatabasename(const dbname, username,
password: widestring);
begin
try
// 把前台传来的数据库别名、用户上线名称、用户上线密码
// 等三项数据指定给tdatabase控件,并且执行联机的操作。
database1.close;
database1.aliasname := dbname;
if (username'') then begin
database1.params.values['password'] := password;
database1.params.values['user name'] := username;
end;
database1.open;
except
// 如果联机时发生错误,则产生一个exception给前台程序
// 前台程序将会利用到这个exception来判断是否要把输入上
// 线数据的窗口激活。
on e: edbengineerror do
raise exception.create('password required') ;
end;
end;
第六节服务器端进行客户计数
除了上面的功能外,这个程序还加上了一个在线用户以及查询用户统计
的功能。由于这个应用程序执行模式是 multiple instance执行模式,所以
当某个前台第一次连上线后,应用程序服务器会激活remotedatamodule的
事件程序,而断线后又会执行ondestroy事件程序,因此就可以用这两个事件
计算连上服务器的用户个数。至于query个数的计算,则由tquery的onafteropen
事件函数判断。
-----------------------------------------------------------------
form1部分,主要用于显示
-----------------------------------------------------------------
procedure tmainform.updateclientcount(incr: integer);
begin
fclientcount := fclientcount + incr;
clientcount.caption := inttostr(fclientcount);
end;
procedure tmainform.incquerycount;
begin
inc(fquerycount);
querycount.caption := inttostr(fquerycount);
end;
--------------------------------------------------------
com部分
--------------------------------------------------------
procedure ttest125server.remotedatamodulecreate(sender: tobject);
begin
// 增加一位前台上线者(调用form1上的程序)
mainform.updateclientcount(1);
end;
procedure ttest125server.remotedatamoduledestroy(sender: tobject);
begin
// 减少一位前台上线者(调用form1上的程序)
mainform.updateclientcount(-1);
end;
procedure ttest125server.adhocqueryafteropen(dataset: tdataset);
begin
// 新打开一个tquery查询(调用form1上的程序)
mainform.incquerycount;
end;
上述完整的客户/服务器数据库实例,见sql服务器和sql客户端两个程
序,数据源部分需要自己调整。
第七节一对多表的服务器端程序
一、application server
事先要有一个标准的form
file -> new -> multitier -> remote data module
coclass name :test63
instacting:multiple instacting
threading model: apartment
放入 adotable1
adotable2
datasouce1
datasetprovider1(在data access)
datasetprovider2
属性:
adotable1(主表)
adotable2(从表)
用connectionstring和tablename连上数据库
adotable1datasetprovider1
datasouce1
adotable2datasetprovider2
连上相应的数据库(这里为: 奖金数据库.mdb)
tadoquery.sql=select * from 奖金
tadoquery.active=true
tdatasetprovider.dataset=adoquery1
保存(工程名改为pchpserver),运行(注册)
客户端
dcomconnection1
属性:computername=计算机名(本地可以不写)
servername=服务器端程序名(com)
connecter=true (表示连上)
clientdataset1
属性:remoteserver=dcomconnection1
providername=datasetprovider1
active-=true
clientdataset2
属性:remoteserver=dcomconnection2
providername=datasetprovider2
active-=true
加入两个tdatasource,tdbgrid分别连上
clientdataset1和
clientdataset2
似乎应该显示主从关系了,但dbgrid2并没有显示。
解决办法:
双击clientdataset1,出现form1.clientdataset1窗口,右键,快
捷菜单上选add field 这时,我们可以看到最后一行出现:adotable2
这是很重要的,正是靠这个建立了主从联接关系
ok让它进入form1.clientdataset1窗口(也可以调整主表所显示
的字段,但adotable2 不能少,它实际上是把从表作为主表的一个字段
使用了)。
clientdataset2属性:
datasetfield=clientdataset1adotable2
active=true
主从关系建立起来了。
=========================
长青树,专注web技术,关注前端开发
web开发技术交流qq群:4063275
承接中小企业软件开发
┃承接┃软件开发|网站建设|电子商城|
┃出售┃采集软件|考勤系统|域名空间|
绿色通道:好文要顶关注我收藏该文与我联系
======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/