畢業(yè)論文---vb學生管理系統(tǒng)

1、<p><b>　　摘 要</b></p><p>　　隨著信息技術(shù)在管理上越來越深入而廣泛的應用，管理信息系統(tǒng)的施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個不斷發(fā)展的新型學科任何一個單位要生存發(fā)展，要高效率地把內(nèi)部活動有機地組織起來，這就必須建立與自身特點相適應的管理信息系統(tǒng)。</p><p>　　本文介紹了在Visusl Basic6.0環(huán)境下采用“自上而

2、下地總體規(guī)劃，自下而上地應用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。通過分析某一學校學生管理的不足，創(chuàng)建了一套行之有效的計算機管理學生的方案。文章介紹了學生管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務流程分析等；系統(tǒng)設計部分主要介紹了系統(tǒng)功能設計和數(shù)據(jù)庫設計及代碼設計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法，本系統(tǒng)界面友好，操作簡單，比較實用。</p><p>　　關(guān)鍵詞:管理信息系統(tǒng)、學生管理 Visual

3、 Basic 應用</p><p>　　學生畢業(yè)設計（論文）評審表</p><p><b>　　目 錄</b></p><p>　　封面 ……………………………………………………………………………1</p><p>　　摘要 ……………………………………………………………………………2</p><

4、;p>　　學生畢業(yè)設計（論文）評審表 ………………………………………………3</p><p>　　目錄 ……………………………………………………………………………5</p><p>　　第一章 概述 …………………………………………………………………6</p><p>　　1.1引言…………………………………………………………………………6</p>

5、;<p>　　1．2開發(fā)目的、背景與意義…………………………………………………7</p><p>　　1．3系統(tǒng)概述…………………………………………………………………8</p><p>　　第二章 系統(tǒng)分析 ……………………………………………………………10</p><p>　　2．1系統(tǒng)及需求分析…………………………………………………………10&l

6、t;/p><p>　　2．2系統(tǒng)方案確定……………………………………………………………10</p><p>　　2．3可行性分析………………………………………………………………11</p><p>　　2．4系統(tǒng)流程設計……………………………………………………………12</p><p>　　2.5 功能分布圖分析………………………………………

7、………………13</p><p>　　第三章 系統(tǒng)數(shù)據(jù)結(jié)構(gòu)設………………………………………………13</p><p>　　3．1數(shù)據(jù)庫設計………………………………………………………………13</p><p>　　第四章 總體設計…………………………………………………………15</p><p>　　4．1系統(tǒng)的功能簡介 …………………………

8、………………………………15</p><p>　　4．2系統(tǒng)的開發(fā)目標 …………………………………………………………16</p><p>　　4．3系統(tǒng)設計的要求…………………………………………………………16</p><p>　　4．4數(shù)據(jù)運行的環(huán)境…………………………………………………………16</p><p>　　4．5項目模塊規(guī)劃……

9、………………………………………………………16</p><p>　　第五章 系統(tǒng)詳細設計 ………………………………………………17</p><p>　　5．1系統(tǒng)登陸界面……………………………………………………………17</p><p>　　5. 2系統(tǒng)主界面…………………………………………………………………17</p><p>　　5

10、．3系統(tǒng)設置模塊 ……………………………………………………………22</p><p>　　5．4數(shù)據(jù)錄入模塊………………………………………………………………26</p><p>　　5.5數(shù)據(jù)管理模塊………………………………………………………………28</p><p>　　5．6數(shù)據(jù)瀏覽模塊 ………………………………………………………………34</p>

11、<p>　　5．7數(shù)據(jù)查詢模塊…………………………………………………………………36</p><p>　　5.8數(shù)據(jù)打印模塊…………………………………………………………………38</p><p>　　5.9幫助模塊 ……………………………………………………………………39</p><p>　　結(jié)束語 …………………………………………………………………

12、…………39</p><p>　　參考文獻 …………………………………………………………………………40</p><p>　　致謝 ………………………………………………………………………………40</p><p>　　標題: vb學生管理系統(tǒng)</p><p>　　2008秋計算機科學與技術(shù)（師）：甘天權(quán)</p><p

13、><b>　　第一章 緒論</b></p><p><b>　　1.1引言</b></p><p>　　當今社會，網(wǎng)絡的發(fā)展迅速十分驚人但是，計算機和網(wǎng)絡對社會的影響已經(jīng)迅速擴大，甚至在改變?nèi)藗兊纳?。特別是90年代以來，多媒體和網(wǎng)絡技術(shù)的飛速發(fā)展正在以驚人的速度改變著人們的工作方式、交往方式和生活方式。正像著名的未來學家尼葛洛龐帝(19

14、97)所說的，“數(shù)字不再只和計算有關(guān)，它決定我們的生存?！笨茖W技術(shù)是第一生產(chǎn)力，是最先進的生產(chǎn)力?，F(xiàn)在，已經(jīng)沒有人懷疑信息技術(shù)的發(fā)展將會引起人類社會全面和深刻的變革，使人類社會由工業(yè)社會邁向信息社會。目前，在社會各個方面都呈現(xiàn)出了與工業(yè)社會顯著不同的特點。網(wǎng)上書店，網(wǎng)上醫(yī)院，網(wǎng)上學校，網(wǎng)上購物．網(wǎng)上銀行，政府上網(wǎng)等新事物如雨后春筍般涌現(xiàn)出來，對人們的傳統(tǒng)生活方式、工作方式產(chǎn)生極大的沖擊。使人們感受到技術(shù)發(fā)展的脈搏和信息時代前進的步伐。&

