學(xué)生信息管理系統(tǒng)的論文+畢業(yè)設(shè)計用VB.

1、大學(xué)畢業(yè)設(shè)計論文班主任學(xué)生信息管理系統(tǒng)學(xué) 校 XXX姓 名 XXX學(xué) 號 5XXX學(xué) 科 專 業(yè) 計算機(jī)科學(xué)與技術(shù)指 導(dǎo) 教 師 XXX日期: 20XX 年 3 月學(xué)生信息管理系統(tǒng)說明書前 言學(xué)生信息管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生學(xué)生信息管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件學(xué)生信息，這種管理方式存在著許多缺點,如:效率低、保密性差,隨著時間的推移,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)帶來和很大的困難。隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實施在

2、技術(shù)上已逐步成熟。長時間以來，學(xué)校的學(xué)生信息管理基本上都是靠手工進(jìn)行,隨著大學(xué)擴(kuò)招,學(xué)生管理各個方面的工作給老師和學(xué)校工作人員形成了一定的壓力，有關(guān)有的學(xué)校不得不靠增加人力,物力來進(jìn)行學(xué)生信息管理.但手工管理具有效率底,出錯率高.所以學(xué)生信息管理系統(tǒng)的開發(fā)還是有一定的意義的。因此開發(fā)適合學(xué)校需要的學(xué)生管理信息系統(tǒng)，通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計和快速查詢，并減少管理方面的工作量。作為計算機(jī)應(yīng)用的一部分,使用計算機(jī)對學(xué)生學(xué)生信息信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生學(xué)生信

3、息管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。 本文介紹了在Visual Basic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。通過分析訪客管理的不足，創(chuàng)建了一套行之有效的計算機(jī)管理學(xué)生的方案。文章介紹了訪客管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計部分主要介紹了系統(tǒng)功能設(shè)計和數(shù)據(jù)庫設(shè)計及代碼設(shè)計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法， 本系統(tǒng)面友好，操作簡單，比較實用。本章我們將以一個學(xué)生信息管理系統(tǒng)為例子，來講述如何建立一個學(xué)生信息管理系統(tǒng)。因為Visual Basic6.0具有強(qiáng)大的數(shù)據(jù)庫管理功

4、能，我們選定Visual Basic6.0實現(xiàn)學(xué)生管理信息系統(tǒng)中的各項功能。摘 要學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點。本系統(tǒng)主要完成對學(xué)生信息的管理，包括添加、修改、刪除，查詢，打印信息以用戶管理等六個方面。系統(tǒng)可以完成對各類信息的瀏覽、查詢、添加、刪除、修改等功能。系統(tǒng)的核心是添加、修改和刪除三者之間的聯(lián)系，每一個表的修改都將聯(lián)動的影響其它的表，當(dāng)完成添加或刪除操作時系統(tǒng)會自動地完成學(xué)生信息的修改。查詢功能也

5、是系統(tǒng)的核心之一，在系統(tǒng)中主要根據(jù)學(xué)生姓名和學(xué)號進(jìn)行查詢，其目的都是為了方便用戶使用。系統(tǒng)有完整的用戶添加、刪除和密碼修改功能，并具備報表打印功能。系統(tǒng)采用Microsoft Office中的Access 2000來設(shè)計數(shù)據(jù)庫，并使用當(dāng)前優(yōu)秀的開發(fā)工具VB 6.0 ，它有著最為靈活的數(shù)據(jù)庫結(jié)構(gòu)，對數(shù)據(jù)庫應(yīng)用有著良好的支持。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。重點的說明了系統(tǒng)設(shè)計的重點、設(shè)計思想、難點技術(shù)和解決方案。關(guān)鍵字：控件、窗體、數(shù)據(jù)庫，visual basic語言，學(xué)生信息1 系統(tǒng)分析1.1開發(fā)背景現(xiàn)在我國的學(xué)生信息管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不

6、能適應(yīng)時代的發(fā)展，因為它浪費(fèi)了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機(jī)為基礎(chǔ)的信息管理所取代。我希望可以在這方面有所貢獻(xiàn)。歸納起來，好處大約有以下幾點：可以存儲學(xué)生的基本信息以及歷屆的學(xué)生信息，安全、高效；只需一到二名信息錄入員即可操作系統(tǒng)，節(jié)省大量人力；可以迅速查到所需信息。1.2需求分析21世紀(jì)以來，人類經(jīng)濟(jì)高速發(fā)展，人們發(fā)生了日新月異的變化，特別是計算機(jī)的應(yīng)用及普及到經(jīng)濟(jì)和社會生活的各個領(lǐng)域。使原本的舊的管理方法越來越不適應(yīng)現(xiàn)在社會的發(fā)展。許多人還停留在以前的手工操作。這大大地阻礙了人類經(jīng)濟(jì)的發(fā)展。為了適應(yīng)現(xiàn)代社會人們高度強(qiáng)烈的時間觀念，學(xué)校信息管理系統(tǒng)軟件為學(xué)校辦公室?guī)?/p>

