學(xué)生成績管理系統(tǒng)畢業(yè)設(shè)計 (2)

1、<p><b>　　畢業(yè)設(shè)計（論文）</b></p><p>　　2010年4 月20 日</p><p>　設(shè)計（論文）題目學(xué)生成績管理系統(tǒng) </p><p>　學(xué)生基本信息管理 </p><p>　辦 學(xué) 點

2、 （系）</p><p>　專 業(yè)計算機應(yīng)用技術(shù) </p><p><b>　　摘要</b></p><p><b>　　【摘要】</b></p><p>　　隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實施在技術(shù)上已逐步成熟。管理信息系

3、統(tǒng)是一個不斷發(fā)展的新型學(xué)科，任何一個單位要生存要發(fā)展，要高效率地把內(nèi)部活動有機地組織起來，就必須建立與自身特點相適應(yīng)的管理信息系統(tǒng)。</p><p>　　學(xué)生成績管理系統(tǒng)其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫，而對于后者則要求應(yīng)用程序功能完備，易使用等特點。</p><p>　　本文介紹了在Visual

4、Basic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。本系統(tǒng)界面友好，操作簡單，比較實用。</p><p>　　我主要做了：成績管理,課程管理</p><p>　　【關(guān)鍵字】系統(tǒng)設(shè)計、Access數(shù)據(jù)庫、成績管理、課程管理、VB</p><p><b>　　前言</b></p>&l

5、t;p>　　目前社會上信息管理系統(tǒng)發(fā)展飛快,各個企事業(yè)單位都引入了信息管理軟件來管理自己日益增長的各種信息, 隨著學(xué)校向全國及至世界范圍的持續(xù)擴張，學(xué)生人數(shù)的增加，對于學(xué)生的成績管理也越來越復(fù)雜，要求也越來越高，因此需要一個全面、詳細的成績管理系統(tǒng)，以便完成對學(xué)生成績的管理。無紙化的環(huán)境是技術(shù)時代的一個夢想，也是許多學(xué)校和公司越來越意識到的一個真實世界。以前是由學(xué)生檔案來提供各種信息及通告新的變化，而現(xiàn)在這個繁雜的工作已被網(wǎng)站和內(nèi)

6、部計算機網(wǎng)絡(luò)所取代。使得學(xué)生成績的管理更方便、安全。</p><p>　　學(xué)生成績管理系統(tǒng)，可以用集中的數(shù)據(jù)庫將與人力資源管理相關(guān)的信息全面、有機地聯(lián)系起來，有效地減少了信息更新和查找中的重復(fù)勞動，保證了信息的相容性，從而大大地提高了工作效率，還能使原來不可能提供的分析報告成了可能。在采用和實施學(xué)生成績管理系統(tǒng)之后，就會將依賴于人的過程改為依賴于計算機系統(tǒng)的過程。學(xué)校管理人員只要獲取了相應(yīng)的權(quán)限，就可以隨時進入系

7、統(tǒng)，直接查閱相應(yīng)的信息。</p><p>　　本系統(tǒng)主要用于學(xué)校學(xué)生成績管理，總體任務(wù)是實現(xiàn)學(xué)生成績關(guān)系的系統(tǒng)化、規(guī)范化和自動化，其主要任務(wù)是用計算機對學(xué)生各種信息進行日常管理，如查詢、修改 、增加、刪除，另外還考慮到學(xué)生選課，針對這些要求設(shè)計了學(xué)生成績管理系統(tǒng)。</p><p><b>　　目 錄</b></p><p>　　摘要....

8、.....................................................1</p><p>　　前言.........................................................2</p><p>　　第一章 需求分析..............................................4</

9、p><p>　　1.1 功能需求..........................................4</p><p>　　1.2 軟硬件環(huán)境要求....................................4</p><p>　　1.3 開發(fā)語言環(huán)境......................................4</p&g

10、t;<p>　　第二章 總體設(shè)計..............................................6</p><p>　　2.1 系統(tǒng)層次概況圖....................................6</p><p>　　2.2 系統(tǒng)模塊設(shè)計......................................7</p&

11、gt;<p>　　2.3 數(shù)據(jù)庫設(shè)計........................................8</p><p>　　第三章 詳細設(shè)置.............................................12</p><p>　　3.1 系統(tǒng)界面設(shè)置.....................................12<

12、/p><p>　　3.2 各功能的實現(xiàn).....................................18</p><p>　　第四章 網(wǎng)站的配置與運行.....................................27</p><p>　　4.1 系統(tǒng)調(diào)試與評價...................................27</p&

13、gt;<p>　　4.2 系統(tǒng)使用說明.....................................27</p><p>　　第五章 總結(jié).................................................29</p><p>　　第六章 主要參考文獻.........................................3

