學生信息管理系統(tǒng)的論文+畢業(yè)設計用VB班主任學生信息管理系統(tǒng)

1、大學畢業(yè)設計論文班主任學生信息管理系統(tǒng) 前 言學生信息管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學校的決策者和管理者來說都至關重要,所以學生學生信息管理系統(tǒng)應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件學生信息，這種管理方式存在著許多缺點,如:效率低、保密性差,隨著時間的推移,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護帶來和很大的困難。隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統(tǒng)的實施在技術上已逐步成熟。長時間以來，學校的學生信息管理基本上都是靠手工進行,隨著大學擴招,學生管理各個方面的工作給老師和學校工作人員形成了一定的壓力，有

2、關有的學校不得不靠增加人力,物力來進行學生信息管理.但手工管理具有效率底,出錯率高.所以學生信息管理系統(tǒng)的開發(fā)還是有一定的意義的。因此開發(fā)適合學校需要的學生管理信息系統(tǒng)，通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學統(tǒng)計和快速查詢，并減少管理方面的工作量。作為計算機應用的一部分,使用計算機對學生學生信息信息進行管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學生學生信息管理的效率,也是企業(yè)的科學化、正規(guī)化管理,與世界接軌的重要條件。 本文介紹了在Visual Basic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下

3、而上地應用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。通過分析訪客管理的不足，創(chuàng)建了一套行之有效的計算機管理學生的方案。文章介紹了訪客管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務流程分析等；系統(tǒng)設計部分主要介紹了系統(tǒng)功能設計和數(shù)據(jù)庫設計及代碼設計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法， 本系統(tǒng)面友好，操作簡單，比較實用。本章我們將以一個學生信息管理系統(tǒng)為例子，來講述如何建立一個學生信息管理系統(tǒng)。因為Visual Basic6.0具有強大的數(shù)據(jù)庫管理功能，我們選定Visual Basic6.0實現(xiàn)學生管理信息系統(tǒng)中的各項功能。摘 要學生信息管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后

4、臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。本系統(tǒng)主要完成對學生信息的管理，包括添加、修改、刪除，查詢，打印信息以用戶管理等六個方面。系統(tǒng)可以完成對各類信息的瀏覽、查詢、添加、刪除、修改等功能。系統(tǒng)的核心是添加、修改和刪除三者之間的聯(lián)系，每一個表的修改都將聯(lián)動的影響其它的表，當完成添加或刪除操作時系統(tǒng)會自動地完成學生信息的修改。查詢功能也是系統(tǒng)的核心之一，在系統(tǒng)中主要根據(jù)學生姓名和學號進行查詢，其目的都是為了方便用戶使用。系統(tǒng)有完整的用戶添加、刪除和密碼修改功能，并具備報表打印功能

5、。系統(tǒng)采用Microsoft Office中的Access 2000來設計數(shù)據(jù)庫，并使用當前優(yōu)秀的開發(fā)工具VB 6.0 ，它有著最為靈活的數(shù)據(jù)庫結(jié)構，對數(shù)據(jù)庫應用有著良好的支持。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。重點的說明了系統(tǒng)設計的重點、設計思想、難點技術和解決方案。關鍵字：控件、窗體、數(shù)據(jù)庫，visual basic語言，學生信息1 系統(tǒng)分析1.1開發(fā)背景現(xiàn)在我國的學生信息管理水平還停留在紙介質(zhì)的基礎上，這樣的機制已經(jīng)不能適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代。我希望可以在這方面有所貢獻。歸納起來

6、，好處大約有以下幾點：可以存儲學生的基本信息以及歷屆的學生信息，安全、高效；只需一到二名信息錄入員即可操作系統(tǒng)，節(jié)省大量人力；可以迅速查到所需信息。1.2需求分析21世紀以來，人類經(jīng)濟高速發(fā)展，人們發(fā)生了日新月異的變化，特別是計算機的應用及普及到經(jīng)濟和社會生活的各個領域。使原本的舊的管理方法越來越不適應現(xiàn)在社會的發(fā)展。許多人還停留在以前的手工操作。這大大地阻礙了人類經(jīng)濟的發(fā)展。為了適應現(xiàn)代社會人們高度強烈的時間觀念，學校信息管理系統(tǒng)軟件為學校辦公室?guī)砹藰O大的方便。我所開發(fā)的這個系統(tǒng)所采用的是當前較為流行的編程軟件VISUAL BASIC 6.0作為實現(xiàn)語言，以數(shù)據(jù)庫Microsoft SQL

