- 在线时间
- 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.应用服务器上程序的开发 / c w) h0 @0 A) r5 y) O2 r5 }2 q
* A8 J8 R/ E' }0 K z) L3 T9 g, z1 y(1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Coclass Name项,这里是KCBB。 / k2 P! X2 B$ f0 z# @ H1 r
" \: P4 J& m9 K$ ?, ^5 [
(2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
* m$ D3 s' J/ n7 Q5 I
! ?' ^* g) V5 |% Xdatabase1 3 e* y* r" }( U3 ~- p( o' k
aliasname oracle2
6 R: o7 L# z; _1 Mdatabasename test
: ~0 l5 L( `& H, q+ Mconnected true 2 T$ ~8 b/ k6 o4 b
?" A) q" n7 y! Y! _+ ~ ^table1
, i1 b7 A! w d9 {4 jdatabasename test : Q V# R# y$ d% t, m
tablename kcb , v+ U' j3 j4 U% [8 o
active true
. n: M. l; m: P& x5 J" I0 b |) k( z, [" H
datasetprovider
/ m2 [- e0 p5 sdataset table10 / j( i9 _" ?( ^! c
expo0rted true
# f: B9 g* ~: Z, A& x0 J5 i, U
1 o" S8 M! |. s$ h9 m2 _; V前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
8 ~' R# r) `, V1 S% |4 \# v H: @# R+ d0 D$ i
(3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行时屏幕上就会出现这句话,说明程序已被调用。
1 T* q# R4 q7 D* o" O6 g( T4 \/ ]0 ]+ p+ |: U! j
(4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。
- r8 _' ` l1 m3 v4 Y, @
2 h# G- p# _; u$ ?+ X* U* S$ n2.前端程序的开发
4 E/ r- X5 i$ U6 n7 L
, x0 S- F3 o: v7 h! E) g0 f(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
' F( }+ {0 D6 Q N7 _& c; i8 t. |% `1 c6 B! v' h
DCOMConnection1设置如下属性: , j! Z2 _2 K0 l7 t
computername 应用服务器的机器名
' z# r2 p9 Q1 F# G5 e7 e. B: F5 Sservername project1.kcbb
0 y7 g& K: t: K. z8 `7 o1 ~4 P, A& W6 G9 {0 U
ClientDataSet1设置如下属性:
- q2 q: d' p) i" F
& B6 g$ q7 x& C2 i7 E; |remoteserver dcomconnection1 ' i$ {+ K7 n. P$ a$ j! W
provider table1 ! t" c3 |& R; z
active true
3 P: m+ P1 [5 F2 o) b- n T* i
; G- W0 d3 V- O6 tDataSource的DATASET设置为ClientDataSet1; 7 d( r. q2 |5 R n# m. F) ~
Dbgrid的DataSource设置为DataSource1。
# o. u( h% w% Z' d# p
2 m( R: A& S* z( F+ t最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结构的数据库应用程序就可投入使用了。</P> |
|