- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0

我的地盘我做主
该用户从未签到
 |
< >邓未玲 2000-11-16 16:27:11 </P>
! A B7 f! t2 x( }& K4 S( L< > 继Client/Server结构在MRP、MIS等数据库应用系统红火之后,多层结构(Multi_T </P>
, x) @% h# g2 d# g< >ier)开始登场,许多厂商提供了各种中间件。本文描述了用Borland C++ Builder(以 </P># J1 c6 ?+ J% H' H& s
< >下简称BCB)所提供的Multi_Tier构件来开发多层数据库应用程序的方法。 </P>
) q5 h: M0 w0 _# ]" N6 U; Y6 A< > 一、 Multi_Tier结构的实现 </P>1 V* D2 a* e& b; J
< > C++ Builder提出的Multi_Tier是把以前的Client/Server前端应用程序里的BDE、S </P>
/ C3 S& B! F7 W4 r% i< >QL Link和DataModule拿到另一台NT服务器上,也叫应用程序服务器,前端机只留下应用 </P>
4 x6 b5 ^6 g& v5 `7 j7 d+ B< >程序及DBClient.DLL,而移到应用程序服务器上的DataModule则变成一个COM程序,此COM </P>
, y$ g6 } J6 ~' V9 n< >程序是通过BDE 、SQL Link传输SQL到后端数据库,并从后端数据库存取数据,然后由Td </P>
' b( i5 X' |9 i1 i& K< >atasetprovider组件把读取的Dataset压缩并切割成一段一段的数据包(data packet) </P>
5 B" M# D6 X& L4 d1 s$ v$ X< >通过DCOM的机制传给前端机,前端机上的DBClient.DLL会把接收到的数据包再还原成Da </P>
$ q N- k; `4 v4 F& H< >taSet传给程序中的TclientDataSet组件,Data Control组件就可以TclientDataSet为数 </P>
7 g" C# L6 j5 k< >据源对之进行操作,而COM程序会把修改后的DataSet正确地写回后端数据库。 </P>8 T& C \0 W3 f$ k* n2 g s0 F
< > 与Client/Server结构相比,Multi_Tier结构具有很多优点,主要表现在: </P>
$ o: }9 {$ ?. R3 v: s0 z; ]. }< > 1. 大幅度地减少数据库服务器的负担。因为多了一层应用程序服务器,接管了众多 </P>
8 Z* o8 p f8 k# \2 u$ }" m: [< >客户机的Connection处理,数据库服务器只需处理应用服务器的Connection,这样就不 </P>
3 g# {- D L; T% U2 f< >会因为用户(Client)数的增加而影响系统的运行性能。 </P>1 u* k: @0 F4 |* o7 @3 e6 J; k+ N
< > 2. 前端机应用程序安装方便。Multi_Tier结构中,把以前的Client/Server前端应 </P>( i3 s) y3 V& [* z
< >用程序内的BDE、SQL Link和DataModule拿到数量很少的应用服务器上,前端机只负责U </P>
, c$ V+ B, W. ]; J< >se Interface的处理,只需要一个单纯的EXE文件(包括DBClient.DLL),可以在应用服 </P>! \* ?( N& `1 @# z! m. [
< >务器上开发前端应用程序,通过网络复制到各个前端机上。 </P>0 i) ^, {5 l2 p/ n2 ]
< > 二、 环境配置 </P>* M+ M" ^/ w0 Z" ~
< > 1.后端数据库服务器配置 </P>
: D0 }" ?1 n7 n# E: R. A; T< > 包括数据库系统及数据库提供的中间件。本文具体环境为: </P>4 i2 C D: p* M
< > VMS操作系统上安装Oracle7.3。 </P>1 z, g0 ^+ ~- T
< > 2.应用程序服务器配置 </P>
! i( `# w, ^7 K6 z4 P< > (1)在PC Server上安装Windows NT ,使它成为一台Microsoft NT Server; </P>5 B ?6 J% u6 t& v' M4 O# J1 M
< > (2)保证网络的畅通,即网络层的通讯协议的畅通; </P>
# B0 w2 j2 F( E* O1 V< > (3)安装数据库系统提供的中间件,本文是Oracle提供的Oracle for NT 的SQL?N </P>
! \6 ^7 g4 H, X$ @' A' | a8 t) F* A* z< >ET产品,执行SQL?NET Easy Configuration工具,设定Oracle的TNS连接参数,加入一个数 </P>
2 g& q1 ?) r# R( w8 I8 ^$ B<P>据库别名,连上后端的Oracle数据库服务器; & {8 \5 v# y5 _: k- r" _, s5 n
(4)安装BDE Administrator,设定BDE的参数内容,具体步骤如下: </P>2 F# S) s# v |# {1 |: k. Z! t
<P> Databases中先新建一个别名,本文是Oracle2,其中的参数改为: </P>8 Z' X+ b% {+ A" j
<P>server name 数据库服务器的别名 </P>
% @, H" a4 H/ R" R<P>net protocol tns </P>3 q/ H2 d9 ]% K& B" S* e. v
<P>user name oracle的用户名/口令 </P>9 _- k' s/ E2 {) V1 @6 b" C
<P> (5)安装C++Builder 5软件,用于开发应用服务器和客户端的程序。 </P>
4 {: |' k2 A! z<P> 3.前端客户机配置 </P>* N1 \1 M X! K/ e
<P> (1)安装操作系统Windows 95/98,本文是Windows 98,保证各前端机与应用服务器 </P>5 D1 N T N/ h( I9 R7 A
<P>在TCP/IP层上连通; </P>
( a6 j5 j! I* ]9 g# b5 T9 C5 L<P> (2)从NT服务器的WinntSystem32目录下复制DBClient.DLL到本机的WindowsSyste </P>4 j6 {" w6 |& z. k7 U
<P>m; </P>' `* s! N3 O9 j" k+ ]% h
<P> (3)如操作系统为Windows 95,必须安装DCOM程序,因为Windows 98 与Windows NT </P>
4 O$ { M4 u( j v5 P9 T<P> Workstation已经内含DCOM程序,不需另外安装; </P>7 K$ r: |' J' V4 W6 ?* S1 N# `
<P> (4)在应用服务器上开发应用程序,通过网络复制。 </P>
8 x/ ]% l. g! Z' Y/ t. L<P> 三、实现步骤 </P>
# ]; P3 |: u4 P7 Q<P> 下面是一个对材料库存表进行维护的Multi_Tier结构数据库管理程序,用户可以在 </P>% ^( l; i, L/ s8 o8 ^1 H, `
<P>前端的Windows 98机上通过中间的NT应用服务器对Alpha机上的Oracle数据库上的库存表 </P>- M+ M' d- p: \$ O
<P>进行维护。 </P>
2 g/ G/ S7 \, R2 ?( X) U<P> 1.应用服务器上程序的开发 </P> u/ B; d" p/ G4 Q. ?) a
<P> (1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Cocla </P>: h2 G1 c( t8 \7 c- W
<P>ss Name项,这里是KCBB。 </P>
( _/ e+ g5 @- G9 C1 R<P> (2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分 </P>
+ \0 v. o/ \! S5 d5 b<P>别设置属性如下: </P>
9 ^4 v! H$ ]3 {& F( B" g<P>database1 aliasname oracle2 </P>4 | a( w7 p+ _( g, d
<P> databasename test </P>
1 }, ~1 x9 Y6 a5 S6 k<P> connected true </P>
0 H. c6 u, f4 v+ k<P>table1 databasename test </P>
" j8 N: _% ~0 Z. E$ H<P> tablename kcb </P>
2 y0 Y/ g' {: M8 ^2 ?5 m8 G. @5 _9 h<P> active true </P>
: {+ i6 S; s6 k+ e# {7 [<P>datasetprovider dataset table10 </P>0 M; O0 X. G+ a* X" ^
<P> expo0rted t rue </P>
1 ^( @7 a' H( F t0 N7 j; ?<P> 前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件 </P>/ m$ i* I: Y d1 w, j4 s V
<P>将表KCB作为DATASET传给前端程序。 </P>, \- i, `0 h$ f% s! K) |4 C/ e, w+ `8 k
<P> (3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行 </P>
5 @5 w! {9 M3 v$ x0 l- G2 m<P>时屏幕上就会出现这句话,说明程序已被调用。 </P>
" W ~/ |) T# l7 v' y) _<P> (4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运 </P>
: Y( _1 E: P& K! \2 D; E<P>行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 </P>
% x0 x# a7 E& c<P> 2.前端程序的开发 </P>
n/ l7 v0 P K" @- g" b. w<P> (1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、Dat </P>$ t; D# n- C3 b
<P>aSource组件、Dbgrid组件到FORM1上。 </P>$ k: I! R/ K+ p, Q8 Z4 N6 h
<P> DCOMConnection1设置如下属性: </P>0 d1 W6 t2 d1 J c7 [/ p8 _
<P>computername 应用服务器的机器名 </P>
* Y- n. p( |8 B7 W5 ?<P>servername project1.kcbb </P># x# K0 ]" \) u) o W; T6 S& @6 X" Y
<P> ClientDataSet1设置如下属性: </P>
6 V) j4 m9 ]; ]. m<P>remoteserver dcomconnection1 </P>
. Q {9 R# P! d" r<P>provider table1 </P>
m" r2 K; A- J$ ?* T0 j! Y7 ]) A<P>active true </P>+ {: w) Q# u( t- }6 E/ B x0 x' T: U
<P> DataSource的DATASET设置为ClientDataSet1; </P>
, M; v2 V0 ?! {* `% ^9 M<P> Dbgrid的DataSource设置为DataSource1。 </P> r5 L; |" p6 v5 T- V2 N; [3 F
<P> (2)拖7个Button来当作功能按钮 ,分别设为新增、修改、删除、取消、写入、重新 </P> ]5 W' g# C* I: @
<P>读取、返回 。由于BCB提供了ActionList组件,其中包括了StandardAction,可以利用这 </P>
8 X0 Q9 q. N8 M/ w J2 G3 ^# v<P>些标准的Action来编写Dataset的编辑功能, 只要把Button的属性Action依照每Button所 </P>
% q4 y3 h% K0 m( L5 s; R# l6 o/ V( I3 @0 o) g4 I
<P>赋予的功能指向对应的ActionList项即可。 </P>
. ^' h' O; [2 E6 _<P> 最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结 </P>+ {* n- x( K* o' E
<P>构的数据库应用程序就可投入使用了。 </P>
$ n- S/ J/ X, l2 c; k: c<P> 本文仅仅描述了开发Multi_Tier结构的数据库应用程序的一种基本方法,还需要我 </P>
/ A6 ]6 V% m! i" R<P>们在实际应用中进一步完善,如怎样提高数据在其上的传输效率及数据传输中的出错处 </P>
0 [" I' b; y2 g: ?, }<P>理等都需要进一步地编程实现 </P> |
zan
|