7、來了極大的方便。我所開發(fā)的這個系統(tǒng)所采用的是當(dāng)前較為流行的編程軟件VISUAL BASIC 6.0作為實現(xiàn)語言，以數(shù)據(jù)庫Microsoft SQL Server2000作為系統(tǒng)的后臺操作，其功能在系統(tǒng)內(nèi)部有源代碼直接完成。我們只需按系統(tǒng)要求輸入即可操作。伴隨社會的高速發(fā)展，全國各高校的學(xué)生數(shù)量一直在增加，在這樣的形式下，必須要求學(xué)校有一種高效有序的方法來管理學(xué)生的信息。通過調(diào)查,要求系統(tǒng)需要有以下功能：（1）由于操作人員的計算機(jī)知識普遍較差，要求有良好的人機(jī)界面；（2）由于該系統(tǒng)的使用對象多，要求有較好的權(quán)限管理；（3）原始數(shù)據(jù)修改簡單方便，支持多條件修改；（4）方便的數(shù)據(jù)查詢，支持多條件查詢

8、；（5）在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；（6）數(shù)據(jù)計算自動完成，盡量減少人工干預(yù)。1.2.2需求信息的整理想要把收集到的信息（如文件、圖表、票據(jù)、筆記等）轉(zhuǎn)化為下一設(shè)計階段可用形式的信息，必須對需求信息做分析整理工作。1業(yè)務(wù)流程分析業(yè)務(wù)流程分析的目的是獲得業(yè)務(wù)流程及業(yè)務(wù)與數(shù)據(jù)聯(lián)系的形式描述。一般采用數(shù)據(jù)流分析法，分析結(jié)果以數(shù)據(jù)流圖（DFD）表示。是一個數(shù)據(jù)流圖的示意圖。圖中有向線表示數(shù)據(jù)流，圓圈中寫上處理的名稱、圓圈代表一個處理、帶有名字的雙線段表示存儲的信息。以本系統(tǒng)中的學(xué)生基本信息管理為例，基本信息管理的數(shù)據(jù)流圖如圖1-1所示。輸入處理輸出處理查找分析原始輸入篩選輸出數(shù)據(jù)庫

9、圖1-1數(shù)據(jù)流圖示意圖下面是學(xué)生信息管理數(shù)據(jù)庫系統(tǒng)設(shè)計的業(yè)務(wù)流程分析，原始的數(shù)據(jù)是學(xué)生的信息，系統(tǒng)要求統(tǒng)計學(xué)生的信息，并根據(jù)信息統(tǒng)計的結(jié)果由獎學(xué)金評委評選出獲得獎學(xué)金的學(xué)生，其數(shù)據(jù)流圖如圖1-2所示。輸入處理產(chǎn)生報表輸出處理信息清單統(tǒng)計處理報表清單獲獎清單存儲文件圖1-2學(xué)生信息統(tǒng)計的數(shù)據(jù)流圖1.3 E-R圖設(shè)計2 開發(fā)工具的選擇本系統(tǒng)的設(shè)計是在Windows XP操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下。2.1選擇VB作為開發(fā)工具Visual B

10、asic具有以下特點：（1）可視化編程：用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實際顯示效果，必須編譯后運(yùn)行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改有時候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計工具，把Windows界面設(shè)計的復(fù)雜性封裝起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。只需要按設(shè)計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設(shè)置這些圖形對象的屬性。Visual Basic自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)

11、程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。（2）面向?qū)ο蟮某绦蛟O(shè)計4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計，是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。2.2選擇ACCESS2000開發(fā)數(shù)據(jù)庫3 數(shù)據(jù)庫設(shè)計3.1數(shù)據(jù)庫的概念數(shù)據(jù)庫處理在信息系統(tǒng)的研究中一直是非常重要的主題，然而，近年來，隨著World Wide

12、 Web(WWW)的猛增及Internet技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫技術(shù)之時成為最熱門技術(shù)之一。數(shù)據(jù)庫技術(shù)能使Internet應(yīng)用超越具有早期應(yīng)用特點的簡單的發(fā)布。同時，Internet技術(shù)提供了一種向用戶發(fā)布數(shù)據(jù)庫內(nèi)容的標(biāo)準(zhǔn)化的訪問方法。這些技術(shù)沒有脫離經(jīng)典數(shù)據(jù)庫技術(shù)的要求。它們只是加重了數(shù)據(jù)庫技術(shù)的重要性。數(shù)據(jù)庫的目的是幫助人們跟蹤事務(wù)。經(jīng)典的數(shù)據(jù)庫應(yīng)用涉及諸如訂單、顧客、工作、員工、學(xué)生、電話之類的項，或其它數(shù)據(jù)量較大、需要密切關(guān)注的事務(wù)。最近，由于數(shù)據(jù)庫的普及，數(shù)據(jù)庫技術(shù)已經(jīng)被應(yīng)用到了新的領(lǐng)域，諸如用于Internet的數(shù)據(jù)庫或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫。數(shù)據(jù)庫也被越來越多地應(yīng)用于生成和維

13、護(hù)多媒體應(yīng)用程序上。數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的好壞將直接對應(yīng)用系統(tǒng)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫設(shè)計可以提高數(shù)據(jù)庫存儲效率，保證數(shù)據(jù)的完整和一致。同時合理的數(shù)據(jù)結(jié)構(gòu)也將有利于程序的實現(xiàn)。設(shè)計數(shù)據(jù)庫系統(tǒng)時，應(yīng)該首先了解用戶的各個方面的需求，包括現(xiàn)有的以及將來可能增加的。3.2 VB連接ACCESS2000數(shù)據(jù)庫用vb編寫一個管理系統(tǒng)，首先要解決vb連接數(shù)據(jù)庫的問題。先看看VB是如何與ACCESS2000數(shù)據(jù)庫相連接的。Sub ConnStr()'連接數(shù)據(jù)庫Set conn = CreateObject("ADODB.Connection&quo

