計(jì)算機(jī)信息管理基礎(chǔ)-信管05

1、PAGE 重慶大學(xué)計(jì)算機(jī)基礎(chǔ)系列課程實(shí) 驗(yàn) 報(bào) 告 本課程名稱 計(jì)算機(jī)信息管理基礎(chǔ) 實(shí)驗(yàn)學(xué)期 2011 年至 2012 年 第 1 學(xué)期學(xué)生所在學(xué)院 材料科學(xué)與工程學(xué)院 年級(jí) 2010 專業(yè)班級(jí) 學(xué)生姓名 學(xué)號(hào) 指導(dǎo)教師 余嘉 實(shí)驗(yàn)最終成績 計(jì)算機(jī)學(xué)院基礎(chǔ)系制實(shí)驗(yàn)題目 PowerBuilder開發(fā)環(huán)境中數(shù)據(jù)庫操作實(shí)驗(yàn)時(shí)間2011.12.08實(shí)驗(yàn)地點(diǎn)DS1408實(shí)驗(yàn)成績 實(shí)驗(yàn)性質(zhì)驗(yàn)證性 設(shè)計(jì)性 綜合性教師評(píng)價(jià)：算法正確；程序結(jié)構(gòu)合理；語法、語義正確；實(shí)驗(yàn)結(jié)果正確；報(bào)告規(guī)范； 其他： 一、實(shí)驗(yàn)?zāi)康?理解并掌握PB中數(shù)據(jù)窗口對(duì)象、菜單的概念和使用方法；2掌握在PB通過數(shù)據(jù)窗口控件顯示數(shù)據(jù)庫表中數(shù)據(jù)的

2、方法及菜單的基本應(yīng)用；3掌握PB中SQL Select及Quick Select類型數(shù)據(jù)源的選取和操作方法；4. 掌握在PB中通過數(shù)據(jù)窗口對(duì)數(shù)據(jù)庫數(shù)據(jù)進(jìn)行復(fù)雜操作的方法；二、實(shí)驗(yàn)主要內(nèi)容及過程（原始記錄）1創(chuàng)建登錄窗口，可根據(jù)不同對(duì)象（老師、學(xué)生）關(guān)聯(lián)不同的數(shù)據(jù)窗口對(duì)象（選擇數(shù)據(jù)源：SQL Select）；2創(chuàng)建菜單，完成菜單設(shè)計(jì)（涵蓋級(jí)聯(lián)、下拉、快捷鍵、加速鍵等設(shè)計(jì)），菜單版式見后。3主窗口中可根據(jù)不同的登錄類型，檢索出登錄人的基本信息數(shù)據(jù)窗口一(本人的基本信息)：(1)（學(xué)生號(hào)、學(xué)生姓名、所在系名）A.學(xué)生登錄時(shí)，按鈕示例不可用（ENABLED）B.菜單中m_基本應(yīng)用的按多個(gè)條件查詢學(xué)生不

3、可見（VISIBLE）C菜單基本數(shù)據(jù)維護(hù)不可見（VISIBLE）或 (2)（教師號(hào)、教師姓名、所在系名）顯示（顯示風(fēng)格：Grid，選擇數(shù)據(jù)源：SQL Select）；4通過菜單M_查詢課程詳情打開子窗口，該子窗口中設(shè)計(jì)兩個(gè)數(shù)據(jù)窗口控件對(duì)課程信息進(jìn)行查詢，1.數(shù)據(jù)窗口對(duì)象（上）（顯示風(fēng)格：freeform，選擇數(shù)據(jù)源：Quick Select）,完成前、后行查閱；2. 數(shù)據(jù)窗口對(duì)象(下)（顯示風(fēng)格：Grid，選擇數(shù)據(jù)源：Quick Select）中，完成對(duì)課程信息插入、刪除、保存、退出功能，并能對(duì)課程號(hào)精確查詢，對(duì)課程名稱進(jìn)行模糊查詢。3、打開子窗口時(shí)，數(shù)據(jù)窗口控件下中無數(shù)據(jù)，直到按下按鈕_顯示

