[讨论]

jsp1988

<>各位前辈好：</P>
. r3 F; Y: z( P, G8 @  `<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>
8 K  D3 a, a( O! P) v<> 我的QQ是58132234</P>
<>我是个好人，希望各位能帮帮小弟    THANK</P>
[em01]

ilikenba

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

（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。
5 K% P1 ~3 \! t2 E5 h
（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
* @- K$ p" w- I( u. n- O9 i
7 i6 A/ H" D2 g& l; }database1
: c/ Y, P8 v. J. }9 X! ualiasname oracle2
; l. r! @2 V3 t' e  jdatabasename test
, _; @* [# L* w2 d/ \connected true

* U% l' y8 f4 ?, {table1
! `2 E; _) F# @; w- Vdatabasename test
tablename kcb
1 ?0 i( ^# s9 N" }4 Zactive true
( C+ l0 j. K$ s: O0 K) `: \
! O" n5 L' l2 ^9 f0 V" h1 P( k6 Idatasetprovider
* A  a7 h. E4 N! Q$ D0 }dataset table10
expo0rted true
6 d: r. A. T* E% K3 {6 c) D1 H' i
前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
8 n* H) y, Q8 z# j, \8 f
(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。
) K) C4 \; j% v! p2 P8 x: H. {
9 Z# S: ^' E# h2 o0 o, i( j* Q(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。
2 J; `% Q, k+ j  a* y+ N( N0 ?
+ ^! j; L( q( ^4 y1 p2.前端程序的开发

" P% [; O5 G- A- `  h: X, M( N9 h/ c(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
- ]1 E! D( W/ l  ]+ ?" d2 p- l
# v6 q/ i" ]5 Z+ |$ C2 mDCOMConnection1设置如下属性:
computername 应用服务器的机器名
servername project1.kcbb
& C  }2 i2 {' e$ g
ClientDataSet1设置如下属性:

+ t( T2 d1 p! Bremoteserver dcomconnection1
provider table1
active true

DataSource的DATASET设置为ClientDataSet1；
Dbgrid的DataSource设置为DataSource1。
; Z0 }6 h. Z7 v4 ^; F" g
最后，将调试好的前端程序复制到所有的前端机中，运行调试，一个Multi_Tier结构的数据库应用程序就可投入使用了。</P>