VB+Access開發(fā)的學(xué)籍管理系統(tǒng)設(shè)計(jì)論文

1、學(xué)生學(xué)籍管理系統(tǒng)摘要隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在人們?nèi)粘９芾碇械膽?yīng)用迅速得到了普及，利用計(jì)算機(jī)進(jìn)行學(xué)生信息的管理勢(shì)在必行。本系統(tǒng)結(jié)合當(dāng)前高等學(xué)校的實(shí)際，經(jīng)過實(shí)際的需求分析，采用功能強(qiáng)大的vb6.0作為開發(fā)工具而開發(fā)出來的單機(jī)版學(xué)生學(xué)籍管理系統(tǒng)。整個(gè)系統(tǒng)從符合操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，完成學(xué)生基本情況簡(jiǎn)介,學(xué)生基本信息管理以及相關(guān)信息的添加,修改,刪除等操作。經(jīng)過實(shí)際的測(cè)試證明本系統(tǒng)可以用為高等院校進(jìn)行學(xué)生信息方面的管理工作，本系統(tǒng)數(shù)據(jù)庫采用access 2003。關(guān)鍵詞窗口；對(duì)話框；信息管理系統(tǒng)；access數(shù)據(jù)庫 students data manage syst

2、emauthor: zhang wenlong（well-being of electronics and information engineering, computer science and technology professional 07, ankang, shaanxi 725000）tutor：wang hongshanabstract: with the rapid development of computer technology,the computer application in the daily management of people quickly get

3、 the popularity of computer-based student information management imperative. the system with the current real of high education institutions, through the actual needs analysis, using vb6.0 as a powerful development tool then developed a stand-alone student record management system. the system is eas

4、y to manipulate and user-friendly, flexible, practical, safety requirements, the completion of the basic profiles of students, students with basic information management and related information to add, modify, or delete operation. after the actual test, the system can be used as a university student

5、 information management, the system database using access 2003.key words：window; dialog box, information management system;access database引言一直以來人們使用傳統(tǒng)的人工的方式來管理學(xué)籍文件，但是時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于管理人員查詢和維護(hù)都帶來了很多的不便，隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，使用計(jì)算機(jī)對(duì)學(xué)生學(xué)籍信息進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點(diǎn)，例如：查詢方便、檢索速度快、可靠性高、存儲(chǔ)量大等。為了解決人工管理學(xué)籍困難的問題，

6、學(xué)生學(xué)籍管理系統(tǒng)應(yīng)運(yùn)而生。1.系統(tǒng)總體概述管理信息系統(tǒng)(mis,management information system)，在強(qiáng)調(diào)管理，強(qiáng)調(diào)信息的現(xiàn)代社會(huì)中它變得越來越普及。mis是一門新的科學(xué)，跨越了若干個(gè)領(lǐng)域，管理科學(xué)，系統(tǒng)科學(xué)，運(yùn)籌學(xué)，統(tǒng)計(jì)學(xué)及計(jì)算機(jī)科學(xué)。在這些科學(xué)的基礎(chǔ)上,形成信息收集和加工方法，從而形成一個(gè)縱橫交織的系統(tǒng)。2.管理信息系統(tǒng)的基礎(chǔ)2.1管理信息系統(tǒng)的特點(diǎn)管理信息系統(tǒng)的特點(diǎn)是：操作方便、查詢速度快、界面友好、存儲(chǔ)量大等。2.2管理信息系統(tǒng)的組成 管理信息系統(tǒng)在企業(yè)中應(yīng)用存在三大要素，人、計(jì)算機(jī)和數(shù)據(jù)。企業(yè)領(lǐng)導(dǎo)者，管理人員，技術(shù)人員以及mis建設(shè)的領(lǐng)導(dǎo)機(jī)構(gòu)和實(shí)施機(jī)構(gòu)，他們