7、 Server2000作為系統(tǒng)的后臺操作，其功能在系統(tǒng)內(nèi)部有源代碼直接完成。我們只需按系統(tǒng)要求輸入即可操作。伴隨社會的高速發(fā)展，全國各高校的學生數(shù)量一直在增加，在這樣的形式下，必須要求學校有一種高效有序的方法來管理學生的信息。通過調(diào)查,要求系統(tǒng)需要有以下功能：（1）由于操作人員的計算機知識普遍較差，要求有良好的人機界面；（2）由于該系統(tǒng)的使用對象多，要求有較好的權限管理；（3）原始數(shù)據(jù)修改簡單方便，支持多條件修改；（4）方便的數(shù)據(jù)查詢，支持多條件查詢；（5）在相應的權限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；（6）數(shù)據(jù)計算自動完成，盡量減少人工干預。1.2.2需求信息的整理想要把收集到的信息（如文

8、件、圖表、票據(jù)、筆記等）轉(zhuǎn)化為下一設計階段可用形式的信息，必須對需求信息做分析整理工作。1業(yè)務流程分析業(yè)務流程分析的目的是獲得業(yè)務流程及業(yè)務與數(shù)據(jù)聯(lián)系的形式描述。一般采用數(shù)據(jù)流分析法，分析結(jié)果以數(shù)據(jù)流圖（DFD）表示。是一個數(shù)據(jù)流圖的示意圖。圖中有向線表示數(shù)據(jù)流，圓圈中寫上處理的名稱、圓圈代表一個處理、帶有名字的雙線段表示存儲的信息。以本系統(tǒng)中的學生基本信息管理為例，基本信息管理的數(shù)據(jù)流圖如圖1-1所示。輸入處理輸出處理查找分析原始輸入篩選輸出數(shù)據(jù)庫圖1-1數(shù)據(jù)流圖示意圖下面是學生信息管理數(shù)據(jù)庫系統(tǒng)設計的業(yè)務流程分析，原始的數(shù)據(jù)是學生的信息，系統(tǒng)要求統(tǒng)計學生的信息，并根據(jù)信息統(tǒng)計的結(jié)果由獎學金

9、評委評選出獲得獎學金的學生，其數(shù)據(jù)流圖如圖1-2所示。輸入處理產(chǎn)生報表輸出處理信息清單統(tǒng)計處理報表清單獲獎清單存儲文件圖1-2學生信息統(tǒng)計的數(shù)據(jù)流圖1.3 E-R圖設計2 開發(fā)工具的選擇本系統(tǒng)的設計是在Windows XP操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下。2.1選擇VB作為開發(fā)工具Visual Basic具有以下特點：（1）可視化編程：用傳統(tǒng)程序設計語言設計程序時，都是通過編寫程序代碼來設計用戶界面，在設計過程中看不到界面的實際顯示效果，必

10、須編譯后運行程序才能觀察。如果對界面的效果不滿意，還要回到程序中修改有時候，這種編程-編譯-修改的操作可能要反復多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設計工具，把Windows界面設計的復雜性封裝起來，開發(fā)人員不必為界面設計而編寫大量程序代碼。只需要按設計要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對象，并設置這些圖形對象的屬性。Visual Basic自動產(chǎn)生界面設計代碼，程序設計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設計的效率。（2）面向?qū)ο蟮某绦蛟O計4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O計，是應用

11、面向?qū)ο蟮某绦蛟O計方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic自動生成對象的程序代碼并封裝起來。每個對象以圖形方式顯示在界面上，都是可視的。2.2選擇ACCESS2000開發(fā)數(shù)據(jù)庫3 數(shù)據(jù)庫設計3.1數(shù)據(jù)庫的概念數(shù)據(jù)庫處理在信息系統(tǒng)的研究中一直是非常重要的主題，然而，近年來，隨著World Wide Web(WWW)的猛增及Internet技術的迅速發(fā)展，使得數(shù)據(jù)庫技術之時成為最熱門技術之一。數(shù)據(jù)庫技術能使Internet應用超越具有早期應用