14、0</p><p><b>　　第一章 需求分析</b></p><p><b>　　1.1 功能需求</b></p><p>　　系統(tǒng)分析的過程可以說是一個對具體問題的反復(fù)理解和抽象的過程。理解就是對現(xiàn)實問題的理解，要弄清楚究竟需要解決什么問題。抽象就是除去問題的表面，提取問題的本質(zhì)，建立問題的邏輯模型，以便于以后階段

15、的系統(tǒng)的設(shè)計實現(xiàn)。需求分析階段是軟件產(chǎn)品生命周期中的一個重要階段，其根本任務(wù)是確定用戶對軟件系統(tǒng)的需求。所謂需求是指用戶對軟件的功能和性能的要求，就是用戶希望軟件能做什么事情，完成什么樣的功能，達到什么樣的性能。通常需求分兩種類型：一種是功能性需求，一種是非功能性需求，這一點也需要有一種清楚的認識。功能性需求是指需要計算機系統(tǒng)解決的問題，也就是對數(shù)據(jù)的處理要求，這是一類最主要的需求。非功能需求是指實際使用環(huán)境所要求的需求，往往是一些限制

16、要求。</p><p>　　例如：性能要求、可靠性要求、安全保密要求，等等。</p><p>　　通過調(diào)查,要求系統(tǒng)需要有以下功能:</p><p>　　1. 由于操作人員的計算機知識普遍較差,要求有良好的系統(tǒng)界面;</p><p>　　2. 由于該系統(tǒng)的使用對象多,要求有較好的權(quán)限管理; </p><p>　　3.

17、原始數(shù)據(jù)修改簡單方便,支持多條件修改;</p><p>　　4. 方便的數(shù)據(jù)查詢，支持多條件查詢;</p><p>　　5. 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；</p><p>　　6. 數(shù)據(jù)計算自動完成，盡量減少人工干預(yù);</p><p>　　1.2 軟硬件環(huán)境要求</p><p>　　本系統(tǒng)為一個小型

18、的編輯系統(tǒng)，所耗費的資源非常的小，具體的系統(tǒng)需求如下：</p><p>　　CPU:至少200MHz Intel Pentinm 處理器</p><p>　　操作系統(tǒng)：Windows 98第二版、Windows Me 、Windows NT4 、Windows2000或 Windows XP</p><p>　　內(nèi)存：至少６４mb可用系統(tǒng)內(nèi)存</p>

19、<p>　　硬盤：至少８５mb可用磁盤空間</p><p>　　顯示器：分辨率1024×768Pixels、16位色以上顯示器效果最佳</p><p>　　光驅(qū)：cd-rom驅(qū)動器</p><p>　　電腦無論是硬件還是軟件都能夠滿足條件，因此，本系統(tǒng)在運行上是可行的。</p><p>　　1.3 開發(fā)語言環(huán)境</p

20、><p>　　系統(tǒng)開發(fā)平臺：Visual Basic 6.0</p><p>　　數(shù)據(jù)庫管理系統(tǒng)軟件：Access</p><p>　　運行環(huán)境：Windows XP/ Windows 2003/ Windows 2000</p><p>　　本系統(tǒng)采用的軟件工具有: </p><p>　　Windows XP Micr

21、osoft Visual Basic 6.0 Microsoft office Access 2000</p><p><b>　　總體設(shè)計</b></p><p>　　2.1系統(tǒng)層次概況圖</p><p>　　系統(tǒng)層次的概括圖：其中包括學(xué)生成績信息E-R圖,學(xué)生課程信息E-R圖，系統(tǒng)總體信息E-R圖。</p><p>

22、;　　以下是學(xué)生成績信息的E-R圖:</p><p>　　圖2.1-1 學(xué)生成績信息的E-R圖</p><p>　　以下是學(xué)生課程信息的E-R圖:</p><p>　　圖2.1-2 學(xué)生課程信息的E-R圖</p><p>　　以下是系統(tǒng)總體信息的E-R圖：</p><p>　　圖2.1-3 系統(tǒng)總體信息的E-R圖<

23、;/p><p><b>　　2.2系統(tǒng)模塊設(shè)計</b></p><p>　　本系統(tǒng)的主要任務(wù)是實現(xiàn)對學(xué)校教導(dǎo)處的成績管理、課程管理及相關(guān)查詢。其主要功能包括：</p><p>　　2.2.1 學(xué)生成績管理功能</p><p>　　分數(shù)錄入,以班級為單位，錄入各科目的期中、期末、總評成績。</p><p&

24、gt;　　總分及名次,計算指定班級學(xué)生的總分及名次。</p><p>　　補考成績錄入,修改總評成績，以決定最終補考人數(shù)。</p><p>　　成績備份,為指定班級及指定的學(xué)期數(shù)的學(xué)生成績保存到備份數(shù)據(jù)庫中。</p><p>　　2.2.2 課程信息管理功能</p><p>　　課程管理,提供本學(xué)期各年級各專業(yè)所開課程名稱的錄入、修改、刪除

