数学建模社区-数学中国

标题: [讨论] [打印本页]
作者: jsp1988    时间: 2004-6-8 10:34
标题: [讨论]
<>各位前辈好：</P>+ f' e$ @* ?1 e. M( F& g  ]
<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>' C/ o, R) U7 ~
<> 我的QQ是58132234</P>
, {; V& w- d- E# D<>我是个好人，希望各位能帮帮小弟    THANK</P>
3 h3 ]  E1 U( O" ?6 v, j. l[em01]
作者: ilikenba    时间: 2004-6-10 20:43
<>以前收集的一个例子！可能对你有用！</P><>1.应用服务器上程序的开发 - \! l7 L+ |8 O6 Z$ z
- {+ u5 e9 ?/ {6 N$ `
（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。   a- b# [, r& ^4 M" h2 l; _" E- W
* }9 I0 f5 X7 J- N. C" h5 [
（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下: 8 n) H4 I0 ~$ E  [& k+ |3 t
' a+ b8 H1 A0 N
database1
* ~0 b" h2 w7 Xaliasname oracle2
; i7 x1 v1 W; m2 R9 Ydatabasename test . h! h4 a2 y1 d* j
connected true $ }1 O9 {1 i/ s
3 t6 J+ ?$ M3 T& H6 C
table1 5 E& U& ]6 L: x5 A1 @0 P) @' ]9 M6 d
databasename test $ o9 z: ~- m# e9 e2 Y3 |9 ?
tablename kcb   k! V: c% }/ i6 L" F
active true & ?3 n* k( P9 z; Z: Z7 x3 m

3 B, e: C/ H. B7 q5 f' Ydatasetprovider
* F2 R# g* l- O" `+ ^& Hdataset table10 6 H* ?) `" P, ^: S5 t0 ~8 M/ ~7 x
expo0rted true 1 j/ D' }9 V3 q7 f; a% j7 s% `
5 V8 W! W% ?9 h4 z* k& S* z! M( w
前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。 % x) j3 X- F, Q5 U
# l5 L8 Z/ N; g
(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。 ' {" v. D) ?/ h( Q1 }9 v) k
/ F9 F8 D. X+ U5 [$ S* i9 r& m9 K
(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。 % J: ]( S- b/ V/ U0 t
- m8 H6 D+ V! h4 o8 s  d8 R  s
2.前端程序的开发
* ]8 C1 ]3 }7 s2 B8 T1 a. x9 m+ T& J( n0 @# K# q- f
(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。 / H/ ]4 F$ y: R% l
! U# U- K  f' O* O
DCOMConnection1设置如下属性: ( {" I/ l. o: q- K1 x
computername 应用服务器的机器名 8 a9 M& v$ M  T) t0 c5 V, w$ r' `
servername project1.kcbb
; i9 D$ r6 o- W: L) z  j9 E
. g' n! M9 k% H: |  C. T' _9 o; TClientDataSet1设置如下属性: & }8 i% k! B+ A2 b8 u- `: G' g$ D

6 E; t5 o# J9 V* i( s  Iremoteserver dcomconnection1 2 V  I& U8 @1 j, {: p( d6 s
provider table1
% }+ j6 Y% U% f1 f( K" @0 O5 h. S( `active true
! b6 R: G" x: m  P8 o) x7 }$ k+ J7 w7 L
DataSource的DATASET设置为ClientDataSet1； ! t' x- B: K8 R4 P( @. {
Dbgrid的DataSource设置为DataSource1。
4 `! u( S4 K) Y5 b5 S+ G6 c
3 x/ b% a: d4 w1 c最后，将调试好的前端程序复制到所有的前端机中，运行调试，一个Multi_Tier结构的数据库应用程序就可投入使用了。</P>



欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5