課程設(shè)計(jì)VB可視化編程技術(shù)

1、遼 寧 工 業(yè) 大 學(xué) 可視化編程技術(shù) 課程設(shè)計(jì)（論文）題目： 學(xué)生學(xué)籍管理系統(tǒng) 院（系）： 專業(yè)班級(jí)： 學(xué) 號(hào)： 學(xué)生姓名： 指導(dǎo)教師： 教師職稱： 起止時(shí)間： 課程設(shè)計(jì)（論文）任務(wù)及評(píng)語(yǔ)院（系）： 教研室：軟件教研窒學(xué) 號(hào)學(xué)生姓名 專業(yè)班級(jí)課程設(shè)計(jì)（論文）題目學(xué)生學(xué)籍管理系統(tǒng)課程設(shè)計(jì)（論文）任務(wù)課程設(shè)計(jì)任務(wù)及要求：1、掌握vb程序設(shè)計(jì)語(yǔ)言的基礎(chǔ)知識(shí)。2、設(shè)計(jì)所選擇的題目，對(duì)具體功能進(jìn)行詳細(xì)的分析，根據(jù)系統(tǒng)的要求在vb中設(shè)計(jì)窗體界面，使其合理化。3、了解vb與數(shù)據(jù)庫(kù)的連接方法。4、編寫代碼，實(shí)現(xiàn)系統(tǒng)的功能。5、通過(guò)調(diào)試程序，加深對(duì)vb編程的基本技巧及方法的理解。課程設(shè)計(jì)過(guò)程中，要嚴(yán)格遵守實(shí)踐

2、環(huán)節(jié)的時(shí)間安排，聽從指導(dǎo)教師的指導(dǎo)。正確地完成上述內(nèi)容，記錄實(shí)習(xí)日記，規(guī)范完整地撰寫出課程設(shè)計(jì)論文。指導(dǎo)教師評(píng)語(yǔ)及成績(jī)成績(jī)： 指導(dǎo)教師簽字： 2009 年 12 月 9 日遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說(shuō) 明 書（論 文）目 錄第1章 課程設(shè)計(jì)目的與要求11.1 課程設(shè)計(jì)目的11.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境11.3 課程設(shè)計(jì)的預(yù)備知識(shí)11.4 課程設(shè)計(jì)要求1第2章 課程設(shè)計(jì)內(nèi)容22.1 系統(tǒng)功能設(shè)計(jì)22.2 系統(tǒng)詳細(xì)設(shè)計(jì)32.3 系統(tǒng)運(yùn)行與測(cè)試11第3章 課程設(shè)計(jì)總結(jié)12參考文獻(xiàn)13第1章 課程設(shè)計(jì)目的與要求1.1 課程設(shè)計(jì)目的本課程的課程設(shè)計(jì)實(shí)際是學(xué)生學(xué)習(xí)完可視化編程技術(shù)課程后，進(jìn)行的

3、一次全面的綜合訓(xùn)練，其目的在于加深對(duì)可視化編程技術(shù)基本知識(shí)的理解，掌握運(yùn)用vb開發(fā)應(yīng)用程序的基本方法及基本技巧。1.2 課程設(shè)計(jì)的實(shí)驗(yàn)環(huán)境硬件要求能運(yùn)行windows 9.x操作系統(tǒng)的微機(jī)系統(tǒng)。軟件：microsoft visual basic 6.0 microsoft access 20031.3 課程設(shè)計(jì)的預(yù)備知識(shí)熟悉visual basic 6.0程序設(shè)計(jì)的基本語(yǔ)法知識(shí)及常用技巧。1.4 課程設(shè)計(jì)要求按課程設(shè)計(jì)指導(dǎo)書提供的課題，每個(gè)小組設(shè)計(jì)一個(gè)完整的管理系統(tǒng)應(yīng)用程序。要求根據(jù)規(guī)定設(shè)計(jì)系統(tǒng)的具體要求，按照應(yīng)用程序的設(shè)計(jì)步驟和vb的基本知識(shí)應(yīng)用程序的分析與實(shí)現(xiàn)。應(yīng)根據(jù)基本學(xué)時(shí)分配合理安排設(shè)

