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

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

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

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

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

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

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

7、統(tǒng)，直接查閱相應的信息。</p><p>　　本系統(tǒng)主要用于學校學生成績管理，總體任務是實現(xiàn)學生成績關系的系統(tǒng)化、規(guī)范化和自動化，其主要任務是用計算機對學生各種信息進行日常管理，如查詢、修改 、增加、刪除，另外還考慮到學生選課，針對這些要求設計了學生成績管理系統(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>　　第二章 總體設計..............................................6</p><p>　　2.1 系統(tǒng)層次概況圖....................................6</p><p>　　2.2 系統(tǒng)模塊設計......................................7</p&

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

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

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

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

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

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

17、原始數(shù)據(jù)修改簡單方便,支持多條件修改;</p><p>　　4. 方便的數(shù)據(jù)查詢，支持多條件查詢;</p><p>　　5. 在相應的權限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好；</p><p>　　6. 數(shù)據(jù)計算自動完成，盡量減少人工干預;</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>　　內存：至少６４mb可用系統(tǒng)內存</p>

19、<p>　　硬盤：至少８５mb可用磁盤空間</p><p>　　顯示器：分辨率1024×768Pixels、16位色以上顯示器效果最佳</p><p>　　光驅：cd-rom驅動器</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>　　總體設計</b></p><p>　　2.1系統(tǒng)層次概況圖</p><p>　　系統(tǒng)層次的概括圖：其中包括學生成績信息E-R圖,學生課程信息E-R圖，系統(tǒng)總體信息E-R圖。</p><p>

22、;　　以下是學生成績信息的E-R圖:</p><p>　　圖2.1-1 學生成績信息的E-R圖</p><p>　　以下是學生課程信息的E-R圖:</p><p>　　圖2.1-2 學生課程信息的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)模塊設計</b></p><p>　　本系統(tǒng)的主要任務是實現(xiàn)對學校教導處的成績管理、課程管理及相關查詢。其主要功能包括：</p><p>　　2.2.1 學生成績管理功能</p><p>　　分數(shù)錄入,以班級為單位，錄入各科目的期中、期末、總評成績。</p><p&

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

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

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

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

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

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

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

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

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

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

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

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

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

37、，在驅動器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫所在驅動器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“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、屬性”這一標簽中， 選中單選框“Use ODBC Data Source Name”，并在下拉文本框中選擇已經配置好的數(shù)據(jù)源名信息，再在“RecordSoure”標簽中，在Command Text（SQL）文本框中輸入查詢語句，如：select * from 學生檔案。同時，將桌面的DataGrid控件選中，在屬性框中，將它的Datasoure設為Adodc。</p><p>　　我們可以設置DataGrid控件

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

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

41、　　登錄及系統(tǒng)主窗口界面設計</p><p>　　該部分界面主要包括登錄窗口、系統(tǒng)主窗口、修改密碼窗口。</p><p><b>　　登陸界面:</b></p><p>　　本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在用戶資料表中，本系統(tǒng)根據(jù)不同的用戶而設置了不同的權限，可以用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)的應用界面，在本界面上集成了本系統(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("若重新登錄，所有窗體都將關閉！是否重新登錄？", 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、：課程設置（界面如圖3.2.1-1）</p><p>　　圖3.2.1-1課程信息設置</p><p>　　運行程序后，進入課程管理模塊，課程管理模塊的第一塊是課程設置，在這模塊中可以把專業(yè)、年級、學期、課程名稱、教材、任課老師、課時、上課地點、課程性質和考試性質等信息輸入，以便使用。可以對學生課程進行添加、刪除、修改操作。</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 "該課程已經存在，請重新輸入！"</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>　　運行程序后，可以對學生課程進行按查詢類別查詢。</p><p>　　當輸入查詢類別、運算

92、符和條件后可以查找到所需要的課程設置，或按查詢時間來查詢，輸入所要查找的時間段，就可查到所要的課程設置。</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 成績管理：成績設置（界面如圖3.2.3-

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

99、;</p><p>　　myRs.Open "成績表", myCon, 3, 2</p><p>　　myRs.AddNew '添加</p><p>　　myRs.Fields("學號") = 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("學期") = 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("課程性質") = 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 學號,姓名,年級,專業(yè),學期,考試時間,考試科目,考試地點,課程性質,科目分數(shù) from 成績表 order by 學號"</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>　　運行程序后，可以對學生檔案進行按查詢類別查詢。</p><p>　　成績查詢（按查詢時

105、間，界面如圖3.2.4-2）</p><p>　　圖3.2.4-2 成績信息查詢</p><p>　　運行程序后，可以對學生檔案進行按時間查詢。</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學生考試違規(guī)管理（界面如圖3.2.5-1）</p><p>　　圖3.2.5-1 學生考試違規(guī)管理</p><p>　　運行程序后可以查看學生在什么時間什么地點是否有考試違紀的信息。</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 "學生考試違規(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 學號 = '" & XueHao & "'", myCon</p><p>　　If myRs.EOF = False Then</p><p>　　MsgBox "該學生已經存在，請重新輸入！"</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("學號") = 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("學期") = 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、紀類型") = 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 學號,姓名,年級,專業(yè),學期,考試時間,考試科目,考試地點,違紀類型,備注 from 成績表 order by 學號"</p><p>　　Frm_StruWeiG.Adodc1.Refresh </p><p>　　Frm_StruWeiG.Dat

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

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

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

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

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

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

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