14、t;) '建立數(shù)據(jù)庫連接對像DBpath = App.Path & "" & "data.mdb" '設(shè)置數(shù)據(jù)的路徑conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBpath '打開數(shù)據(jù)庫連接Set rs = CreateObject("ADODB.Recordset") '設(shè)置數(shù)據(jù)庫對像End Sub上面的一段代碼就是連接數(shù)據(jù)庫的。上用到了三個變量conn,Dbpath,rs。其中有兩

15、個變量要定義為公用的變量，因為這段代碼是放在一個模塊中的，為了在每一個窗體中能夠使用這個變量，所以必須要聲明為公用變量。聲明公用變量的方法如下：Public connPublic rs上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。如果聲明在下面，那就成了局部變量，那么作用范圍就會不同了，作用就更不同，而且在其它窗體中使用到了這個變量，程序會出錯。3.3 數(shù)據(jù)庫的實現(xiàn)數(shù)據(jù)庫設(shè)計與應(yīng)用等程序設(shè)計是分離的，數(shù)據(jù)庫的設(shè)計非常重要。有了數(shù)據(jù)庫模型，數(shù)據(jù)庫的設(shè)計就簡單多了。在學(xué)生管理信息系統(tǒng)中，首先要創(chuàng)建學(xué)生管理信息系統(tǒng)數(shù)據(jù)庫，然后在數(shù)據(jù)庫中創(chuàng)建需要的表和字段。下面分別講述本系統(tǒng)中數(shù)據(jù)庫的設(shè)計

16、。本例采用Access2000數(shù)據(jù)庫系統(tǒng)來進(jìn)行數(shù)據(jù)庫的設(shè)計。1、創(chuàng)建數(shù)據(jù)庫下面給出在Access2000中創(chuàng)建數(shù)據(jù)庫的過程。（1）運(yùn)行Access2000應(yīng)用程序，在“新建數(shù)據(jù)庫”選項組中選取“空Access數(shù)據(jù)庫”單選，按鈕，然后單擊“確定”按鈕，如圖4-1所示。圖4-1新建數(shù)據(jù)庫（2）在“文件新建數(shù)據(jù)庫”窗口指定數(shù)據(jù)庫的存放位置與數(shù)據(jù)庫文件名稱（本例為Stu.mdb）然后單擊“創(chuàng)建”按鈕，如圖4-2所示。圖4-2指定數(shù)據(jù)庫的存放位置與數(shù)據(jù)庫文件名稱2、創(chuàng)建表下面給出在Access 中創(chuàng)建表的過程。（1）創(chuàng)建數(shù)據(jù)庫后，進(jìn)入主界面，單擊“Stu：數(shù)據(jù)庫”子窗口中的“設(shè)計”按鈕。此時將會出出“表

17、1：表”窗口，如圖4-3所示。圖4-3設(shè)計表（2）在表的設(shè)計窗口“表1：表”中，按表6建立數(shù)據(jù)字段，并指定字段的數(shù)據(jù)類型與相關(guān)屬性。表6學(xué)生基本信息表字 段 名 稱數(shù) 據(jù) 類 型學(xué)號文本姓名文本性別文本出生年月日期/時間民族文本家庭地址文本聯(lián)系電話文本備注文本建立數(shù)據(jù)庫字段并指定字段的數(shù)據(jù)類型與相關(guān)屬性后，字段設(shè)計界面如圖6所示。（3）在StuId字段上單擊鼠標(biāo)右鍵，選擇快捷菜單中的“主鍵”選項，讓StuId字段成為主要索引字段，則StuId 字段前方將出郵一個鑰匙圖標(biāo)，如圖4-4所示。圖4-4字段設(shè)計（4）字段設(shè)計完畢后，單擊工具欄中的“保存”按鈕，此時將會出現(xiàn)“另存為”對話框，在“表名稱”

18、文本框輸入“StuInfo”，如圖9所示，然后單擊“確定”按鈕將這個表保存。（5）回到“Stu：數(shù)據(jù)庫”子窗口中，如果出現(xiàn)了StuInfo 這個表項目，就代表現(xiàn)在已經(jīng)完成學(xué)生數(shù)據(jù)文件的設(shè)計，如圖24所示。圖4-5保存表重復(fù)步驟（1）（5），建立剩余的表，并指定表中各字段的數(shù)據(jù)類型與相關(guān)屬性，這樣就完成了數(shù)據(jù)庫的設(shè)計。下面簡單介紹各個表中的數(shù)據(jù)類型與相關(guān)的屬性。1.學(xué)生基本信息的查詢、修改、刪除。包括學(xué)生姓名、性別、學(xué)號、出生年月、所在宿舍、家庭住址、聯(lián)系電話、擔(dān)任職務(wù)等信息的查詢。學(xué)生基本信息字段名稱類型備注姓名文本學(xué)號數(shù)字主鍵性別文本出生年月日期/時間家庭住址文本宿舍文本電話數(shù)字職務(wù)文本備注