4、計(jì)時(shí)間，并獨(dú)立完成各方面的設(shè)計(jì)。選擇同一題目的同學(xué)，可以共同協(xié)作完成一個(gè)應(yīng)用程序的開發(fā)任務(wù)。要求書寫詳細(xì)的設(shè)計(jì)說(shuō)明書，對(duì)有復(fù)雜的代碼段和程序段的部分，應(yīng)畫出程序流程圖，寫出全部的代碼。在界面設(shè)計(jì)中，需畫出每個(gè)窗體的布局，進(jìn)行屬性說(shuō)明，杜絕雷同。第2章 課程設(shè)計(jì)內(nèi)容2.1系統(tǒng)功能設(shè)計(jì)2.1.1 系統(tǒng)功能分析 學(xué)生學(xué)藉管理系統(tǒng)是典型的學(xué)藉管理系統(tǒng)(mis),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。本系統(tǒng)主要完成對(duì)學(xué)生情況和學(xué)生成績(jī)的管理，包括數(shù)據(jù)庫(kù)中表的添加、刪除等

5、。系統(tǒng)還可以完成對(duì)各類信息的瀏覽、添加、刪除等功能。系統(tǒng)的核心是數(shù)據(jù)庫(kù)中各個(gè)表聯(lián)系，每一個(gè)表的修改都將聯(lián)動(dòng)的影響其它的表，當(dāng)完成對(duì)數(shù)據(jù)的操作時(shí)系統(tǒng)會(huì)自動(dòng)地完成數(shù)據(jù)庫(kù)的修改。查詢功能也是系統(tǒng)的核心之一，在系統(tǒng)中即有單條件查詢和多條件查詢，也有精確查詢和模糊查詢，系統(tǒng)不僅有靜態(tài)的條件查詢，也有動(dòng)態(tài)生成的條件查詢，其目的都是為了方便用戶使用。系統(tǒng)有完整的用戶添加、刪除和密碼修改功能，并具備報(bào)表打印功能。2.1.2系統(tǒng)功能模塊設(shè)計(jì) 本系統(tǒng)為學(xué)籍管理系統(tǒng)。它分為用戶管理、班級(jí)管理、招生人員管理和學(xué)籍管理四個(gè)部分，更加方便進(jìn)行管理。 用戶管理：分為修改用戶密碼、添加用戶、編輯用戶和刪除用戶四個(gè)部分。 班級(jí)

6、管理：分為添加班級(jí)信息、查找班級(jí)信息和刪除班級(jí)信息三個(gè)部分。 招生人員管理：分為添加招生人員和刪除招生人員兩個(gè)部分。 學(xué)籍管理：分為錄入學(xué)籍信息、修改學(xué)籍信息、查詢學(xué)籍信息、刪除學(xué)籍信息和瀏覽學(xué)籍信息五個(gè)部分。學(xué)籍管理系統(tǒng)用戶管理班級(jí)管理招生人員管理學(xué)籍管理添加用戶編輯用戶刪除用戶添加班級(jí)信息刪除班級(jí)信息添加招生人員刪除招生人員錄入學(xué)籍信息修改學(xué)籍信息查詢學(xué)籍信息刪除學(xué)籍信息瀏覽學(xué)籍信息修改用戶密碼查找班級(jí)信息圖2.1系統(tǒng)功能模塊圖2.2系統(tǒng)詳細(xì)設(shè)計(jì)2.2.1 學(xué)生修改密碼模塊設(shè)計(jì)1.界面設(shè)計(jì)修改密碼：這里是數(shù)據(jù)員修改自己密碼的地方。點(diǎn)擊“修改密碼”得如下圖：輸入原密碼、新密碼和確認(rèn)新密碼。點(diǎn)

7、擊“遞交”即可修改，系統(tǒng)會(huì)提示修改成功。如果不想修改。點(diǎn)擊“取消”結(jié)束本窗體。在窗體上添加一個(gè)框架控件frame1和兩個(gè)命令按鈕command1/command2,選定frame1，在其中添加label1label3,text1text3。設(shè)置對(duì)象屬性如下表： 對(duì)象 屬性 屬性值 label1 caption 原密碼 label2caption 新密碼 label3caption 確認(rèn)新密碼 command1caption 遞交 command2caption 取消窗體設(shè)計(jì)如下圖所示： 圖2.2修改密碼模塊2.代碼設(shè)計(jì) 此代碼為修改用戶密碼所用的代碼。更加安全的管理個(gè)人信息等重要的信息。此代碼

