数学建模社区-数学中国

标题: [讨论] [打印本页]

---

作者: jsp1988    时间: 2004-6-8 10:34
标题: [讨论]
<>各位前辈好：</P>
<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>
<> 我的QQ是58132234</P>
1 A4 c7 |0 y- V: x<>我是个好人，希望各位能帮帮小弟    THANK</P>
, b+ x: x0 @( J[em01]

---

作者: ilikenba    时间: 2004-6-10 20:43
<>以前收集的一个例子！可能对你有用！</P><>1.应用服务器上程序的开发

6 {5 e8 f+ e( T/ c0 _" F. u; E6 j（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。
; G1 @2 ?) O3 x) d
（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
2 B: H  z2 ~& h
! R3 ^+ d( H. q! f$ ddatabase1
aliasname oracle2
databasename test
' r* a8 P. h$ Y- }7 L+ _6 p" Dconnected true
4 {+ _2 d. M7 [& s1 |$ a
  q1 x$ h$ ^5 ^table1
databasename test
tablename kcb
" ]; R" t3 ~3 j" bactive true

$ P) F/ l: c7 _. J" S0 k5 y9 b- Edatasetprovider
dataset table10
expo0rted true
6 M! o) \4 i, K
前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
  `. I% S, c. @; E* y/ A$ k' G
( _6 a% k3 `% e3 Z1 A6 s" Y(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。
( a+ c  V5 ]0 m
(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。
% m' w$ t; ^; ~  ^/ m6 N. @
! U2 e) i: v3 G2.前端程序的开发
' V3 `+ j% \  L, Y8 Q4 e
* D- e4 R/ |5 h! z* }7 B2 T7 ^2 p(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
% i3 X' \6 G& Z/ f; S/ B% ^+ g. j
DCOMConnection1设置如下属性:
/ G' {) j- l9 _) |0 pcomputername 应用服务器的机器名
servername project1.kcbb
9 s& q+ [. @: g; z5 Y7 P2 I' p
ClientDataSet1设置如下属性:
0 b2 p* |/ {9 _1 a$ }  W
! x1 O) q6 y; Q( c. C1 R  nremoteserver dcomconnection1
provider table1
active true

2 O- c3 e* m0 YDataSource的DATASET设置为ClientDataSet1；
6 {; i- Y" ^: H9 i" o. t; x/ g' _Dbgrid的DataSource设置为DataSource1。
4 Y) S7 d) I1 X: u) ^- q6 \
' }% E$ `8 ]- L8 C6 I6 n最后，将调试好的前端程序复制到所有的前端机中，运行调试，一个Multi_Tier结构的数据库应用程序就可投入使用了。</P>

---

欢迎光临 数学建模社区-数学中国 (http://www.madio.net/)

Powered by Discuz! X2.5