19、文本2.成績管理包括課程名稱、課程類型（選修、必修）、是否掛科（如有掛科，用紅色字體表明成績）。成績管理字段名稱類型備注學(xué)號數(shù)字主鍵姓名文本課程名稱文本分?jǐn)?shù)數(shù)字3課程管理。課程界面上按課表的形式顯示。需要管理的內(nèi)容包括課程名稱、課程教師姓名、課時。課程管理字段名稱類型備注課程編號數(shù)字主鍵課程名稱文本教師名稱文本課時數(shù)字3.學(xué)生平時受到獎勵或處罰的“獎罰管理”。平時參加學(xué)?；顒拥目梢约悠綍r分。平時違紀(jì)違規(guī)的要減平時成績。這里面需要顯示獎罰的時間、姓名、受到獎罰的原因（對事情簡單的描述）、應(yīng)加減多少分。能對獎罰管理進(jìn)行查詢、刪除、修改操作。獎罰管理字段名稱類型備注編號數(shù)字主鍵時間日期/時間姓名文本

20、獎罰原因備注加減分文本4.參加課外活動的課外活動管理。課外活動和比賽有區(qū)別。課外活動不涉及加分。需要管理的內(nèi)容有活動舉行的時間、地點、參與人的姓名、活動的簡單介紹、活動的意義。能對課外活動管理進(jìn)行查詢、刪除、修改操作。課外活動管理字段名稱類型備注編號數(shù)字主鍵時間日期/時間地點文本參與人文本意義備注5、比賽管理。主要指學(xué)生參加學(xué)校、學(xué)院等舉行的比賽。比賽管理涉及到加平時成績，與獎罰管理掛鉤。主要管理的內(nèi)容有：比賽的時間、地點、參與人的姓名、比賽的簡單介紹（比如取得了什么名次等），應(yīng)加多少分。能對比賽管理進(jìn)行查詢、刪除、修改操作。比賽管理字段名稱類型備注編號數(shù)字主鍵時間日期/時間地點文本參與人文本

21、活動簡介備注加分?jǐn)?shù)字6.出勤記錄。是對學(xué)生平時上課、出操等信息的統(tǒng)計。每星期統(tǒng)計一次。考勤管理字段名稱類型備注編號數(shù)字主鍵時間日期/時間姓名文本缺勤原因備注7.校規(guī)班規(guī)等規(guī)章制度的查詢。把寫好的規(guī)章制度顯示在界面上。然后顯示違反了此項規(guī)章制度后需要扣多少分。規(guī)章制度主要是與獎罰管理聯(lián)系在一起。是作為對學(xué)生的懲罰情況的主要依據(jù)。8.用戶管理表。用戶對學(xué)生成績的查詢、添加、刪除等操作的權(quán)限。用戶主要分為3類：班主任、管理員、普通用戶。其中班主任擁有最高管理權(quán)限，可以對系統(tǒng)里面的信息進(jìn)行任意的查詢、添加、刪除、修改操作。管理員只能由班主任設(shè)置班中的學(xué)生為管理員。管理員可以對信息進(jìn)行查詢、添加、刪除、

22、修改等操作。管理員只能對普通用戶進(jìn)行操作。普通用戶只能查詢信息，不能對信息進(jìn)行添加、刪除、修改等操作。用戶管理字段名稱類型備注用戶名文本主鍵密碼文本類別文本9.數(shù)據(jù)的存儲管理。當(dāng)對信息進(jìn)行修改后，涉及到數(shù)據(jù)的保存問題。4 系統(tǒng)總體規(guī)劃4.1系統(tǒng)功能學(xué)生用戶通過輸入學(xué)生基本信息、課程基本信息等,由系統(tǒng)自行生成相應(yīng)的數(shù)據(jù)以供學(xué)生查詢,另外人事處的管理用戶還可以對這些基本信息進(jìn)行更新和刪除, 學(xué)校學(xué)生管理信息系統(tǒng)力求給用戶方便快捷的途徑去管理這些繁瑣的數(shù)據(jù)。具體系統(tǒng)功能需求描述如下：(1) 學(xué)生基本信息管理每年的大量新生入學(xué)，老生畢業(yè)都需要處理大量的學(xué)生信息。每個班主任可以在新學(xué)期開始之前，通過這一

23、模塊，實現(xiàn)學(xué)生基本情況的添加、刪除、更新。還能查詢各個學(xué)生的情況，姓名、家庭電話、家庭住址、學(xué)號等信息。(2)課程信息管理通過本模塊可以輕松的添加以及更新課程。可以根據(jù)課程名、課程號或者班級的選擇，并對值的輸入，可以看到數(shù)據(jù)集中顯示符合條件的課程數(shù)據(jù)信息，而且可以根據(jù)修改要求進(jìn)行數(shù)據(jù)的添加、刪除、修改的操作。該項管理對課程的屬性進(jìn)行了具體化的分類，而且根據(jù)條件的選擇大大得提高了對各學(xué)期課程數(shù)據(jù)的記錄操作，很大得幫助了教工們工作效率的提高。(3)成績信息管理本模塊實現(xiàn)了信息的輸入、刪除、更新。還能查詢到平均信息以及單科最高最低信息以及個人信息。把信息統(tǒng)計這個繁瑣的工作簡單化，為學(xué)生信息的管理方面

