- 在线时间
- 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.应用服务器上程序的开发 . l( z3 j" g3 S# j* e1 p! l; I
- H' S ^* V/ o6 g9 y) A! v(1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Coclass Name项,这里是KCBB。 4 |, k2 Z8 n0 X: V- z- z
: B N2 _1 u$ m
(2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下: , b9 K1 k) G- G f# D+ a' ?
) E5 _/ K8 z; G, X& w, h% D+ r% [
database1 ; x( c5 u+ s: T" B: a
aliasname oracle2 5 h0 W+ {) J5 s+ q3 U3 f H$ T
databasename test
* O9 V; ]0 P9 z$ @! g8 H( W1 y4 Oconnected true $ v8 ]' o" z9 N4 y
; D; U" x) N0 v! c7 ?% g
table1
, s6 I8 y8 K; O1 i4 M! ydatabasename test ; c/ g4 r# p: k2 c8 x# s3 B& j
tablename kcb
9 p5 S* K$ Q) h9 F2 a! s0 cactive true " j$ k& p. y* R+ r1 u; Q
2 v# @& s, f# b8 m
datasetprovider / C9 Q) b. Q6 @$ h3 N
dataset table10
* ^5 o& @4 c4 g5 k) @) texpo0rted true 4 P1 J% p9 v' M; u" Q. F/ @
8 D7 o% A, c4 D. i, \% Q6 P! i前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
: @! C( W2 P$ w5 C7 H6 x2 @+ |) h5 w b$ c+ V! e3 \
(3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行时屏幕上就会出现这句话,说明程序已被调用。
1 F, J$ z) p( \' u$ F" Y) d- i
& e1 d& M& p) s" h, X(4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。
# s+ t; [: V$ L+ j: M
! s {& m- y1 W) ~) a2.前端程序的开发
2 D7 j/ g$ Q2 J5 s
# w6 j8 z, }4 f& E& ?/ x8 r& u(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。 ) U- [7 i" O0 k( g/ ]/ v% P
5 P1 c3 F; i3 _. w& j$ v
DCOMConnection1设置如下属性:
_% i: a; t7 kcomputername 应用服务器的机器名
1 g& z3 D% q' `# gservername project1.kcbb ) s1 K+ H# q( `; a
3 V& }( s r! [# P, ]( H2 n, yClientDataSet1设置如下属性: ' F9 t k) k1 \9 H
* L# t0 d& i- I. _
remoteserver dcomconnection1
7 X( x* g! D0 t, S; Yprovider table1 + _* \, T. [( p0 ]! @& ?# v/ V
active true 6 L0 t! n3 r6 d( ~4 i8 A V' f* Y
& g# |# v& H5 k* B0 mDataSource的DATASET设置为ClientDataSet1;
; K1 Z6 ]9 Q- b& j8 R; g; U# CDbgrid的DataSource设置为DataSource1。 5 I; H7 Y) i/ C! @" z+ [" l5 Z2 y
5 r3 ]- t( J6 ?& c5 o
最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结构的数据库应用程序就可投入使用了。</P> |
|