- 在线时间
- 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>
# j. Z3 w1 J! q" r< > 继Client/Server结构在MRP、MIS等数据库应用系统红火之后,多层结构(Multi_T </P>7 q: _6 T; ]: O
< >ier)开始登场,许多厂商提供了各种中间件。本文描述了用Borland C++ Builder(以 </P>
8 I$ ~( ^! s7 {; W3 B4 D: |. l< >下简称BCB)所提供的Multi_Tier构件来开发多层数据库应用程序的方法。 </P>
- h2 T9 f# a! X< > 一、 Multi_Tier结构的实现 </P>
4 w1 a. l( b' l) U2 n7 E< > C++ Builder提出的Multi_Tier是把以前的Client/Server前端应用程序里的BDE、S </P>
2 {, t) {, h3 L5 y; C< >QL Link和DataModule拿到另一台NT服务器上,也叫应用程序服务器,前端机只留下应用 </P>
X1 B$ [, Z x5 h, i% u< >程序及DBClient.DLL,而移到应用程序服务器上的DataModule则变成一个COM程序,此COM </P>; S) G7 T% P7 |) t8 R% {9 I
< >程序是通过BDE 、SQL Link传输SQL到后端数据库,并从后端数据库存取数据,然后由Td </P>% [- Y' b6 i3 p
< >atasetprovider组件把读取的Dataset压缩并切割成一段一段的数据包(data packet) </P>: w/ C4 R# s5 _5 a- s: V v% D
< >通过DCOM的机制传给前端机,前端机上的DBClient.DLL会把接收到的数据包再还原成Da </P>" R" M( I9 ~- }4 j; l. t
< >taSet传给程序中的TclientDataSet组件,Data Control组件就可以TclientDataSet为数 </P>
" e l" q& I) V- |+ Q< >据源对之进行操作,而COM程序会把修改后的DataSet正确地写回后端数据库。 </P>; `* C$ U8 e, X% d4 U k
< > 与Client/Server结构相比,Multi_Tier结构具有很多优点,主要表现在: </P>5 V& _8 c. z1 Z* b
< > 1. 大幅度地减少数据库服务器的负担。因为多了一层应用程序服务器,接管了众多 </P>
5 H1 V4 v D2 u2 E& R3 B6 G< >客户机的Connection处理,数据库服务器只需处理应用服务器的Connection,这样就不 </P>
4 _: G# h: O: `1 H0 b9 n< >会因为用户(Client)数的增加而影响系统的运行性能。 </P>
/ d A# s9 @& ^7 ^8 @& K< > 2. 前端机应用程序安装方便。Multi_Tier结构中,把以前的Client/Server前端应 </P>$ p9 U+ m( C0 s; G: q5 x
< >用程序内的BDE、SQL Link和DataModule拿到数量很少的应用服务器上,前端机只负责U </P>* F5 n1 f% Y& y$ @, p
< >se Interface的处理,只需要一个单纯的EXE文件(包括DBClient.DLL),可以在应用服 </P>% Q' a0 ?* Q3 e$ p9 g% M N
< >务器上开发前端应用程序,通过网络复制到各个前端机上。 </P>
9 y! c t# ?+ ~$ h< > 二、 环境配置 </P># N Y1 r; f9 u! r/ n
< > 1.后端数据库服务器配置 </P>
( T. c; Y3 y- f% d% [! B< > 包括数据库系统及数据库提供的中间件。本文具体环境为: </P>
2 ?8 U+ Z: q) U< > VMS操作系统上安装Oracle7.3。 </P>) h) }; L9 Y. @5 ^: ?1 k
< > 2.应用程序服务器配置 </P> M" A8 f5 s" e* }
< > (1)在PC Server上安装Windows NT ,使它成为一台Microsoft NT Server; </P>
% A( Q0 a; ~/ [. D; g< > (2)保证网络的畅通,即网络层的通讯协议的畅通; </P>
. x( l9 x( V! w; T7 _8 F< > (3)安装数据库系统提供的中间件,本文是Oracle提供的Oracle for NT 的SQL?N </P>7 I% w7 {8 o0 a$ ]4 [
< >ET产品,执行SQL?NET Easy Configuration工具,设定Oracle的TNS连接参数,加入一个数 </P>
$ Y/ S6 C! e. L7 Y- |<P>据库别名,连上后端的Oracle数据库服务器;
8 q- J" i# ?. }3 I (4)安装BDE Administrator,设定BDE的参数内容,具体步骤如下: </P>
- U) l6 |+ s. L$ n9 }<P> Databases中先新建一个别名,本文是Oracle2,其中的参数改为: </P>
8 ?4 p1 {8 |" N- @& Q! e<P>server name 数据库服务器的别名 </P>6 c: y5 U8 I8 I
<P>net protocol tns </P>* [" C5 _$ p. @& f: ~' @
<P>user name oracle的用户名/口令 </P>" K3 t# P" r& T! X a5 B0 q
<P> (5)安装C++Builder 5软件,用于开发应用服务器和客户端的程序。 </P>
4 B# ?" P7 q! e( D6 ^<P> 3.前端客户机配置 </P>
' z, W* a: U0 t( ^1 N9 w% o<P> (1)安装操作系统Windows 95/98,本文是Windows 98,保证各前端机与应用服务器 </P>- J1 t0 Q9 g- g! K# T% K! R/ D
<P>在TCP/IP层上连通; </P>0 T9 J- j$ N7 I/ O3 @7 l
<P> (2)从NT服务器的WinntSystem32目录下复制DBClient.DLL到本机的WindowsSyste </P>
/ x4 c7 P% W3 i+ [5 p<P>m; </P>
$ x4 l4 N. a( @6 L<P> (3)如操作系统为Windows 95,必须安装DCOM程序,因为Windows 98 与Windows NT </P>
* Q/ X1 K$ K( t% ?<P> Workstation已经内含DCOM程序,不需另外安装; </P>
! a2 @) D; q/ j! F7 j. V* U* a, ~<P> (4)在应用服务器上开发应用程序,通过网络复制。 </P>' _; e2 A5 k2 }4 E" r9 \3 n8 x
<P> 三、实现步骤 </P>/ ^! n4 N' g& B% Q3 P3 f
<P> 下面是一个对材料库存表进行维护的Multi_Tier结构数据库管理程序,用户可以在 </P>6 M1 v+ O' f# U4 x
<P>前端的Windows 98机上通过中间的NT应用服务器对Alpha机上的Oracle数据库上的库存表 </P>1 i$ O( w9 g4 \
<P>进行维护。 </P>
. b. P a+ u, ^( h<P> 1.应用服务器上程序的开发 </P>6 k$ ~6 Z! Z1 y: S t2 H8 _
<P> (1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Cocla </P>
2 l4 e4 i; e l/ p7 i4 P<P>ss Name项,这里是KCBB。 </P>
& K2 v. t; c7 W1 z0 [, N6 J1 G<P> (2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分 </P>% g7 y. ?! B$ d3 e, h N5 d
<P>别设置属性如下: </P>( W+ }" P; X. W" }( r( s, V& g/ N
<P>database1 aliasname oracle2 </P>
0 ? q# O9 w7 Y# U7 W& A<P> databasename test </P>
' b$ @$ p2 e' t4 `7 ]% s% a<P> connected true </P>
8 V* ~% r8 z, \8 t9 @' f. `6 z<P>table1 databasename test </P>
, B9 ?# B* ]+ Y<P> tablename kcb </P>
$ i; f. {4 n% t<P> active true </P>
7 s; T1 u" a0 h, m) X+ F<P>datasetprovider dataset table10 </P>
9 s2 s9 _$ t. L<P> expo0rted t rue </P>
, A' m: R1 l& F. v<P> 前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件 </P>
7 U- ]% F; b0 S8 L! `5 J+ k<P>将表KCB作为DATASET传给前端程序。 </P>
' R/ T7 }$ ]/ [0 A" Y5 e<P> (3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行 </P>
C. U6 P |; ]3 f8 J6 I1 I<P>时屏幕上就会出现这句话,说明程序已被调用。 </P>
5 D- H9 N, K' y( H2 ~<P> (4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运 </P>; H- x/ A, N1 `
<P>行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 </P>
( j! a/ ^4 g: V% c6 h; V<P> 2.前端程序的开发 </P>
7 N$ Z+ h& x& H; b1 K7 r3 ~+ O<P> (1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、Dat </P>
! P9 Y- g% o5 b! \& p5 v<P>aSource组件、Dbgrid组件到FORM1上。 </P>; c; U1 Q0 K; G2 H/ M& d
<P> DCOMConnection1设置如下属性: </P>3 Y4 }9 y: q6 N: ^1 v: s$ q0 S. D. O
<P>computername 应用服务器的机器名 </P>
- W8 D4 A" \0 \4 S, p0 G<P>servername project1.kcbb </P>
- t. b1 |! ~2 J: {8 r9 Z<P> ClientDataSet1设置如下属性: </P>4 r7 `) o8 {$ X: l
<P>remoteserver dcomconnection1 </P>
" I8 D: K- W. f* L& w6 W/ k% k<P>provider table1 </P>3 s% G* a* {2 e* m/ z& b0 L. B; A
<P>active true </P>! {+ @% S6 k" K4 ~- F3 u1 l
<P> DataSource的DATASET设置为ClientDataSet1; </P>. }# W' L' q/ H: o+ B
<P> Dbgrid的DataSource设置为DataSource1。 </P>" A" ?8 @9 G( o& Y4 l
<P> (2)拖7个Button来当作功能按钮 ,分别设为新增、修改、删除、取消、写入、重新 </P>5 e- `# l6 v9 s2 Q$ K6 l
<P>读取、返回 。由于BCB提供了ActionList组件,其中包括了StandardAction,可以利用这 </P>) l! ]9 O. B5 U3 N" E, g
<P>些标准的Action来编写Dataset的编辑功能, 只要把Button的属性Action依照每Button所 </P>! Y3 g" E! ^2 X
: _% L7 {1 W5 J* e$ a6 r9 _2 t
<P>赋予的功能指向对应的ActionList项即可。 </P>* h" x( h- R, v
<P> 最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结 </P>
- L+ X6 b1 q" [) r<P>构的数据库应用程序就可投入使用了。 </P>
0 X5 X$ W! D, V. i+ B) t<P> 本文仅仅描述了开发Multi_Tier结构的数据库应用程序的一种基本方法,还需要我 </P>
/ p3 s7 w& a. ~4 U5 {" _; r" X<P>们在实际应用中进一步完善,如怎样提高数据在其上的传输效率及数据传输中的出错处 </P>$ L2 }5 m% s- h; R' V+ F+ W
<P>理等都需要进一步地编程实现 </P> |
zan
|