25、。它是學(xué)生成績管理的基礎(chǔ),用以保證數(shù)據(jù)庫中的性質(zhì)原則。</p><p>　　2.2.3 查詢功能</p><p>　　學(xué)生信息查詢,根據(jù)用戶的要求，查詢學(xué)生數(shù)據(jù)庫的所有可能的信息，其中包括成績查詢。</p><p>　　備份成績查詢,按班級為單位查詢備份數(shù)據(jù)庫的學(xué)生信息，補考情況。</p><p><b>　　2.3 數(shù)據(jù)庫設(shè)計&

26、lt;/b></p><p>　　本系統(tǒng)涉及到的信息主要有5類：學(xué)生信息、成績信息、教師信息、班級信息、后備信息。由于成績信息和教師信息與學(xué)生信息關(guān)系密切，因此將這三類信息存放在同一數(shù)據(jù)庫中，以提高多種信息同時讀取的速度。按以上分析，將系統(tǒng)的數(shù)據(jù)庫設(shè)計為二個:</p><p><b>　　一、學(xué)生數(shù)據(jù)庫：</b></p><p>　　該數(shù)

27、據(jù)庫為中包含有以下各表：</p><p>　　1、學(xué)生表：記錄學(xué)生的基本信息，是進行學(xué)生及其它各類信息處理的基礎(chǔ)。</p><p>　　2、成績表：記錄學(xué)生的期中、期末及總評的各科成績。</p><p>　　3、總分表：記錄學(xué)生的期中、期末及總評的總分及名次。</p><p>　　4、課程表：記錄各專業(yè)各年級開課情況，在添加學(xué)生記錄時，可根據(jù)

28、該表的情況決定在成績表添加學(xué)生記錄的個數(shù)。</p><p><b>　　二、后備數(shù)據(jù)庫：</b></p><p>　　該數(shù)據(jù)庫主要保存兩類信息：學(xué)生信息、成績信息。其數(shù)據(jù)表是按用戶的要求在運行過程中動態(tài)建立的。</p><p>　　2.3.1 數(shù)據(jù)項設(shè)計</p><p>　　1.班級信息（年級、專業(yè)名稱、班主任、教師編號

29、、人數(shù)、年制、備注）。</p><p>　　2.課程信息(專業(yè)、班級、學(xué)期、課程名稱、教材、任課教師、課時、 </p><p>　　上課地點、課程性質(zhì)、考試性質(zhì))。</p><p>　　3.成績信息(學(xué)號、姓名、年級、專業(yè)、學(xué)期、考試時間、考試科目、</p><p>　　考試地點、課程性質(zhì)、科目分數(shù))。</p><p>

30、;　　4.專業(yè)信息（專業(yè)名稱、備注）</p><p>　　5.學(xué)生信息(學(xué)號、姓名、年級、專業(yè)、性別、出生年月、民族、</p><p>　　籍貫、政治面貌、家庭地址、郵政編碼、聯(lián)系電話、入學(xué)時間、備注)</p><p>　　2.3.2 表設(shè)計 </p><p>　　表設(shè)計主要包括學(xué)生基本信息表，學(xué)生課程表，學(xué)生成績

31、表，學(xué)生總分表</p><p>　　1、學(xué)生基本信息表結(jié)構(gòu)，保存學(xué)生的基本信息：</p><p>　　下圖是學(xué)生基本信息表：</p><p>　　圖2.3.2-1 學(xué)生基本信息表</p><p>　　下圖是學(xué)生基本信息表的Access圖：</p><p>　　圖 2.3.2-2 學(xué)生信息表Access原圖</p&

32、gt;<p>　　2、學(xué)生課程表結(jié)構(gòu)，保存學(xué)生課程安排信息：</p><p><b>　　下圖是學(xué)生課程表：</b></p><p>　　圖2.3.2-3學(xué)生課程表</p><p>　　下圖是學(xué)生課程表Access原圖:</p><p>　　圖2.3.2-4 學(xué)生課程表Access原圖</p>

33、<p>　　3、學(xué)生成績表結(jié)構(gòu)，保存學(xué)生課程成績信息：</p><p><b>　　下圖是學(xué)生成績表：</b></p><p>　　圖2.3.2-5 學(xué)生成績表</p><p>　　圖2.3.2-6學(xué)生成績表Access原圖</p><p>　　4、學(xué)生總分表結(jié)構(gòu)，保存學(xué)生每學(xué)期的成績信息：</p>

34、;<p><b>　　下圖是學(xué)生總分表：</b></p><p>　　圖2.3.2-7學(xué)生總分表</p><p>　　本系統(tǒng)中使用到的數(shù)據(jù)表主要有班級表、成績表、課程表、學(xué)生檔案、用戶資料，由這六個表，組成了名為信息的數(shù)據(jù)庫。</p><p>　　其中學(xué)生檔案是本系統(tǒng)主要的一張表，所有信息都是根據(jù)這張學(xué)生檔案進行有關(guān)的操作，主要的

