學生成績管理信息系統課程設計

1、<p>　　學生成績管理信息系統</p><p><b>　　分析與設計報告目錄</b></p><p>　　一、設計報告要求3</p><p>　　二、系統設計背景簡介3</p><p>　　三、系統技術及運行環境3</p><p>　?。ㄒ唬￢isual Basic 6.

2、0（VB）簡介3</p><p>　?。ǘ┫到y開發及運行環境4</p><p>　　1.運行環境WindowsXp或更高版本的操作系統4</p><p><b>　　2.開發環境：4</b></p><p><b>　　四、系統分析4</b></p><p>&

3、lt;b>　?。ㄒ唬┬枨蠓治?</b></p><p>　　1.系統功能需求4</p><p><b>　　2.數據需求4</b></p><p><b>　　3.性能需求4</b></p><p>　　4.用戶選擇需求4</p><p>　?。ǘ?/p>

4、）可行性分析4</p><p>　　五、模塊劃分以及有關模塊圖5</p><p><b>　?。ㄒ唬┑侨肽K5</b></p><p>　?。ǘW生信息管理5</p><p><b>　?。ㄈ┱n程管理5</b></p><p><b>　?。ㄋ模┏煽?/p>

5、管理5</b></p><p>　?。ㄎ澹┕芾韱T管理6</p><p>　　六、業務流程圖及數據流程圖6</p><p><b>　　七、總體設計7</b></p><p><b>　?。ㄒ唬┰O計目標7</b></p><p><b>　　

6、（二）項目規劃7</b></p><p><b>　　八、詳細設計7</b></p><p>　?。ㄒ唬祿煸O計7</p><p><b>　?。ǘ┐a設計8</b></p><p><b>　　1.登陸界面8</b></p><

7、p>　　2.學生基本情況9</p><p><b>　　3.成績查詢10</b></p><p><b>　　設計報告要求 </b></p><p>　　按照課程內容中的信息系統開發過程和方法，選擇適當的學生成績系統開發，運用結構化開發方法完成整個系統的分析與設計過程及其相應報告。包括系統規劃、系統分析、系統設

8、計過程，寫出設計報告。</p><p><b>　　系統設計背景簡介</b></p><p>　　學生信息管理系統（Student Information Management System）,以下簡稱SIMS，是針對學校人事處的大量業務處理工作而開發的管理軟件，是典型的管理信息系統。它是一個教育單位不可缺少的部分,它的內容對于學校的決策者和管理者來說都至關重要,它能

9、夠為用戶提供充足的信息和快捷的查詢手段。能有效的幫助學校和老師掌握學生的情況，為學生提供成績跟課程方面的查詢。在傳統模式下利用人工進行學生信息管理，存在著較多的缺點，如：效率底，保密性差，時間一長將產生大量的文件和數據，更不便于查找，更新，維護等。諸如這些情況，令學校管理者對學生的信息管理帶來了很大困難，嚴重影響了教育工作者的工作效率。隨著科學技術的不斷提高,計算機科學日漸成熟, 使用日趨成熟的計算機技術來代替傳統的人工模式，來實現學生

10、信息的現代化管理，其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發揮著越來越重要的作用。因此，開發這樣一套管理軟件成為很有必要的事情。</p><p><b>　　系統技術及運行環境</b></p><p>　?。ㄒ唬￢isual Basic 6.0（VB）簡介</p><p>　　Visual Basic 6.0（VB）是一種由微

11、軟公司開發的包含協助開發環境的事件驅動編程語言。它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發（RAD）系統，可以輕易的使用DAO、RDO、ADO連接數據庫，或者輕松的創建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。</p><p>　?。ǘ┫到y開發及運行環境</p><p>　　該運行環境的規定是保證本需求說明的功能得到實際

12、真正體現的基礎。</p><p>　　1.運行環境WindowsXp或更高版本的操作系統</p><p>　　數據庫系統：Microsoft Visual Basic 6.0</p><p><b>　　2.開發環境：</b></p><p>　　開發工具：Microsoft Visual Basic 6.0</p

