壹 . 引言
1.系統名稱：學生成績管理信息系統
2.開發目標：開發出壹個操作簡便，界面友好，靈活實用，安全可靠的學生成績管理信息系統。
該系統的開發以教務管理人員和任課教師服務為對象，能夠提高學校對學生成績的統計分析效率，減輕教務管理人員對學生成績管理和統計的負擔，提高學校對學生成績的規範化管理。
該成績管理系統能夠及時對學生成績進行收集整理，使學校相關部門及時獲取可靠的學生成績信息，便於管理。
3.主要功能：
本系統的使用者根據其使用者------教務處管理人員和任課教師-----可分為以下幾方面：
（1）教務處管理人員登陸後，進入教務人員管理模塊，可以進行個人信息查詢，教師住處職稱工資情況的查詢，學生信息查詢，成績查詢以及退出系統等操作。
（2）教師登陸教師管理子系統，要能夠對學生成績進行權限範圍內的錄入、添加、修改、刪除、查詢；查詢教師信息、更改個人登陸密碼、修改個人信息等；
（3）學生單科成績、全科成績的總分、平均分，最高分、最低分，排序等計算和統計實現自動化；可以按班級、按個人進行信息查詢；信息可以發布到網絡，以實現數據***享；
（4）能夠自動進行錄入錯誤檢查
4.開發背景
每個學校都需要在學期末進行期末考試成績的統計分析工作，而這些工作都必須在考試結束後近壹個星期的時間內完成。大量的成績數據的統計分析工作如果只靠人工來完成，費時費力，還容易出錯。隨著計算機技術的飛速發展，計算機在日常管理應用中迅速普及，利用計算機進行學生成績管理勢在必行。因此需開發出壹個能滿足學校進行成績的錄入，統計，查詢，報表和打印等需求的、功能完善、安全可靠、迅速簡便的成績管理信息系統。
二. 系統目標和開發的可行性
1.系統目標：
(1)為教務處管理人員提供各學期、各年級、各班級學生的基本成績信息，以作為其進行成績匯總，分析和考績和總結評比的依據。
(2)方便各任課教師記錄，統計所帶班學生成績，提高工作效率，減輕負擔；總結經驗，提高教學質量。
(3)實現快速方便地處理大量成績數據信息，完成成績的錄入、添加、修改、刪除、統計、查詢、排序等處理要求。
(4)輸出和打印成績單和各種成績報表。
2.開發的可行性
(1)系統的名稱、功能、目標等已如前所述，此地不再重復。
(2)系統環境以及工具：
A. 軟件環境：
用戶端：Windows2000，Windows2003，Windows XP
服務器端：WindowsNT/Windows2000及以上操作系統
編程語言：SOL
數據庫：Access2003
B 硬件環境：
有高性能的電子計算機、大容量的存貯裝置，個人電腦（終端）以及聯結起來的網線等，組成信息資源***享的計算機網絡，有***享的打印機，掃描儀等等
（3）系統設計原則：
1) 系統運行安全可靠，穩定性好；
2) 系統的可管理性和可維護性好；
3) 系統輸入界面友好，操作簡便易行，盡量減少用戶的輸入工作量；
4）允許多種數據輸入方式，能實現多種查詢，允許進行模糊查詢；
5）數據具有規範性，整體性，方便數據之間的比較分析。
（4）系統可行性分析：
A． 技術可行性：系統要求在windows2000以上環境運行，後臺數據庫采用access2003，使用SOL編程，采用ADO方式連接數據庫，這些在目前都是容易實現的。程序將部分需要經常調用的數據存入內存，可提高程序運行速度．
B．經濟可行性：在經濟上，用此系統加強了成績信息管理效率，為教務人員提供了較高的效率，可節省人力資源的開支。
C．管理的可行性：在工作上，教務人員管理學生信息量非常大，開發了此系統，可極大提高教務人員的工作的效率。方便成績的儲存和修改，及以後隨時查詢成績信息，是壹個比較人性化的管理系統。
（5）．系統分析結論：
由以上分析得出，本系統可進行開發。
三. 現行系統概況
1.現行系統現狀調查
現有的學生成績管理系統主要是以成績數據信息的存儲和統計為目標，而且系統的設計繁瑣，管理不夠專人化，需要的人員過多，因此系統的安全性保密性不好；查詢功能簡單，數據***享性不高。
2.系統需求說明
（1）系統需要在實現數據錄入，存儲，統計自動化的基礎上增強查詢功能；
（2）要能夠充分利用網絡擴大信息***享程度；
（3）設專人管理員，明確劃分管理權限，規範管理，以提高系統的安全性保密性。
四. 新系統的邏輯方案
1.業務流程圖
2．數據流程圖
（1）頂層圖：
（2）第壹層：
（3）第二層：
A:身份驗證圖：
B:成績變動處理科：
C:教務人員身份驗證：
3.數據字典
A:數據存儲條目：
編號 名稱 組成
D1.1
教師信息表 教師編號,教師姓名,教師職稱,所教班級,所在學院
D1.2
學生成績記錄單 學生學號，姓名，課程名稱，課程編號，課程成績，教師編號
D1.3
教務人員信息表 教務人員姓名，編號，職稱
D1.4
反饋信息表 教務處人員信息後對教師的評價，學生成績的分析
B:數據加工條目：
編號 名稱 輸入 處理邏輯 輸出
P1.1 身份驗證處理 教師登陸信息 檢驗教師教工號與密碼是否壹致 ———
P1.2 成績變動處理 學生學科成績 錄入、修改、刪除成績並檢驗是否輸入錯誤 學生成績記錄單
P1.3 成績查詢處理 學生班別、學號、姓名 查詢學生成績，排序等 學生成績記錄單
P1.4
身份驗證處理 教務人員登陸信息量 檢驗教務人員編號與密碼 ———
P1.5 成績查詢處理 學院編號、年級、學號 查詢班級成績、排序及學期平均分等 學生成績記錄單及對教師的反饋信息
C:數據元素項目：
編號 名稱 數據類型 長度 小數位 取值範圍 說明
01 教師編號 N 8 0
02 教師名字 C 8
03 教師職稱 C 6
04 所教班級 N 8 0
05 學生學號 N 8 0
06 學生姓名 C 8
07 課程名稱 C 16
08 課程編號 N 10
09 成績 N 3 1 0~~100
10 教務人員編號 N 8 0
11 教務人員姓名 C 8
12 教務人員職稱 C 6
五．系統實施計劃：
1．工作任務分工：
系統初步規劃：
實驗報告填寫及圖表繪制：
系統編程：，
後期系統檢測完善：
2．進度安排：
系統分析階段：2006.6.11—2..6.6.13
系統設計階段：20066.20—2006.6.24
系統實施階段：2006.25—2006.6.29
__________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
2系統設計報告：
系統設計報告
壹、概述
以需求分析說明書為依據，針對教務管理人員及教師對學生成績的管理需求，參照現有的開發環境，利用可用資源和使用環境，設計出能滿足相應功能的特點,構造並確定出類和類成員函數。
二、環境說明
1．硬件環境：CPU型號為Pentium Ⅲ以上，內存128M以上。
系統環境：Windows98 及WindowsXP等系統均可。
2．開發環境：Access軟件下開發，此軟件是面向對象的開發工具，易於上手，而且界面比較友好
三、模塊圖
四、功能模塊
本系統大致分為如下四大功能模塊。
1．用戶登陸模塊
用戶登陸模塊：（教務處管理人員---葉飛—密碼：950281）
（教師---劉力—密碼：980102）
A:教務處管理人員登陸後，進入教務人員管理模塊，可以進行個人信息查詢，教師住處查詢，學生信息查詢，成績查詢以及退出系統等操作。
B:教師登陸後，進入教員管理模塊，可以進行個人資料修改，學生信息查詢，本班成績查詢，其它班成績查詢，退出登陸等操作。
2．查詢及修改模塊
包括以下四個模塊：
A:學生個人信息查詢模塊：此模塊又分為學生個體模塊和班級模塊。學生個體模塊包含了學生的基本信息以及成績，可進行如學生所在班組，學院，專業，英語成績等相關查詢操作；
在班級模塊則可按班級查詢學生的信息。
B:教師信息查詢及修改模塊：此模塊主要服務於教務管理人員，可以通過打開“教師表”或“單個教師信息”進行總體或指定個體查詢，如對教師工齡、工資額的設定，對各個工齡段及相應的工齡工資額進行修改、添加、刪除等操作。
C:成績查詢及修改模塊：該模塊又分為三部分：按指定學號進行學生個體成績查詢及修改； 按指定教工號進行教師所教班級成績查詢； 按指定班級號或專業號進行綜合成績查詢其中還包括教師對其它班成績的查詢（但不無修改權）。
成績查詢具體內容包括指定科目成績查詢，成績排序，排名，平均分和不及格科目查詢等
D:用戶信息修改模塊：此模塊用於教務管理人員及教師修改密碼或用戶名，教師教課班級及工資職稱等信息的修改。
3．退出模塊
查詢修改完畢，通過退出模塊退出成績管理系統，以確保系統及個人信息的安全。
五、代碼設計：
1 用戶登陸模塊代碼：
A：教務處管理人員登陸
◆Private Sub 教務處人員登錄_Click()
On Error GoTo Err_教務處人員登錄_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(21153) & ChrW(22788) & ChrW(20154) & ChrW(21592) & ChrW(30331) & ChrW(24405)
DoCmd.RunMacro stDocName
Exit_教務處人員登錄_Click:
Exit Sub
Err_教務處人員登錄_Click:
MsgBox Err.Description
Resume Exit_教務處人員登錄_Click
End Sub
B: 教師登陸
◆Private Sub 教師登錄_Click()
On Error GoTo Err_教師登錄_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(24072) & ChrW(30331) & ChrW(24405)
DoCmd.RunMacro stDocName
Exit_教師登錄_Click:
Exit Sub
Err_教師登錄_Click:
MsgBox Err.Description
Resume Exit_教師登錄_Click
End Sub
◆Private Sub ok_Click()
If Len(Nz(Me!UserName)) = 0 And Len(Nz(Me!UserPassword)) = 0 Then
MsgBox "用戶名、密碼為空！請輸入", vbCritical, "error"
Me!UserName.SetFocus
ElseIf Len(Nz(Me!UserName)) = 0 Then
MsgBox "用戶名為空！請輸入", vbCritical, "error"
Me!UserName.SetFocus
ElseIf Len(Nz(Me!UserPassword)) = 0 Then
MsgBox "密碼為空！請輸入", vbCritical, "error"
Me!UserName.SetFocus
Else
If Me!UserName = "劉力" Then
If UCase(Me!UserPassword) = "980102" Then
MsgBox "歡迎使用！", vbInformation, "成功"
DoCmd.OpenForm "教師-綜合信息查詢"
Else
MsgBox "密碼有誤，非正常退出。", vbCritical, "error"
DoCmd.Close
End If
Else
MsgBox "用戶名有誤，非正常退出。", vbCritical, "error"
DoCmd.Close
End If
End If
End Sub
2 學生個人信息查詢模塊代碼
A:指定學生信息查詢：
◆ Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Dim stDocName As String
stDocName = ChrW(23398) & ChrW(29983) & ChrW(20010) & ChrW(20154) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub
B:班級所有學生信息查詢：
◆Private Sub Command20_Click()
On Error GoTo Err_Command20_Click
Dim stDocName As String
stDocName = ChrW(29677) & ChrW(32423) & ChrW(23398) & ChrW(29983) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command20_Click:
Exit Sub
Err_Command20_Click:
MsgBox Err.Description
Resume Exit_Command20_Click
End Sub
3 教師信息查詢及修改模塊代碼
A:指定教師信息查詢
◆Private Sub Command13_Click()
On Error GoTo Err_Command13_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(24072) & ChrW(20449) & ChrW(24687) & ChrW(21333) & ChrW(20010) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command13_Click:
Exit Sub
Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click
End Sub
B:全體教師信息查詢：
◆Private Sub Command14_Click()
On Error GoTo Err_Command14_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(24072) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command14_Click:
Exit Sub
Err_Command14_Click:
MsgBox Err.Description
Resume Exit_Command14_Click
End Sub
4 成績查詢及修改模塊代碼
A:指定學生個體成績查詢：
◆Private Sub Command23_Click()
On Error GoTo Err_Command23_Click
Dim stDocName As String
stDocName = ChrW(23398) & ChrW(29983) & ChrW(20010) & ChrW(20154) & ChrW(25104) & ChrW(32489) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command23_Click:
Exit Sub
Err_Command23_Click:
MsgBox Err.Description
Resume Exit_Command23_Click
End Sub
B: 指定班級綜合成績查詢
◆Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
Dim stDocName As String
stDocName = ChrW(25353) & ChrW(29677) & ChrW(32423) & ChrW(26597) & ChrW(-29726) & ChrW(23398) & ChrW(29983) & ChrW(25104) & ChrW(32489)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command24_Click:
Exit Sub
Err_Command24_Click:
MsgBox Err.Description
Resume Exit_Command24_Click
End Sub
5 用戶信息修改模塊代碼
◆Private Sub Command28_Click()
On Error GoTo Err_Command28_Click
Dim stDocName As String
stDocName = ChrW(25945) & ChrW(21153) & ChrW(22788) & ChrW(20154) & ChrW(21592) & ChrW(20449) & ChrW(24687) & ChrW(26597) & ChrW(-29726)
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command28_Click:
Exit Sub
Err_Command28_Click:
MsgBox Err.Description
Resume Exit_Command28_Click
End Sub
6 退出模塊代碼
◆Private Sub Command31_Click()
On Error GoTo Err_Command31_Click
DoCmd.Quit
Exit_Command31_Click:
Exit Sub
Err_Command31_Click:
MsgBox Err.Description
Resume Exit_Command31_Click
End Sub
__________________________________________________________________________________________________________
3系統實施報告