35、字段有：學(xué)號、姓名、年級、專業(yè)、性別、出生年月、民族、籍貫、政治面貌、家庭地址、郵政編碼、聯(lián)系電話、入學(xué)時間、備注。其中日期的數(shù)據(jù)類型為日期/時間型，其它的數(shù)據(jù)類型為文本型；成績表中字段為：學(xué)號、姓名、年級、專業(yè)、學(xué)期、考試時間、考試科目、考試地點、課程性質(zhì)、科目分數(shù)、違紀(jì)類型、備注；課程表中字段為：專業(yè)、年級、學(xué)期、課程名稱、教材、任課老師、課時、上課地點、課程性質(zhì)、考試性質(zhì)；用戶資料中的字段包括：用戶名、密碼、身份。</p&g

36、t;<p>　　數(shù)據(jù)庫與VB的連接：本系統(tǒng)的數(shù)據(jù)鏈接采用的是ADO方法，打開控制面板，打開ODBC數(shù)據(jù)源圖標(biāo)，選擇“系統(tǒng)DSN”標(biāo)簽，點擊“添加”按鈕，在彈出的“創(chuàng)建新數(shù)據(jù)源”對話框中選擇名稱為“Microsoft Access Drive（*.mdb）”，點擊“完成”按鈕，在ODBC Microsoft Access 安裝對話框中在數(shù)據(jù)源名中輸入信息，在數(shù)據(jù)庫這個框中， 單擊“選擇”按鈕，在彈出的選擇數(shù)據(jù)庫這一對話框架中

37、，在驅(qū)動器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫所在驅(qū)動器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“Access數(shù)據(jù)庫（*.mdb）”，在數(shù)據(jù)庫名中選擇本系統(tǒng)的數(shù)據(jù)庫，點擊“確定”按鈕即完成數(shù)據(jù)鏈接。</p><p>　　在VB中，用ADODC鏈接數(shù)據(jù)庫，用DataGrid或DATA將庫中的數(shù)據(jù)在界面中顯示出來，本系統(tǒng)采用DataGrid。在界面上右擊Adodc控制，在彈出的快捷菜單中選擇屬性，在屬性對話框中，在“

38、屬性”這一標(biāo)簽中， 選中單選框“Use ODBC Data Source Name”，并在下拉文本框中選擇已經(jīng)配置好的數(shù)據(jù)源名信息，再在“RecordSoure”標(biāo)簽中，在Command Text（SQL）文本框中輸入查詢語句，如：select * from 學(xué)生檔案。同時，將桌面的DataGrid控件選中，在屬性框中，將它的Datasoure設(shè)為Adodc。</p><p>　　我們可以設(shè)置DataGrid控件

39、的外觀：選中該控件，右擊，在彈出的快捷菜單中選擇“檢索字段”，在彈出的對話框中單擊“確定”，這時，表格中出現(xiàn)了表的字段。然后再右擊，同樣，在彈出的快捷菜單中選擇“編輯”，我們就可以所在的表格的寬度進行調(diào)整。</p><p><b>　　第三章 詳細設(shè)置</b></p><p>　　根據(jù)系統(tǒng)的主要功能及上一章的總體設(shè)計，系統(tǒng)開發(fā)進入第二個階段：詳細設(shè)計。在這一階段的工

40、作中，主要任務(wù)有以下幾項：</p><p>　　1、根據(jù)原型化的開發(fā)原則，為系統(tǒng)的每個模塊功能進行界面設(shè)計，作為進一步優(yōu)化的基礎(chǔ)。</p><p>　　2、進行系統(tǒng)的流程分析，為模塊的細化做好準(zhǔn)備。</p><p>　　3、對每個模塊進行詳細的算法設(shè)計。 </p><p>　　3.1 系統(tǒng)界面設(shè)計 </p><p>

41、　　登錄及系統(tǒng)主窗口界面設(shè)計</p><p>　　該部分界面主要包括登錄窗口、系統(tǒng)主窗口、修改密碼窗口。</p><p><b>　　登陸界面:</b></p><p>　　本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在用戶資料表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用1，1為用戶名和密碼來登陸本系統(tǒng)。<

42、/p><p>　　圖3.1.1-1 登錄界面</p><p><b>　　下圖是其屬性列表:</b></p><p>　　該界面主要是用來在登錄系統(tǒng)主窗口界面前的一個前置，需要帳號和密碼才能夠登錄系統(tǒng)，并且登錄系統(tǒng)用的身份是不一樣的，一個是管理員，一個是用戶。</p><p><b>　　其代碼為:</b&

43、gt;</p><p>　　Dim myCon As New ADODB.Connection </p><p>　　Dim myRs As New ADODB.Recordset </p><p>　　Dim zong As Integer</p><p>　　Private Sub Command1_Click()<

44、/p><p>　　Dim sqldl As String</p><p>　　Dim sf As String</p><p>　　If zong = 3 Then </p><p><b>　　Unload Me</b></p><p><b>　　Exit Sub</b>

