[讨论]

jsp1988

<>各位前辈好：</P>
<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>
<> 我的QQ是58132234</P>
1 V- P- X( E8 g* B6 r<>我是个好人，希望各位能帮帮小弟    THANK</P>
* ]1 @# A1 j! ~7 k3 Z4 h+ Z- |: W[em01]

ilikenba

<>以前收集的一个例子！可能对你有用！</P><>1.应用服务器上程序的开发
7 ^1 F3 N( A$ Y0 s% S( r( U
! R# ]  m1 E8 G1 `/ V3 K* j7 A7 M; x  k（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。
' b! p' X. M; M+ A. J+ S7 E
（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:

1 Z$ r# f' m. z; d- h6 ?/ v, D; j. Q( jdatabase1
aliasname oracle2
databasename test
! x' E5 W% j. nconnected true
! b" B* S" n* a5 o
table1
databasename test
tablename kcb
active true

6 U& x) ~1 R/ e5 R6 W) U; ?# [datasetprovider
% h& p, I6 u5 S7 Gdataset table10
. O# S$ K2 o- `& {5 y& zexpo0rted true
, a+ z+ y/ {( W4 |9 c0 |
前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。

" u: i2 g0 g, c* ?' r+ V+ Y& g(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。
7 j$ A: U5 c0 E9 I8 d6 j$ @9 i
; M7 W" A0 m, o* o(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。
: Q$ D6 v  v+ {
$ \; B7 i; ?/ z: l2 G( U/ o) z2.前端程序的开发
0 A, F3 d$ A' h* E! I- S' K
(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
' Q. l) K# D. t8 J6 `1 M
DCOMConnection1设置如下属性:
computername 应用服务器的机器名
servername project1.kcbb

ClientDataSet1设置如下属性:
( I" m; K+ A, f% c) M% s
remoteserver dcomconnection1
provider table1
+ K- r6 Y: q8 pactive true
( B0 n; F( R* J, d' m$ |
DataSource的DATASET设置为ClientDataSet1；
" \$ I/ E/ v+ m+ S, uDbgrid的DataSource设置为DataSource1。

. v- V4 Y% T) @9 j0 H1 b- X最后，将调试好的前端程序复制到所有的前端机中，运行调试，一个Multi_Tier结构的数据库应用程序就可投入使用了。</P>