数学建模社区-数学中国

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

---

作者: jsp1988    时间: 2004-6-8 10:34
标题: [讨论]
<>各位前辈好：</P>
7 ?4 F/ m# f2 p# D<> 我是个垃圾选手，但是我很想做一个3曾数据库的程序，这对于你们来说也许是简单中的简单，但是这是我的短期理想啊 5555555555555555555555555</P>
+ z9 Z( k. `1 B7 q* k9 ?<> 我的QQ是58132234</P>
2 Z* G# v. r* ^7 }) C, o<>我是个好人，希望各位能帮帮小弟    THANK</P>
[em01]

---

作者: ilikenba    时间: 2004-6-10 20:43
<>以前收集的一个例子！可能对你有用！</P><>1.应用服务器上程序的开发
# c0 S7 u1 O. h( a
' M/ j& r( i0 Z* [5 C（1）打开一个新工程,然后点主功能选单NEW中的RemoteDataModule，并填入Coclass Name项,这里是KCBB。

: o% z( d' b/ @! h* U（2）在RemoteDataModule上放置DATABASE,TABLE,DataSetProvider三个组件,并分别设置属性如下:
/ Z" K& y. D" U+ ?$ f9 s! o. r, S9 A
0 \, k$ K1 M; `/ i8 ~, o" A8 K9 g& Fdatabase1
% l" G5 @# S; q, e7 m5 Z* D* ]5 Yaliasname oracle2
6 J0 A% ^$ B( D& Zdatabasename test
connected true
; C8 Q# u, {+ Y2 p6 |. t
table1
7 _4 m: e' R; Xdatabasename test
$ P: Z- b$ }0 ?tablename kcb
$ |- c; a+ H7 h0 P- x% q) Dactive true

datasetprovider
dataset table10
. k9 }; P! H2 V8 ]4 O3 l. fexpo0rted true

  z# o& v* g0 {0 l. Z" B前六行目的是连上后端数据库Oracle2的表KCB，后两行目的是DataSetProvider组件将表KCB作为DATASET传给前端程序。
& @% R9 I4 i, k& W' k
7 J) A& {9 I) W(3)在Forms1加一个Lable组件，上面写上“服务器应用程序已被启动”，这样运行时屏幕上就会出现这句话，说明程序已被调用。
! `9 h" v- m. R# R
(4)为了前端程序能连上此COM程序，必须把它注册到服务器的注册表内，可通过运行Regedit.EXE,根据Coclass Name寻找注册名来确认注册是否成功。

2.前端程序的开发

(1)打开一个新工程,拖拉一个DCOMConnection组件、一个ClientDataSet组件、DataSource组件、Dbgrid组件到FORM1上。
5 v2 @4 K' \  @( e* d) E
DCOMConnection1设置如下属性:
! {  s2 I% y) x4 Ycomputername 应用服务器的机器名
servername project1.kcbb
" ^! j4 y# r# m! Y* R6 |
: G; I! N( u, Q( o4 U! ~ClientDataSet1设置如下属性:

$ K* C+ F- n. B5 _- gremoteserver dcomconnection1
7 T# u  a7 X. J# W' x+ _provider table1
active true
; i. s& B5 H: l3 H- T3 f' E
/ S# m4 E9 v" V, ^. b: vDataSource的DATASET设置为ClientDataSet1；
Dbgrid的DataSource设置为DataSource1。

最后，将调试好的前端程序复制到所有的前端机中，运行调试，一个Multi_Tier结构的数据库应用程序就可投入使用了。</P>

---

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

Powered by Discuz! X2.5