45、</p><p><b>　　End If </b></p><p>　　myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;" </p><p>　　If Trim(Text1.Text = "") Then<

46、;/p><p>　　MsgBox ", vbOKOnly + vbExclamation, </p><p>　　Text1.SetFocus</p><p>　　Text2.Text = ""</p><p>　　myCon.Close</p><p>　　zong = zong + 1

47、 </p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　'myRs.CursorType = adOpenKeyset</p><p>　　'myRs.LockType = adLockOptimi

48、stic</p><p>　　sqldl = "select * from 用戶資料 where 用戶名='" & Text1.Text & "' "</p><p>　　myRs.Open sqldl, myCon</p><p>　　If myRs.EOF = True Then</p

49、><p>　　MsgBox "沒有這個用戶,請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = "

50、;"</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　zong = zong + 1</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p>

51、<p>　　If myRs.Fields("密碼") <> Trim(Text2.Text) Then</p><p>　　MsgBox "密碼不正確,請重新輸入!", vbOKOnly + vbExclamation, "警告"</p><p>　　Text2.SetFocus</p>&

52、lt;p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　zong = zong + 1</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If myRs

53、.Fields("身份") <> Combo1.Text Then</p><p>　　MsgBox "身份不正確,請重新選擇!", vbOKOnly + vbExclamation, "警告"</p><p>　　Combo1.SetFocus</p><p>　　myRs.Close<

54、/p><p>　　myCon.Close</p><p>　　zong = zong + 1</p><p><b>　　Exit Sub</b></p><p><b>　　End If </b></p><p>　　sf = myRs.Fields("身份&qu

55、ot;)</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　XingMing = Text1.Text</p><p><b>　　Unload Me</b></p><p>　　Frm_Main.Show</p><p&

56、gt;　　If sf = "管理員" Then</p><p>　　Frm_Main.Mun_LiulanUser.Enabled = True</p><p><b>　　admin = 1</b></p><p><b>　　Else</b></p><p>　　Frm_Ma

57、in.Mun_LiulanUser.Enabled = False</p><p>　　Frm_Main.Mun_DelUser.Enabled = False</p><p>　　Frm_Main.Mun_AddUser.Enabled = False</p><p>　　Frm_Main.Mun_AddClass.Enabled = False</p>

58、;<p>　　Frm_Main.Mun_AddDangA.Enabled = False</p><p>　　Frm_Main.Mun_ShezGrean.Enabled = False</p><p>　　Frm_Main.Mun_AddChengJ.Enabled = False</p><p>　　Frm_Main.Mun_ChengJWeiG.

59、Enabled = False</p><p><b>　　admin = 0</b></p><p><b>　　End If</b></p><p>　　'If sf = "管理員" Then</p><p>　　'admin = 1</p>&

60、lt;p><b>　　'Else</b></p><p>　　'admin = 0</p><p><b>　　'End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2

61、_Click()</p><p>　　Dim anw As Integer</p><p>　　anw = MsgBox("確定要退出系統(tǒng)嗎？", vbYesNo, "請問")</p><p>　　If anw = 6 Then</p><p><b>　　Unload Me</b>

62、;</p><p><b>　　Else</b></p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　End If&l

63、t;/b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p><b>　　zong = 0</b></p><p>　　Text1.Text = ""</p><p&g

64、t;　　Text2.Text = ""</p><p>　　Combo1.Text = ""</p><p>　　Combo1.AddItem ("管理員")</p><p>　　Combo1.AddItem ("用戶")</p><p><b>　　E

65、nd Sub</b></p><p>　　Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)</p><p>　　If KeyCode = 13 Then</p><p>　　Text2.SetFocus</p><p><b>　　End If

66、</b></p><p><b>　　End Sub</b></p><p><b>　　3.1.2系統(tǒng)界面</b></p><p>　　本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有6個功能菜單和17個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從課程管理、成績管理、班級管理、檔案管理、幫助等系統(tǒng)的

67、具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。</p><p>　　圖3.1.2-1系統(tǒng)主界面</p><p><b>　　其代碼為:</b></p><p>　　Private Sub MDIForm_Load()</p><p><b>　　End Sub</b></p&g

68、t;<p>　　Private Sub Mun_About_Click()</p><p>　　frm_About.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_AddChengJ_Click()</p><p>　　Frm_AddCh

69、engJ.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_AddClass_Click()</p><p>　　Frm_AddClass.Show 1</p><p><b>　　End Sub</b></p>&l

70、t;p>　　Private Sub Mun_AddDangA_Click()</p><p>　　Frm_AddDangA.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_AddJiaoF_Click()</p><p>　　Frm_AddStr

71、uJF.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_AddUser_Click()</p><p>　　Frm_AddUser.Show 1</p><p><b>　　End Sub</b></p><p

72、>　　Private Sub Mun_ChengJCount_Click()</p><p>　　Frm_CountChengJ.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_ChengJWeiG_Click()</p><p>　　Frm_S