12、特點的簡單的發(fā)布。同時，Internet技術提供了一種向用戶發(fā)布數(shù)據(jù)庫內(nèi)容的標準化的訪問方法。這些技術沒有脫離經(jīng)典數(shù)據(jù)庫技術的要求。它們只是加重了數(shù)據(jù)庫技術的重要性。數(shù)據(jù)庫的目的是幫助人們跟蹤事務。經(jīng)典的數(shù)據(jù)庫應用涉及諸如訂單、顧客、工作、員工、學生、電話之類的項，或其它數(shù)據(jù)量較大、需要密切關注的事務。最近，由于數(shù)據(jù)庫的普及，數(shù)據(jù)庫技術已經(jīng)被應用到了新的領域，諸如用于Internet的數(shù)據(jù)庫或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫。數(shù)據(jù)庫也被越來越多地應用于生成和維護多媒體應用程序上。數(shù)據(jù)庫在一個信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫結(jié)構設計的好壞將直接對應用系統(tǒng)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫設計可以提高數(shù)據(jù)

13、庫存儲效率，保證數(shù)據(jù)的完整和一致。同時合理的數(shù)據(jù)結(jié)構也將有利于程序的實現(xiàn)。設計數(shù)據(jù)庫系統(tǒ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") '建立數(shù)據(jù)庫連接對像DBpath = App.Path & "" & "data.m

14、db" '設置數(shù)據(jù)的路徑conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBpath '打開數(shù)據(jù)庫連接Set rs = CreateObject("ADODB.Recordset") '設置數(shù)據(jù)庫對像End Sub上面的一段代碼就是連接數(shù)據(jù)庫的。上用到了三個變量conn,Dbpath,rs。其中有兩個變量要定義為公用的變量，因為這段代碼是放在一個模塊中的，為了在每一個窗體中能夠使用這個變量，所以必須要聲明為公用變量。聲明公用變量的方法如下：P

15、ublic connPublic rs上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。如果聲明在下面，那就成了局部變量，那么作用范圍就會不同了，作用就更不同，而且在其它窗體中使用到了這個變量，程序會出錯。3.3 數(shù)據(jù)庫的實現(xiàn)數(shù)據(jù)庫設計與應用等程序設計是分離的，數(shù)據(jù)庫的設計非常重要。有了數(shù)據(jù)庫模型，數(shù)據(jù)庫的設計就簡單多了。在學生管理信息系統(tǒng)中，首先要創(chuàng)建學生管理信息系統(tǒng)數(shù)據(jù)庫，然后在數(shù)據(jù)庫中創(chuàng)建需要的表和字段。下面分別講述本系統(tǒng)中數(shù)據(jù)庫的設計。本例采用Access2000數(shù)據(jù)庫系統(tǒng)來進行數(shù)據(jù)庫的設計。1、創(chuàng)建數(shù)據(jù)庫下面給出在Access2000中創(chuàng)建數(shù)據(jù)庫的過程。（1）運行Access

16、2000應用程序，在“新建數(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ù)庫后，進入主界面，單擊“Stu：數(shù)據(jù)庫”子窗口中的“設計”按鈕。此時將會出出“表1：表”窗口，如圖4-3所示。圖4-3設計表（2）在表的設計窗口“表1：表”中，按表6建立數(shù)據(jù)字段，并指定字段的數(shù)據(jù)類型與相關屬性。表6學生基本信

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

18、項目，就代表現(xiàn)在已經(jīng)完成學生數(shù)據(jù)文件的設計，如圖24所示。圖4-5保存表重復步驟（1）（5），建立剩余的表，并指定表中各字段的數(shù)據(jù)類型與相關屬性，這樣就完成了數(shù)據(jù)庫的設計。下面簡單介紹各個表中的數(shù)據(jù)類型與相關的屬性。1.學生基本信息的查詢、修改、刪除。包括學生姓名、性別、學號、出生年月、所在宿舍、家庭住址、聯(lián)系電話、擔任職務等信息的查詢。學生基本信息字段名稱類型備注姓名文本學號數(shù)字主鍵性別文本出生年月日期/時間家庭住址文本宿舍文本電話數(shù)字職務文本備注文本2.成績管理包括課程名稱、課程類型（選修、必修）、是否掛科（如有掛科，用紅色字體表明成績）。成績管理字段名稱類型備注學號數(shù)字主鍵姓名文本課程名

19、稱文本分數(shù)數(shù)字3課程管理。課程界面上按課表的形式顯示。需要管理的內(nèi)容包括課程名稱、課程教師姓名、課時。課程管理字段名稱類型備注課程編號數(shù)字主鍵課程名稱文本教師名稱文本課時數(shù)字3.學生平時受到獎勵或處罰的“獎罰管理”。平時參加學?；顒拥目梢约悠綍r分。平時違紀違規(guī)的要減平時成績。這里面需要顯示獎罰的時間、姓名、受到獎罰的原因（對事情簡單的描述）、應加減多少分。能對獎罰管理進行查詢、刪除、修改操作。獎罰管理字段名稱類型備注編號數(shù)字主鍵時間日期/時間姓名文本獎罰原因備注加減分文本4.參加課外活動的課外活動管理。課外活動和比賽有區(qū)別。課外活動不涉及加分。需要管理的內(nèi)容有活動舉行的時間、地點、參與人的姓名

20、、活動的簡單介紹、活動的意義。能對課外活動管理進行查詢、刪除、修改操作。課外活動管理字段名稱類型備注編號數(shù)字主鍵時間日期/時間地點文本參與人文本意義備注5、比賽管理。主要指學生參加學校、學院等舉行的比賽。比賽管理涉及到加平時成績，與獎罰管理掛鉤。主要管理的內(nèi)容有：比賽的時間、地點、參與人的姓名、比賽的簡單介紹（比如取得了什么名次等），應加多少分。能對比賽管理進行查詢、刪除、修改操作。比賽管理字段名稱類型備注編號數(shù)字主鍵時間日期/時間地點文本參與人文本活動簡介備注加分數(shù)字6.出勤記錄。是對學生平時上課、出操等信息的統(tǒng)計。每星期統(tǒng)計一次?？记诠芾碜侄蚊Q類型備注編號數(shù)字主鍵時間日期/時間姓名文本缺

21、勤原因備注7.校規(guī)班規(guī)等規(guī)章制度的查詢。把寫好的規(guī)章制度顯示在界面上。然后顯示違反了此項規(guī)章制度后需要扣多少分。規(guī)章制度主要是與獎罰管理聯(lián)系在一起。是作為對學生的懲罰情況的主要依據(jù)。8.用戶管理表。用戶對學生成績的查詢、添加、刪除等操作的權限。用戶主要分為3類：班主任、管理員、普通用戶。其中班主任擁有最高管理權限，可以對系統(tǒng)里面的信息進行任意的查詢、添加、刪除、修改操作。管理員只能由班主任設置班中的學生為管理員。管理員可以對信息進行查詢、添加、刪除、修改等操作。管理員只能對普通用戶進行操作。普通用戶只能查詢信息，不能對信息進行添加、刪除、修改等操作。用戶管理字段名稱類型備注用戶名文本主鍵密碼文

22、本類別文本9.數(shù)據(jù)的存儲管理。當對信息進行修改后，涉及到數(shù)據(jù)的保存問題。4 系統(tǒng)總體規(guī)劃4.1系統(tǒng)功能學生用戶通過輸入學生基本信息、課程基本信息等,由系統(tǒng)自行生成相應的數(shù)據(jù)以供學生查詢,另外人事處的管理用戶還可以對這些基本信息進行更新和刪除, 學校學生管理信息系統(tǒng)力求給用戶方便快捷的途徑去管理這些繁瑣的數(shù)據(jù)。具體系統(tǒng)功能需求描述如下：(1) 學生基本信息管理每年的大量新生入學，老生畢業(yè)都需要處理大量的學生信息。每個班主任可以在新學期開始之前，通過這一模塊，實現(xiàn)學生基本情況的添加、刪除、更新。還能查詢各個學生的情況，姓名、家庭電話、家庭住址、學號等信息。(2)課程信息管理通過本模塊可以輕松的添加

23、以及更新課程?？梢愿鶕?jù)課程名、課程號或者班級的選擇，并對值的輸入，可以看到數(shù)據(jù)集中顯示符合條件的課程數(shù)據(jù)信息，而且可以根據(jù)修改要求進行數(shù)據(jù)的添加、刪除、修改的操作。該項管理對課程的屬性進行了具體化的分類，而且根據(jù)條件的選擇大大得提高了對各學期課程數(shù)據(jù)的記錄操作，很大得幫助了教工們工作效率的提高。(3)成績信息管理本模塊實現(xiàn)了信息的輸入、刪除、更新。還能查詢到平均信息以及單科最高最低信息以及個人信息。把信息統(tǒng)計這個繁瑣的工作簡單化，為學生信息的管理方面提高工作效率。(4)其他信息管理系統(tǒng)實現(xiàn)了學生的課外活動管理、比賽管理、獎罰管理、考勤記錄的管理,可添加、刪除學生的獎懲記錄，通過查詢學號可方便地

