- 在线时间
- 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.应用服务器上程序的开发
) w, J2 O5 `1 Q! |; _0 A' Q6 H8 O' E0 J- k7 q; \
(1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Coclass Name项,这里是KCBB。 * P4 E6 k6 h: O. K( O1 Y# I6 r
4 G T- \1 g- t5 f+ L(2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
4 w9 C. D0 p$ l. L2 n) e2 r; H1 |' G' N1 r4 I$ R' K. P
database1 7 A) t& ^% x+ v+ S8 K
aliasname oracle2 2 H7 U0 T1 f7 u# g, {- i8 H
databasename test
# l8 K: j. o) G# e aconnected true
' |0 s. X, u9 P! ^- V+ A% Z6 D+ Q2 E( V
table1 : z( `( d1 S: a3 Q# G1 S% l
databasename test
: X- n, _) ?" m9 r2 T5 V3 Itablename kcb ( B2 } ]0 m* M, `: R" I
active true 5 o& Z5 s+ w# P" k. i" i
) J! ?4 {! w, \5 ?: \; D* zdatasetprovider
( f' W9 }6 u3 Sdataset table10 3 W2 B! B% Q& M0 x7 X$ f9 r# C
expo0rted true
5 a4 y: j: O6 [1 O+ R* K+ y( }1 J4 z! g; [& M* d6 t
前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。 - p7 h4 ^' n( ~8 ~* A
" @3 F) l2 l* n( f1 {( R3 j(3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行时屏幕上就会出现这句话,说明程序已被调用。
2 z; L, p" x$ W; A2 X
/ i3 M5 e, a @1 J(4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 * H# x$ ~( V5 u, y
. M, s. R% o0 P! K, K5 U
2.前端程序的开发
) Z& O4 y9 L1 g4 u2 l* x* |! K* ]$ j B0 ~7 j4 j5 i
(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。 8 ~0 O1 C4 q0 I8 \
7 N8 M5 g$ }6 P/ G$ p7 Z: DDCOMConnection1设置如下属性: ! c8 b- N# X7 F) m6 \7 S
computername 应用服务器的机器名 9 q4 J) h1 o) @* T: n3 s8 ~1 ?
servername project1.kcbb
; @& z+ k1 n+ Q% M6 f$ d2 {4 J( D5 A8 V
ClientDataSet1设置如下属性: * H9 E9 V8 e# t* ^1 T- L4 y! L0 J
3 S# f, ?9 {4 ~* g" ?7 b+ Wremoteserver dcomconnection1
, L( I/ X5 Y8 O0 `; tprovider table1
- ` N+ x1 A5 `, sactive true $ b: P0 m) A6 b B6 O
7 N1 L! @" ~ E; w/ sDataSource的DATASET设置为ClientDataSet1; 7 E3 p, l3 q; n6 \6 T3 O
Dbgrid的DataSource设置为DataSource1。 $ M+ d' T* V6 `1 L% _, Z
/ A. w. e+ N) h5 l" m3 g/ _+ Y2 B
最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结构的数据库应用程序就可投入使用了。</P> |
|