73、truWeiG.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_ChenJCount_Click()</p><p>　　Frm_CountChengJ.Show 1</p><p><b>　　End Sub</b></p

74、><p>　　Private Sub Mun_ClassCount_Click()</p><p>　　Frm_CountClass.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_Czsm_Click()</p><p>　　fr

75、m_ShuoMing.Show 1</p><p><b>　　End Sub</b></p><p>　　Pivate Sub Mun_DandACount_Click()</p><p>　　Frm_CountDangA.Show 1</p><p><b>　　End Sub</b></

76、p><p>　　Private Sub Mun_DelUser_Click()</p><p>　　Frm_DelUser.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_Exit_Click()</p><p>　　Dim anw

77、 As Integer</p><p>　　anw = MsgBox("確定要退出系統(tǒng)嗎？", vbYesNo, "提示！")</p><p>　　If anw = 6 Then</p><p><b>　　Unload Me</b></p><p><b>　　End

78、If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_FindChengJ_Click()</p><p>　　Frm_FindChengJ.Show 1</p><p><b>　　End Sub</b></p>

79、;<p>　　Private Sub Mun_FindClass_Click()</p><p>　　Frm_FindClass.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_FindDangA_Click()</p><p>　　Fr

80、m_FindDangA.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_FindGrean_Click()</p><p>　　Frm_FindGrean.Show 1</p><p><b>　　End Sub</b></

81、p><p>　　Private Sub Mun_FindJiaoF_Click()</p><p>　　Frm_FindStruJF.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_GreanCount_Click()</p><p&g

82、t;　　Frm_CountGrean.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_JiaoFCount_Click()</p><p>　　Frm_CountJiaoF.Show 1</p><p><b>　　End Sub</b

83、></p><p>　　Private Sub Mun_LiulanUser_Click()</p><p>　　Frm_LiulanUser.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_Possword_Click()</p>

84、<p>　　Frm_UpdatePass.Show 1</p><p><b>　　End Sub</b></p><p>　　Private Sub Mun_ShezGrean_Click()</p><p>　　Frm_SheZGrean.Show 1</p><p><b>　　End Sub

85、</b></p><p>　　Private Sub Mun_UpLogin_Click()</p><p>　　If MsgBox("若重新登錄，所有窗體都將關(guān)閉！是否重新登錄？", vbQuestion + vbYesNo + vbDefaultButton2, "重新登錄") = vbYes Then</p><

86、p><b>　　Unload Me</b></p><p>　　Frm_Login.Show</p><p><b>　　End If</b></p><p>　　End Sub3.2 </p><p>　　3.2 各功能的實現(xiàn)</p><p>　　3.2.1 課程管理

87、：課程設(shè)置（界面如圖3.2.1-1）</p><p>　　圖3.2.1-1課程信息設(shè)置</p><p>　　運行程序后，進入課程管理模塊，課程管理模塊的第一塊是課程設(shè)置，在這模塊中可以把專業(yè)、年級、學(xué)期、課程名稱、教材、任課老師、課時、上課地點、課程性質(zhì)和考試性質(zhì)等信息輸入，以便使用?？梢詫W(xué)生課程進行添加、刪除、修改操作。</p><p><b>　　其

88、主要代碼為：</b></p><p>　　myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;"</p><p>　　myRs.Open "select * from 課程表 where 專業(yè)= '" & Trim(Text1.Text) &am

89、p; "' and 年級='" & Trim(Text2.Text) & "' and 課程名稱='" & Trim(Text4.Text) & "' ", myCon</p><p>　　If myRs.EOF = False Then</p><p>　

90、　MsgBox "該課程已經(jīng)存在，請重新輸入！"</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　

91、End If</b></p><p>　　myRs.Close</p><p>　　3.2.2 課程查詢（按查詢類別查詢，界面如圖3.2.2-2）</p><p>　　圖3.2.2-1 課程信息查詢</p><p>　　運行程序后，可以對學(xué)生課程進行按查詢類別查詢。</p><p>　　當(dāng)輸入查詢類別、運算

92、符和條件后可以查找到所需要的課程設(shè)置，或按查詢時間來查詢，輸入所要查找的時間段，就可查到所要的課程設(shè)置。</p><p><b>　　其主要代碼為：</b></p><p>　　If Val(Combo6) > Val(Combo9) Then</p><p>　　MsgBox "請正確選擇年份！", vbOKOnly

93、 + vbExclamation, "信息提示"</p><p>　　Combo6.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　If Val(Combo6) = Val(Combo9)

94、Then</p><p>　　If Val(Combo7) > Val(Combo10) Then</p><p>　　MsgBox "請正確選擇月份！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Combo7.SetFocus</p><p><

95、;b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　If Val(Combo7) = Val(Combo10) Then</p><p>　　If Val(Combo8) > Val(Combo11) Then</p><p>　　MsgBox &

96、quot;請正確選擇日期！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Combo8.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>

