- 在线时间
- 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.应用服务器上程序的开发
/ ]! H- P$ F0 ]! {& ^
1 m( U+ R' K& M. R- W& H4 R(1)打开一个新工程,然后点主功能选单NEW中的RemoteDataModule,并填入Coclass Name项,这里是KCBB。
, A- O/ ~: t% T. l9 o1 w# X7 W. w! C3 i5 [7 a* J
(2)在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下: ! E6 @8 n- B _4 S
3 d& {( }/ L* s* tdatabase1 / [6 U1 c r* X" V+ Y
aliasname oracle2
2 i; c3 D7 q- @! w+ N" l2 ?databasename test ) E+ g5 b! A, y0 Q& ^- K7 Z
connected true
! p# V. p9 i, i, M3 ~" [8 b2 n. o6 H( c8 s' [5 A$ T
table1 3 b5 C% O4 v. J, m+ s
databasename test
6 t4 K) A/ f0 {0 p9 @) O- u; Qtablename kcb
1 v; }1 x0 [2 a& k7 R8 iactive true
7 Q' y& K* A5 `, h! J( @3 k, T1 P' c
datasetprovider U+ r* ~' d- _
dataset table10 . \) \ ~, o0 d- p% F
expo0rted true
# m! \8 m' n' L/ Z2 { F. A/ w
+ e: b( Z* [9 r前六行目的是连上后端数据库Oracle2的表KCB,后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
0 u2 a, n, i3 ^( I3 `& p7 z9 x. ~) V* P+ }6 R( G9 t H0 o8 e
(3)在Forms1加一个Lable组件,上面写上“服务器应用程序已被启动”,这样运行时屏幕上就会出现这句话,说明程序已被调用。 % |: ^2 P% {. o- C1 B
/ N. g6 g9 a: b9 i( W9 U) C0 o% _( U(4)为了前端程序能连上此COM程序,必须把它注册到服务器的注册表内,可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 . r7 t: x5 Q+ G. V
: G9 h, O3 t+ a' x+ r2.前端程序的开发 - [' F' r* P/ c @9 H+ D
( t" M) K/ T8 O" U0 h
(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
. h! L5 \% O u+ _; }5 E" d" p8 D! Y! V# R9 w3 ^
DCOMConnection1设置如下属性:
, D# V V" ]5 F# H+ J: j3 vcomputername 应用服务器的机器名 & h% @; j* R+ D( S6 {
servername project1.kcbb % z! o; a- i. j: a* v
" i2 O# Q) l" @+ a: A' i7 F
ClientDataSet1设置如下属性: 0 Y0 a+ |) j- |" }5 X- ^# V6 j
9 M8 P- H5 X0 \9 Y3 aremoteserver dcomconnection1 4 B. u6 |: x5 d9 n
provider table1
0 P1 b9 |4 V3 t) I7 L) v4 @active true ) }1 E* L, N) V v! M
4 h. f6 F! M. C5 r; Q0 Z
DataSource的DATASET设置为ClientDataSet1;
3 O5 \4 ~* q* @+ M' LDbgrid的DataSource设置为DataSource1。 3 [7 g8 \, m) A7 u. Q( }
/ J1 j" O, d w/ f9 R. r
最后,将调试好的前端程序复制到所有的前端机中,运行调试,一个Multi_Tier结构的数据库应用程序就可投入使用了。</P> |
|