7、在系統(tǒng)中起到主導(dǎo)作用。mis是一項(xiàng)系統(tǒng)工程，不是只靠一些計(jì)算機(jī)開發(fā)人員就可以完成的必須有企業(yè)管理人員，尤其是企業(yè)領(lǐng)導(dǎo)的積極參與。2.3 管理系統(tǒng)信息的界面在計(jì)算機(jī)軟件技術(shù)中，人機(jī)界面可以發(fā)展成為一個(gè)重要分支。mis人機(jī)界面設(shè)計(jì)一般遵循一下一些基本原則： 1.以人機(jī)交互功能作為界面設(shè)計(jì)的核心； 2.界面必須始終一致； 3.界面必須是用戶隨時(shí)掌握任務(wù)的進(jìn)展情況； 4.界面必須友好，使用方便； 5.輸入界面盡可能接近實(shí)際； 6.具有較強(qiáng)的容錯(cuò)功能。3.學(xué)生學(xué)籍管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)3.1系統(tǒng)設(shè)計(jì) 3.1.1系統(tǒng)功能分析 學(xué)生學(xué)籍管理系統(tǒng)的開發(fā)任務(wù)是為了減輕教學(xué)管理工作人員的工作負(fù)擔(dān),為了教學(xué)管理工作能

8、夠系統(tǒng)化,規(guī)范化和自動(dòng)化而開發(fā)的。3.2數(shù)據(jù)庫設(shè)計(jì) 3.2.1數(shù)據(jù)庫需求分析 現(xiàn)在一般的大中專院校,在學(xué)生學(xué)籍管理方面主要用于查詢,添加和刪除等學(xué)生基本信息操作.在建立數(shù)據(jù)庫時(shí),我先建了一個(gè)學(xué)生學(xué)籍表。3.2.2數(shù)據(jù)的概念設(shè)計(jì) 根據(jù)上面所進(jìn)行的數(shù)據(jù)設(shè)計(jì)分析,我們明白了數(shù)據(jù)庫大致結(jié)構(gòu)和數(shù)據(jù)表之間的聯(lián)系,數(shù)據(jù)庫數(shù)據(jù)在他們之間流動(dòng).我們就可以設(shè)計(jì)出學(xué)生學(xué)籍信息實(shí)體3.2.3數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)通過以上分析，先用microsoft access 2003來設(shè)計(jì)數(shù)據(jù)庫 。3.2.4數(shù)據(jù)庫的實(shí)現(xiàn)在經(jīng)過前面的需求分析和概念邏輯結(jié)構(gòu)設(shè)計(jì)之后，現(xiàn)在就可以在microsoft access 2003中來實(shí)現(xiàn)數(shù)據(jù)庫

9、了。打開microsoft access 2003，在出現(xiàn)的對(duì)話框里選擇“空access數(shù)據(jù)庫”，數(shù)據(jù)庫命名為school，使用設(shè)計(jì)器設(shè)計(jì)表，用access 2003創(chuàng)建餓數(shù)據(jù)庫不能直接被vb6.0訪問，必須經(jīng)過轉(zhuǎn)換成早期版本才行。轉(zhuǎn)換后文件名命名為“school.mdb”保存，最后保存數(shù)據(jù)庫。圖3-1 學(xué)籍表3.3創(chuàng)建學(xué)籍管理窗口將學(xué)籍管理窗體上所有控件對(duì)象。一一創(chuàng)建，并適當(dāng)?shù)卦O(shè)置各個(gè)控件的屬性。1.打開vb，創(chuàng)建新的工程，選擇標(biāo)準(zhǔn)exe。2.將新建的窗體form1命名為“學(xué)籍”窗體。3.修改窗體顏色：修改屬性窗體里的backcolor屬性值。4.修改窗體標(biāo)題：將窗體form1的captio

10、n屬性改為學(xué)籍管理。5.設(shè)置窗口形式關(guān)閉窗口右上角的控制按鈕：還原、最小化、關(guān)閉按鈕。完成上述動(dòng)作的控制是，這只窗口form1的controlbox屬性為false。這樣的設(shè)置，是為了使程序運(yùn)行后，操作者無法使用右上角的按鈕結(jié)束該程序運(yùn)行。6.創(chuàng)建文本框控件數(shù)組。7.創(chuàng)建標(biāo)簽label控件，說明個(gè)文本框作用。8.創(chuàng)建按鈕：分別設(shè)計(jì)搜索、添加、修改、刪除等按鈕。3.4創(chuàng)建學(xué)生數(shù)據(jù)管理系統(tǒng)窗體 1.在菜單工程中選擇添加窗體將會(huì)出現(xiàn)form2窗體。2.設(shè)計(jì)窗體form2的form-load事件程序: a.雙擊form2的空白處,則屏幕將出現(xiàn)form-load事件程序。 b.輸入的form-load程

