1、 計(jì)算機(jī)與通訊工程學(xué)院PAGE 2PAGE 20 計(jì)算機(jī)與通訊工程學(xué)院天津(tin jn)理工大學(xué)計(jì)算機(jī)與通信(tng xn)工程學(xué)院實(shí)驗(yàn)報(bào)告2013 至 2014 學(xué)年(xunin) 第 二 學(xué)期實(shí)驗(yàn)一 C/S結(jié)構(gòu)軟件開發(fā)規(guī)范課程名稱軟件項(xiàng)目規(guī)范與開發(fā)學(xué)號(hào)學(xué)生姓名年級(jí) 專業(yè)計(jì)算機(jī)科學(xué)與技術(shù)教學(xué)班號(hào)實(shí)驗(yàn)地點(diǎn)主7-216實(shí)驗(yàn)時(shí)間 主講教師 郝剛輔導(dǎo)教師 郝剛實(shí)驗(yàn)（一）實(shí)驗(yàn)名稱C/S結(jié)構(gòu)軟件開發(fā)規(guī)范軟件環(huán)境 Windows powerbulider6.5 SQL Server或My SQL硬件環(huán)境PC 實(shí)驗(yàn)?zāi)康模?通過實(shí)驗(yàn)使學(xué)生掌握C/S結(jié)構(gòu)軟件的開發(fā)方法及開發(fā)規(guī)范，熟悉開發(fā)工具的的安裝和使用，掌

2、握利用事件驅(qū)動(dòng)的方法來編寫程序，掌握利用開發(fā)工具維護(hù)數(shù)據(jù)庫數(shù)據(jù)，初步掌握利用開發(fā)工具來實(shí)現(xiàn)面向?qū)ο缶幊痰姆椒āＭ瓿蒀/S結(jié)構(gòu)軟件的開發(fā)，包括以下內(nèi)容： 軟件的安裝變量、窗口命名及方法建立應(yīng)用能夠連接數(shù)據(jù)庫，配置ODBC能進(jìn)行多表操作能夠用事件驅(qū)動(dòng)的方法進(jìn)行面向?qū)ο蟮木幊虒?shí)驗(yàn)內(nèi)容（應(yīng)包括實(shí)驗(yàn)題目、實(shí)驗(yàn)要求、實(shí)驗(yàn)任務(wù)等）1、安裝(nzhung)開發(fā)工具 2、編寫(binxi)C/S簡單(jindn)程序，及 3、事件驅(qū)動(dòng)的編程方法(fngf)(1)新建點(diǎn)擊(din j)“否”，生成(shn chn)項(xiàng)目。（2）窗口(chungku)新建窗口，設(shè)置窗口布局，以及安放控件。給按鈕在click事件中設(shè)置

3、響應(yīng)子窗口01：open(w_01)確定：close(w_main)（3）點(diǎn)擊“子窗口01”4、數(shù)據(jù)庫建表，配置ODBC連接數(shù)據(jù)庫（1）新建項(xiàng)目時(shí)，在下面的步驟中點(diǎn)擊“是”。（2）點(diǎn)擊(din j)配置(pizh)ODBC連接(linji)數(shù)據(jù)庫點(diǎn)擊(din j)copy，將連接數(shù)據(jù)庫的內(nèi)容粘貼(zhnti)到open事件中。5、嵌入式SQL語句(yj)操作(cozu)數(shù)據(jù)方法 及 6、數(shù)據(jù)庫單表的增、刪、改、查（1）在窗口(chungku)的open事件中寫入如下語句（與數(shù)據(jù)庫連接，顯示數(shù)據(jù)內(nèi)容）：dw_1.settransobject(sqlca)dw_1.retrieve()（2）在窗口

4、中加入datawindow控件，并在其中加入如下表（3）在窗口(chungku)中添加按鈕，分別是：增加、刪除、修改、保存、返回 增加(zngji)： dw_1.insertrow(0) 刪除(shnch)： long ll_rowintegerli_return/ll_row=dw_1.getrow()if ll_row1 then returnli_return=messagebox(提示,真的編碼刪除這個(gè)嗎？,information!,OKCancel! )if li_return=2 then returndw_1.deleterow(ll_row) 修改： dw_1.update()

5、commit using sqlca; 保存： integerli_return/li_return=messagebox(提示,確定保存嗎？,information!,OKCancel! )if li_return=1 then dw_1.update()end if 返回： close(parent)7、數(shù)據(jù)庫多表的增、刪、改、查（1）在窗口的open事件中寫入如下語句： dw_1.SetTransObject(sqlca)dw_1.retrieve()（2）在窗口中加入datawindow控件，并在其中加入如下表（3）添加(tin ji)新編碼： integerli_return/ins

6、ert into dt_qty select a.code,0 from dt_code a where a.code not in(select b.code from dt_qty b) using sqlca; /messagebox(,SQLCA.SQLCode)if SQLCA.SQLCode 0 then rollback using sqlca;else commit using sqlca;end ifdw_1.retrieve()（4）修改(xigi)： dw_1.update()commit using sqlca;（5）查詢(chxn)：“查詢(chxn)”按鈕的clic

7、k事件中：stringls_code,ls_filter=,ls_date/ls_code=trim(sle_1.text)if cbx_1.checked then ls_filter=trim(dt_input_code)=+ls_code+end ifls_date=trim(sle_2.text)if cbx_2.checked then if ls_filter then ls_filter = ls_filter+ and ls_filter=ls_filter+trim(dt_input_inputdate)=+ls_date+end ifdw_1.setfilter(ls_fi

8、lter)dw_1.filter()8、面向?qū)ο蟮木幊谭椒ɡ^承：（1）被繼承(jchng)的窗口 在窗口的open事件(shjin)中添加如下代碼： integer ll_returnll_return = MessageBox(提示(tsh),真的關(guān)閉嗎?, Exclamation!, OKCancel!, 2)IF ll_return = 1 THEN return 0 / Process OK.ELSE return 1 / Process CANCEL.END IF（2）main01新建時(shí)，點(diǎn)擊下圖的inhert，創(chuàng)建繼承窗口（3）main02創(chuàng)建(chungjin)方法同main01，同樣(tngyng)繼承（4）運(yùn)行(ynxng)程序：點(diǎn)擊(din j)“跳轉(zhuǎn)”點(diǎn)擊(din j)右上角的紅叉，如下(rxi)圖，可見(kjin)“提示”也被繼承了過來。內(nèi)容總結(jié)（1）