15、lt;/p><p>　　隨著學校的規(guī)模不斷擴大，學生數(shù)量急劇增加，有關(guān)學生的各種信息量也成倍增長。面對龐大的信息量需要有學生管理系統(tǒng)來提高學生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、科學統(tǒng)計和快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。</p><p>　　本系統(tǒng)主要用于學校學生信息管理，總體任務是實現(xiàn)學生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動化，其主要任務是用計算機對學生各

16、種信息進行日常管理，如查詢、修改、增加、刪除，另外還考慮到學生選課，針對這些要求設計了學生成績管理系統(tǒng)。</p><p>　　本系統(tǒng)主要包括系統(tǒng)設置、學生信息查詢、學生信息錄入、管理、瀏覽、打印和幫助七部分。其功能主要有：</p><p>　　1、有關(guān)學生成績等信息的輸入，包括輸入學生基本信息、課程和成績等。</p><p>　　2、學生信息的查詢，包括查詢學生基本

17、信息、已學課程和成績等。</p><p>　　3、學生信息的修改．</p><p>　　4、學生信息管理信息的輸入，包括輸入課程設置、成績等。</p><p>　　5、學生成績管理信息的查詢。</p><p>　　6、學生成績管理信息的修改。</p><p>　　7、學生課程的設置和修改。</p><

18、;p>　　學生成績管理系統(tǒng)是典型的信息管理系統(tǒng)(HIs)，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序功能完備，易使用等特點。</p><p>　　經(jīng)過分析，我們使用MICROSOFT公司的VISUAL BASIc開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智

19、能化對象，首先在短時間內(nèi)建立系統(tǒng)應用原型，然后，對初始原型系統(tǒng)進行需求迭代，不斷修正和改進，直到形成用戶滿意的可行系統(tǒng)。</p><p>　　1．2開發(fā)目的、背景與意義</p><p>　　幾年前，各個學校的學生成績管理基本上都是靠手工進行．隨著各個大學，有關(guān)學生成績管理工作所涉及的數(shù)據(jù)量越來越大，有的學校不得不靠增加入力、物力來進行學生成績管理。但手工管理具有效率底、易出錯、檢索信息慢、

20、對學校的管理提供決策信息較為困難等缺點。我校盡管部分學院或系已開出學生成績管理系統(tǒng)，但開發(fā)的系統(tǒng)不具有通用性．所以我想借本次畢業(yè)設計之際，開發(fā)一個不僅適用本校各系而且適用于其它各校的通用學生成績管理系統(tǒng)。</p><p>　　建立學生成績管理系統(tǒng)，采用計算機對學生成績進行管理，進一步提高辦學效益和現(xiàn)代化水平．幫助廣大教師提高工作效率，實現(xiàn)學生成績信息管理工作流程的系統(tǒng)化、規(guī)范化和自動化。</p>&

21、lt;p>　　以上各類信息目前還處于手工或半手工的管理狀態(tài)，效率低，可靠性差。配備電腦，但實際利用率不高，如果采用計算機進行以上各類信息的管理，必將大大提高工作效率，對學校各類信息的維護及了解起到積極的作用。另外隨著計算機網(wǎng)絡的持續(xù)發(fā)展，無論是工作、學習還是生活，將會越來越多地融入到流動的比特中，人們的工作節(jié)奏在不斷加快，需要快捷的信息來源，井對此作出反應。因此，無論是從目前的現(xiàn)狀來看，還是面向未來，一個功能完備的學校信息管理系統(tǒng)

22、的開發(fā)都非常有必要。</p><p>　　本人作為學習計算機專業(yè)的一員，對系統(tǒng)的需求作了較深入的認識，同時也掌握了一定的系統(tǒng)開發(fā)理論，借這次畢業(yè)設計的契機，一方面利用自己的所學小刀試牛，另一方面通過這次實踐必將提升自身對軟件工程、數(shù)據(jù)庫、程序設計等理論的認識，積累系統(tǒng)開發(fā)的經(jīng)驗。</p><p><b>　　1．3系統(tǒng)概述</b></p><p&g

23、t;　　學生成績管理系統(tǒng)能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點，如：效率低、保密性差．另外時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護都帶來了不少的困難。隨著科學技術(shù)的不斷提高，計算機科學日漸成熟，其強大的功能己為人們深刻認識，它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。</p><p>　　作為計算機應用的一部分，使

24、用計算機對學生檔案信息進行管理，具有著手工管理所無法比擬的優(yōu)點．例如：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學生檔案管理的效率，也是企業(yè)的科學化、正規(guī)化管理，與世界接軌的重要條件。因此．開發(fā)這樣一套管理軟件成為很有必要的。本系統(tǒng)具有較強的實用性和先進性、規(guī)范管理、快速查詢等特點。</p><p><b>　　1．4開發(fā)工具簡介</b><

25、;/p><p>　　本系統(tǒng)的設計是在WindowsxP簡體中文版操作系統(tǒng)環(huán)境下，使用usVisualBasic 6．o中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應考慮數(shù)據(jù)庫應用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下：</p><p>　　Vi

26、sual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設計，可用于開發(fā)Windows環(huán)境下的種類應用程序。它簡單易學、效率高，且功能強大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C／C++編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設計工具，使用Windows內(nèi)部的應用程序接口(APl)函數(shù)，以及動態(tài)鏈接庫(BLL)、動態(tài)數(shù)據(jù)交換(DDE)、