4、課程信息，其中數(shù)據(jù)才出現(xiàn)。4.完成增加、刪除.保存（注意：COMMIT,ROLLBACK的使用）、退出各個(gè)按鈕5.、通過菜單按多個(gè)條件查詢學(xué)生，打開窗口：按學(xué)院、性別兩個(gè)條件查詢表(學(xué)號(hào) 學(xué)生姓名 學(xué)生性別 年齡 所在系)顯示（顯示風(fēng)格：Grid，選擇數(shù)據(jù)源：SQL Select）6、通過菜單按學(xué)生所在系查詢?cè)撓邓袑W(xué)生選課情況，打開子窗口2，可完成A.數(shù)據(jù)窗口一：（學(xué)生號(hào)、學(xué)生姓名、學(xué)生所在系）B.窗口二:( 學(xué)生姓名、課程名稱、成績、學(xué)生所在系）顯示（顯示風(fēng)格：Grid，選擇數(shù)據(jù)源：SQL Select）；C.編制腳本（程序）通過數(shù)據(jù)窗口1選中的學(xué)生表中的記錄，根據(jù)該生所在系信息，能夠在數(shù)

5、據(jù)窗口2中顯示當(dāng)前學(xué)生所在系所有學(xué)生成績信息；菜單版式：三、實(shí)驗(yàn)過程及結(jié)果（1）界面截圖教師登錄教師登錄后 學(xué)生登錄學(xué)生登錄后按多個(gè)條件查詢學(xué)生的應(yīng)用（3）程序1）應(yīng)用中的open事件/ Profile DatabaseSQLCA.DBMS = ODBCSQLCA.AutoCommit = FalseSQLCA.DBParm = Connectstring=DSN=databaseconnect;if SQLCA.SQLCode 0 thenMessagebox(連接失敗,不能連接到數(shù)據(jù)庫的原因?yàn)?+SQLCA.SQLErrText)return elseopen(w_main)end if2

6、）登錄按鈕gs_stuno=sle_1.textgs_stucode=sle_2.textgs_style=ddlb_1.textgs_teano=sle_1.textgs_teacode=sle_2.text if ddlb_1.text= thenmessagebox(警告,請(qǐng)選擇類型,Stopsign!)elseif gs_style=學(xué)生 thendw_1.dataobject=dw_stu dw_1.settransobject(sqlca) dw_1.retrieve(gs_stuno,gs_stucode)elseif gs_style=教師 thendw_1.dataobjec

7、t=dw_teacherdw_1.settransobject(sqlca) dw_1.retrieve(gs_teano,gs_teacode)end ifif dw_1.rowcount()=0 then messagebox(警告,對(duì)不起，認(rèn)證錯(cuò)誤，請(qǐng)確認(rèn)密碼或賬號(hào)是否正確后重新輸入)elseif dw_1.rowcount()=1 then open(w_inform) close (parent)end if 3）登錄窗口中的退出按鈕a=messagebox(退出,真的要退出嗎!,Question!,yesno!)if a=1 thenclose(w_main)end if4）登錄后

8、窗口的open事件if gs_style=學(xué)生 thencb_1.enabled=falsem_inform.m_基本應(yīng)用.m_按多個(gè)條件查詢學(xué)生.visible=falsem_inform.m_基本數(shù)據(jù)維護(hù).visible=falsedw_1.Dataobject=dw_stu_informdw_1.settransobject(SQLCA)dw_1.retrieve(gs_teano)elseif gs_style=教師 thendw_1.Dataobject=dw_tea_informdw_1.settransobject(SQLCA)dw_1.retrieve(gs_stuno)end

9、 if5）菜單中的查詢成績：open(w_chengcha)查詢課程詳情：open(w_chake)close(w_inform)按多個(gè)條件查詢學(xué)生：open(w_xiangcha)按某個(gè)學(xué)生所在系查詢?cè)撓邓袑W(xué)生選課情況：open(w_chengcha)6）查詢課程詳情窗口的open事件查詢課程詳情窗口7）查詢課程詳情窗口中上一條：dw_1.settransobject(sqlca)dw_1.scrollpriorrow()下一條：dw_1.settransobject(sqlca)dw_1.scrollnextrow()查詢按鈕：dw_2.settransobject(SQLCA)gs_c

10、name=sle_1.textdw_2.dataobject=dw_sc_infromdw_2.retrieve(gs_cname)顯示課程詳情按鈕：dw_2.dataobject=dw_sc_fulldw_2.settransobject(sqlca)dw_2.retrieve()增加按鈕：long ll_rowll_row=dw_2.insertrow(0)dw_2.setfocus()dw_2.scrolltorow(ll_row)dw_2.setcolumn(1)dw_2.insertrow(0)刪除按鈕：deleterow(dw_2,dw_2.getrow()保存按鈕：update(

11、dw_2)退出按鈕：close(parent)open(w_main)7）按多條件查詢學(xué)生窗口按所在學(xué)院及性別進(jìn)行查詢按鈕：gs_stuxi=ddlb_1.textgs_stusex=ddlb_2.textdw_1.settransobject(sqlca)dw_1.retrieve(gs_stuxi,gs_stusex)8）實(shí)驗(yàn)中使用的全局變量int aint bint cint dstring gs_stunostring gs_teanostring gs_stucodestring gs_teacodestring gs_stylestring gs_cnamestring gs_stuxistrin