24、查看到學生的課外活動管理、比賽管理、獎罰管理、考勤記錄信息，可以大大提高工作效率。(5)信息查詢通過輸入學號便可以查詢到這個學生的全部信息，包括姓名、性別、生日是、班號、入學日期、聯(lián)系電話、獎懲日期、獎懲名稱和成績表都一目了然，很大的方便了教工們查詢學生信息的過程。4.2系統(tǒng)模塊圖 學生信息管理系統(tǒng)基本信息課程管理成績管理獎懲管理考勤管理比賽管理課外活動圖5-1系統(tǒng)模塊圖4.3 數(shù)據(jù)流程圖數(shù)據(jù)流圖描繪系統(tǒng)的邏輯模型圖，其中沒有任何具體的物理元素，只是描繪信息在系統(tǒng)中流動和處理的情況。因為數(shù)據(jù)流圖是邏輯系統(tǒng)的圖形表示，即使不是專業(yè)的計算機技術人員也容易理解，所以是極好的通信工具。此外，設計數(shù)據(jù)流

25、圖只需考慮系統(tǒng)必須完成的基本邏輯功能，完全不需要考慮如何具體地實現(xiàn)這些功能，所以它也是軟件設計的很好的出發(fā)點。本系統(tǒng)主要是為了對教師業(yè)績及其它相關信息等進行計算機管理。所以主要的數(shù)據(jù)源應是教師業(yè)績有關方面的各種信息。它們在系統(tǒng)中流動和處理詳細見下面的數(shù)據(jù)流程圖。如圖5-2,3。信息管理學生信息課程信息成績信息課外活動比賽管理獎懲管理考勤管理 圖5-2信息管理系統(tǒng)管理用戶管理密碼管理圖5-3系統(tǒng)管理5 系統(tǒng)具體實現(xiàn)5.1登錄模塊實現(xiàn)登錄界面是用戶最先看到的系統(tǒng)界面，所以直觀上給用戶的感覺很重要，所以做一個好的界面，提高軟件的親和力。利用用戶登錄成功能實現(xiàn)對用戶操作權限的限制。管理員和學生的權限不