27、對象的鏈接與嵌入(oLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強大、圖形界面豐富的應用軟件系統(tǒng)。</p><p>　　1．5 Visual Basic系統(tǒng)在程序應用中的幾個常用名詞</p><p>　　Visual Basic系統(tǒng)除了一般高級語言所具有的一些名詞術(shù)語外，還有幾個系統(tǒng)常用的名詞。其基本含義如下；</p><p&

28、gt;　　1)視窗(Form)</p><p>　　視窗是進行人機交互的界面或接口，也叫窗體。Ⅷ系統(tǒng)的人機交互界面或接口，無論是在設計時或是在運行時，都是Windows系統(tǒng)的標準視窗。</p><p>　　2)對象(Object)</p><p>　　對象是Ⅷ系統(tǒng)內(nèi)部提供給設計者可以直接使用的處理輸出的控制工具。本程序所應用到的對象類型有標簽框(Label Box)

29、，文本框（Text Box)，命令按扭(CommandButton)，網(wǎng)格(Data Grid)，ADO控件(Adod01)等。當把這些工具放置到用戶界面對應的窗體上時，被稱為對象或控件。用戶可以通過設置對象的“屬性”和“方法”，便于對象適應自己所設計應用程序的輸入輸出內(nèi)容，對象的生成過程及結(jié)構(gòu)都被封裝起來．正確使用對象可以減少程序和開發(fā)時間，提高程序設計者的工作效率。</p><p>　　3)屬性(Proper

30、ties)</p><p>　　屬性是Ⅷ系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。用戶通過適當?shù)卦O置或改變對象的屬性來確定對象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對象。比如，對象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。</p><p>　　4)事件(Events)</p><p>　　事件是指用戶或操作者對計算機進行的某一操作

31、(如擊鍵、單擊或移動鼠標等)的行為或系統(tǒng)狀態(tài)發(fā)生的變化．Ⅷ系統(tǒng)常用事件來引導計算機執(zhí)行一段程序。程序所用的鍵盤事件有KeyPress(按鍵)事件，KeyDown事件和KeyUp事件；鼠標事件有Click(單擊鼠標)事件，DbDlicd(雙擊鼠標)。</p><p>　　5)方法(Uethod)</p><p>　　方法主要是指對一個對象使用某種作用的過程．它是在程序執(zhí)行的過程中要計算機執(zhí)行

32、的某種操作。其程序的方法有Show(顯示)方法，Hide(隱藏)方法，Refresh(刷新)方法。</p><p>　　6)過程(Procedure)</p><p>　　過程是指經(jīng)過定義或說明的，或基于某一對象對應的事件所引發(fā)的程序段。</p><p>　　7)模塊(Uodule)</p><p>　　模塊是指一些運算量或過程進行聲明或定義

33、的一個集合。系統(tǒng)程序大體可分成四個模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和幫助。</p><p><b>　　第2章系統(tǒng)分析</b></p><p>　　本學生信息管理系統(tǒng)可以說是一個綜合性的學校學生管理系統(tǒng)，這它集成了學生信息管理、學生成績管理、學生課程管理等多種功能，因而具有較強的實用性。</p><p>　　2．1系統(tǒng)及需求分析</p&

34、gt;<p><b>　　2．1．1系統(tǒng)需求</b></p><p>　　通過調(diào)查，要求系統(tǒng)需要有以下功能：</p><p>　　[1] 要求有良好的人機交互界面；</p><p>　　[2] 由于該系統(tǒng)使用對象多，要求有較好的權(quán)限管理；</p><p>　　[3] 原始數(shù)據(jù)修改簡單方便，支持多條件修

35、改</p><p>　　[4] 方便的數(shù)據(jù)查詢，支持多條件查詢；</p><p>　　[5] 在相應的權(quán)限下，刪除數(shù)據(jù)方便，數(shù)據(jù)穩(wěn)定性好；</p><p>　　[6] 數(shù)據(jù)計算自動完成，盡量減少人工干預．</p><p><b>　　2．1．2需求分析</b></p><p>　　目前計算機

36、管理在日常生活中的地位變得越來越重要。它能夠代替人做各種重復、繁瑣的勞動，并且擁有操作簡單、可信度奸、不易出錯等優(yōu)點，大大減少了不必要的人力消耗，提高個人的工作效率。學生信息查詢是每個學校必須面臨的問題，所以，如何開發(fā)一個應用簡單、界面友好、容易操作、數(shù)據(jù)安全性好的管理系統(tǒng)就成為非常重要的技術(shù)問題。</p><p>　　學生成績管理系統(tǒng)的設計與實現(xiàn)，是在班級學生處數(shù)據(jù)庫基礎(chǔ)上，只對學生成績信息進行管理的一個系統(tǒng)，

37、是對學校教務管理系統(tǒng)的補充，主要是針對輔導員的需要，主要包括三個用戶群：學生、管理員．</p><p>　　學生，主要的需求有成績查詢、個人信息查詢、密碼修改。</p><p>　　教師，主要的需求有個人信息管理、密碼修改、學生查詢、．</p><p>　　管理員，主要的需求有學生成績管理、學生信息管理、學生信息的一致性維護。</p><p>

38、;<b>　　2．2系統(tǒng)方案確定</b></p><p>　　通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應完成的功能有：系統(tǒng)設置、數(shù)據(jù)錄入數(shù)據(jù)管理、數(shù)據(jù)瀏覽、數(shù)據(jù)查詢、數(shù)據(jù)打印、幫助。</p><p><b>　　2．3可行性分析</b></p><p>　　由于本系統(tǒng)管理的對象單一，且每個數(shù)據(jù)內(nèi)容具有較強的關(guān)聯(lián)性，涉及的計算過程不

