- 在线时间
- 1957 小时
- 最后登录
- 2024-6-29
- 注册时间
- 2004-4-26
- 听众数
- 49
- 收听数
- 0
- 能力
- 60 分
- 体力
- 40960 点
- 威望
- 6 点
- 阅读权限
- 255
- 积分
- 23863
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 20501
- 主题
- 18182
- 精华
- 5
- 分享
- 0
- 好友
- 140
TA的每日心情 | 奋斗 2024-6-23 05:14 |
|---|
签到天数: 1043 天 [LV.10]以坛为家III
群组: 万里江山 群组: sas讨论小组 群组: 长盛证券理财有限公司 群组: C 语言讨论组 群组: Matlab讨论组 |
< >以前收集的一个例子!可能对你有用!</P>< >1.应用服务器上程序的开发 & @* A6 Y) D$ `' p5 q6 A
# q% b; P. J; r" o _6 V(1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Coclass Name项,这里是KCBB。
" S* u, L/ _1 M; `$ }) L* m! v( v
3 u3 o8 v2 s" p(2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
- ^' O7 `# E5 P3 p
( l3 s3 }) I ~' U5 Wdatabase1 ! v0 t' I) ^) D( G8 `
aliasname oracle2 $ @: F4 ~+ m3 i! _$ |
databasename test 3 p/ ~/ [) \. M0 ~, u5 n+ v' S* L
connected true
' P% O: `8 g1 `6 {' x5 A4 P( @% B% W( b; }. G
table1
' b9 I; W# d4 ^) b1 ?: ^databasename test ; ^6 U! u- T! K* P1 B C
tablename kcb + S) d0 B- \8 \, A0 k0 i \8 z
active true
: I) P! L Y: F9 ^# I) K$ t, h) {6 l! o+ A( G
datasetprovider % [; E4 {( ]/ P9 E0 [. }* V, t- X
dataset table10 % d. f5 d: a0 [% v8 y2 A
expo0rted true 2 U( |( z& W# q+ g8 }+ R
' f w; I2 l4 e6 ^! g& S
前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。 & R6 a5 Y5 v2 l, E$ P6 ?
+ B6 G3 V1 q' M% h/ ]' T(3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行时屏幕上就会出现这句话,说明程序已被调用。 - V) C1 y- f- V8 a1 P( m* i0 h
- {5 O) o8 [& `4 R7 `3 ^* ~
(4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 : [% [, a6 j3 J, R+ S: I
: d9 u4 D; [2 X: e# U0 S3 p
2.前端程序的开发 1 U7 {8 r" w6 w5 j( f/ f
2 R! x! K# x4 z) j9 Y& i( k/ r
(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
6 ~# ?) o% C6 j: q$ _; Q, S& @/ r" f' E2 |
DCOMConnection1设置如下属性: " z+ b2 ?3 N9 a
computername 应用服务器的机器名 5 g( z8 K6 y6 }
servername project1.kcbb
4 J3 x) S6 M- ?4 R. v$ a1 `- H
: N% v6 ^' _9 S* |% r& z0 c7 u$ R; ~ClientDataSet1设置如下属性: ; T* H Y1 k& t6 R
, X8 e) X9 `! P
remoteserver dcomconnection1
1 t+ u9 y" }& @: Yprovider table1 ( G' ?+ q$ f6 V% n/ i
active true 5 m8 }1 }0 u5 @6 f* k
7 s4 d1 Y' D2 v/ ?! U
DataSource的DATASET设置为ClientDataSet1; 6 U: o- z, y8 F& P, h
Dbgrid的DataSource设置为DataSource1。 4 e/ K4 ]+ ]% a# p) c
2 E. M2 L/ E! p. t1 |* B
最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结构的数据库应用程序就可投入使用了。</P> |
|