26、一樣，管理員擁有系統(tǒng)的所有權限，學生只有查詢修改個人信息和打印成績單的權限。用戶必須輸入正確的密碼才能進入下一界面，如果用戶的密碼輸入錯誤，應用程序會提示錯誤信息。用戶如果連續(xù)3次輸入錯誤，應用程序會強迫使用者退出并終止應用程序的運行，下圖所示是用戶登錄界面窗體。本管理系統(tǒng)登錄界面如圖6-1。圖6-1 登錄界面根據(jù)登錄模塊的功能，管理員和普通用戶界面統(tǒng)一在一起。系統(tǒng)自動判斷用戶的要權限。管理員有所有的權限，普通用戶只有檢索和改本人的密碼權。如果三次登錄都出錯，系統(tǒng)自動退出。數(shù)據(jù)庫的連接采用的是ADO對象。連接代碼如下：If CN.State Then CN.CloseCN.Connection

27、String = "Provider=jet4;Integrated Security=SSPI; Persist Security Info=False "CN.Open引擎采用jet來連接access 2000數(shù)據(jù)庫。詳細代碼實現(xiàn)請參考附錄程序源代碼。5.2 系統(tǒng)管理實現(xiàn)班主任學生管理信息系統(tǒng)主界面主要實現(xiàn)考勤管理、獎懲管理、成績管理、學生信息管理和查詢修改等功能。選擇該界面中不同的身份按鈕，就會進入實現(xiàn)不同權限的窗體。登錄系統(tǒng)后進入主界面如圖6-2。在系統(tǒng)功能設計中，系統(tǒng)維護功能主要有添加用戶，刪除用戶和管理員密碼修改，如圖6-3所示。添加用戶：在用戶名稱中輸入要添加