39、是很復雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學校用于學生管理的微機都是nII以上的機器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運行的要求。在技術(shù)難度方面，由于有指導老師的指導和相關(guān)參考文獻，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實現(xiàn)．</p><p>　　2．3．1經(jīng)濟可行性分析</p><p>　　隨著科學技術(shù)的不斷發(fā)展與創(chuàng)新，計算機作用的日益突顯，計算機軟件成為人們解決問題的

40、一個有效手段，當然，它的作用也越來越重要。在當今信息時代，國民經(jīng)濟和國防建設、社會發(fā)展、人民生活都離不開軟件，軟件也無處不在。</p><p>　　軟件產(chǎn)業(yè)也是一個新興產(chǎn)業(yè)，盡管起步晚，但是發(fā)展迅速，已經(jīng)成為增長量快的產(chǎn)業(yè)，是具有高投入／高產(chǎn)出、無污染、低能耗的綠色產(chǎn)業(yè)。學生信息查詢系統(tǒng)是一個基于教務處數(shù)據(jù)庫的一個旨理系統(tǒng)，對已經(jīng)使用的類似的系統(tǒng)進調(diào)查分析、類比，本課題具有的特點：開發(fā)工作量?。梢杂袃蓚€人合作開

41、發(fā)或一個人獨立開發(fā)，開發(fā)周期短，有經(jīng)驗的開發(fā)人員一個月就可以完成系統(tǒng)的開發(fā)。</p><p>　　2．3．2技術(shù)可行性分析</p><p>　　從技術(shù)方面來說，Visual Basic是一個企業(yè)級的、面向?qū)ο蟮目焖賾瞄_發(fā)工具，是數(shù)據(jù)庫最優(yōu)秀的開發(fā)工具之一。Visual Basic完全支持面向?qū)ο蟮拈_發(fā)，它擁有多種數(shù)據(jù)庫接口，可洲≥常方便地連接的各種數(shù)據(jù)源，再加之其專利產(chǎn)品Data Win

42、dow(數(shù)據(jù)窗口)，通過SQL語句即可輕松地查詢和更新后臺數(shù)據(jù)庫中的數(shù)據(jù)。</p><p>　　Visual Basic基于組件的開發(fā)增強了面向?qū)ο蟮募夹g(shù)，他提供一個更有效的封裝、管理、重用和擴展企業(yè)規(guī)則和處理的高層途徑。在數(shù)據(jù)操作方面，選擇靈活、易用的Microsoft Access數(shù)據(jù)源。</p><p><b>　　2．4系統(tǒng)流程設計</b></p>

43、<p>　　本系統(tǒng)在執(zhí)行時，先根據(jù)不同的操作人員的需要來進行相應的模塊，然后可以輸入數(shù)據(jù)或者進行其它的查詢或瀏覽等操作；總體來說，本系統(tǒng)屬于一個事務型管理系統(tǒng)。</p><p><b>　　功能層次如下：</b></p><p>　　圖2.1系統(tǒng)流程設計圖</p><p>　　2.5 功能分布圖分析</p>&l

44、t;p><b>　　圖2.2功能分布圖</b></p><p>　　第三章 系統(tǒng)數(shù)據(jù)結(jié)構(gòu)設</p><p><b>　　3．1數(shù)據(jù)庫設計</b></p><p>　　數(shù)據(jù)庫采用了Microsoft推出的Access數(shù)據(jù)庫，這是微軟集成到Office中的一個桌面數(shù)據(jù)庫，能夠快速方便的和Office的其他套件綜合使用。

45、由于Microsoft Access具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用Microsoft Access作為后臺數(shù)據(jù)庫。使用Microsoft Access的好處還在于，如果你的系統(tǒng)擴展到Client／Server模式的時候，可以使用Microsoft的數(shù)據(jù)庫服務器軟件SQL Server，此時，程序只需要簡單的修改一下鏈按就可以，這樣，為程序的平滑擴展提供了非常有力的條件．</p><p>　　

46、3．1．1各表的物理結(jié)構(gòu)如下</p><p>　　表3.1student圖</p><p>　　表3.2 lessons圖</p><p>　　表3.3 scires圖</p><p>　　表3.4 name圖</p><p><b>　　第四章．總體設計</b></p><p

47、>　　4．1系統(tǒng)的功能簡介</p><p>　　本系統(tǒng)的主要任務是實現(xiàn)對學生的信息管理，成績管理，課程管理及相關(guān)查詢。其主要功能包括：</p><p>　　1)學生信息管理功能</p><p>　　修改學生信息，包括：編號，姓名，性別，出生日期，民族，家庭住址和籍貫等。刪除學生，當學生畢業(yè)后，學生信息轉(zhuǎn)移備份數(shù)據(jù)庫中，系統(tǒng)的基本數(shù)據(jù)庫中需要刪除學生信息．<

48、;/p><p>　　2)學生成績管理功能</p><p>　　對學生各科的成績進行修改等。</p><p>　　3)學生課程管理功能</p><p>　　對課程的編號，名稱，學期和學時等</p><p><b>　　4)瀏覽功能</b></p><p>　　瀏覽學生信息表，學生

