[讨论]

jsp1988

<>各位前辈好：</P>
<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>
' F' G" f& \9 _/ L. S- }7 M<> 我的QQ是58132234</P>
+ H. j5 v2 \% a: [<>我是个好人，希望各位能帮帮小弟    THANK</P>
[em01]

ilikenba

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

. W& T- {: _, p; ^& }（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。

（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
2 R, X( }6 e! F# K' `0 [
/ l6 x2 A! g6 L9 F% q8 M/ v% Pdatabase1
aliasname oracle2
# h6 G4 a4 \$ G% g2 `9 {2 v) }databasename test
" e8 z' A- o+ H6 a7 w' L! n3 n) Oconnected true
7 a% g0 A6 K( S3 n
. [& x2 E& t: etable1
& Z" c1 l0 B4 {8 b. A) hdatabasename test
! O* l$ h+ n( M7 |9 U' D' ptablename kcb
active true

! Q7 h- h; K. c/ w: Udatasetprovider
dataset table10
expo0rted true
+ L7 p& w) l6 W6 S
前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。

(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。
) O: L+ [3 l4 y5 n) Y2 i
6 n: L( [" L3 `: b' U9 Q(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。

2.前端程序的开发

5 @; g! U" S* |0 H- [(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。

' r$ `7 x1 j# l% i! Z$ NDCOMConnection1设置如下属性:
3 O: d" Y+ U3 L' P" u. x6 A* q) e/ gcomputername 应用服务器的机器名
servername project1.kcbb

' M2 _# s* l$ ]  B! N8 DClientDataSet1设置如下属性:
+ m  l0 [; M4 B
remoteserver dcomconnection1
provider table1
active true

DataSource的DATASET设置为ClientDataSet1；
Dbgrid的DataSource设置为DataSource1。

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