28、用戶的名，原始密碼為12345，可以修改，之后點添加。完畢。如果系統(tǒng)已經(jīng)添加的該用戶，系統(tǒng)自動提示，重新添加。刪除用戶：選中要刪除的用戶，直接點刪除、系統(tǒng)有提示是否真的刪除，點是，就刪除了此用戶。圖 6-2管理系統(tǒng)界面圖6-3 用戶管理用戶密碼修改是指普通和管理員用戶的密碼修改。如圖6-4。圖6-4 用戶密碼修改修改密碼：輸入原始登錄密碼，在“新密碼“中輸入新密碼，在“新密碼核實”中再輸入一次新密碼，單擊“修改”，系統(tǒng)提示“操作成功！”。這樣下一次再進入本系統(tǒng)時本用戶的密碼就改為新密碼。代碼實現(xiàn)請參考附錄程序源代碼。5.3 信息管理信息輸入中主要是對所有數(shù)據(jù)信息的添加、修改、刪除的功能。也是本

29、次開發(fā)的重點。其中學生信息、課程參數(shù)信息、成績、其他，也包括全部字典信息可以在下拉列表可以選擇。界面如圖6-5。圖6-5 學生信息各按鈕的功能：<<：移動到第一條記錄。<：移動到上一條記錄。>：移動到下一條記錄。>>：移動最后一條記錄。添加：是添加一新的記錄。瀏覽：是查看全的記錄。刪除：是刪除當前的記錄。保存：是在添加和修改記錄后，保存記錄。修改：移動到要修改的記錄，點修改，修改完后，點保存后就修改完畢。所有的信息表中的序號及各種編號一定要統(tǒng)一、規(guī)范。這樣有利于信息檢索。代碼實現(xiàn)請參考附錄程序源代碼。5.4 查詢管理實現(xiàn)查詢打印模塊包括成績信息、評定結(jié)果信查

30、詢打印，查詢以成績信息為例。在菜單中可以選擇信息查詢，在檢索名稱中輸入要檢索的字段。在后面下拉框中選擇條件。再輸入關鍵字，點檢索按鈕。在查詢完后，可以輸出Excel報表。在選擇條件包括=，<,>,<=,>=,like，其中l(wèi)ike是用于模糊檢索。檢索完之后，點Excel報表輸出，系統(tǒng)自動輸出成報表。編輯格式以后就可以打印。代碼實現(xiàn)請參考附錄程序源代碼。其他功能請參考源程序。圖6-6規(guī)章查看圖6-7 查詢管理5.5系統(tǒng)關于與幫助系統(tǒng)關于如下圖6-8圖6-8 關于6 軟件測試7 總結(jié)回顧該系統(tǒng)從選題，到調(diào)研、需求分析、設計、編碼實現(xiàn)、測試，論文的撰寫，這系列連貫的過程，感想

31、頗多，收獲也很多。1設計開發(fā)一個軟件，首先要了解所涉及到行業(yè)的現(xiàn)狀，一定要想辦法進行行業(yè)調(diào)研，從不同途徑獲取該行業(yè)的專業(yè)知識。合理安排系統(tǒng)設計開發(fā)時間，進行實際開發(fā)會發(fā)現(xiàn)需求分析與系統(tǒng)設計占主要的時間，如果前面的工作做好了，編碼實現(xiàn)占用的時間很短。所以我們要借助軟件工程的思想-對軟件開發(fā)過程進行控制。2. 在開發(fā)一個系統(tǒng)時，前期的分析準備工作非常的重要。對于系統(tǒng)的需求要明確，這樣才能做到有的放矢。特別是對于系統(tǒng)中數(shù)據(jù)的存儲和重要算法的設計，設計的不好會出現(xiàn)大量的冗余，不僅浪費存儲空間，還影響查詢效率。例如：系統(tǒng)中圖的存儲設計和求最短路徑算法設計。3.在設計的初期，對一個功能模塊的設計，要想出兩

32、種或兩種以上方案，這樣可以進行比較，從而獲得更佳的設計方案，設計開發(fā)過程中一定要吸取經(jīng)驗教訓，避免返工。尤其是一些重要算法或功能。在對具體實現(xiàn)功能模塊進行編程時，要養(yǎng)成良好的加注釋的習慣，這樣的話不僅能理清思路，而且可以為以后的調(diào)試程序帶來很大的方便。4. 獨立思考的同時，要虛心向別人請教，可以達到事半功倍的效果。在具體編程實現(xiàn)系統(tǒng)功能的過程中，我遇到了不少的問題，我曾通過不同渠道向老師、同學、上相關網(wǎng)站、到論壇尋求答案，收到了很好的效果。通過獨立完成學生信息管理系統(tǒng)的分析設計開發(fā)后，發(fā)現(xiàn)自己在進行軟件開發(fā)方面提高不少，同時積極利用所學到的新技術用于自己的設計開發(fā)過程。由于本人是初次開發(fā)系統(tǒng)，