11、序。3.使用dao為數(shù)據(jù)存取接口，因此需要將dao引入工程。 引入dao的方法是,單擊工程,引用菜單選項(xiàng)，選中dao3.6選項(xiàng)。4.學(xué)籍窗體顯示,從窗體form2處,單擊菜單作業(yè)管理,系統(tǒng)將學(xué)籍信息窗體form1顯示在畫面上,這個(gè)程序設(shè)計(jì)方法如下: 在設(shè)計(jì)階段,單擊form2的主菜單作業(yè)管理選項(xiàng),隨即會(huì)出現(xiàn)空白的student1-click程序。 3.5搜索按鈕功能的實(shí)現(xiàn) 在搜索特定的數(shù)據(jù)時(shí),vb提供四種find方法: a. findfirst:尋找第一組特定數(shù)據(jù)；b. findlast:尋找最后一組特定數(shù)據(jù)； c. findnext:尋找下一組特定數(shù)據(jù) ；d. findprevious:尋找

12、上一組特定數(shù)據(jù)； 由于在上面所述中已經(jīng)修改了所有按鈕的屬性,接下來則可在程序設(shè)計(jì)階段,雙擊搜索按鈕輸入程序代碼。3.6添加,保存,取消功能設(shè)計(jì) 在窗體式的數(shù)據(jù)庫結(jié)構(gòu)中,一般情況下,都會(huì)有數(shù)據(jù)顯示在窗體上。假若操作者要增加新的數(shù)據(jù)記錄,則必須有操作者按下添加按鈕,這時(shí)程序進(jìn)行清除目前的數(shù)據(jù)顯示,且增加一組空白記錄,隨后按保存按鈕,使操作者輸入的數(shù)據(jù)寫入數(shù)據(jù)庫中。甚至于操作者要中途放棄新輸入的數(shù)據(jù),則可以通過取消按鈕完成。 1.雙擊添加按鈕,將程序代碼加入。2.相同的保存按鈕也加入程序代碼。 3.7刪除數(shù)據(jù),結(jié)束按鈕 刪除動(dòng)作,先要有確認(rèn)信息框,作為預(yù)防操作者無意的錯(cuò)誤刪除動(dòng)作。再者,待刪除命令確

13、定運(yùn)行后,程序需能通過data control控件運(yùn)行刪除記錄的動(dòng)作。1.雙擊窗體上的刪除按鈕加上代碼；2.雙擊結(jié)束按鈕假如切換回系統(tǒng)維護(hù)窗的程序； 3.8命令按鈕狀態(tài)編輯 將窗體上的11個(gè)按鈕,分成兩組,如下: 1.一般功能按鈕:包括搜索、最前、向前、向后、最后命令按鈕。 2.輔助功能按鈕:包括添加、修改、刪除、保存、結(jié)束、取消命令按鈕。這樣的劃分原則是,保存,取消按鈕平時(shí)應(yīng)是失效(disable)狀態(tài),但是操作者若按下添加按鈕,則一般功能按鈕應(yīng)該全部失效(disable),反而輔助功能按鈕應(yīng)該有效(enable)。也就是說,在添加功能狀態(tài)下,接下來的命令部步驟,只能作保存或取消兩種操作，

