用BCB开发多层数据库应用程序

韩冰

<>邓未玲　2000-11-16 16:27:11 </P>
<>　　继Client/Server结构在MRP、MIS等数据库应用系统红火之后，多层结构（Multi_T </P>
<>ier）开始登场，许多厂商提供了各种中间件。本文描述了用Borland C++ Builder（以 </P>
<>下简称BCB）所提供的Multi_Tier构件来开发多层数据库应用程序的方法。 </P>
. n% k! u. j' }7 i' [<>　　一、 Multi_Tier结构的实现 </P>
<>　　C++ Builder提出的Multi_Tier是把以前的Client/Server前端应用程序里的BDE、S </P>
<>QL Link和DataModule拿到另一台NT服务器上，也叫应用程序服务器，前端机只留下应用 </P>
<>程序及DBClient.DLL,而移到应用程序服务器上的DataModule则变成一个COM程序,此COM </P>
<>程序是通过BDE 、SQL Link传输SQL到后端数据库,并从后端数据库存取数据，然后由Td </P>
5 `4 a- B+ I2 [& z9 I5 s/ D# @<>atasetprovider组件把读取的Dataset压缩并切割成一段一段的数据包（data packet） </P>
<>通过DCOM的机制传给前端机，前端机上的DBClient.DLL会把接收到的数据包再还原成Da </P>
) F+ G  r/ W$ d- l<>taSet传给程序中的TclientDataSet组件,Data Control组件就可以TclientDataSet为数 </P>
( R9 Q( A6 z5 A( U: _$ O. \7 b<>据源对之进行操作，而COM程序会把修改后的DataSet正确地写回后端数据库。 </P>
2 R2 h6 L& w( x. U# D<>　　与Client/Server结构相比，Multi_Tier结构具有很多优点，主要表现在： </P>
% d( c0 U8 s: ?5 u0 s# x( N<>　　1. 大幅度地减少数据库服务器的负担。因为多了一层应用程序服务器，接管了众多 </P>
" x) N/ Y3 U% z) ^0 P  N3 t, r. D<>客户机的Connection处理，数据库服务器只需处理应用服务器的Connection，这样就不 </P>
6 m/ X* A# i: W3 ?) S) U<>会因为用户（Client）数的增加而影响系统的运行性能。 </P>
' j/ c5 z) M5 A+ Z) ?$ s<>　　2. 前端机应用程序安装方便。Multi_Tier结构中，把以前的Client/Server前端应 </P>
<>用程序内的BDE、SQL Link和DataModule拿到数量很少的应用服务器上，前端机只负责U </P>
7 t* c* V! i9 B8 d5 T<>se Interface的处理，只需要一个单纯的EXE文件（包括DBClient.DLL）,可以在应用服 </P>
% ~5 f$ T+ a: |3 ~* @: X1 O0 y8 j* `. M% L<>务器上开发前端应用程序,通过网络复制到各个前端机上。 </P>
<>　　二、 环境配置 </P>
1 P" b; G0 Z: W' w- R+ C, h<>　　1.后端数据库服务器配置 </P>
3 \5 }/ \! c) n9 y<>　　包括数据库系统及数据库提供的中间件。本文具体环境为： </P>
  n+ t5 r& l5 ^# v* Q6 W" s<>　　VMS操作系统上安装Oracle7.3。 </P>
  \. P, ^; {' r6 {" h<>　　2.应用程序服务器配置 </P>
5 \) `4 [7 w0 C<>　　（1）在PC Server上安装Windows NT ，使它成为一台Microsoft NT Server； </P>
<>　　（2）保证网络的畅通,即网络层的通讯协议的畅通； </P>
4 L6 a) _: i* I! l$ B1 K- H<>　　（3）安装数据库系统提供的中间件,本文是Oracle提供的Oracle for NT 的SQL？N </P>
<>ET产品,执行SQL？NET Easy Configuration工具,设定Oracle的TNS连接参数,加入一个数 </P>
<P>据库别名,连上后端的Oracle数据库服务器；
! {8 N0 K4 M7 n2 W# X　　（4）安装BDE Administrator，设定BDE的参数内容，具体步骤如下： </P>
+ q2 ]2 X' {" K/ |( `4 ?1 y<P>　　Databases中先新建一个别名，本文是Oracle2，其中的参数改为： </P>
' Q+ i$ D0 }. a" ^# h" l4 J. Q! O3 c. X<P>server name 　　数据库服务器的别名 </P>
- z" t. E% f$ q<P>net protocol 　　tns </P>
<P>user name 　　　oracle的用户名/口令 </P>
<P>　　（5）安装C++Builder 5软件,用于开发应用服务器和客户端的程序。 </P>
8 S! I+ a9 P* ]" l/ U) `<P>　　3.前端客户机配置 </P>
: R- O: H! a$ ?8 C+ _<P>　　（1）安装操作系统Windows 95/98,本文是Windows 98，保证各前端机与应用服务器 </P>
0 Y3 v8 t8 I: v, v<P>在TCP/IP层上连通； </P>
8 p$ S/ }: e/ ]# N! M3 p1 y# {<P>　　（2）从NT服务器的WinntSystem32目录下复制DBClient.DLL到本机的WindowsSyste </P>
9 d+ i, A* ~6 L5 ?$ v<P>m； </P>
) H9 m/ t6 S6 w0 Z& x<P>　　（3）如操作系统为Windows 95,必须安装DCOM程序,因为Windows 98 与Windows NT </P>
, M7 E7 d) V9 v5 h7 @<P> Workstation已经内含DCOM程序,不需另外安装； </P>
0 |; _8 l/ |1 f; K4 j' w<P>　　（4）在应用服务器上开发应用程序，通过网络复制。 </P>
$ ~1 A! {1 M2 X<P>　　三、实现步骤 </P>
7 t' D) ?/ q- D: r5 W  C- P: N<P>　　下面是一个对材料库存表进行维护的Multi_Tier结构数据库管理程序，用户可以在 </P>
; i: _" Z- B+ }, w2 Z+ s5 x<P>前端的Windows 98机上通过中间的NT应用服务器对Alpha机上的Oracle数据库上的库存表 </P>
" i" o1 L) ~; \$ _2 B) Y<P>进行维护。 </P>
<P>　　1.应用服务器上程序的开发 </P>
- L  N' Y  D/ s; q6 o6 a5 ?7 C8 K<P>　　（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Cocla </P>
& R; |& T' w1 c$ K, ~2 v<P>ss Name项,这里是KCBB。 </P>
<P>　　（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分 </P>
" j) P' G- s. H+ M( i; g<P>别设置属性如下: </P>
<P>database1 aliasname 　　oracle2 </P>
<P>　　　　　databasename 　test </P>
: L# u! ]5 p  n% l2 D' T  L: A<P>　　　　　connected　　　 true </P>
0 v/ j9 ~( M' H* U+ H& E<P>table1 databasename 　　test </P>
<P>　　　　tablename 　　　kcb </P>
<P>　　　　active 　　　　true </P>
<P>datasetprovider 　dataset 　table10 </P>
0 K9 G1 q/ [5 t: u. ^, ^<P>　　　　　　　　　expo0rted t　rue </P>
: }4 n2 U* {6 O, [<P>　　前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件 </P>
<P>将表KCB作为DATASET传给前端程序。 </P>
<P>　　(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行 </P>
# Z2 s$ _" D8 D/ {6 }; `$ g<P>时屏幕上就会出现这句话，说明程序已被调用。 </P>
& E0 a" |, d* @( P  Y<P>　　(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运 </P>
<P>行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 </P>
7 N0 j  ?, q( k! i  O<P>　　2.前端程序的开发 </P>
7 A' H% N7 g! g) P$ l7 O* G<P>　　(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、Dat </P>
<P>aSource组件、Dbgrid组件到FORM1上。 </P>
: Q7 [/ S& c0 z8 F+ A<P>　　DCOMConnection1设置如下属性: </P>
<P>computername 应用服务器的机器名 </P>
<P>servername　　 project1.kcbb </P>
6 P7 F8 A# S  O5 I: U6 x4 H<P>　　ClientDataSet1设置如下属性: </P>
<P>remoteserver dcomconnection1 </P>
<P>provider　　 table1 </P>
. _# _1 }8 \0 y$ G3 b<P>active 　　　　true </P>
<P>　　DataSource的DATASET设置为ClientDataSet1； </P>
# F+ N3 R/ u: y  z" N<P>　　Dbgrid的DataSource设置为DataSource1。 </P>
<P>　　(2)拖7个Button来当作功能按钮 ，分别设为新增、修改、删除、取消、写入、重新 </P>
3 @( T! G4 X7 p5 \/ _$ H<P>读取、返回 。由于BCB提供了ActionList组件,其中包括了StandardAction,可以利用这 </P>
4 a& G: e* d& c  J7 |# k4 ]6 b4 H<P>些标准的Action来编写Dataset的编辑功能, 只要把Button的属性Action依照每Button所 </P>

6 q; E4 ~$ t6 y( R& ~- X* m5 C<P>赋予的功能指向对应的ActionList项即可。 </P>
<P>　　最后，将调试好的前端程序复制到所有的前端机中，运行调试，一个Multi_Tier结 </P>
$ O9 {0 ]( }9 @5 ]7 g, H/ v8 i$ e<P>构的数据库应用程序就可投入使用了。 </P>
<P>　　本文仅仅描述了开发Multi_Tier结构的数据库应用程序的一种基本方法，还需要我 </P>
<P>们在实际应用中进一步完善，如怎样提高数据在其上的传输效率及数据传输中的出错处 </P>
<P>理等都需要进一步地编程实现 </P>