8、包括輸入原密碼，然后輸入新密碼再確認(rèn)新密碼，按遞交即可。 dim cn as new connectiondim rst as new recordsetprivate sub form_load() if cn.state adstateclosed then 判斷連接數(shù)據(jù)庫(kù)的情況 cn.close end ifcn.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path & 鹿山學(xué)籍管理.mdbcn.openend subprivate sub cmdok_click() 確定按鈕 if rst

9、.state adstateclosed then 判斷連接數(shù)據(jù)庫(kù)的情況 rst.close end ifrst.open select * from 學(xué)生信息 where 學(xué)生姓名= & form1.nowusername & and 學(xué)生學(xué)號(hào)= & form1.nowuserxuehao & , cn, adopenkeyset, adlockoptimisticif text1 = rst(學(xué)生密碼) then 輸入的原密碼正確。 if text2 = text3 then 新密碼兩次輸入一致 rst(學(xué)生密碼) = trim(text2) 同意修改密碼 rst.update if er

10、r.number = 0 then msgbox 已成功修改 & form1.nowusername & 用戶信息, vbinformation, 成功 text1 = text2 = text3 = end if else msgbox 兩次輸入的密碼不符, vbcritical, 錯(cuò)誤 兩次密碼不一樣時(shí)。提醒 end ifelse msgbox 原密碼錯(cuò)誤, vbcritical, 錯(cuò)誤 原密碼輸入錯(cuò)誤，不同意修改 text1.setfocusend ifend subprivate sub command2_click() 關(guān)閉按鈕 unload meend sub2.2.2 查找班級(jí)模

11、塊設(shè)計(jì)1.界面設(shè)計(jì)查找班級(jí)：點(diǎn)擊“檔案查詢查找班級(jí)”并安一定條件查詢后得到如下圖3的窗體：這里提供了按學(xué)院、系別、班級(jí)查找的方法。選中要修改的學(xué)生。點(diǎn)擊“修改學(xué)生”按鈕或者雙擊網(wǎng)格控件，就到了學(xué)生信息編輯的窗體和前面的“修改學(xué)生信息”窗體一樣。修改方法上面已經(jīng)提到過(guò)，這里就不在說(shuō)了。這里同樣也可以刪除學(xué)生，選中要?jiǎng)h除的學(xué)生，點(diǎn)擊“刪除按鈕”即可刪除該學(xué)生。在窗體上添加一個(gè)框架控件frame1和五個(gè)命令按鈕command1command5,選定frame1，在其中添加label1labe3,text1text3。 設(shè)置對(duì)象屬性如下表： 對(duì)象 屬性 屬性值frame1caption 查找目標(biāo)lab

12、el1caption 學(xué)院label2 caption 系別label3caption 班級(jí)command1caption 查找command2caption 清空command3caption 刪除學(xué)生command4caption 修改信息command5caption 刷新 窗體設(shè)計(jì)如下圖所示：圖2.3查找班級(jí)模塊2代碼設(shè)計(jì) 此代碼為查找班級(jí)用的代碼，讓你更加方便去查找你所需要的信息。你可以通過(guò)輸入學(xué)院、系別等進(jìn)行班級(jí)查詢。dim cn as new connectiondim rst as new recordsetpublic nostudentnumb2 as string 記錄學(xué)

13、生學(xué)號(hào)，以后修改學(xué)生信息時(shí)用到private sub cmdfind_click() 查詢按鈕dim sqlstr as string 定義一個(gè)記錄變量，用來(lái)記錄搜索的目標(biāo) if cn.state adstateclosed then cn.close end ifcn.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path & 鹿山學(xué)籍管理.mdbcn.open sqlstr = select * from 學(xué)生信息 where 分三種情況，一種是“廣西工學(xué)院”、一種是“鹿山學(xué)院” if comx