14、根據(jù)上述的說明和分類,先制作一個(gè)過程savecancel,它的作用是將所有的一般功能按鈕,全部失效(disable),而輔助功能按鈕有效(enable)。 添加savecancel過程:依次點(diǎn)選工具,添加過程菜單,隨即在出現(xiàn)的添加過程窗口內(nèi)輸入信息。a.輸入代碼。b.添加intial程序:仿照步驟1,創(chuàng)建intial過程。c.initial-button程序代碼,需分成兩個(gè)塊,一塊是數(shù)據(jù)庫沒有記錄,此時(shí)則只有添加,結(jié)束按鈕可以有效(enable),其余全部失效(disable)。另一塊是一般功能按鈕全部有效,輔助功能按鈕全部失效。4.主要功能模塊視圖及代碼4.1登錄模塊private sub

15、command1_click() dim j as single dim passwordchar as string數(shù)據(jù)有效性檢查 passwordchar = text1.text 對(duì)應(yīng)用戶名文本的名稱 if passwordchar = 張文龍 then passwordchar = text2.text 對(duì)應(yīng)密碼文本的名稱 if passwordchar = 123456 then form2.show form3.hide else msgbox 用戶密碼錯(cuò)誤，請(qǐng)重新輸入密碼 txtuser = txtpwd = exit sub end if end if end subpriva

16、te sub command2_click() endend sub圖4-1 登錄窗口4.2學(xué)生數(shù)據(jù)管理系統(tǒng)操作界面模塊圖4-2 數(shù)據(jù)管理4.3 學(xué)籍管理模塊4.3.1實(shí)現(xiàn)學(xué)生基本情況的錄入、修改、刪除等基本操作添加功能：private sub command2_click()on error goto commanderrorcleardisplaytext1(0).setfocusaddrecord = truesavecancelexit subcommanderror:msgbox err.descriptionend sub“修改”控件的算法：private sub command3

17、_click()on error goto commanderrortext1(0).setfocusmodifyrecord = truesavecancelexit subcommanderror:msgbox err.descriptionend sub“刪除”控件的算法：private sub command4_click()on error goto delerrordim d as integerd = msgbox(確定要?jiǎng)h除這筆記錄嗎？, vbquestion + vbyesno, 刪除記錄)if d = vbyes thenbegintrans rs1.deletecommi

18、ttransrs1.movenextif rs1.recordcount 0 then if rs1.eof then rs1.movelast end if displayrecordelse rs1.addnew cleardisplay inital_botton end ifend ifexit subdelerror: rollback msgbox err.description end sub4.3.2對(duì)學(xué)生基本信息提供靈活的查詢方式“搜索”控件的算法：private sub command1_click()on error goto commanderrordim num as

19、 stringon error goto commanderrornum = inputbox$(請(qǐng)輸入學(xué)號(hào)(8碼), 學(xué)號(hào)搜索, a0800001)if num thennum = 學(xué)號(hào)= & & num & rs1.findfirst numif not rs1.nomatch then displayrecordelsemsgbox 目前沒有這個(gè)學(xué)號(hào)的學(xué)生數(shù)據(jù), vbokonly + vbexclamation, end if end ifexit subcommanderror:msgbox err.descriptionend sub查找最前端的數(shù)據(jù)：private sub comm

20、and11_click(index as integer)const move_first = 3const mvoe_previous = 2const move_next = 1const move_last = 0on error goto commanderrorselect case indexcase move_first rs1.movefirstcase mvoe_previous rs1.moveprevious if rs1.bof then beep msgbox 這已是第一組數(shù)據(jù), vbokonly + vbexclamation, exit sub end ifcas

21、e move_next rs1.movenext if rs1.eof then beep msgbox 這已是最后一組數(shù)據(jù), vbokonly + vbexclamation, exit sub end ifcase move_last rs1.movelastend selectdisplayrecordexit subcommanderror: msgbox err.description end sub依次向后查找：private sub command11_click(index as integer)const move_first = 3const mvoe_previous =

22、 2const move_next = 1const move_last = 0on error goto commanderrorselect case indexcase move_first rs1.movefirstcase mvoe_previous rs1.moveprevious if rs1.bof then beep msgbox 這已是第一組數(shù)據(jù), vbokonly + vbexclamation, exit sub end ifcase move_next rs1.movenext if rs1.eof then beep msgbox 這已是最后一組數(shù)據(jù), vbokonly + vbexclamation, exit sub end ifcase move_last rs1.movelastend selectdis