- 在线时间
- 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>8 r3 e$ G9 C( b0 E/ z
< > 继Client/Server结构在MRP、MIS等数据库应用系统红火之后,多层结构(Multi_T </P># _5 w2 I* O: V# r: H
< >ier)开始登场,许多厂商提供了各种中间件。本文描述了用Borland C++ Builder(以 </P>
y! E; ~# k6 O< >下简称BCB)所提供的Multi_Tier构件来开发多层数据库应用程序的方法。 </P>
, Q( B6 L$ ^' X0 D/ S1 R< > 一、 Multi_Tier结构的实现 </P>
$ C% {4 s& e0 z# Z< > C++ Builder提出的Multi_Tier是把以前的Client/Server前端应用程序里的BDE、S </P>
# P4 n. Z8 w+ R0 X9 Y< >QL Link和DataModule拿到另一台NT服务器上,也叫应用程序服务器,前端机只留下应用 </P>' W9 c1 m4 \4 U# t" g1 |
< >程序及DBClient.DLL,而移到应用程序服务器上的DataModule则变成一个COM程序,此COM </P>
6 d! J" k3 Y7 _. F- j; P< >程序是通过BDE 、SQL Link传输SQL到后端数据库,并从后端数据库存取数据,然后由Td </P>
w* k: d( o; [7 h: E# _. H0 d< >atasetprovider组件把读取的Dataset压缩并切割成一段一段的数据包(data packet) </P>
: L! e+ w, r: P< >通过DCOM的机制传给前端机,前端机上的DBClient.DLL会把接收到的数据包再还原成Da </P> \. W9 Q3 I4 @/ q( C8 m4 K
< >taSet传给程序中的TclientDataSet组件,Data Control组件就可以TclientDataSet为数 </P>
0 Z O) u3 s6 K7 l, p \! x% _< >据源对之进行操作,而COM程序会把修改后的DataSet正确地写回后端数据库。 </P>
* u9 x" F. ]3 `. X0 R< > 与Client/Server结构相比,Multi_Tier结构具有很多优点,主要表现在: </P>
' X" F, d5 ~ U< > 1. 大幅度地减少数据库服务器的负担。因为多了一层应用程序服务器,接管了众多 </P>
: o5 O0 ^( e9 g H/ p% ]$ H" O! D0 ]< >客户机的Connection处理,数据库服务器只需处理应用服务器的Connection,这样就不 </P>
) K! b2 ?7 G( F( x& B8 R< >会因为用户(Client)数的增加而影响系统的运行性能。 </P>
9 i' K' V" N* r- V< > 2. 前端机应用程序安装方便。Multi_Tier结构中,把以前的Client/Server前端应 </P>
9 g2 B% }% s$ ]4 y8 N< >用程序内的BDE、SQL Link和DataModule拿到数量很少的应用服务器上,前端机只负责U </P>; i5 Q7 K4 r: z5 u+ r' Z- K" }- j
< >se Interface的处理,只需要一个单纯的EXE文件(包括DBClient.DLL),可以在应用服 </P>
N2 ] H( @" H1 m1 E7 g< >务器上开发前端应用程序,通过网络复制到各个前端机上。 </P>5 j* N0 ]: d- N; |7 D# E
< > 二、 环境配置 </P>
' w& M7 }) U1 X% {% r1 i6 X< > 1.后端数据库服务器配置 </P>& Y/ K j5 z" Q( d" {: @; H6 J
< > 包括数据库系统及数据库提供的中间件。本文具体环境为: </P>
( X, {9 m1 s8 g$ V< > VMS操作系统上安装Oracle7.3。 </P>
7 U. T. {' @8 u& ^& n( V. p& D b< > 2.应用程序服务器配置 </P>
, r0 f" c- f3 {$ h8 X/ `9 Z< > (1)在PC Server上安装Windows NT ,使它成为一台Microsoft NT Server; </P>0 P, y( e4 T- y2 V, O+ y+ g1 k
< > (2)保证网络的畅通,即网络层的通讯协议的畅通; </P>
3 D% ~8 R! @$ q& O< > (3)安装数据库系统提供的中间件,本文是Oracle提供的Oracle for NT 的SQL?N </P>, N! a4 A {' Y' H2 ]" U
< >ET产品,执行SQL?NET Easy Configuration工具,设定Oracle的TNS连接参数,加入一个数 </P>% f" a' q! q y, T
<P>据库别名,连上后端的Oracle数据库服务器; 8 n; o5 `# _/ S+ w; `) b) g
(4)安装BDE Administrator,设定BDE的参数内容,具体步骤如下: </P>! D- x5 k4 A7 W0 B( o
<P> Databases中先新建一个别名,本文是Oracle2,其中的参数改为: </P>3 d+ i% l1 v( r$ `) t* o7 d9 c
<P>server name 数据库服务器的别名 </P>$ k0 I5 _6 U; y* r& J. H
<P>net protocol tns </P>' t+ G* H: ]+ O* q' L
<P>user name oracle的用户名/口令 </P>" t0 k) `% c7 Q3 e+ Z1 I
<P> (5)安装C++Builder 5软件,用于开发应用服务器和客户端的程序。 </P>3 o% T* }& T6 u& N- Z1 z1 d
<P> 3.前端客户机配置 </P>
3 d" u. k7 ?# ^, s4 g( J: A4 h<P> (1)安装操作系统Windows 95/98,本文是Windows 98,保证各前端机与应用服务器 </P>6 I. C% o6 K6 p$ W5 c
<P>在TCP/IP层上连通; </P>8 n- Q1 b/ j0 \! m: t
<P> (2)从NT服务器的WinntSystem32目录下复制DBClient.DLL到本机的WindowsSyste </P>/ _+ _0 A$ k% G: i
<P>m; </P>
4 g8 z- T8 L; }2 {( x8 d<P> (3)如操作系统为Windows 95,必须安装DCOM程序,因为Windows 98 与Windows NT </P>
) f7 I+ I! O5 X' m<P> Workstation已经内含DCOM程序,不需另外安装; </P>
+ z8 }4 K$ T! P7 C, h( x# Y% F# T<P> (4)在应用服务器上开发应用程序,通过网络复制。 </P>1 p/ u6 Q5 z( q
<P> 三、实现步骤 </P>
2 Q7 Z( ]/ m2 G<P> 下面是一个对材料库存表进行维护的Multi_Tier结构数据库管理程序,用户可以在 </P>
a2 c" ?9 h- _: w: u& v, z, s- [<P>前端的Windows 98机上通过中间的NT应用服务器对Alpha机上的Oracle数据库上的库存表 </P>
9 ~! B" X4 Z. x+ x8 M5 ~<P>进行维护。 </P>
3 w/ l2 ^8 C$ L- |<P> 1.应用服务器上程序的开发 </P>
* P+ M* y0 s1 e$ v- m<P> (1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Cocla </P>% @- W+ W; `$ Z! _, M }/ [2 y% N
<P>ss Name项,这里是KCBB。 </P>
+ A/ G! L* ]9 U& [+ x% c<P> (2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分 </P>
& }" z+ D% l4 F- p<P>别设置属性如下: </P>
5 D1 t- W* Y1 _; `! S/ V<P>database1 aliasname oracle2 </P>1 h( u" G( W4 l4 J3 Q
<P> databasename test </P>& x) A: m9 O/ [% b
<P> connected true </P>" v# ^6 [4 v1 [, n/ q) t' M" W
<P>table1 databasename test </P>% {& H, G( i! q! K2 ~1 D
<P> tablename kcb </P> O. l* p" P: D5 y7 E5 ~& O
<P> active true </P>7 k5 Z' m; ?1 r2 z5 k
<P>datasetprovider dataset table10 </P>7 G; i/ K% L+ B! c
<P> expo0rted t rue </P>/ h2 D8 p# `2 \) o9 Q7 v8 y( [
<P> 前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件 </P>
2 C* O* n- ~( T s/ @+ g<P>将表KCB作为DATASET传给前端程序。 </P>
- H2 j1 s5 j3 W, }8 Z<P> (3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行 </P>
: y N; K# s* F/ E<P>时屏幕上就会出现这句话,说明程序已被调用。 </P>
$ l) V% G( `) |1 _8 V" w<P> (4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运 </P>7 Q+ r. J1 T0 [! t3 h2 q+ A( F- a B
<P>行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 </P># f( S+ K3 |) r# ~
<P> 2.前端程序的开发 </P>8 w+ k& F7 L: l- }
<P> (1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、Dat </P>
- \% D4 e: |6 V8 b4 k* X+ u3 j<P>aSource组件、Dbgrid组件到FORM1上。 </P>
3 t4 z a2 ~* d5 ~0 \<P> DCOMConnection1设置如下属性: </P>: a+ y3 q' H# Z# y* Q! j
<P>computername 应用服务器的机器名 </P>
% {1 K k8 h$ k0 ^9 ^' s8 V' L<P>servername project1.kcbb </P>
( k: M" z+ ?9 I<P> ClientDataSet1设置如下属性: </P>" C' T; H, w: s* _
<P>remoteserver dcomconnection1 </P>- M, ^" [% c+ z/ n9 \- ^ C
<P>provider table1 </P>
' s' ?: ^' Q6 D( M5 @* C( \<P>active true </P>
$ r! T9 `. k# b<P> DataSource的DATASET设置为ClientDataSet1; </P>
W! T6 R/ i; j4 G/ _7 q<P> Dbgrid的DataSource设置为DataSource1。 </P>6 w/ H2 ^. Q: A5 W p/ t
<P> (2)拖7个Button来当作功能按钮 ,分别设为新增、修改、删除、取消、写入、重新 </P>+ S w9 F m/ F7 V, U
<P>读取、返回 。由于BCB提供了ActionList组件,其中包括了StandardAction,可以利用这 </P>
$ k7 Q' B2 H" l+ Y8 p7 a! ^. _<P>些标准的Action来编写Dataset的编辑功能, 只要把Button的属性Action依照每Button所 </P>4 }" d7 p- i9 v# p" t: p( b, N
7 ]5 `- X9 n1 U1 h; q+ v
<P>赋予的功能指向对应的ActionList项即可。 </P>
2 W. @+ Y; U8 V. X& ~<P> 最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结 </P>
( g- I1 X" X8 U<P>构的数据库应用程序就可投入使用了。 </P>7 |* L0 `+ E- F- f6 e. n
<P> 本文仅仅描述了开发Multi_Tier结构的数据库应用程序的一种基本方法,还需要我 </P>
+ l6 x3 @) E3 Q0 A8 U' ]. y( u: g<P>们在实际应用中进一步完善,如怎样提高数据在其上的传输效率及数据传输中的出错处 </P>0 t0 P" d, r' ?- }% T6 m: m) O
<P>理等都需要进一步地编程实现 </P> |
zan
|