33、在知識、經(jīng)驗方面都存在著不足。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。如：用戶界面不夠美觀，出錯處理不夠等多方面問題。在本次開發(fā)過程由于多方面的限制，系統(tǒng)還有不足之處。盡管本系統(tǒng)存在著很多不足，但其實現(xiàn)了最重要的功能就是可以對學生信息進行管理。這個對于一個學生信息系統(tǒng)是十分重要的。該系統(tǒng)是根據(jù)班級管理的特點制作的信息系統(tǒng)，可以給班主任管理班級提供方便。通過開發(fā)這個系統(tǒng)，我掌握了開發(fā)系統(tǒng)的基本過程，了解了VB語言的基本知識，鞏固了我對Visual Basic的學習，但在這次畢業(yè)設計中的最大收獲并不是這些，而是學會了設計系統(tǒng)的思維方法，以及與同學們之間相互幫

34、助的精神。致 謝在論文即將完成之際，本人在此向所有關心、幫助我的老師和同學們致以最真誠的感謝。在本次畢業(yè)設計中，我從指導老師司春景老師身上學到了很多東西。她認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。她無論在理論上還是在實踐中，都給與我很大的幫助，這對于我以后的工作和學習都有一種巨大的幫助，在此感謝她耐心的輔導。在撰寫論文階段，司春景老師審閱我的論文，提出了許多寶貴意見，沒有她的指導，我們就不能較好的完成課題設計的任務。另外，我還要感謝在這幾年來對我有所教導的老師，他們孜孜不倦的教誨不但讓我學到了很多知識，而且讓我掌握了學習的方法，更教會了我做人處事的道理，在此表示感謝。

35、同時，在系統(tǒng)開發(fā)過程中還有同組的同學也給了我不少幫助，這里一并表示感謝。參考文獻1 襲沛曾，楊志強. Visual Basic 程序設計教程（6.0版）.高等教育出版社.2000年2 肖建，薛鳳武，吳靜.Visual Basic 6.0 基礎教程.中國電力出版社.2002年3 張大年，廖智勇，劉檢鋒.Visual Basic數(shù)據(jù)庫應用開發(fā)與實例.清華大學出版社. 2002年4 楊宗志.Visual Basic數(shù)據(jù)庫程序設計.清華大學出版社.2001年5 陳豫龍， 何旭洪. Visual Basic 6.0數(shù)據(jù)庫開發(fā)實例導航.人民郵電出版社.2002年6 Visual Basic 6.0 時尚編

36、程百例.機械工業(yè)出版社.2001年7 飛思科技產(chǎn)品研發(fā)中心.Access 2000數(shù)據(jù)處理技術.電子工業(yè)出版社.2001年8 譚浩強，王曉敏，李海波，楊紅兵.Visual Basic 程序設計.中國鐵道出版社.9 張勇 Visual Basic 課程設計案例精編.中國水利水電出版社.10 張海藩，牟永敏.面向?qū)ο蟪绦蛟O計實用教程.清華大學出版社.2002.101111 Ronaad J.Norman,Obiect-Oriented Systems and Design.1996.202112 鄧良松，劉海巖，陸麗娜.軟件工程.西安電子科技大學出版社.2004.717813 董士海.計算機軟件工

37、程環(huán)境與軟件工程.北京：北京科學出版社.1990.4548附錄:程序源代碼源代碼：Public miCount As IntegerPrivate Sub cmdCancel_Click() ''退出程序EndEnd SubPrivate Sub cmdOK_Click() ''進入.確定'On Error GoTo Err Dim txtSql As String UserName = "" If Trim(txtUserName.Text) = "" Then ''判斷用戶名是否為空 MsgBo

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

39、select * from 用戶信息表 where 用戶名稱= '" & txtUserName.Text & "'" If rs.State Then rs.Close rs.Open txtSql, CN, adOpenStatic, adLockOptimistic If rs.EOF = True Then ''如果沒有這個用戶 MsgBox "沒有這個帳號，請重新輸入帳號!", vbOKOnly + vbExclamation, "警告" txtUserName.Te

