[讨论]

jsp1988

<>各位前辈好：</P>
<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>
( d$ G& Z9 a! t) H' J: F! I0 _( X<> 我的QQ是58132234</P>
. s1 J; V! Q9 M" i' y( ^2 e<>我是个好人，希望各位能帮帮小弟    THANK</P>
) y9 U: q3 s. m# l$ J/ J[em01]

ilikenba

<>以前收集的一个例子！可能对你有用！</P><>1.应用服务器上程序的开发

. t3 T! f1 u8 T- ]) h1 V2 D# E- T（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。
4 {% ^4 J2 K4 r1 T! f* w- s
! Q) X, ~6 H4 G（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:

database1
) v; E1 ?( _4 Valiasname oracle2
databasename test
connected true

table1
( z; u6 u9 d+ B2 N& s' sdatabasename test
$ k0 r0 w. ]& J# D+ x& Mtablename kcb
( P* K' I. X# R3 Jactive true
% Z! e1 Y$ r, X- N& b$ K7 ~# j2 K
datasetprovider
dataset table10
$ @9 @0 H0 m  m* H2 H7 d1 r( d. uexpo0rted true

前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
: b4 Q: Y. @5 v+ c
, s# c6 n3 i. \$ m3 p# l9 q/ [(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。
7 K5 u4 h5 @; o7 ]5 N/ P' p
(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。
1 A& z9 o  ?1 p
" o0 ~  z0 M3 z2.前端程序的开发

$ b/ r, P) [- Y5 u; m(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。

DCOMConnection1设置如下属性:
$ \* H/ O5 C7 @* s9 ^3 C, I5 W8 Ccomputername 应用服务器的机器名
servername project1.kcbb
$ @& M/ h* ]# M+ {) b" ?
" k3 y7 Y- V5 L. g  s* QClientDataSet1设置如下属性:

remoteserver dcomconnection1
provider table1
5 `4 B+ I2 |7 L  G* ?active true

DataSource的DATASET设置为ClientDataSet1；
8 L6 e. j% o, Y! ^% h) ?Dbgrid的DataSource设置为DataSource1。
7 S$ ~- l6 I! h$ @: h$ H
3 F& A& v6 ~# W- J1 o& R最后，将调试好的前端程序复制到所有的前端机中，运行调试，一个Multi_Tier结构的数据库应用程序就可投入使用了。</P>