[讨论]

jsp1988

<>各位前辈好：</P>
* m: L9 s% Y& E/ r5 j- o<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>
<> 我的QQ是58132234</P>
1 F* R9 I* }4 n3 F4 u' x  n<>我是个好人，希望各位能帮帮小弟    THANK</P>
[em01]

ilikenba

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

（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。
4 A3 \5 P3 o$ V# t  y3 T# c
/ o. k' f" t/ l; b3 x; l( K: j（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
! S2 s( G; e, V; P- T
database1
/ X5 X% ?; t4 N( L2 A; e5 s" paliasname oracle2
7 @" t! V7 B0 E9 I0 @! X" odatabasename test
0 a3 h" y5 i5 N! qconnected true
. w9 w: K# E) u: L( }
; \9 m& o$ i9 I1 r6 v6 Otable1
& O* `9 E  `$ ]databasename test
tablename kcb
active true
2 q. O  p& |. `3 E6 v. w
datasetprovider
dataset table10
expo0rted true
) T( h7 [5 F' `. b8 j; g% j
3 @0 J: T8 v. S0 Y前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
1 k8 a3 s& D& ?. K' w9 _) L; S& w
(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。
5 ^- k6 o; k: |4 k; C; e
(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。
8 \2 C' }, w# L" I6 ]
  a3 y2 J. z0 ?! X; [2.前端程序的开发
8 @) D+ V' K7 C9 @5 [
(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
# o2 H( V# ]& N) c% ]
DCOMConnection1设置如下属性:
6 Q* Y9 M7 W) e% c) xcomputername 应用服务器的机器名
servername project1.kcbb

1 K. w9 F' b# V3 V( F' Z9 PClientDataSet1设置如下属性:

5 \7 d2 T( a' C/ p( j; v4 G$ @remoteserver dcomconnection1
+ T7 x! j" O! H" O$ T" L2 Wprovider table1
active true
- k3 D2 g5 }1 m" f. f: s- X; O1 I
DataSource的DATASET设置为ClientDataSet1；
Dbgrid的DataSource设置为DataSource1。

- R) @* Q" t/ G最后，将调试好的前端程序复制到所有的前端机中，运行调试，一个Multi_Tier结构的数据库应用程序就可投入使用了。</P>