40、xt = "" txtPassword.Text = "" txtUserName.SetFocus Else ''如果有用戶 If Trim(rs.Fields(1) = Trim(txtPassword.Text) Then ''判斷權限 UserPrivs = "" If Trim(rs.Fields(2) = "管理員" Then ''管理員權限 IsUserMode = 1 ElseIf Trim(rs.Fields(2) = "操作員"

41、 Then ''普通用戶權限 IsUserMode = 2 Else ''無權 IsUserMode = 0 MsgBox "你沒有權限!", vbExclamation, "警告" End End If UserPrivs = Trim(rs.Fields(2) UserName = Trim(txtUserName.Text) Unload Me Mainfrm.Show Exit Sub Else MsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation,

42、 "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If rs.Close miCount = miCount + 1 If miCount = 3 Then ''三次錯誤,自動退出程序 End End IfExit SubErr: MsgBox Err.Description & "登錄出錯,請找管理員!", vbExclamation Ok = False EndEnd SubPrivate Sub Form_Activate()txtUs

43、erName.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;Persist Security Info=False"CN.OpenmiCount = 0Ok = FalsetxtUserName.Text

44、 = GetSetting(App.Title, "Settings", "user_name", "")Label2.MouseIcon = cmdOK.MouseIconExit SubErr:MsgBox Err.Description, , "數(shù)據(jù)庫連接錯誤"EndEnd SubPrivate Sub Label1_Click()Form5.Show 1End SubPrivate Sub Label2_Click()EndEnd SubPrivate Sub txtPassword_KeyPress(Ke

45、yAscii 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 1End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub FindStudent_Click()For

46、m2.Show 1End SubPrivate Sub Findxg_Click()Form8.Show 1End SubPrivate Sub Form_Load()PrivsSeting ''加載權限設置End SubPrivate Sub Form_Resize()On Error GoTo Err '''改變控件位置代碼Picture1.Top = 0Picture1.Left = 0Picture1.Height = Me.ScaleHeight - StatusBar1.HeightPicture1.Width = Me.ScaleWidth

47、StatusBar1.Panels(1).Text = "操作員:" & UserNameLabel9.Left = (Picture1.ScaleWidth - Label9.Width) / 2Label9.Top = Picture1.ScaleHeight / 2 - Label9.Height / 2Label1.Top = Label9.Top + 50Label1.Left = Label9.Left + 50''加載背景代碼 Image1.Picture = LoadPicture(App.Path & "1.jpg

48、") 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 Integer)EndEnd SubPrivate Sub HelpFiles_Click() '''幫助文件On Error G

49、oTo ErrMainfrm.StatusBar1.Panels(2).Text = "幫助文件" Dim strPath As String strPath = App.Path + "系統(tǒng)說明.doc" ShellExecute hWnd, "open", mFso.GetFileName(strPath), lpParameters, mFso.GetParentFolderName(strPath), 5Exit SubErr:MsgBox Err.DescriptionEnd SubPrivate Sub Infocj_Cl

50、ick()strTableName = "成績信息"Form6.Show 1End SubPrivate Sub InfoCqjl_Click()strTableName = "考勤信息"Form7.Show 1End SubPrivate Sub InfoJf_Click()strTableName = "獎罰信息"Form7.Show 1End SubPrivate Sub InfoKc_Click()strTableName = "課程信息"Form1.Show 1End SubPrivate Sub Inf

51、oKwhd_Click()strTableName = "課外活動信息"Form7.Show 1End SubPrivate Sub infoStudent_Click()strTableName = "學生基本信息"Form1.Show 1End SubPrivate Sub InofBs_Click()strTableName = "比賽信息"Form7.Show 1End SubPrivate Sub Sjbf_Click()frmDatabase.Show 1End SubPrivate Sub SysAbout_Click(

52、) ''關于frmAbout.Show 1End SubPrivate Sub sysManager_Click()Form3.Show 1End SubPrivate Sub Userpasword_Click() ''用戶密碼Form4.Show 1End SubPublic Sub PrivsSeting() '權限設置If IsUserMode = 1 Then ''管理員 ElseIf IsUserMode = 2 Then sysManager.Visible = False Infomanage.Visible = Fals

53、eEnd 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.Text) <> "" Then Dim rs1 As New ADODB.Recordset If rs1.Stat

54、e 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)存在! 請改user_Id!", , "系統(tǒng)提示" Text8.Text = "" Exit Sub End If

55、 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 rs1.Fields(3).Value = Trim(Combo1.Text) rs1.Update Combo5.AddItem Trim(Tex

56、t8.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 "操作已成功!", , "提示"End SubPrivate Sub Form_Load() ''初始化代碼On Error GoTo ErrText8.Text = ""Dim rs1 As New AD