- 在线时间
- 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>
4 G# F, G+ k: Q" c< > 继Client/Server结构在MRP、MIS等数据库应用系统红火之后,多层结构(Multi_T </P>9 g" [$ Z# j: N
< >ier)开始登场,许多厂商提供了各种中间件。本文描述了用Borland C++ Builder(以 </P>4 p0 ~8 C7 l; F- [' W7 s& h3 s
< >下简称BCB)所提供的Multi_Tier构件来开发多层数据库应用程序的方法。 </P>
" \1 J* S+ T7 e9 k9 a$ A/ ^< > 一、 Multi_Tier结构的实现 </P>" D) O0 `9 B D- V# P0 R
< > C++ Builder提出的Multi_Tier是把以前的Client/Server前端应用程序里的BDE、S </P>) _9 i* H% l( K' d0 ?7 \
< >QL Link和DataModule拿到另一台NT服务器上,也叫应用程序服务器,前端机只留下应用 </P>
+ s0 {0 i3 ^" B* P< >程序及DBClient.DLL,而移到应用程序服务器上的DataModule则变成一个COM程序,此COM </P>, K1 D& ~6 q- v
< >程序是通过BDE 、SQL Link传输SQL到后端数据库,并从后端数据库存取数据,然后由Td </P>
7 s. v5 W- f" j. m4 c1 a< >atasetprovider组件把读取的Dataset压缩并切割成一段一段的数据包(data packet) </P>0 g! [. H+ y0 F# R7 K
< >通过DCOM的机制传给前端机,前端机上的DBClient.DLL会把接收到的数据包再还原成Da </P>
3 @, Z' ?) \) j o6 o< >taSet传给程序中的TclientDataSet组件,Data Control组件就可以TclientDataSet为数 </P>) N4 |+ f4 ?. [, @2 A
< >据源对之进行操作,而COM程序会把修改后的DataSet正确地写回后端数据库。 </P>
2 E6 ]' I2 m: ?, K< > 与Client/Server结构相比,Multi_Tier结构具有很多优点,主要表现在: </P>
$ E! _& g q, X, u0 c< > 1. 大幅度地减少数据库服务器的负担。因为多了一层应用程序服务器,接管了众多 </P>
7 K3 k' D+ b2 w. Z! h< >客户机的Connection处理,数据库服务器只需处理应用服务器的Connection,这样就不 </P>
; i q! a$ p/ b" m7 L" @< >会因为用户(Client)数的增加而影响系统的运行性能。 </P>
6 ~9 g3 i- n! D9 @< > 2. 前端机应用程序安装方便。Multi_Tier结构中,把以前的Client/Server前端应 </P>6 W$ u7 x, t v y- R1 l
< >用程序内的BDE、SQL Link和DataModule拿到数量很少的应用服务器上,前端机只负责U </P>. F; h6 E! R1 w( r
< >se Interface的处理,只需要一个单纯的EXE文件(包括DBClient.DLL),可以在应用服 </P>
' ]0 f7 ]* N# w# a ^$ d& c# s< >务器上开发前端应用程序,通过网络复制到各个前端机上。 </P>
/ c3 E; ~7 Q7 n8 [; l" \< > 二、 环境配置 </P>
' c5 h; D- y. F. b< > 1.后端数据库服务器配置 </P>( |! W% F6 p2 ]7 Q# S
< > 包括数据库系统及数据库提供的中间件。本文具体环境为: </P>9 L9 u6 r- J+ n2 [& [3 h
< > VMS操作系统上安装Oracle7.3。 </P>
" w" O' {! C/ C< > 2.应用程序服务器配置 </P>8 N( e8 K: j% o5 `) ]
< > (1)在PC Server上安装Windows NT ,使它成为一台Microsoft NT Server; </P>
' |# P3 P& {! U< > (2)保证网络的畅通,即网络层的通讯协议的畅通; </P>: h3 Q7 E f; P- p
< > (3)安装数据库系统提供的中间件,本文是Oracle提供的Oracle for NT 的SQL?N </P>1 M( K. j' ?7 F8 M0 O
< >ET产品,执行SQL?NET Easy Configuration工具,设定Oracle的TNS连接参数,加入一个数 </P>% A% X0 O" ^ K) [/ j
<P>据库别名,连上后端的Oracle数据库服务器;
6 y6 m# M5 V! [6 [2 V5 m. q (4)安装BDE Administrator,设定BDE的参数内容,具体步骤如下: </P>' [8 e9 D4 I# F, Q
<P> Databases中先新建一个别名,本文是Oracle2,其中的参数改为: </P>
# H- a4 I8 z; [<P>server name 数据库服务器的别名 </P>: [4 w$ n2 X+ S& K8 ?1 @! R
<P>net protocol tns </P>5 U* x/ @( c6 I+ {) ?% {% D; p
<P>user name oracle的用户名/口令 </P>( i2 ~+ q( A( i$ s" t, g" X
<P> (5)安装C++Builder 5软件,用于开发应用服务器和客户端的程序。 </P>2 k4 s3 ^, w7 K9 r9 I, M( o/ a9 S9 n
<P> 3.前端客户机配置 </P>
5 Q8 r8 W) Q/ { k" w4 M<P> (1)安装操作系统Windows 95/98,本文是Windows 98,保证各前端机与应用服务器 </P>3 b5 k ], N I1 a0 S/ P0 D/ K
<P>在TCP/IP层上连通; </P>' T6 B6 i2 o+ _
<P> (2)从NT服务器的WinntSystem32目录下复制DBClient.DLL到本机的WindowsSyste </P>7 `2 g2 \$ n5 E4 N# N0 d, n% F
<P>m; </P>4 a$ z# W4 ]8 ?, _( a
<P> (3)如操作系统为Windows 95,必须安装DCOM程序,因为Windows 98 与Windows NT </P>2 Z# D0 n" y6 r" t. Z
<P> Workstation已经内含DCOM程序,不需另外安装; </P>$ v2 b) I1 w# f+ g
<P> (4)在应用服务器上开发应用程序,通过网络复制。 </P>+ h% ~$ E/ I) n! e* b
<P> 三、实现步骤 </P>8 l9 |& F, u7 ~# M: @' m. Y% C. [
<P> 下面是一个对材料库存表进行维护的Multi_Tier结构数据库管理程序,用户可以在 </P>
* w/ `8 K2 x" _( J; Y, [4 @<P>前端的Windows 98机上通过中间的NT应用服务器对Alpha机上的Oracle数据库上的库存表 </P>
5 f y6 A q0 M4 @<P>进行维护。 </P>( Y7 ~( B) {' G B7 S' U
<P> 1.应用服务器上程序的开发 </P>
1 t& C+ }" @/ R8 b7 v' W<P> (1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Cocla </P>- r( g- y9 N& v6 V: U: }
<P>ss Name项,这里是KCBB。 </P>( \5 o* I+ j2 `* d
<P> (2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分 </P>
" y0 c! @) w: Q( Q7 T+ L' f* d<P>别设置属性如下: </P>7 ~: z# |7 N+ T$ a" D
<P>database1 aliasname oracle2 </P>/ ?: G4 l. M s* u+ U) S2 I
<P> databasename test </P>
" ?9 p& _ I7 Z, l1 I<P> connected true </P>
# s* t* R I: ^# P& a* i, [<P>table1 databasename test </P>
+ `0 q2 |* ]8 _: H* H& f<P> tablename kcb </P>" ^" S+ s {" _" |
<P> active true </P>0 o& Q2 {. c9 z1 \( V- Y4 w
<P>datasetprovider dataset table10 </P>
J G8 W# R# g( ^. O0 @8 C7 u4 J<P> expo0rted t rue </P>
. @3 t8 l* V8 s& x w<P> 前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件 </P>
0 S0 ~$ q3 ]' V) |7 o" W& i<P>将表KCB作为DATASET传给前端程序。 </P>
g( T0 G6 [& W* I0 D) [<P> (3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行 </P>
3 ^+ W z' h) o6 v. w1 S<P>时屏幕上就会出现这句话,说明程序已被调用。 </P>
" I2 f3 w3 h! ^6 v<P> (4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运 </P>
# _1 g% P5 a$ {7 f" _<P>行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 </P>
/ g5 Z( O8 D6 l& K<P> 2.前端程序的开发 </P>( x1 G) M a# E, w3 w: d
<P> (1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、Dat </P>1 z% r1 g* R" l8 g% y
<P>aSource组件、Dbgrid组件到FORM1上。 </P>( |4 |+ X1 r; `& s
<P> DCOMConnection1设置如下属性: </P>
$ M0 s: _/ }- I# E! S<P>computername 应用服务器的机器名 </P>
- Q k& ^1 F" ^/ F0 C% W/ a7 `+ J( q<P>servername project1.kcbb </P>3 H3 G: Y( U$ |- R# o4 p0 }" |# _3 h
<P> ClientDataSet1设置如下属性: </P>( e8 |: @# f q" i" |/ c
<P>remoteserver dcomconnection1 </P>
/ x N, `& Z/ X v0 N<P>provider table1 </P>9 {4 N9 m5 G" U! ]: V
<P>active true </P>; f! X: D8 z. U" x0 g8 R; o* Y
<P> DataSource的DATASET设置为ClientDataSet1; </P>
g/ X0 ^3 W7 J4 P1 y% Q% [<P> Dbgrid的DataSource设置为DataSource1。 </P>, z& H& w+ X/ x$ ?, h/ J) f% A% l! w, W
<P> (2)拖7个Button来当作功能按钮 ,分别设为新增、修改、删除、取消、写入、重新 </P>! e: k7 {3 x9 _) G& }
<P>读取、返回 。由于BCB提供了ActionList组件,其中包括了StandardAction,可以利用这 </P>8 y0 ?, H- z( ?9 n H
<P>些标准的Action来编写Dataset的编辑功能, 只要把Button的属性Action依照每Button所 </P>
# r5 k O" x# x+ X3 z( M
# |+ j: u) j8 V1 E<P>赋予的功能指向对应的ActionList项即可。 </P>
/ q7 i" _& Z+ q<P> 最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结 </P>
3 I1 n% _/ F% j1 Z6 `% A<P>构的数据库应用程序就可投入使用了。 </P>
Y8 [- u3 q6 e# S, s: e' |# J<P> 本文仅仅描述了开发Multi_Tier结构的数据库应用程序的一种基本方法,还需要我 </P>
1 M7 P2 R0 h/ W. X: _0 `: H) q2 C<P>们在实际应用中进一步完善,如怎样提高数据在其上的传输效率及数据传输中的出错处 </P>
' _( o* t9 @1 U( o1 e4 X<P>理等都需要进一步地编程实现 </P> |
zan
|