24、提高工作效率。(4)其他信息管理系統(tǒng)實現(xiàn)了學(xué)生的課外活動管理、比賽管理、獎罰管理、考勤記錄的管理,可添加、刪除學(xué)生的獎懲記錄，通過查詢學(xué)號可方便地查看到學(xué)生的課外活動管理、比賽管理、獎罰管理、考勤記錄信息，可以大大提高工作效率。(5)信息查詢通過輸入學(xué)號便可以查詢到這個學(xué)生的全部信息，包括姓名、性別、生日是、班號、入學(xué)日期、聯(lián)系電話、獎懲日期、獎懲名稱和成績表都一目了然，很大的方便了教工們查詢學(xué)生信息的過程。4.2系統(tǒng)模塊圖 學(xué)生信息管理系統(tǒng)基本信息課程管理成績管理獎懲管理考勤管理比賽管理課外活動圖5-1系統(tǒng)模塊圖4.3 數(shù)據(jù)流程圖數(shù)據(jù)流圖描繪系統(tǒng)的邏輯模型圖，其中沒有任何具體的物理元素，只是

25、描繪信息在系統(tǒng)中流動和處理的情況。因為數(shù)據(jù)流圖是邏輯系統(tǒng)的圖形表示，即使不是專業(yè)的計算機(jī)技術(shù)人員也容易理解，所以是極好的通信工具。此外，設(shè)計數(shù)據(jù)流圖只需考慮系統(tǒng)必須完成的基本邏輯功能，完全不需要考慮如何具體地實現(xiàn)這些功能，所以它也是軟件設(shè)計的很好的出發(fā)點。本系統(tǒng)主要是為了對教師業(yè)績及其它相關(guān)信息等進(jìn)行計算機(jī)管理。所以主要的數(shù)據(jù)源應(yīng)是教師業(yè)績有關(guān)方面的各種信息。它們在系統(tǒng)中流動和處理詳細(xì)見下面的數(shù)據(jù)流程圖。如圖5-2,3。信息管理學(xué)生信息課程信息成績信息課外活動比賽管理獎懲管理考勤管理 圖5-2信息管理系統(tǒng)管理用戶管理密碼管理圖5-3系統(tǒng)管理5 系統(tǒng)具體實現(xiàn)5.1登錄模塊實現(xiàn)登錄界面是用戶最先看

26、到的系統(tǒng)界面，所以直觀上給用戶的感覺很重要，所以做一個好的界面，提高軟件的親和力。利用用戶登錄成功能實現(xiàn)對用戶操作權(quán)限的限制。管理員和學(xué)生的權(quán)限不一樣，管理員擁有系統(tǒng)的所有權(quán)限，學(xué)生只有查詢修改個人信息和打印成績單的權(quán)限。用戶必須輸入正確的密碼才能進(jìn)入下一界面，如果用戶的密碼輸入錯誤，應(yīng)用程序會提示錯誤信息。用戶如果連續(xù)3次輸入錯誤，應(yīng)用程序會強(qiáng)迫使用者退出并終止應(yīng)用程序的運(yùn)行，下圖所示是用戶登錄界面窗體。本管理系統(tǒng)登錄界面如圖6-1。圖6-1 登錄界面根據(jù)登錄模塊的功能，管理員和普通用戶界面統(tǒng)一在一起。系統(tǒng)自動判斷用戶的要權(quán)限。管理員有所有的權(quán)限，普通用戶只有檢索和改本人的密碼權(quán)。如果三次登

27、錄都出錯，系統(tǒng)自動退出。數(shù)據(jù)庫的連接采用的是ADO對象。連接代碼如下：If CN.State Then CN.CloseCN.ConnectionString = "Provider=jet4;Integrated Security=SSPI; Persist Security Info=False "CN.Open引擎采用jet來連接access 2000數(shù)據(jù)庫。詳細(xì)代碼實現(xiàn)請參考附錄程序源代碼。5.2 系統(tǒng)管理實現(xiàn)班主任學(xué)生管理信息系統(tǒng)主界面主要實現(xiàn)考勤管理、獎懲管理、成績管理、學(xué)生信息管理和查詢修改等功能。選擇該界面中不同的身份按鈕，就會進(jìn)入實現(xiàn)不同權(quán)限的窗體。登錄系

28、統(tǒng)后進(jìn)入主界面如圖6-2。在系統(tǒng)功能設(shè)計中，系統(tǒng)維護(hù)功能主要有添加用戶，刪除用戶和管理員密碼修改，如圖6-3所示。添加用戶：在用戶名稱中輸入要添加用戶的名，原始密碼為12345，可以修改，之后點添加。完畢。如果系統(tǒng)已經(jīng)添加的該用戶，系統(tǒng)自動提示，重新添加。刪除用戶：選中要刪除的用戶，直接點刪除、系統(tǒng)有提示是否真的刪除，點是，就刪除了此用戶。圖 6-2管理系統(tǒng)界面圖6-3 用戶管理用戶密碼修改是指普通和管理員用戶的密碼修改。如圖6-4。圖6-4 用戶密碼修改修改密碼：輸入原始登錄密碼，在“新密碼“中輸入新密碼，在“新密碼核實”中再輸入一次新密碼，單擊“修改”，系統(tǒng)提示“操作成功！”。這樣下一次再