49、課程表，學生成績表。</p><p>　　5)學生信息錄入功能</p><p>　　添加學生，添加新的學生信息，包括：編號，姓名，性別，出生日期，民族，家庭住址和籍貫等。</p><p>　　6)學生課程錄入功能</p><p>　　添加新的課程，包括；課程的編號，名稱，學期和學時等。</p><p>　　7)學生成績

50、錄入功能</p><p>　　分數(shù)錄入，錄入各科目的成績．</p><p><b>　　8)打印報表功能</b></p><p>　　打印學生信息表，學生課程表，學生成績表。</p><p>　　4．2系統(tǒng)的開發(fā)目標</p><p>　　通過運用計算機建立本系統(tǒng)，希望能夠使輔導員及時了解學生信息，

51、大幅度提高工作效率，并為各種用戶提供信息的快速查詢與方便管理，并能結(jié)合當時的矗新數(shù)據(jù)進行統(tǒng)計。這樣，對輔導員來說，也明顯提高了效率，對作出正確判斷提供了依據(jù)。</p><p>　　4．3系統(tǒng)設計的要求</p><p>　　用戶，應用程序登陸時，可以使用兩種身份：管理員，其權(quán)限最大：學生，其權(quán)限次之。權(quán)限，學生是沒有權(quán)限修改、添加、刪除數(shù)據(jù)庫中得除密碼以外的任何信息(學生信息、成績信息、課程

52、信息等)，數(shù)據(jù)的更新由管理員來管理。</p><p>　　4．4數(shù)據(jù)運行的環(huán)境</p><p>　　本系統(tǒng)采用的是Microsoft Access數(shù)據(jù)庫，它是對數(shù)據(jù)庫進行操作的應用程序，因此需要有較好的配置。所需要的硬件配置如下：Pentium800以上；10GB以上硬盤；不少于128MB內(nèi)存。另外，開發(fā)工具vB所需硬件配置如下：CELERON以上的CPl3，128M以上的內(nèi)存，106以上

53、的硬盤。</p><p>　　為了能夠使本系統(tǒng)快速方便準確的操作，通過比較與權(quán)衡，本系統(tǒng)所采用的硬件配置如下：顯示器一臺(分辨率為1024．768)．硬盤為80G，內(nèi)存為512M，CPUPentiumY．0C。軟件配置如下：操作系統(tǒng)包括WinXP／Win2000／WinNT4／WinMe。</p><p><b>　　4．5項目模塊規(guī)劃</b></p>

54、<p>　　學生成績管理系統(tǒng)是一個典型的數(shù)據(jù)庫應用程序，主要有七個模塊：系統(tǒng)設置，數(shù)據(jù)錄入，數(shù)據(jù)管理，數(shù)據(jù)瀏覽，數(shù)據(jù)查詢．數(shù)據(jù)打印和幫助。下面將對各個模塊實現(xiàn)的功能做簡要的介紹。</p><p>　　4．5．1系統(tǒng)設置模塊</p><p>　　該模塊的主要功能是添加用戶，修改密碼，系統(tǒng)注銷和退出系統(tǒng)。</p><p>　　4．5．2數(shù)據(jù)錄入模塊</p

55、><p>　　該模塊的主要功能是向?qū)W生信息表，學生課程表，學生成績表錄入數(shù)據(jù)。</p><p>　　4．5．3數(shù)據(jù)管理模塊</p><p>　　該模塊的主要功能是對學生信息表，學生課程表，學生成績表的數(shù)據(jù)進行管理．</p><p>　　4．5．4數(shù)據(jù)瀏覽模塊</p><p>　　該模塊的主要功能是瀏覽學生信息表，學生課程表

56、，學生成績表。</p><p>　　4．5，5數(shù)據(jù)查詢模塊</p><p>　　該模塊的主要功能是按照學生的編號或姓名進行查詢。</p><p>　　4．5．6數(shù)據(jù)打印模塊</p><p>　　該模塊的主要功能是打印學生信息表，學生課程表，學生成績表</p><p><b>　　4．5．7幫助模塊</b

57、></p><p>　　可以查看學生成績管理系統(tǒng)的詳細信息。</p><p>　　第5章 系統(tǒng)詳細設計</p><p><b>　　5．1系統(tǒng)登陸界面</b></p><p>　　本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在nme表中，本系統(tǒng)根據(jù)不同的用戶而設置了不同的權(quán)限。</

58、p><p><b>　　圖5.1登陸界面圖</b></p><p><b>　　5.2系統(tǒng)主界面</b></p><p>　　本模塊是本系統(tǒng)的應用界面，在本界面上集成了本系統(tǒng)的所有功能，共有7個功能菜單和若干個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從用戶信息管理課程信息管理，成績信息管理具體功能。</p><

59、p>　　5.1文本編輯器中菜單控制件的屬性設置及說明圖</p><p>　　工具欄中按鈕代碼如下，</p><p>　　Private Sub ToolbAr]』uttonClick(ByVal Button As MSCometlLib．Button)</p><p>　　S日1ect Case Button．Index</p><p&g

60、t;<b>　　Case 1</b></p><p>　　Call xxxx Click</p><p><b>　　Case 2</b></p><p>　　Call xgum_C“ck</p><p><b>　　Case 3</b></p><p&

61、gt;　　CaU xskc C“ck</p><p><b>　　Case 4</b></p><p>　　Call liulan nick</p><p><b>　　Case 5</b></p><p>　　CaU xsxx Click</p><p><b>

62、　　Case 6</b></p><p>　　Call xscc C1ick</p><p>　　End Sclect</p><p><b>　　End Sub</b></p><p><b>　　主窗體的界面如下</b></p><p><b>　　