97、<b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　3.2.3 成績管理：成績設(shè)置（界面如圖3.2.3-

98、1）</p><p>　　圖3.2.3-1 成績信息設(shè)置</p><p>　　運行程序后，進入成績管理模塊，成績管理模塊的第一塊是成績設(shè)置，在這模塊中可以把學(xué)號、姓名、年級、專業(yè)、學(xué)期、考試時間、考試科目、考試地點、課程性質(zhì)和考試性質(zhì)等信息輸入，以便使用。可以對學(xué)生成績進行添加、刪除、修改操作。</p><p><b>　　其主要代碼為：</b>

99、;</p><p>　　myRs.Open "成績表", myCon, 3, 2</p><p>　　myRs.AddNew '添加</p><p>　　myRs.Fields("學(xué)號") = Text1.Text</p><p>　　myRs.Fiel

100、ds("姓名") = Text2.Text</p><p>　　myRs.Fields("年級") = Text3.Text</p><p>　　myRs.Fields("專業(yè)") = Text4.Text</p><p>　　myRs.Fields("學(xué)期") = DTPicker1.

101、Value</p><p>　　myRs.Fields("考試時間") = DTPicker2.Value</p><p>　　myRs.Fields("考試科目") = Text6.Text</p><p>　　myRs.Fields("考試地點") = Text7.Text</p><

102、;p>　　myRs.Fields("課程性質(zhì)") = Combo2.Text</p><p>　　myRs.Fields("科目分數(shù)") = Text8.Text</p><p>　　myRs.Update</p><p>　　myRs.Close</p><p>　　myCon.Close<

103、;/p><p>　　MsgBox "添加成功!"</p><p>　　Adodc1.RecordSource = "select 學(xué)號,姓名,年級,專業(yè),學(xué)期,考試時間,考試科目,考試地點,課程性質(zhì),科目分數(shù) from 成績表 order by 學(xué)號"</p><p>　　Frm_AddChengJ.Adodc1.Refresh&

104、lt;/p><p>　　Frm_AddChengJ.DataGrid1.Refresh</p><p>　　3.2.4成績查詢（按查詢類別，界面如圖3.2.4-1）</p><p>　　圖3.2.4-1 成績信息查詢</p><p>　　運行程序后，可以對學(xué)生檔案進行按查詢類別查詢。</p><p>　　成績查詢（按查詢時

105、間，界面如圖3.2.4-2）</p><p>　　圖3.2.4-2 成績信息查詢</p><p>　　運行程序后，可以對學(xué)生檔案進行按時間查詢。</p><p><b>　　其主要代碼為：</b></p><p>　　If (CJCX1 & CJCX2) = "" Then</p>

106、<p>　　MsgBox "請輸入查詢類別！", vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p><b>　　Unload Me</b></p&

107、gt;<p>　　Frm_UpdateChengJ.Show 1</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If Option4.Value = True Then</p><p>　　If Val(Comb

108、o6) > Val(Combo9) Then</p><p>　　MsgBox "請正確選擇年份！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Combo6.SetFocus</p><p><b>　　Exit Sub</b></p>&

109、lt;p><b>　　Else</b></p><p>　　If Val(Combo6) = Val(Combo9) Then</p><p>　　If Val(Combo7) > Val(Combo10) Then</p><p>　　MsgBox "請正確選擇月份！", vbOKOnly + vbExclam

110、ation, "信息提示"</p><p>　　Combo7.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　If Val(Combo7) = Val(Combo10) Then</p

111、><p>　　If Val(Combo8) > Val(Combo11) Then</p><p>　　MsgBox "請正確選擇日期！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Combo8.SetFocus</p><p><b>　　Ex

112、it Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p>

113、<p><b>　　End If</b></p><p>　　If Combo6.Text = "" Or Combo7.Text = "" Or Combo8.Text = "" Or Combo9.Text = "" Or Combo10.Text = "" Or Combo11

114、.Text = "" Then</p><p>　　MsgBox "請輸入完整的日期", vbOKOnly, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>

115、　　3.2.5學(xué)生考試違規(guī)管理（界面如圖3.2.5-1）</p><p>　　圖3.2.5-1 學(xué)生考試違規(guī)管理</p><p>　　運行程序后可以查看學(xué)生在什么時間什么地點是否有考試違紀(jì)的信息。</p><p><b>　　其主要代碼為：</b></p><p>　　If Trim(XueHao) = "&q

116、uot; Or Trim(XingMing) = "" Or Trim(NianJi) = "" Or Trim(ZhuanYe) = "" Or Trim(KaoSKM) = "" Or Trim(KaoSDD) = "" Then</p><p>　　MsgBox "學(xué)生考試違規(guī)資料不能為空,請?zhí)顚懀?/p>

117、"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=信息.mdb;"</p><p&

118、gt;　　myRs.Open "select * from 成績表 where 學(xué)號 = '" & XueHao & "'", myCon</p><p>　　If myRs.EOF = False Then</p><p>　　MsgBox "該學(xué)生已經(jīng)存在，請重新輸入！"</p>