29、進(jìn)入本系統(tǒng)時本用戶的密碼就改為新密碼。代碼實現(xiàn)請參考附錄程序源代碼。5.3 信息管理信息輸入中主要是對所有數(shù)據(jù)信息的添加、修改、刪除的功能。也是本次開發(fā)的重點。其中學(xué)生信息、課程參數(shù)信息、成績、其他，也包括全部字典信息可以在下拉列表可以選擇。界面如圖6-5。圖6-5 學(xué)生信息各按鈕的功能：<<：移動到第一條記錄。<：移動到上一條記錄。>：移動到下一條記錄。>>：移動最后一條記錄。添加：是添加一新的記錄。瀏覽：是查看全的記錄。刪除：是刪除當(dāng)前的記錄。保存：是在添加和修改記錄后，保存記錄。修改：移動到要修改的記錄，點修改，修改完后，點保存后就修改完畢。所有的信息

30、表中的序號及各種編號一定要統(tǒng)一、規(guī)范。這樣有利于信息檢索。代碼實現(xiàn)請參考附錄程序源代碼。5.4 查詢管理實現(xiàn)查詢打印模塊包括成績信息、評定結(jié)果信查詢打印，查詢以成績信息為例。在菜單中可以選擇信息查詢，在檢索名稱中輸入要檢索的字段。在后面下拉框中選擇條件。再輸入關(guān)鍵字，點檢索按鈕。在查詢完后，可以輸出Excel報表。在選擇條件包括=，<,>,<=,>=,like，其中l(wèi)ike是用于模糊檢索。檢索完之后，點Excel報表輸出，系統(tǒng)自動輸出成報表。編輯格式以后就可以打印。代碼實現(xiàn)請參考附錄程序源代碼。其他功能請參考源程序。圖6-6規(guī)章查看圖6-7 查詢管理5.5系統(tǒng)關(guān)于與幫助

31、系統(tǒng)關(guān)于如下圖6-8圖6-8 關(guān)于6 軟件測試7 總結(jié)回顧該系統(tǒng)從選題，到調(diào)研、需求分析、設(shè)計、編碼實現(xiàn)、測試，論文的撰寫，這系列連貫的過程，感想頗多，收獲也很多。1設(shè)計開發(fā)一個軟件，首先要了解所涉及到行業(yè)的現(xiàn)狀，一定要想辦法進(jìn)行行業(yè)調(diào)研，從不同途徑獲取該行業(yè)的專業(yè)知識。合理安排系統(tǒng)設(shè)計開發(fā)時間，進(jìn)行實際開發(fā)會發(fā)現(xiàn)需求分析與系統(tǒng)設(shè)計占主要的時間，如果前面的工作做好了，編碼實現(xiàn)占用的時間很短。所以我們要借助軟件工程的思想-對軟件開發(fā)過程進(jìn)行控制。2. 在開發(fā)一個系統(tǒng)時，前期的分析準(zhǔn)備工作非常的重要。對于系統(tǒng)的需求要明確，這樣才能做到有的放矢。特別是對于系統(tǒng)中數(shù)據(jù)的存儲和重要算法的設(shè)計，設(shè)計的不好

32、會出現(xiàn)大量的冗余，不僅浪費(fèi)存儲空間，還影響查詢效率。例如：系統(tǒng)中圖的存儲設(shè)計和求最短路徑算法設(shè)計。3.在設(shè)計的初期，對一個功能模塊的設(shè)計，要想出兩種或兩種以上方案，這樣可以進(jìn)行比較，從而獲得更佳的設(shè)計方案，設(shè)計開發(fā)過程中一定要吸取經(jīng)驗教訓(xùn)，避免返工。尤其是一些重要算法或功能。在對具體實現(xiàn)功能模塊進(jìn)行編程時，要養(yǎng)成良好的加注釋的習(xí)慣，這樣的話不僅能理清思路，而且可以為以后的調(diào)試程序帶來很大的方便。4. 獨立思考的同時，要虛心向別人請教，可以達(dá)到事半功倍的效果。在具體編程實現(xiàn)系統(tǒng)功能的過程中，我遇到了不少的問題，我曾通過不同渠道向老師、同學(xué)、上相關(guān)網(wǎng)站、到論壇尋求答案，收到了很好的效果。通過獨立完

33、成學(xué)生信息管理系統(tǒng)的分析設(shè)計開發(fā)后，發(fā)現(xiàn)自己在進(jìn)行軟件開發(fā)方面提高不少，同時積極利用所學(xué)到的新技術(shù)用于自己的設(shè)計開發(fā)過程。由于本人是初次開發(fā)系統(tǒng)，在知識、經(jīng)驗方面都存在著不足。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。如：用戶界面不夠美觀，出錯處理不夠等多方面問題。在本次開發(fā)過程由于多方面的限制，系統(tǒng)還有不足之處。盡管本系統(tǒng)存在著很多不足，但其實現(xiàn)了最重要的功能就是可以對學(xué)生信息進(jìn)行管理。這個對于一個學(xué)生信息系統(tǒng)是十分重要的。該系統(tǒng)是根據(jù)班級管理的特點制作的信息系統(tǒng)，可以給班主任管理班級提供方便。通過開發(fā)這個系統(tǒng)，我掌握了開發(fā)系統(tǒng)的基本過程，了解了VB語言