63、圖5.2主界面圖</b></p><p><b>　　代碼如下：</b></p><p>　　Din bliss Integer</p><p>　　Private Sub cob Click()</p><p>　　Form5．Show</p><p>　　Form5．Width’9

64、600</p><p>　　Form5．Height’6800</p><p><b>　　End Sub</b></p><p>　　Private Sub duchy Cocky ()</p><p>　　DaraReport2．Shoo</p><p><b>　　Indy Sub

65、</b></p><p>　　Private Sub dy比b—Click()</p><p>　　DataRepOr亡3．Show</p><p><b>　　nod Sub</b></p><p>　　Pr±vate Sub dyxxb—C1ick()</p><p>　

66、　DataRepOrtl．Shw</p><p><b>　　End Sub</b></p><p>　　Private Sub kcb nick<)</p><p><b>　　勛rm4．Show</b></p><p>　　Form4．Vidth’8565</p><p

67、>　　Porm4．Ueieht’6400</p><p><b>　?、騨d Sub</b></p><p>　　Pr±vate Sub“ulsn—Cnck()</p><p><b>　　Prom．Shw</b></p><p>　　Formal．net’8565</p>

68、;<p>　　Proms．Heights；S400</p><p><b>　　End出止</b></p><p>　　Private Sub text Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b>

69、</p><p>　　Private Sub toy Click()</p><p>　　form13．Show</p><p>　　form13．Width=6780</p><p>　　form13．Hearths=5055</p><p><b>　　End Sub</b></p&g

70、t;<p>　　Private Sub xgmm_Click()</p><p>　　form14．Show</p><p>　　fnrm14．Width=6780</p><p>　　forml4．Height=5055</p><p><b>　　End Sub</b></p><p

71、>　　Private Sub sac Click()</p><p>　　Porm8．Show</p><p>　　Form12．Width=8565</p><p>　　Form12．Heights=6400</p><p><b>　　End Sub</b></p><p>　　Priv

72、ate Sub scab Click()</p><p>　　POrm11．Show</p><p><b>　　End Sub</b></p><p>　　Private Sub sox clock()</p><p>　　Form7．Show</p><p>　　Pnrm7．Width=85

73、65</p><p>　　Form7．Height=6400</p><p><b>　　End Sub</b></p><p>　　Private Sub sax Click()</p><p>　　form10。Show</p><p>　　form10．Width=8565</p>

74、;<p>　　form10．Height=6400</p><p><b>　　End Sub</b></p><p>　　Private Sub xebec Click()</p><p>　　Form6．Show</p><p>　　Fom6．Width=8565</p><p>

75、;　　Form6．Heights=6400</p><p><b>　　End Sub</b></p><p>　　Private Sub xsxxb』1ick()</p><p>　　FoeⅢ10．Show</p><p>　　Form10．Width’8385</p><p>　　Porm10

76、．Unearth=6400</p><p><b>　　End Sub</b></p><p>　　Privets Sub xebec C1ick()</p><p>　　FOrm6．Show'</p><p>　　Form6．Width’8565</p><p>　　Porm6．Uei2

77、ht’6400</p><p><b>　　End Sub</b></p><p>　　riveted Sub axe Click()</p><p>　　Form2．Show</p><p>　　Form2．Width=6050</p><p>　　Form2．Height=5000</p

78、><p><b>　　End Sub</b></p><p><b>　　5．3系統(tǒng)設置模塊</b></p><p>　　5．3．1添加用戶模塊</p><p>　　本模塊是實現(xiàn)系統(tǒng)的添加功能，在輸入密碼后必須重新輸入確認密碼，否則添加</p><p><b>　　失敗

79、．</b></p><p><b>　　圖5.3添加用戶圖</b></p><p><b>　　代碼如下：</b></p><p>　　Private Sub Commend Click()</p><p>　　Stack as As Interrex</p><p

80、>　　Anodal．Record set．Move First</p><p>　　Anodal．Recorded．Find"userame="十Comb01．TeXt+"'"</p><p>　　Din bb As String</p><p>　　bb=Anodal．Record set．Pleads(1)&

81、lt;/p><p>　　If Text．Text=bb Then</p><p>　　lf Comb01．Text<>"孫付超"Thad</p><p>　　MDIForiul．tjyh．Enabled=False</p><p>　　MDIPornl．xxb．Enabled=falser</p>&

82、lt;p>　　MDIForml．kcb．Enabled=False</p><p>　　MDIForml．ckb．Enabled=Falee</p><p>　　MDIForml．xsxxb．Enubled=false</p><p>　　MEIForml．xskcb．Enabled=False</p><p>　　MDIforml．x

83、scib．Enabled=false</p><p><b>　　End lf</b></p><p>　　MDIForml．Show</p><p><b>　　Unload Me</b></p><p><b>　　Else</b></p><p>

84、　　lf aa<3 Then</p><p>　　Magbee"密碼輸入錯誤，是否重新輸入"，o+48,"系統(tǒng)提示"</p><p>　　Textl．Text =" "</p><p>　　Textl．SetFOcus</p><p><b>　　aa=aa十 1

85、</b></p><p><b>　　E1se</b></p><p>　　Textl．Enabled=Falsc</p><p>　　MsgBox "錯誤不得超過3次，請退出!"</p><p><b>　　End</b></p><p>&

86、lt;b>　　End lf</b></p><p><b>　　End lf</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2 Click()</p><p><b>　　UnlOsd Ue<