13、><p>　　數據庫系統：Microsoft Visual Basic 6.0</p><p><b>　　系統分析</b></p><p><b>　?。ㄒ唬┬枨蠓治?lt;/b></p><p><b>　　1.系統功能需求</b></p><p>　?。?）

14、有關學籍信息的輸入，包括輸入學生基本信息、所在院系、所學專業、所在班級、所學課程和成績等。</p><p>　?。?）學生信息的查詢，包括查詢學生基本信息、所在班級、已學課程和學生成績等。</p><p>　?。?）學生信息的修改，包括增加、刪除等。</p><p>　?。?）班級管理信息的輸入，包括輸入班級設置，年級信息等。</p><p>

15、;　?。?）課程信息的設置和查詢等。</p><p>　?。?）課程信息的修改，包括增加，刪除等。</p><p>　?。?）學生成績信息的管理和查詢等。</p><p><b>　　2.數據需求</b></p><p>　　通過調查,總結出用戶對數據的需求如下:（1）學生信息 包括:學號,學生姓名,性別,出生日期,專

16、業,班級等</p><p>　?。?）課程信息 包括:課程編號,課程名稱,所屬專業等.</p><p>　?。?）選課信息 包括:學生姓名,課程名稱,開課時間,成績等. </p><p><b>　　3.性能需求</b></p><p>　?。?） 系統的高速性,穩定性,安全性. </p><p>

17、;　?。?） 系統的體系結構能夠方便添加功能模塊,適應業務,辦公的發展. </p><p>　?。?） 系統人機界面友好,易學易用. </p><p>　?。?） 系統維護成本較低.</p><p><b>　　4.用戶選擇需求</b></p><p>　　本系統面向的用戶有：學校的系統人員、管理人員、教師、學生。所以對

18、計算機的人性化和易用性比較高，應用于學校學生信息管理，總體任務是實現學生信息關系的系統化、規范化和自動化，其主要任務是計算學生各種信息進行日常管理，如查詢、修改、增加、刪除，另外還考慮到了學生選課，做到看界面簡單易懂，容易操作，提高了學校管理效率以及提升了學生信息的安全性和完整性。</p><p><b>　?。ǘ┛尚行苑治?lt;/b></p><p>　　目的：可行性

19、研究的目的是用最小的代價在盡可能的時間內確定問題是否能解決。</p><p><b>　　經濟性：</b></p><p>　　由于學校等中小型管理系統并不復雜，且Visual Basic 6.0本身要求的運行環境不高，所以一般Windows XP以上的系統環境都可以使用。</p><p><b>　　實用性：</b>&l

20、t;/p><p>　　本學生信息管理系統管理系統無太多復雜的操作要求，也沒有過分花哨的裝飾品，人性化的設計界面可以使操作者輕易運用自如。</p><p>　　模塊劃分以及有關模塊圖</p><p><b>　?。ㄒ唬┑侨肽K</b></p><p>　　用戶登陸（教師登陸，管理員登陸）</p><p>

21、;<b>　?。ǘW生信息管理</b></p><p>　　此模塊由學生基本信息、系別信息、班級信息、成績信息等組成。</p><p><b>　?。ㄈ┱n程管理</b></p><p>　　此模塊由課程信息、選課信息組成</p><p><b>　?。ㄋ模┏煽児芾?lt;/b>&

22、lt;/p><p>　　此模塊由成績信息組成。</p><p><b>　?。ㄎ澹┕芾韱T管理</b></p><p>　　此模塊由管理員信息組成</p><p>　　業務流程圖及數據流程圖</p><p><b>　　管理業務：</b></p><p>&

23、lt;b>　　接收成績表；</b></p><p><b>　　錄入成績單</b></p><p><b>　　生成學生成績</b></p><p><b>　　外部實體：</b></p><p><b>　　教師；</b></p&

24、gt;<p><b>　　教務處；</b></p><p><b>　　學生；</b></p><p><b>　　信息實體(存儲)：</b></p><p><b>　　成績表；</b></p><p><b>　　賬號表<

25、/b></p><p>　　信息表 圖：頂層DFD</p><p>　　處理：(區分信息處理行為和物流行為、系統內的和系統外的)</p><p>　　接收成績單、教師、學生個人信息數據；</p><p><b>　　生成成績表；</b></p><p><b>　　成績綜合分析