34、的基本知識，鞏固了我對Visual Basic的學(xué)習(xí)，但在這次畢業(yè)設(shè)計中的最大收獲并不是這些，而是學(xué)會了設(shè)計系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。致 謝在論文即將完成之際，本人在此向所有關(guān)心、幫助我的老師和同學(xué)們致以最真誠的感謝。在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師司春景老師身上學(xué)到了很多東西。她認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。她無論在理論上還是在實踐中，都給與我很大的幫助，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，在此感謝她耐心的輔導(dǎo)。在撰寫論文階段，司春景老師審閱我的論文，提出了許多寶貴意見，沒有她的指導(dǎo)，我們就不能較好的完成課題設(shè)計的任務(wù)。另外，我

35、還要感謝在這幾年來對我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識，而且讓我掌握了學(xué)習(xí)的方法，更教會了我做人處事的道理，在此表示感謝。同時，在系統(tǒng)開發(fā)過程中還有同組的同學(xué)也給了我不少幫助，這里一并表示感謝。參考文獻(xiàn)1 襲沛曾，楊志強(qiáng). Visual Basic 程序設(shè)計教程（6.0版）.高等教育出版社.2000年2 肖建，薛鳳武，吳靜.Visual Basic 6.0 基礎(chǔ)教程.中國電力出版社.2002年3 張大年，廖智勇，劉檢鋒.Visual Basic數(shù)據(jù)庫應(yīng)用開發(fā)與實例.清華大學(xué)出版社. 2002年4 楊宗志.Visual Basic數(shù)據(jù)庫程序設(shè)計.清華大學(xué)出版社.2001年

36、5 陳豫龍， 何旭洪. Visual Basic 6.0數(shù)據(jù)庫開發(fā)實例導(dǎo)航.人民郵電出版社.2002年6 Visual Basic 6.0 時尚編程百例.機(jī)械工業(yè)出版社.2001年7 飛思科技產(chǎn)品研發(fā)中心.Access 2000數(shù)據(jù)處理技術(shù).電子工業(yè)出版社.2001年8 譚浩強(qiáng)，王曉敏，李海波，楊紅兵.Visual Basic 程序設(shè)計.中國鐵道出版社.9 張勇 Visual Basic 課程設(shè)計案例精編.中國水利水電出版社.10 張海藩，牟永敏.面向?qū)ο蟪绦蛟O(shè)計實用教程.清華大學(xué)出版社.2002.101111 Ronaad J.Norman,Obiect-Oriented Systems a

37、nd Design.1996.202112 鄧良松，劉海巖，陸麗娜.軟件工程.西安電子科技大學(xué)出版社.2004.717813 董士海.計算機(jī)軟件工程環(huán)境與軟件工程.北京：北京科學(xué)出版社.1990.4548附錄:程序源代碼源代碼：Public miCount As IntegerPrivate Sub cmdCancel_Click() ''退出程序EndEnd SubPrivate Sub cmdOK_Click() ''進(jìn)入.確定'On Error GoTo Err Dim txtSql As String UserName = ""

38、; If Trim(txtUserName.Text) = "" Then ''判斷用戶名是否為空 MsgBox "請輸入帳號！", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Exit Sub End If If Trim(txtPassword.Text) = "" Then '判斷密碼是否為空 MsgBox "請輸入密碼！", vbOKOnly + vbExclamation, "警告"

39、 txtPassword.SetFocus Exit Sub End If ''判斷是否有這個用戶 txtSql = "select * from 用戶信息表 where 用戶名稱= '" & txtUserName.Text & "'" If rs.State Then rs.Close rs.Open txtSql, CN, adOpenStatic, adLockOptimistic If rs.EOF = True Then ''如果沒有這個用戶 MsgBox "沒有這個帳

40、號，請重新輸入帳號!", vbOKOnly + vbExclamation, "警告" txtUserName.Text = "" txtPassword.Text = "" txtUserName.SetFocus Else ''如果有用戶 If Trim(rs.Fields(1) = Trim(txtPassword.Text) Then ''判斷權(quán)限 UserPrivs = "" If Trim(rs.Fields(2) = "管理員" Then