87、/b></p><p><b>　　End Sub</b></p><p>　　Prirate Sub Form_Activate()</p><p>　　Textl．SetFocus</p><p><b>　　End Sub</b></p><p>　　Priv9t

88、e Sub Form Load()</p><p>　　Adodcl．ConnectionStrine = "ProVider=Micro$oft．Jet．OLEDB．4．0；Data</p><p>　　Source="十App．Path十"＼student．mdb；Perslst Securlty lnfo=False"</p

89、><p>　　AdOdcl．RecordSource="YlalUe"</p><p>　　Adodcl．Refresh</p><p>　　AdOdcl．Recordset．Move1at</p><p>　　Adodcl．Recordset.MoveFirst</p><p>　　Dim aa As

90、 Integer</p><p>　　aa= Adodcl Rccordscl．Rcc0rdCounL</p><p>　　Dim iAs Integer</p><p>　　Combo1．Text=Adodcl．Recordset．Fields(0)</p><p>　　Fore = 1 TO aa</p><

91、p>　　Combo1．AddltemAdodcl．Recordset．Fields(0)</p><p>　　AdOdcl．Recordset．Move Next</p><p><b>　　Next i</b></p><p><b>　　End Sub</b></p><p>　　Pr

92、ivatc Sub Timerl_Timer()</p><p>　　I,abell．I,eft=I abel 1．Inert十50</p><p>　　1f Label．Left>=login．Width Then</p><p>　　Label1，Left=—Labella，Width—50</p><p><b>　　E

93、nd lf</b></p><p><b>　　End Sub</b></p><p>　　5．3．2修改密碼模塊</p><p>　　本系統(tǒng)是用戶的安全設置，實現(xiàn)各種用戶對密碼的修改，修改完畢后單擊確認即可保存新的密碼</p><p><b>　　圖5.4修改密碼圖</b></p

94、><p>　　5 3 3退山系統(tǒng)模塊</p><p>　　本模塊實現(xiàn)單擊標題欄退出叫，出現(xiàn)消息對盾框：</p><p><b>　　圖5.5退出系統(tǒng)圖</b></p><p><b>　　代碼如下：</b></p><p>　　Private Sub MDIForm Quer

95、yUnload(Cancel As Integer， UnloadModc Ax</p><p><b>　　Tnteger)</b></p><p>　　Dim aa As Integer</p><p>　　1f bl<>1 The</p><p>　　aa=MsgBox(“是否真的退出程序&qu

96、ot;，4+32，"系統(tǒng)提示")</p><p>　　if aa = 6 Then</p><p><b>　　UnlOad Me</b></p><p><b>　　Else</b></p><p><b>　　Cancel=1</b></p

97、><p><b>　　End Tf</b></p><p><b>　　End lf</b></p><p><b>　　End sub</b></p><p>　　5.3.4系統(tǒng)注銷模塊</p><p>　　本模塊實現(xiàn)系統(tǒng)注銷時，出現(xiàn)消息對話框：<

98、;/p><p><b>　　圖506注銷系統(tǒng)圖</b></p><p><b>　　代碼如下：</b></p><p>　　Private Sub xtzx_Click()</p><p>　　Dim aa As Integer</p><p>　　aa=MsgBox(“是否真的

99、注銷”，4十32，“系統(tǒng)提示”)</p><p>　　If aa=6 Then</p><p><b>　　b1+ 1</b></p><p>　　UnlOadMDIFOml</p><p>　　login．Show</p><p><b>　　Else</b></p

100、><p>　　Cancel = 1</p><p><b>　　End lf</b></p><p><b>　　End Sub</b></p><p><b>　　5．4數(shù)據(jù)錄入模塊</b></p><p>　　5．4．1學生信息數(shù)據(jù)錄入</p&

101、gt;<p>　　實現(xiàn)向?qū)W生信息表中錄入新的信息，包括：學號，姓名，性別，出生日期，家庭住址等信息：</p><p>　　圖5.7學生信息數(shù)據(jù)錄入圖</p><p><b>　　代碼如下：</b></p><p>　　Private sub commandl_click()</p><p>　　AdOdc]

102、．Recordset．AddNew</p><p>　　Adodcl．Recordset．Fields(0) =Text2．Text</p><p>　　Adodcl，Recordset．Fields(1) =Text3 Text</p><p>　　Adodcl．Rccordsct．Ficlds(2) =TcxL4 TcxL</p><p

103、>　　Adodcl．Recordset．Fields(3) =Text5，Text</p><p>　　Adodcl．Recordset．Fields(4) =Text6．Text</p><p>　　Adodcl，Recordset．Fields(5) =Text7 Text</p><p>　　Adodcl．Rccordsct．Ficlds(6)

104、=Tcxt8.TcxL</p><p>　　Adodcl．Recordset．Fields(7) =Text9.Text</p><p>　　Adodcl．Recordset．Fields(8)=Textl0．Text</p><p>　　AdOdcl，Recordset．Update</p><p>　　Tcxt2 TcxL = &

105、quot;"</p><p>　　Text3．Text = ""</p><p>　　Text4．Text=""</p><p>　　Text5．Text = ""</p><p>　　Text6 Text = ""</p>

106、<p>　　Tcxt7 TcxL = ""</p><p>　　Text8．Text = ""</p><p>　　Text9．Text = ""</p><p>　　TextlO，Text=""</p><p><b>　　En

107、d Sub</b></p><p>　　PT’jvate Sub Command3 Cljck()</p><p><b>　　UnlOad He</b></p><p><b>　　End Xub</b></p><p>　　Privulc Sub COmmand2 Clic

