- 在线时间
- 1957 小时
- 最后登录
- 2024-6-29
- 注册时间
- 2004-4-26
- 听众数
- 49
- 收听数
- 0
- 能力
- 60 分
- 体力
- 40959 点
- 威望
- 6 点
- 阅读权限
- 255
- 积分
- 23862
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 20501
- 主题
- 18182
- 精华
- 5
- 分享
- 0
- 好友
- 140
TA的每日心情 | 奋斗 2024-6-23 05:14 |
|---|
签到天数: 1043 天 [LV.10]以坛为家III
群组: 万里江山 群组: sas讨论小组 群组: 长盛证券理财有限公司 群组: C 语言讨论组 群组: Matlab讨论组 |
< >以前收集的一个例子!可能对你有用!</P>< >1.应用服务器上程序的开发 4 M% V, q+ s o8 V i
! e/ m" h- c. {' Z
(1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Coclass Name项,这里是KCBB。 % d, A+ {3 K4 i
4 T" v7 R' Z0 ]* D) M& l$ \(2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
8 f1 n5 L, ^/ L& o
* l) E+ K8 g: a% Qdatabase1 / V4 `. F$ ]+ \, ~) w; `: T
aliasname oracle2 3 H$ u% n3 d9 ]! r8 m J, t( b
databasename test / N3 D z1 d) U( `; s( p6 s
connected true 0 V* E' }3 F) \/ r+ E
. G* Z- T! V" V# j2 N5 p
table1
2 K1 ^ n8 d; x; ~7 U" h' ^databasename test
9 C, e0 j0 k7 U' o* l9 Otablename kcb
' Y+ ^3 H! C3 c# s6 Tactive true
V* H0 V0 q5 r/ j: j' j' C, n' Q
" k' L/ W# Z$ d7 @datasetprovider ! o+ C" ?, @& _5 o; x
dataset table10 ; K# k. d* b& _, _" x
expo0rted true ' F# k5 m' Z8 m1 v: \- q
8 t# I0 a0 q: @7 t9 S前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
2 L1 Z' H) Q9 q* }/ x3 E b& o9 k3 B
(3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行时屏幕上就会出现这句话,说明程序已被调用。
" P2 ]- V' v+ k9 ?8 m9 J0 e" I2 B
2 b& E w- G" R, a(4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。
8 ?; G2 U& N& S, L$ H
1 T8 ?3 [1 ?/ M' p% Z U1 A2.前端程序的开发
5 l, E( k& m: ]
& |6 G& n. {4 e* w( o! Z) k8 v(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
|" n$ Q | o4 ?& t# c! U* s4 Y
# j7 `" a7 k& _" I' o2 A' p9 gDCOMConnection1设置如下属性:
8 @0 Q) T+ ? ]" l/ ?computername 应用服务器的机器名
* ]+ g- L, q1 rservername project1.kcbb ! K0 ?4 z4 N. L( |/ p
, N5 d- i" X' F! eClientDataSet1设置如下属性: \& ^4 [) W& N9 {; b$ ^
5 T% t/ X9 S- f% iremoteserver dcomconnection1 - C8 L4 u+ g5 @1 [$ w7 |5 p) F
provider table1 / K+ Y. Y0 ?5 `6 ^
active true
6 D0 q; F6 h: m/ y( G4 p. q9 |0 n
) P) J5 P: ~& r6 ?' a p7 t* t5 G0 |DataSource的DATASET设置为ClientDataSet1;
" K6 h& c& [, `& \/ M# ?% oDbgrid的DataSource设置为DataSource1。 6 Q! o) G# u& r) ]& t1 z4 S
9 L: c/ `" L' b* _
最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结构的数据库应用程序就可投入使用了。</P> |
|