41、''管理員權(quán)限 IsUserMode = 1 ElseIf Trim(rs.Fields(2) = "操作員" Then ''普通用戶權(quán)限 IsUserMode = 2 Else ''無權(quán) IsUserMode = 0 MsgBox "你沒有權(quán)限!", vbExclamation, "警告" End End If UserPrivs = Trim(rs.Fields(2) UserName = Trim(txtUserName.Text) Unload Me Mainfrm.Show E

42、xit Sub Else MsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If rs.Close miCount = miCount + 1 If miCount = 3 Then ''三次錯誤,自動退出程序 End End IfExit SubErr: MsgBox Err.Description & "登錄出錯,請找管理員!&q

43、uot;, vbExclamation Ok = False EndEnd SubPrivate Sub Form_Activate()txtUserName.SetFocusEnd SubPrivate Sub Form_Load()On Error GoTo Err''連數(shù)據(jù)庫代碼If CN.State Then CN.CloseCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "database.mdb;Pers

44、ist Security Info=False"CN.OpenmiCount = 0Ok = FalsetxtUserName.Text = GetSetting(App.Title, "Settings", "user_name", "")Label2.MouseIcon = cmdOK.MouseIconExit SubErr:MsgBox Err.Description, , "數(shù)據(jù)庫連接錯誤"EndEnd SubPrivate Sub Label1_Click()Form5.Show 1End S

45、ubPrivate Sub Label2_Click()EndEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThentxtPassword.SetFocusEnd IfEnd Sub主界面圖及代碼：Private Sub DatabaseHf_Click()frmHF.Show 1En

46、d SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub FindStudent_Click()Form2.Show 1End SubPrivate Sub Findxg_Click()Form8.Show 1End SubPrivate Sub Form_Load()PrivsSeting ''加載權(quán)限設(shè)置End SubPrivate Sub Form_Resize()On Error GoTo Err '''改變控件位置代碼Picture1.Top = 0Picture1.Left = 0Picture1.

47、Height = Me.ScaleHeight - StatusBar1.HeightPicture1.Width = Me.ScaleWidthStatusBar1.Panels(1).Text = "操作員:" & UserNameLabel9.Left = (Picture1.ScaleWidth - Label9.Width) / 2Label9.Top = Picture1.ScaleHeight / 2 - Label9.Height / 2Label1.Top = Label9.Top + 50Label1.Left = Label9.Left + 5

48、0''加載背景代碼 Image1.Picture = LoadPicture(App.Path & "1.jpg") Picture1.Refresh Picture1.PaintPicture Image1.Picture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width, Image1.HeightErr:End SubPrivate Sub Form_Unload(Cancel As Inte

49、ger)EndEnd SubPrivate Sub HelpFiles_Click() '''幫助文件On Error GoTo ErrMainfrm.StatusBar1.Panels(2).Text = "幫助文件" Dim strPath As String strPath = App.Path + "系統(tǒng)說明.doc" ShellExecute hWnd, "open", mFso.GetFileName(strPath), lpParameters, mFso.GetParentFolderName(

50、strPath), 5Exit SubErr:MsgBox Err.DescriptionEnd SubPrivate Sub Infocj_Click()strTableName = "成績信息"Form6.Show 1End SubPrivate Sub InfoCqjl_Click()strTableName = "考勤信息"Form7.Show 1End SubPrivate Sub InfoJf_Click()strTableName = "獎罰信息"Form7.Show 1End SubPrivate Sub InfoKc

51、_Click()strTableName = "課程信息"Form1.Show 1End SubPrivate Sub InfoKwhd_Click()strTableName = "課外活動信息"Form7.Show 1End SubPrivate Sub infoStudent_Click()strTableName = "學(xué)生基本信息"Form1.Show 1End SubPrivate Sub InofBs_Click()strTableName = "比賽信息"Form7.Show 1End SubPri

52、vate Sub Sjbf_Click()frmDatabase.Show 1End SubPrivate Sub SysAbout_Click() ''關(guān)于frmAbout.Show 1End SubPrivate Sub sysManager_Click()Form3.Show 1End SubPrivate Sub Userpasword_Click() ''用戶密碼Form4.Show 1End SubPublic Sub PrivsSeting() '權(quán)限設(shè)置If IsUserMode = 1 Then ''管理員 ElseIf

53、 IsUserMode = 2 Then sysManager.Visible = False Infomanage.Visible = FalseEnd IfEnd Sub 用戶管理代碼Private Sub cmdExit_Click()Unload MeEnd SubPrivate Sub Command2_Click() ''添加用戶On Error GoTo ErrIf Trim(Text8.Text) <> "" And Trim(Text9.Text) <> "" And Trim(Combo1.Te

54、xt) <> "" Then Dim rs1 As New ADODB.Recordset If rs1.State Then rs1.Close rs1.Open "select count(*) from user_Form where user_Id='" & Trim(Text8.Text) & "'", Cn, adOpenStatic, adLockOptimistic If rs1.Fields(0) > 0 Then MsgBox "用戶已經(jīng)存在! 請改use

55、r_Id!", , "系統(tǒng)提示" Text8.Text = "" Exit Sub End If If rs1.State Then rs1.Close rs1.Open "select * from user_Form", Cn, adOpenStatic, adLockOptimistic rs1.AddNew rs1.Fields(0).Value = Trim(Text8.Text) rs1.Fields(1).Value = Trim(Text9.Text) rs1.Fields(2).Value = Date r

56、s1.Fields(3).Value = Trim(Combo1.Text) rs1.Update Combo5.AddItem Trim(Text8.Text) MsgBox "用戶添加成功!,初始密碼為" & Text9.Text, , "系統(tǒng)提示" Text8.Text = ""End IfExit SubErr:MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click() ''刪除用戶代碼 If Trim(Combo5.Text) = UserName Then MsgBox "不能刪除正在操作的用戶!" Exit Sub End If Cn.Execute "delete from user_Form where user_Id='" & Trim(Combo5.Text) & "'" Combo5.RemoveItem (Combo5.ListIndex) MsgBox "操作已成功!", , "提示"En