14、ueyuan.text = 廣西工學(xué)院 then 還有一種是“全部查找” sqlstr = sqlstr & 學(xué)生學(xué)院=廣西工學(xué)院 elseif comxueyuan.text = 鹿山學(xué)院 then sqlstr = sqlstr & 學(xué)生學(xué)院=鹿山學(xué)院 elseif comxueyuan.text = 全部 then sqlstr = sqlstr & 學(xué)生學(xué)院 like % 用模糊查找，找出所有。 else msgbox 所在學(xué)院輸入錯(cuò)誤！, vbcritical, 提示 exit sub end if if textxibie then sqlstr = sqlstr & and 學(xué)生

15、系別= & textxibie & if textclass then sqlstr = sqlstr & and 班級(jí)= & textclass & rst.open sqlstr, cn, adopenkeyset, adlockoptimistic set mshffind.datasource = rst labjilushu.caption = 共有 & rst.recordcount & 條符合條件end subprivate sub cmdqingkong_click()textxibie = textclass = end subprivate sub cmdshuaxin_c

16、lick()if cn.state adstateclosed then 判斷連接是否為空。因?yàn)槿绻麨榭?，則刷新時(shí)就會(huì)出錯(cuò)。set mshffind.datasource = rstend ifend subprivate sub cmdxiugai_click()if nostudentnumb2 = thenmsgbox 請(qǐng)選擇要修改的學(xué)生！, vbcritical, 提示elsemdiform1.nouserform = form2classfindform2xiugai.showend ifend subprivate sub commdelstudent_click()if nost

17、udentnumb2 = then 記錄下的管理員id,如果為空則說(shuō)明沒有選中.就不能修改.msgbox 請(qǐng)選擇要?jiǎng)h除的學(xué)生, vbcritical, 錯(cuò)誤elseif msgbox(確定要?jiǎng)h除此學(xué)生嗎?, vbyesno, 刪除學(xué)生) = vbyes then if cn.state adstateclosed then 判斷連接數(shù)據(jù)庫(kù)的情況 cn.close end ifcn.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path & 鹿山學(xué)籍管理.mdbcn.open if rst.state

18、 adstateclosed then 判斷連接數(shù)據(jù)庫(kù)的情況 rst.close end ifrst.open select * from 學(xué)生信息 where 學(xué)生學(xué)號(hào)= & nostudentnumb2 & , cn, adopenkeyset, adlockoptimistic if rst.eof = true and rst.bof = true then 判斷用戶是否全部被刪除 msgbox 學(xué)生已被刪除，不能再進(jìn)行此操作！, vbcritical, 錯(cuò)誤 exit sub end ifrst.delete cmdfind_click else exit sub 如果選擇不刪,則不

19、刪除 end ifend ifend subprivate sub mshffind_click()if mshffind.cols 3 then exit sub 剛進(jìn)入窗體時(shí)，網(wǎng)格控件中無(wú)信息，如果繼續(xù)執(zhí)行下面的信息，就會(huì)出錯(cuò)。dim mshfhang as integerdim mshflie as integermshflie = mshffind.colmshfhang = mshffind.rowmshffind.col = 3nostudentnumb2 = mshffind.text cmdshuaxin_click mshffind.row = mshfhang 再次跳轉(zhuǎn)到使

20、用者最初所點(diǎn)擊的行和列，使保持在原來(lái)的地方 mshffind.col = mshflie mshffind.cellbackcolor = &hff0000 mshffind.cellforecolor = &hffffffend subprivate sub mshffind_dblclick()mshffind_clickcmdxiugai_clickend sub2.2.3 數(shù)據(jù)庫(kù)訪問技術(shù)學(xué)生學(xué)籍管理系統(tǒng)課設(shè)中vb提供的數(shù)據(jù)庫(kù)訪問方法主要有：使用可視化數(shù)據(jù)管理器管理數(shù)據(jù)庫(kù)、用data、ado數(shù)據(jù)控件訪問數(shù)據(jù)庫(kù)、通過(guò)odbc方式訪問遠(yuǎn)程數(shù)據(jù)庫(kù)以及采用對(duì)象變量訪問數(shù)據(jù)庫(kù)等。從vb6.0開始使

