[讨论]

jsp1988

<>各位前辈好：</P>
<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>
<> 我的QQ是58132234</P>
( U& _' `1 q  X/ u% ]3 N<>我是个好人，希望各位能帮帮小弟    THANK</P>
[em01]

ilikenba

<>以前收集的一个例子！可能对你有用！</P><>1.应用服务器上程序的开发
' E/ `& J5 B' s/ R! N/ a* Y; u+ b! I
) _* M0 e) G" {  _/ _+ W7 K（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。
* F, n1 b6 W2 }0 i  q
（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
4 f5 h3 n" a' f% i8 E
database1
  X8 j& _: P8 r; |8 A, galiasname oracle2
/ b. h* A+ U5 Q. \5 k! H4 }databasename test
8 m! [8 q. s8 t. }! K2 b* }connected true

table1
3 c* a* c( @5 }5 ~, @databasename test
tablename kcb
% [9 p" }1 z1 }1 y: `* [: i- q) l% J/ qactive true
- \6 w1 t7 L2 P* Z) I
datasetprovider
) r8 _! C. f) cdataset table10
expo0rted true
0 Z$ o" I2 A" f, F, H
/ @9 T$ E6 Y/ ~) o  L, Q* g. Q: p4 I前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
$ l& P& ?# T, K5 T* |
(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。

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

2.前端程序的开发
( t2 S* S/ t. d, O
(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。

DCOMConnection1设置如下属性:
computername 应用服务器的机器名
servername project1.kcbb
7 c, P- Y( L$ j$ O8 b7 m
& }3 [- J3 ~( V; X: GClientDataSet1设置如下属性:

remoteserver dcomconnection1
0 C1 p  }+ g6 W' H/ m7 hprovider table1
active true
+ K+ }& Y3 h7 m0 p' M, k* t
DataSource的DATASET设置为ClientDataSet1；
  w9 L; G- v8 X8 ?Dbgrid的DataSource设置为DataSource1。

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