108、k()</p><p>　　Text2．Text=""</p><p>　　Text3．Text=""</p><p>　　Text4．Text=""</p><p>　　Text5．Text=""</p><p>　　Text6．Text

109、=""</p><p>　　Text7．Text=""</p><p>　　Text8．Text=""</p><p>　　Text9．Text=""</p><p>　　Textl0．Text=""</p><p>&

110、lt;b>　　End Sub</b></p><p>　　Private Sub Form Load()</p><p>　　Adodcl．ConnectionString = "Provider=Microsoft．Jet．OLEDB．4．0：Data</p><p>　　Source="+App．Path+"＼

111、student．mdb；PersiSt Security lnfo=FalSe"</p><p>　　Adodcl．RecordSource="student"</p><p>　　Adodcl．Refresh</p><p><b>　　End Sub</b></p><p>　　5．4．

112、2學生課程數(shù)據(jù)錄入</p><p>　　實現(xiàn)向?qū)W生課程表中錄入新的信息，包括：課程的編號，名稱，學期和學時等信</p><p><b>　　息。</b></p><p>　　圖5.8學生課程數(shù)據(jù)錄入圖</p><p>　　5.4.3學生成績數(shù)據(jù)錄入</p><p>　　實現(xiàn)向?qū)W生成績表中錄入新的學

113、生各科目的成績</p><p>　　圖5.9學生成績數(shù)據(jù)錄入圖</p><p><b>　　5.5數(shù)據(jù)管理模塊</b></p><p>　　5.5.1學生信息管理</p><p>　　管理學生的學籍信息，主要的信息有：學號、姓名、性別、出生日期、入學時間、家庭住址等信息?；镜墓δ馨ǎ盒薷摹h除。基本操作為：按照Lab

114、el控件內(nèi)的文字提示進行修改學生的信息，修改完畢后單擊“保存”按鈕即可。</p><p>　　圖5.10學生信息管理圖</p><p><b>　　代碼如下：</b></p><p>　　Private Sub Commandl CliCk()</p><p>　　Adodcl．Recordset．MoveFirst&l

115、t;/p><p>　　Textl．Text=Adodcl，Recordset．FieldS(0)</p><p>　　Text2．Text=Adodcl，Recordset．FieldS(1)</p><p>　　Text3．Text=Adodcl．Recordset．FieldS(2)</p><p>　　Text4．Text=Adodcl．R

116、ecordset．FieldS(3)</p><p>　　Text5．Text=Adodcl，Recordset．FieldS(4)</p><p>　　Text6，Text=Adodcl，Recordset．FieldS(5)</p><p>　　Text7．Text=Adodcl．Recordset．FieldS(6)</p><p>　

117、　Text8．Text=Adodcl．Recordset．FieldS(7)</p><p>　　Text9．Text=Adodcl，Recordset．FieldS(8)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2 CliCk()</p><p>　

118、　Adodcl．Recordset．MovePreviOUS</p><p>　　If Adodcl．Recordset．BOF Then</p><p>　　MsgBox "已到記錄首!"</p><p>　　Adodcl，Recordset．MoveFirst</p><p><b>　　EndIf</

119、b></p><p>　　Textl．Text=Adodcl．Recordset．FieldS(0)</p><p>　　Text2．Text=Adodcl，Recordset．Fie)。dS(1)</p><p>　　Text3．Text=Adodcl，Recordset．FieldS(2)</p><p>　　Text4．Text=

120、Adodcl，Recordset．FieldS(3)</p><p>　　Text5．Text=Adodcl．Recordset．FieldS(4)</p><p>　　Text6，Text=Ado&1，Recordset．FieldS(5)</p><p>　　Text7．Text=Adoc1．Recordset．FieldS(6)</p>

121、<p>　　Text8．Text=Adodcl．Recordset．FieldS(7)</p><p>　　Text9．Text=Adodc1．Recordset．Fields(8)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3 CliCk()</p>

122、<p>　　Adodcl．Recordset．MoveNext</p><p>　　If Adodcl．Recordset．EOF Then</p><p>　　MsgBox"已到記錄尾!"</p><p>　　Adodcl．Recordset．MoveLast</p><p><b>　　EndIf&

123、lt;/b></p><p>　　Textl．Text=Adodcl．Recordset．FieldS(0)</p><p>　　Text2．Text=Adodcl．Recordset．FieldS(1)</p><p>　　Text3．Text=Adodcl．Recordset．FieldS(2)</p><p>　　Text4．Te

124、xt=Adodcl．Recordset．Fiel．dS(3)</p><p>　　Text5．Text=Adodcl．Recordset．Fields(4)</p><p>　　Text6．Text =AdodCl．ReCordSet．FieldS(5)</p><p>　　Text7．TeXt =AdodCl，ReCordSet．FieldS(6)</p

125、><p>　　Text8．Text =AdodCl．ReCordSet．FieldS(7)</p><p>　　Text9，TeXt =AdodCl，ReCOrdSet．FieldS(8)</p><p><b>　　End Sub</b></p><p>　　PriVate Sub COmmand4 CliCk()&

126、lt;/p><p>　　AdodCl．ReCordSet．MoVeLaSt</p><p>　　Textl．Text =AdOdCl．ReCOrdSet．FieldS(0)</p><p>　　Text2．Text =AdOdCl．ReCOrdSet．FieldS(1)</p><p>　　Text3．Text =AdOdCl．ReCOrd