[讨论]

jsp1988

<>各位前辈好：</P>
<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>
/ g( c: Q0 B9 |* C9 _6 E<> 我的QQ是58132234</P>
& Q+ r( v& t) O% ^1 I' u# v1 s<>我是个好人，希望各位能帮帮小弟    THANK</P>
5 j6 T; _* W  m7 [* j) Q[em01]

ilikenba

<>以前收集的一个例子！可能对你有用！</P><>1.应用服务器上程序的开发
' I8 R! u( [$ b0 [1 u7 y. n. ~
（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。

（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:

database1
aliasname oracle2
databasename test
6 G; S: H8 S' ^- `( k9 ~connected true
5 }4 @) B8 V! p6 |
+ Z/ w& L& d+ z% \  `+ Qtable1
! @8 l. n2 g1 z- P& Q" adatabasename test
2 H7 L& @, L1 k$ ktablename kcb
active true

datasetprovider
dataset table10
expo0rted true

% M' |, i2 g- Y. z. u6 w前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。

(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。

(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。

$ q7 w( H2 B+ w7 K4 |2.前端程序的开发
1 o/ k7 H/ v5 m! K
! p: s. J. `$ V* g. B6 n7 x(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。

9 t6 ]: d0 w! z. b$ x  nDCOMConnection1设置如下属性:
computername 应用服务器的机器名
servername project1.kcbb

ClientDataSet1设置如下属性:
7 [! n+ t7 G; ~4 S: R$ w
0 X9 \' c  M4 r  ?! l4 Rremoteserver dcomconnection1
provider table1
active true

DataSource的DATASET设置为ClientDataSet1；
Dbgrid的DataSource设置为DataSource1。
5 j0 d9 {! _) ~
最后，将调试好的前端程序复制到所有的前端机中，运行调试，一个Multi_Tier结构的数据库应用程序就可投入使用了。</P>