21、用ado(active dataobjects)進(jìn)行數(shù)據(jù)訪問。系統(tǒng)對(duì)數(shù)據(jù)集成的要求越來(lái)越高,這些數(shù)據(jù)可能分布在不同的地方,并且使用不同的格式,例如關(guān)系型數(shù)據(jù)庫(kù)和操作系統(tǒng)中的文件、電子表格、電子郵件、多媒體數(shù)據(jù)以及目錄服務(wù)信息。microsoft公司推出的一致數(shù)據(jù)訪問技術(shù)則較好地解決了這些問題,它使得應(yīng)用通過(guò)一致的接口來(lái)訪問各種各樣的數(shù)據(jù),而不管數(shù)據(jù)駐留在何處,也不需要進(jìn)行數(shù)據(jù)轉(zhuǎn)移或復(fù)制、轉(zhuǎn)換,在實(shí)現(xiàn)分布式同時(shí)也帶來(lái)了高效率。uda技術(shù)包括ole db和ado兩層標(biāo)準(zhǔn)接口,ole db是系統(tǒng)級(jí)的a d o模型可以看作是r d o模型的精華版。它比r d o和d a o模型更簡(jiǎn)單。模型中只有3個(gè)關(guān)

22、鍵對(duì)象:connection(數(shù)據(jù)庫(kù)連接);command(數(shù)據(jù)連接執(zhí)行查詢);recordset(command查詢記錄集合)。2.3 系統(tǒng)運(yùn)行與測(cè)試1修改密碼模塊輸入原密碼，再輸入要修改的新密碼，然后再次確認(rèn)新密碼，按遞交按鈕，此時(shí)將會(huì)顯示修改密碼成功。 如圖所示： 圖2.4修改密碼模塊運(yùn)行測(cè)試2查找班級(jí)信息模塊輸入查找字段、查找值等相關(guān)信息，點(diǎn)擊查詢按鈕，所查資料將會(huì)顯示在查找班級(jí)管理模塊下方的統(tǒng)計(jì)表中。如圖所示：圖2.5查找班級(jí)模塊運(yùn)行測(cè)試白盒測(cè)試：白盒測(cè)試也稱結(jié)構(gòu)測(cè)試或邏輯驅(qū)動(dòng)測(cè)試，它是按照程序內(nèi)部的結(jié)構(gòu)測(cè)試程序，通過(guò)測(cè)試來(lái)檢測(cè)產(chǎn)品內(nèi)部動(dòng)作是否按照設(shè)計(jì)規(guī)格說(shuō)明書的規(guī)定正常進(jìn)行，檢驗(yàn)程

23、序中的每條通路是否都能按預(yù)定要求正確工作。這一方法是把測(cè)試對(duì)象看作一個(gè)打開的盒子，測(cè)試人員依據(jù)程序內(nèi)部邏輯結(jié)構(gòu)相關(guān)信息，設(shè)計(jì)或選擇測(cè)試用例，對(duì)程序所有邏輯路徑進(jìn)行測(cè)試，通過(guò)在不同點(diǎn)檢查程序的狀態(tài)，確定實(shí)際的狀態(tài)是否與預(yù)期的狀態(tài)一致。第3章 課程設(shè)計(jì)總結(jié)經(jīng)過(guò)了整整兩周的忙碌的上機(jī)實(shí)驗(yàn)，查找資料與多次修改終于課程設(shè)計(jì)即將結(jié)束了。 可給我?guī)?lái)的收獲卻遠(yuǎn)遠(yuǎn)超出了我們的預(yù)想。本次學(xué)籍管理的課程設(shè)計(jì)，提高了我們各方面的能力操作實(shí)踐面面俱到。通過(guò)這種學(xué)習(xí)和能力的培養(yǎng)，以加強(qiáng)自我發(fā)現(xiàn)問題分析問題解決問題的能力，認(rèn)真主動(dòng)完成課設(shè)的要求。每個(gè)作品都反映了我們應(yīng)用課程的某部分知識(shí)解決某個(gè)問題的結(jié)果，而我們并不是一切順利的，在研究中遇到了各種各樣的問題，是我們自己都無(wú)法想象的。在這次的設(shè)