- 在线时间
- 1957 小时
- 最后登录
- 2024-6-29
- 注册时间
- 2004-4-26
- 听众数
- 49
- 收听数
- 0
- 能力
- 60 分
- 体力
- 40957 点
- 威望
- 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.应用服务器上程序的开发 " J& Z$ i% w! X0 D# n8 @# o$ g
- B. u+ ]' N: p3 D2 o& Q* L
(1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Coclass Name项,这里是KCBB。
7 x3 R. T$ ~' u2 e& Z8 j4 z _3 H0 x1 W6 [
(2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
& e' A# [8 L e6 {" i( k9 T2 G! p: V% `; m1 H, Z
database1 9 G. C e; o+ y( D, @- J
aliasname oracle2 * U# n. Z; \% S/ d1 v" u2 I/ F
databasename test
C/ h1 Z, C0 r# |3 a+ {connected true
8 U- j' Z# w) S8 s4 Y y& s) j
# h8 j9 U/ T* u" i d' V9 E- Dtable1 9 @+ o$ X' b. s9 {
databasename test
" J- `. R3 P! d. |9 xtablename kcb
; @9 {+ P/ m1 G5 \2 _active true % m" Y4 n x+ _* W, E. _
; M6 H* Z$ |0 R1 P
datasetprovider % ^* k1 [1 \1 q i: W6 r! \9 Y
dataset table10
2 C" a/ P: @( l eexpo0rted true
2 h7 ^; p, b+ b2 v5 v* Z2 h) T n# Y6 O* s7 j m: U
前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
0 b4 p5 B2 U$ U' x. h
' A& k* ^8 z. X& |( ^, v(3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行时屏幕上就会出现这句话,说明程序已被调用。 ' d }- I- H' q" Z5 s( F2 H
5 t; A2 u/ L5 ]" a r(4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 7 x( Q \' a7 j9 n5 W; q! N& f
- o; r2 Z, b3 U5 N2 G0 u
2.前端程序的开发
" J# O! w# j3 L' M1 {) s6 t" p
8 ^" m/ R' V+ Q& R: |. ~4 M% l(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
* E3 r+ y/ g( U! ~
( \: k$ s6 l/ S: _DCOMConnection1设置如下属性: $ |. h# U2 M' r; M3 r
computername 应用服务器的机器名
" z3 T7 y1 \ F% s& v* z4 m" b$ H0 W; aservername project1.kcbb 4 X6 H2 w8 E, Y; a0 R* ]
: x- d% y* m% p( [/ z1 z1 R9 O" G
ClientDataSet1设置如下属性: 5 Z! \) U3 D6 u: Q" r8 \
3 J" Z) a- a$ u
remoteserver dcomconnection1
5 \/ z8 \" o: V: R5 ]provider table1
& p3 f; ~6 ?- e% Bactive true ; _7 R7 j& L3 Y# ]% n
6 s9 X1 y& l4 a" ZDataSource的DATASET设置为ClientDataSet1;
2 A. q6 O) X& F: N4 z( H9 l' }" X" vDbgrid的DataSource设置为DataSource1。
& f' g" @/ t' q( \. D
% p1 z, h. i8 \8 u最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结构的数据库应用程序就可投入使用了。</P> |
|