26、</b></p><p><b>　　接收成績</b></p><p><b>　　總體設計</b></p><p><b>　?。ㄒ唬┰O計目標</b></p><p>　　本系統可以能減少很多不必要的資源，不用象以前那樣用冗余的紙張式的管理。大節省了學校能源。并且

27、計算機的存儲與快速查詢功能大大提高了學籍管理的效率，并且還提高了學籍信息管理的精確度。</p><p>　　方便快速的操作，可減少學籍信息管理的漏洞，又減少因工作的冗余出現的錯誤，并且操作非常簡單，可減少許多不很必要的人員，這無論從物質上還是工作人員的工資上都為學校節約了開支。為學校增加了財富。</p><p><b>　　數據庫分析</b></p>&

28、lt;p>　　用戶需求具體有學籍管理系統提供保存、更新、查詢、維護，這就需求數據庫結構能充分滿足各種信息的輸入與輸出，實現有組織地、動態地存儲大量關聯數據，方便用戶訪問系統中的數據，它與文件系統的重要區別是數據的充分共享，交叉訪問，與應用程序的高度獨立性。</p><p><b>　?。ǘ╉椖恳巹?lt;/b></p><p>　　學生管理系統是各大中專院校不可缺少

29、的一部分，是一個VB數據庫開發應用程序，它主要包括用戶登錄、學生信息輸入修改、學生信息查詢以及學生成績輸入、學生成績查詢、系統用戶管理等幾個頁面，因而該系統具有較強的實用性。</p><p><b>　　詳細設計</b></p><p><b>　?。ㄒ唬祿煸O計</b></p><p><b>　?。ǘ┐a

30、設計</b></p><p><b>　　1.登陸界面</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim str As String</p><p>　　If Trim(Text1.Text) = "" Or Trim(Tex

31、t2.Text) = "" Then</p><p>　　MsgBox "輸入不能為空", 0 + 48, "警告" '判斷是否為空，是則彈出窗體警告</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = ""</p>

32、<p>　　Text2.Text = ""</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = "select * from 賬號表 where 用戶名='" & Text1.Text & "'"</p&

33、gt;<p>　　Adodc1.Refresh</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　MsgBox "賬戶錯誤", 0 + 48, "提示信息"</p><p>　　Text1.SetFocus</p><p>　　Text1.T

34、ext = ""</p><p>　　Text2.Text = ""</p><p><b>　　Else</b></p><p>　　str = Adodc1.Recordset.Fields("密碼").Value</p><p>　　If Trim(Tex

35、t2.Text) <> str Then</p><p>　　MsgBox "密碼錯誤", 0 + 48, "warning"</p><p>　　Text2.SetFocus</p><p>　　Text2.Text = ""</p><p><b>　　El

36、se</b></p><p><b>　　Me.Hide</b></p><p>　　formmain.Show </p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b

37、>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b><

38、/p><p>　　Private Sub Command3_Click()</p><p><b>　　Me.Hide</b></p><p>　　formapply.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Tex

39、t2_KeyPress(KeyAscii As Integer)</p><p>　　If KeyAscii = 13 Then</p><p>　　Call Command1_Click</p><p><b>　　End If</b></p><p><b>　　End Sub</b></

40、p><p>　　Private Sub Text1_KeyPress(KeyAscii As Integer)</p><p>　　If KeyAscii = 13 Then</p><p>　　Text2.SetFocus</p><p><b>　　End If</b></p><p><b

41、>　　End Sub</b></p><p>　　2.學生基本情況代碼</p><p>　　Private Sub Command4_Click()</p><p><b>　　Me.Hide</b></p><p>　　formmain.Show</p><p><b&g

42、t;　　End Sub</b></p><p>　　Private Sub Combo1_Click()</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select * from 基本情況表 where 性別 ='" &

43、amp; Combo1.Text & "'"</p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Combo2_Click()</p><p>　　Adodc1.CommandType = a

