- 在线时间
- 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.应用服务器上程序的开发
) e+ |5 K2 }1 R+ P* n }7 G0 x" u& B7 o5 G) r$ A. |7 ?
(1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Coclass Name项,这里是KCBB。
7 d9 q" x! o6 W9 c5 h' N8 J, {% O& e, B+ o
(2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下: / P: P5 o8 d, ?0 q- h
' M9 t, G, L% j: s3 |# Q/ y6 e
database1 . J0 z( I: B" G. A) b
aliasname oracle2
. J. `5 L- m- @ Y! P! `databasename test
- w, D8 ]7 E& H. C: Lconnected true 3 g0 k3 l! }8 a; |1 q
8 z* I4 W& G6 w. w, ? O
table1
( q `5 _8 c, c9 _8 k. Ddatabasename test
7 Y' v9 s- ~% P+ p6 q6 atablename kcb ! ]& l/ V. J0 h' @$ k
active true
/ ^, U. q3 @5 b: E' D' k% C9 M0 }* ? j1 m4 F7 i9 Z3 }$ q9 N" M
datasetprovider
/ i/ P# W0 B5 |5 X% Sdataset table10 & p/ v- w0 k3 @: j
expo0rted true 8 i: j1 f% y! |+ Y0 o
, A+ r- ~% y% R% H) H* L1 l, x
前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。 3 W4 F! ]- b$ {9 G; U0 W. O
: ~" G5 x0 T( p; O9 u
(3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行时屏幕上就会出现这句话,说明程序已被调用。 1 h) O* g1 |2 F. J. g
, x1 ]. ]; J7 n4 U! L(4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 9 h3 h% i1 |& _; D' e" U% Z
; B( M# M# y1 E6 P9 A9 w/ |% e
2.前端程序的开发
/ W; T5 _ S! V7 w/ D0 y$ W, \4 s; b! z. h
(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
! O! J- R `# B/ L" {% |& ]0 h9 A" l
DCOMConnection1设置如下属性: 6 f# B2 \) I! }0 {% F7 R5 [0 T
computername 应用服务器的机器名 2 ]* U# ?/ o2 ^, V; |% h' y ^# L
servername project1.kcbb 4 H. w6 _, J0 g- `1 N& e3 c" ^
% C$ ]- |4 {/ Q/ N$ R4 p+ s& p1 @ClientDataSet1设置如下属性: ' @$ O' T' k3 s7 w! q, b+ j7 T
" v1 g' L; ?' J9 R8 _, @; Wremoteserver dcomconnection1
2 [) ?. f- h& C2 m( @& Wprovider table1
1 Q# C% O$ G) Oactive true 8 N8 i0 i0 H! s, y2 |4 ?* i
6 |5 B! B" Y+ q) v; X0 e1 a
DataSource的DATASET设置为ClientDataSet1;
, |1 B7 {) Y( uDbgrid的DataSource设置为DataSource1。 K. g. p9 \; s! N% Y) m
0 n1 M2 l8 e0 [最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结构的数据库应用程序就可投入使用了。</P> |
|