119、<p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　myRs.Cl

120、ose</p><p>　　myRs.Open "成績表", myCon, 3, 2</p><p>　　myRs.AddNew</p><p>　　myRs.Fields("學(xué)號") = Text1.Text</p><p>　　myRs.Fields("姓名") = Text2.

121、Text</p><p>　　myRs.Fields("年級") = Text3.Text</p><p>　　myRs.Fields("專業(yè)") = Text4.Text</p><p>　　myRs.Fields("學(xué)期") = DTPicker1.Value</p><p>　

122、　myRs.Fields("考試時間") = DTPicker2.Value</p><p>　　myRs.Fields("考試科目") = Text6.Text</p><p>　　myRs.Fields("考試地點") = Text7.Text</p><p>　　myRs.Fields("違

123、紀(jì)類型") = Text8.Text</p><p>　　If Text9.Text = "" Then</p><p>　　Text9.Text = " "</p><p><b>　　Else</b></p><p>　　myRs.Fields("備注&qu

124、ot;) = Text9.Text</p><p><b>　　End If</b></p><p>　　myRs.Update</p><p>　　myRs.Close</p><p>　　myCon.Close</p><p>　　MsgBox "添加成功!"</p&

125、gt;<p>　　Frm_StruWeiG.Adodc1.RecordSource = "select 學(xué)號,姓名,年級,專業(yè),學(xué)期,考試時間,考試科目,考試地點,違紀(jì)類型,備注 from 成績表 order by 學(xué)號"</p><p>　　Frm_StruWeiG.Adodc1.Refresh </p><p>　　Frm_StruWeiG.Dat

126、aGrid1.Refresh</p><p>　　第四章 系統(tǒng)開發(fā)關(guān)鍵技術(shù)</p><p>　　4.1系統(tǒng)調(diào)試與評價</p><p>　　在程序編寫完成以后，即使出現(xiàn)了問題，也解決了，但是由于應(yīng)用環(huán)境和人為因素，還會出現(xiàn)運行錯誤。</p><p>　　對于這些可以預(yù)料的錯誤，可以通過一些出來語句來進行控制，但是有些錯誤則是無法控制的，這種錯

127、誤一旦發(fā)生，將使程序不能正常執(zhí)行，嚴重時將使程序崩潰。這里可以利用Visual Basic的錯誤處理語句和Err對象來對其進行處理。</p><p>　　錯誤處理過程中使用的Err對象的Description屬性包含與對象相關(guān)聯(lián)的描述性字符串，即將產(chǎn)生的錯誤，以對話框的形式提示出來，這樣用戶就可以在不結(jié)束程序運行的情況下，將錯誤糾正過來。</p><p>　　盡管本管理系統(tǒng)存在著很多不足，

128、但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是本管理系統(tǒng)所必需的。相信本學(xué)生管理系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件。</p><p><b>　　4.2系統(tǒng)使用說明</b></p><p><b>　　操作注意事項</b></p><p>　　用戶在使用《學(xué)生成績管理

129、系統(tǒng)》之前，應(yīng)注意以下事項：</p><p>　?。?）本系統(tǒng)的初始用戶名為：1，密碼為：1</p><p>　?。?）編號由系統(tǒng)自動生成</p><p>　　（3）系統(tǒng)中的許多模塊都設(shè)置了快捷鍵，使用戶完全可以通過鍵盤操作這些模塊。</p><p><b>　　業(yè)務(wù)流程</b></p><p>

130、　　在使用本系統(tǒng)時，請按照以下流程進行操作：</p><p>　　(1)在“系統(tǒng)管理”/“添加用戶”模塊，對用戶進行添加。</p><p>　　(2)在“系統(tǒng)管理”/“修改密碼”模塊，對用戶進行修改密碼。</p><p>　　(3)在“課程管理”/“課程查詢”,可以查看課程信息。</p><p>　　(4)在“課程管理”/“課程設(shè)置”,可以查

131、詢,添加,修改,刪除課程信息。</p><p>　　(5)在“成績管理”/“成績查詢”,可以查看學(xué)生成績信息。</p><p>　　(6)在“成績管理”/“成績增加”, 查詢,添加,修改,刪除成績信息。</p><p>　　(7)在“成績管理”/“學(xué)生考試違規(guī)管理”,可以查看學(xué)生考試違規(guī)的信息</p><p>　　(8) 在“幫助”/“操作說

132、明”,可以查看一些系統(tǒng)操作說明。</p><p>　　(9)在“學(xué)生成績管理”/“專業(yè)課成績管理”,可以查看,添加,刪除,修改專業(yè)課的成績。</p><p>　　(10)在“學(xué)生成績管理”/“選修課成績管理”,可以查看,添加,刪除,修改選修課的成績。</p><p>　　(11)在“幫助”/“操作說明”,可以查看一些系統(tǒng)的信息。</p><p&g