44、dCmdUnknown</p><p>　　Adodc1.RecordSource = "select * from 基本情況表 where 專業 ='" & Combo2.Text & "'"</p><p>　　Adodc1.Refresh</p><p><b>　　End Su

45、b</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Text1 > "" Then</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = &qu

46、ot;select * from 基本情況表 where 學號 ='" & Text1 & "'"</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = "select * from 基本情況表"</p><p&

47、gt;<b>　　End If</b></p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　If Text2 > "" The

48、n</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select * from 基本情況表 where 姓名 ='" & Text2 & "'"</p><p><b>　　Els

49、e</b></p><p>　　Adodc1.RecordSource = "select * from 基本情況表"</p><p><b>　　End If</b></p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b>

50、;</p><p>　　Private Sub Command3_Click()</p><p>　　Adodc1.CommandType = adCmdTable</p><p>　　Adodc1.RecordSource = "基本情況表"</p><p>　　Adodc1.Refresh</p><

51、;p><b>　　End Sub</b></p><p><b>　　3.成績查詢代碼</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text > "" Then</p><p>　　Ado

52、dc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select * from 成績表 where 姓名 ='" & Text1.Text & "'"</p><p><b>　　Else</b></p>&

53、lt;p>　　Adodc1.RecordSource = "select * from 成績表"</p><p><b>　　End If</b></p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p>　　Pr

54、ivate Sub Command10_Click()</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 平均成績,學號,姓名 from 成績表 "</p><p>　　Adodc1.Refresh</p><

55、p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　If Text2.Text > "" Then</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>

56、　　Adodc1.RecordSource = "select * from 成績表 where 學號 ='" & Text2.Text & "'"</p><p><b>　　Else</b></p><p>　　Adodc1.RecordSource = "select * from

57、 成績表"</p><p><b>　　End If</b></p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　If

58、 Adodc1.RecordSource = "select 高數成績,學號,姓名 from 成績表 " Then</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 高數成績,學號,姓名 from 成績表 order by 高數成績 DESC&

59、quot;</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　If Adodc1.RecordSource = "select 英語成績,學號,姓名 from 成績表 " Then</p><p>　　Adodc1.CommandTyp

60、e = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 英語成績,學號,姓名 from 成績表 order by 英語成績 DESC"</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p&g

61、t;　　If Adodc1.RecordSource = "select 計算機成績,學號,姓名 from 成績表 " Then</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 計算機成績,學號,姓名 from 成績表 order by 計算

62、機成績 DESC"</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 平均成績,學號,姓

63、名 from 成績表 order by 平均成績 DESC"</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b><

64、/p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　If Adodc1.RecordSource = "select 高數成績,學號,姓名 from 成績表 " Then</p><p>　　Adodc1.Co

65、mmandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 高數成績,學號,姓名 from 成績表 where 高數成績 between 60 and 100"</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b>

66、</p><p>　　If Adodc1.RecordSource = "select 英語成績,學號,姓名 from 成績表 " Then</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 英語成績,學號,姓名 fro

67、m 成績表 where 英語成績 between 60 and 100"</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　If Adodc1.RecordSource = "select 計算機成績,學號,姓名 from 成績表 " Then<

68、;/p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 計算機成績,學號,姓名 from 成績表 where 計算機成績 between 60 and 100"</p><p>　　Adodc1.Refresh</p><

69、;p><b>　　Else</b></p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 平均成績,學號,姓名 from 成績表 where 平均成績 between 60 and 100"</p><p>

70、;　　Adodc1.Refresh</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>

71、<p>　　Private Sub Command5_Click()</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select *from 成績表 "</p><p>　　Adodc1.Refresh</p>

72、<p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p><b>　　Me.Hide</b></p><p>　　formmain.Show</p><p><b>　　End Sub</b&g

73、t;</p><p>　　Private Sub Command7_Click()</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "select 高數成績,學號,姓名 from 成績表 "</p><p>　　Adod

74、c1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><p>　　Adodc1.CommandType = adCmdUnknown</p><p>　　Adodc1.RecordSource = "sel

75、ect 英語成績,學號,姓名 from 成績表 "</p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command9_Click()</p><p>　　Adodc1.CommandType = adCmdUnkn