sql數(shù)據(jù)庫課程設計---學生成績管理系統(tǒng)設計說明

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：23 大?。?89.00KB 人氣指數(shù)：12 舉報 版權申訴

已閱讀1頁，還剩22頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權，請進行舉報或認領

文檔簡介

1、　　學生成績管理系統(tǒng)設計說明　?。ū驹O計以VB為前臺對數(shù)據(jù)庫進行操作）　　需求　　本系統(tǒng)主要用于學校的學生成績管理。　　用戶身份的驗證&

2、lt;b>　　學生基本信息管理　　按班級選課　　學生成績的管理　　總體設計　　本系統(tǒng)包括：標準模塊、系統(tǒng)登錄模塊、主界面模塊、系統(tǒng)管

3、理模塊、學生基本信息管理模塊、選課模塊、成績管理模塊。　　標準模塊　　定義公共變量和過程。　　系統(tǒng)登錄模塊　　進行用戶身份的驗證。　　主

4、界面模塊　　作為系統(tǒng)總界面，供用戶進行各項選擇。　　系統(tǒng)管理模塊　　用戶管理及系統(tǒng)退出。　　學生基本信息管理模塊　　學生基本信息的錄入和查詢。<

5、;p>　　選課模塊　　為班級選課。　　成績管理模塊　　進行學生成績的錄入及查詢。　　數(shù)據(jù)庫設計及配置</p

6、>　　數(shù)據(jù)庫設計　　該數(shù)據(jù)庫由以下幾個表組成：　　用戶表、學生基本信息表、班級課程表、學生成績表。　　用戶表　　包括用戶名、密碼、是否是超級用戶。

7、　　學生基本信息表　　包括學號、姓名、電話、地址、班級名稱、性別。　　班級課程表　　包括班級名稱、課程名稱。　　學生成績表</p&g

8、t;　　包括學號、課程名稱、成績。　　數(shù)據(jù)庫中各表關系　　學生基本信息表與班級課程表通過班級名稱字段相關聯(lián)，學生基本信息表與學生成績表通過學號字段相關聯(lián)，班級課程表與學生成績表通過課程名稱字段相關聯(lián)。　　系統(tǒng)實現(xiàn)&l

9、t;/p>　　標準模塊（公有模塊）　　標準模塊中的數(shù)據(jù)定義　　用于定義全局變量及過程。本系統(tǒng)定義了當前用戶名及用戶類型。　　標準模塊代碼設計　　Option Explicit<

10、p>　　Public UserName As String　　Public UserType As Boolean　　系統(tǒng)登錄模塊　　說明　　進行用戶身份的驗證。特定的用戶才能登錄到系統(tǒng)。&

11、lt;/p>　　窗體設計　　系統(tǒng)登錄窗體的窗體類型為Form，界面如下圖所示：　　主要控件屬性如下表所示：　　代碼設計　　公共定義

12、　　Option Explicit　　Dim Count1 As Integer　　窗體裝載處理程序（Load）　　Private Sub Form_Load()　　Count1 = 0‘錯誤次數(shù)清零<

13、/p>　　End Sub　　取消按鈕（cmdCancel）處理程序（Click）　　Private Sub cmdCancel_Click()　　Unload Me‘系統(tǒng)退出<b

14、>　　End Sub　　確定按鈕（cmdOk）處理程序（Click）　　Private Sub cmdOk_Click()　　Dim s1 As String　　Dim Password As String

15、;　　On Error Resume Next　　If Text1.Text = "" Then‘用戶名為空，則退出　　MsgBox ("用戶名不能為空,請重新輸入")　　Text1.SetFocus

16、;　　Exit Sub　　End If　　‘按輸入的用戶名進行查詢　　s1 = "SELECT * from 用戶表 WHERE 用戶名='" & Text1.Text & "'"

17、　　Adodc1.RecordSource = s1　　Adodc1.Refresh　　If Adodc1.Recordset.EOF = False Then‘判斷查詢結(jié)果　　UserName = Adodc1.Recordset.Fields(0)‘有該

18、用戶名，即用戶名正確　　Password = Adodc1.Recordset.Fields(1)　　UserType = Adodc1.Recordset.Fields(2)　　If Password = Text2.Text Then‘判斷密碼是否正確　　U

19、nload Me‘密碼正確，關閉當前窗體　　FrmMain.Show‘顯示主界面窗體　　Exit Sub　　Else　　MsgBox ("密碼錯誤,請

20、重新輸入")‘密碼錯誤，提示　　Text2.SetFocus　　Text2.Text = ""　　End If　　Else‘沒有該用戶名，即用戶名錯誤

21、　　MsgBox "用戶名錯誤,請重新輸入"　　Text1.SetFocus　　Text1.Text = ""　　Text2.Text = ""　　End If</b&

22、gt;　　Count1 = Count1 + 1‘錯誤次數(shù)累計　　If Count1 >= 3 Then　　MsgBox "錯誤超過3次,系統(tǒng)退出"　　Unload Me

23、　　End If　　End Sub　　主界面模塊　　說明　　作為系統(tǒng)總界面，供用戶進行各項選擇。&

24、lt;/p>　　窗體設計　　主界面模塊窗體類型為MDIForm，界面如下圖所示。　　代碼設計　　窗體變?yōu)榛顒哟绑w處理程序（MDIForm－Activate）　　Priv

25、ate Sub MDIForm_Activate()　　WindowState = 2‘窗體最大化狀態(tài)　　StatusBar1.Panels(1).Text = "用戶名: " & UserName‘在狀態(tài)欄顯示用戶名、用戶類型　　If UserType = T

26、rue Then　　StatusBar1.Panels(2).Text = "用戶類型: 管理員"　　Else　　StatusBar1.Panels(2).Text = "用戶類型: 普通用戶"

27、　　End If　　If UserType = False Then‘對普通用戶設某些菜單項不可用　　AA1.Enabled = False　　BB1.Enabled = False　　CC.Enabled = Fal

28、se　　DD1.Enabled = False　　Toolbar1.Buttons(1).Enabled = False‘對普通用戶設工具欄的某些按鈕不可用　　Toolbar1.Buttons(3).Enabled = False　　Toolbar1.Buttons(

29、6).Enabled = False　　Toolbar1.Buttons(7).Enabled = False　　Toolbar1.Buttons(9).Enabled = False　　End If　　End Su

30、b　　定時器（Timer1）處理程序（Timer）　　Private Sub Timer1_Timer()　　StatusBar1.Panels(3).Text = Now‘在狀態(tài)欄中顯示當前時間　　End Sub<

31、;/b>　　工具欄（Toolbar1）處理程序（ButtonClick）　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)　　Select Case Button.Index&

32、lt;b>　　Case 1　　Form11.Show (1)‘用戶管理　　Case 3　　Form21.Show (1)‘學生基本信息維護　　Case 4</b

33、>　　Form22.Show (1)‘學生基本信息查詢　　Case 6　　Form31.Show (1)‘課程添加　　Case 7<p&

34、gt;　　Form32.Show (1)‘課程刪除　　Case 9　　Form41.Show (1)‘學生成績維護　　Case 10　　Form42.Show (1)

35、‘學生成績查詢　　Case 12　　Unload Me‘系統(tǒng)退出　　End Select　　End Sub　　“用戶管理”菜單項處理程

36、序（AA1－Click）　　Private Sub AA1_Click()　　Form11.Show (1)　　End Sub　　“退出”菜單項處理程序（AA3－click）　　Private

37、 Sub AA3_Click()　　Unload Me　　End Sub　　“學生基本信息維護”菜單項處理程序（BB1－click）　　Private Sub BB1_Click()</p&

38、gt;　　Form21.Show (1)　　End Sub　　“學生基本信息查詢”菜單項處理程序（BB2－click）　　Private Sub BB2_Click()　　Form22.Show (1)</

39、p>　　End Sub　　“課程添加”菜單項處理程序（CC1－click）　　Private Sub CC1_Click()　　Form31.Show (1)　　End Sub</b

40、>　　“課程刪除”菜單項處理程序（CC2－click）　　Private Sub CC2_Click()　　Form32.Show (1)　　End Sub　　“學生成績維護”菜單項處理

41、程序（DD1－click）　　Private Sub DD1_Click()　　Form41.Show (1)　　End Sub　　“學生成績查詢”菜單項處理程序（DD2－click）　　Pr

42、ivate Sub DD2_Click()　　Form42.Show (1)　　End Sub　　用戶管理模塊　　說明

43、;　　創(chuàng)建、刪除用戶。設定用戶權限。　　窗體設計　　代碼設計　　上一條（Command1）處理（Click）　　Private Sub Command1_Click()&l

44、t;p>　　Command2.Enabled = True　　Adodc1.Recordset.MovePrevious　　If Adodc1.Recordset.BOF Then　　Command1.Enabled = False　　Adodc1.Recordse

45、t.MoveFirst　　End If　　End Sub　　下一條（Command2）處理（Click）　　Private Sub Command2_Click()<

46、p>　　Command1.Enabled = True　　Adodc1.Recordset.MoveNext　　If Adodc1.Recordset.EOF Then　　Command2.Enabled = False　　Adodc1.Recordset.Move

47、Last　　End If　　End Sub　　添加（Command3）處理（Click）　　Private Sub Command3_Click()　　I

48、f Command3.Caption = "添加" Then　　Command3.Caption = "確定"　　Command1.Enabled = False　　Command2.Enabled = False　　Command

49、4.Enabled = False　　Adodc1.Recordset.AddNew　　Text1.SetFocus　　Else　　If Text1.Text = "" Then<p&

50、gt;　　MsgBox ("用戶名不能為空")　　Exit Sub　　End If　　Command3.Caption = "添加"　　Adodc1.Rec

51、ordset.Update　　Command1.Enabled = True　　Command2.Enabled = True　　Command4.Enabled = True　　End If

52、　　End Sub　　刪除（Command4）處理（Click）　　Private Sub Command4_Click()　　Adodc1.Recordset.Delete　　Adodc1.Recordset.MoveNext<

53、;/p>　　If Adodc1.Recordset.EOF Then　　Adodc1.Recordset.MoveLast　　End If　　End Sub　　退出（C

54、ommand5）處理（Click）　　Private Sub Command5_Click()　　Unload Me　　End Sub　　學生基本信息管理模塊<p&g

55、t;　　說明　　學生基本信息的添加、刪除、查詢。　　該模塊有兩個窗體：學生基本信息維護窗體和學生基本信息查詢窗體　　學生基本信息維護窗體　　窗體設計　　主

56、要控件屬性如下表所示：　　代碼設計　　窗體裝載處理程序（Load）　　Private Sub Form_Load()　　DataGrid1.AllowAddNew = True　　DataGr

57、id1.AllowDelete = True　　DataGrid1.AllowUpdate = True　　End Sub　　退出（Command1）處理（Click）　　Private Sub Command1_Click()<

58、;/p>　　Unload Me　　End Sub　　學生基本信息查詢窗體　　窗體設計　　主要控件屬性如下表所示：

59、;　　代碼設計　　查詢（Command1）處理（Click ）　　Private Sub Command1_Click()　　Dim s1 As String　　s1 = ""

60、;　　If Check1.Value = 1 Then　　If Text1.Text <> "" Then　　s1 = s1 & "姓名='" & Text1.Text & "'"&

61、lt;/p>　　End If　　End If　　If Check2.Value = 1 Then　　If Text2.Text <> "" Then<

62、;p>　　If s1 <> "" Then　　s1 = s1 & " and "　　End If　　s1 = s1 & "學號='" & Text2.Text &

63、amp; "'"　　End If　　End If　　If Check3.Value = 1 Then　　If DataList1.Text <> "

64、;" Then　　If s1 <> "" Then　　s1 = s1 & " and "　　End If　　s1 = s1 & "班級名稱=&

65、#39;" & DataList1.Text & "'"　　End If　　End If　　If s1 <> "" Then&l

66、t;p>　　s1 = "where " & s1　　End If　　Adodc1.RecordSource = "select * from 學生基本信息表 " & s1　　Adodc1.Refresh<

67、/p>　　Set DataGrid1.DataSource = Adodc1　　End Sub　　退出（Command2）處理（Click）　　Private Sub Command2_Click()<

68、;b>　　Unload Me　　End Sub　　窗體裝載處理程序（Load）　　Private Sub Form_Load()　　DataGrid1.AllowAddNew = False

69、;　　DataGrid1.AllowDelete = False　　DataGrid1.AllowUpdate = False　　End Sub　　選課模塊

70、　　說明　　該模塊為一個班級選課。　　課程添加窗體　　用于課程的添加和查詢　　窗體設計　　主要控件屬性如下表所示：

71、　　代碼設計　　添加（Command1）處理（Click）　　Private Sub Command1_Click()　　Dim s1 As String, s2 As String　　On Error Resu

72、me Next　　If Text1.Text = "" Or Text2.Text = "" Then　　MsgBox ("輸入不能為空")　　Exit Sub<b&g

73、t;　　End If　　s1 = "select * from 班級課程表 where 班級名稱='"　　s2 = Text1.Text & "' and 課程名稱='" & Text2.Text & "'"</

74、p>　　Adodc1.RecordSource = s1 & s2　　Adodc1.Refresh　　If Adodc1.Recordset.EOF = False Then　　Text1.SetFocus　　MsgBox "

75、該記錄已存在,請重新輸入", , "警告"　　Exit Sub　　End If　　s1 = "select * from 班級課程表"　　Adod

76、c1.RecordSource = s1　　Adodc1.Refresh　　Adodc1.Recordset.MoveLast　　Adodc1.Recordset.AddNew　　Adodc1.Recordset.Fields("班級名稱") = Te

77、xt1.Text　　Adodc1.Recordset.Fields("課程名稱") = Text2.Text　　Adodc1.Recordset.Update　　Adodc1.Refresh　　s1 = "select 課程名稱 from 班

78、級課程表 where 班級名稱='" & Text1.Text & "'"　　Adodc1.RecordSource = s1　　Adodc1.Refresh　　Set DataGrid1.DataSource = Adodc1.Recordset&l

79、t;/p>　　Text2.SetFocus　　Text2.Text = ""　　Exit Sub　　End Sub　　查詢（Command2）處理（

80、Click）　　Private Sub Command2_Click()　　Dim s1 As String　　s1 = "select 課程名稱 from 班級課程表 where 班級名稱='" & Text1.Text & "'"<

81、/p>　　Adodc1.RecordSource = s1　　Adodc1.Refresh　　Set DataGrid1.DataSource = Adodc1.Recordset　　End Sub　　退出

82、（Command3）處理（Click）　　Private Sub Command3_Click()　　Unload Me　　End Sub　　窗體裝載處理程序（Load）&

83、lt;p>　　Private Sub Form_Load()　　DataGrid1.AllowAddNew = False　　DataGrid1.AllowDelete = False　　DataGrid1.AllowUpdate = False

84、　End Sub　　課程刪除窗體　　窗體設計　　主要控件屬性如下表所示：　　代碼設計　　退出（C

85、ommand1）處理（Click）　　Private Sub Command1_Click()　　Unload Me　　End Sub　　數(shù)據(jù)列表框（DataList1）處理（Click）<

86、/p>　　Private Sub DataList1_Click()　　Dim s1 As String　　s1 = "select * from 班級課程表 where 班級名稱='" & DataList1.Text & "'"

87、　　Adodc2.RecordSource = s1　　Adodc2.Refresh　　Set DataGrid1.DataSource = Adodc2　　End Sub　　窗體裝載處理程序（Load）</p

88、>　　Private Sub Form_Load()　　DataGrid1.AllowDelete = True　　DataGrid1.AllowUpdate = True　　DataGrid1.AllowAddNew = False<b

89、>　　End Sub　　成績管理模塊　　說明　　進行學生成績的錄入及查詢。　　成績錄入窗體

90、　　進行學生成績的添加、修改及刪除。　　窗體設計　　代碼設計　　錄入（Command1）處理（Click）　　Private Sub Command1_Click()<

91、;p>　　Dim s1 As String, s2 As String, s3 As String　　On Error Resume Next　　s1 = "select * from 學生成績表 "　　s2 = "where 學號='" & Lis

92、t2.Text & "' and "　　s3 = "課程名稱='" & List1.Text & "'"　　Adodc3.RecordSource = s1 & s2 & s3　　Adod

93、c3.Refresh　　If Adodc3.Recordset.EOF = False Then　　Adodc3.Recordset.Fields(2) = Val(Text1.Text)　　Else　　Adodc3.Recordse

94、t.MoveLast　　Adodc3.Recordset.AddNew　　Adodc3.Recordset.Fields(0) = List2.Text　　Adodc3.Recordset.Fields(1) = List1.Text　　Adodc3.Recordset.

95、Fields(2) = Val(Text1.Text)　　End If　　Adodc3.Recordset.Update　　Adodc3.Refresh　　s1 = "select 學號,成績 from 學生成績表 wher

96、e 課程名稱='" & List1.Text & "'"　　s2 = " and 學號 in (select 學號 from 學生基本信息表 "　　s3 = "where 班級名稱 ='" & DataList1.Text &

97、 "')"　　Adodc3.RecordSource = s1 & s2 & s3　　Adodc3.Refresh　　Set DataGrid1.DataSource = Adodc3　　End Sub<

98、/b>　　退出（Command1）處理（Click ）　　Private Sub Command2_Click()　　Unload Me　　End Sub<p&

99、gt;　　數(shù)據(jù)列表框（DataList1）處理（Click）　　Private Sub DataList1_Click()　　Dim s1 As String, s2 As String　　Set DataGrid1.DataSource = Nothing　　s1 =

100、"select 課程名稱 from 班級課程表 "　　s2 = "where 班級名稱='" & DataList1.Text & "'"　　Adodc2.RecordSource = s1 & s2　　Adod

101、c2.Refresh　　If Adodc2.Recordset.EOF = True Then　　MsgBox "請在班級課程表里添加該班級的課程名稱"　　Exit Sub　　End If<

102、/b>　　List1.Clear　　Adodc2.Recordset.MoveFirst　　Do While Adodc2.Recordset.EOF = False　　List1.AddItem Adodc2.Recordset.Fields(0)</p&g

103、t;　　Adodc2.Recordset.MoveNext　　Loop　　s1 = "select 學號 from 學生基本信息表 "　　s2 = "where 班級名稱='" & DataLis

104、t1.Text & "'"　　Adodc2.RecordSource = s1 & s2　　Adodc2.Refresh　　If Adodc2.Recordset.EOF = True Then　　MsgBox "請在

105、學生信息表里添加該班級"　　Exit Sub　　End If　　List2.Clear　　Adodc2.Recordset.MoveFirst

106、　Do While Adodc2.Recordset.EOF = False　　List2.AddItem Adodc2.Recordset.Fields(0)　　Adodc2.Recordset.MoveNext　　Loop<

107、b>　　End Sub　　窗體裝載處理程序（Load）　　Private Sub Form_Load()　　DataGrid1.AllowDelete = True　　DataGrid1.AllowAddNew = False

108、　　DataGrid1.AllowUpdate = False　　End Sub　　列表框（List1）處理（Click）　　Private Sub List1_Click()　　Dim s1 As String

109、, s2 As String, s3 As String　　s1 = "select 學號,成績 from 學生成績表 where 課程名稱='" & List1.Text & "'"　　s2 = " and 學號 in (select 學號 from 學生基本信息表

110、"　　s3 = "where 班級名稱 ='" & DataList1.Text & "')"　　Adodc3.RecordSource = s1 & s2 & s3　　Adodc3.Refresh

111、;　　Set DataGrid1.DataSource = Adodc3　　End Sub　　列表框（List2）處理（Click）　　Private Sub List2_Click()　　Text1.Text

112、= ""　　End Sub　　成績查詢窗體　　進行學生成績的查詢　　窗體設計

113、　　主要控件屬性如下表所示：　　代碼設計　　公共定義　　Option Explicit　　Dim opt As Integer　　組合框

114、（Combo1）處理（Click）　　Private Sub Combo1_Click()　　Dim s1 As String, s2 As String　　Set DataGrid1.DataSource = Nothing　　Combo2.Clear

115、;　　If opt = 0 Then　　s1 = "select 課程名稱 from 班級課程表 where 班級名稱='"　　s2 = Combo1.Text & "' group by 課程名稱"　　Adodc2.Recor

116、dSource = s1 & s2　　Else　　s1 = "select 學號 from 學生基本信息表 where 班級名稱='"　　s2 = Combo1.Text & "'"

117、　　Adodc2.RecordSource = s1 & s2　　End If　　Adodc2.Refresh　　Do While Adodc2.Recordset.EOF = False　　Combo2.

118、AddItem Adodc2.Recordset.Fields(0)　　Adodc2.Recordset.MoveNext　　Loop　　End Sub　　組合框（Combo2）處理（Click）

119、　　Private Sub Combo2_Click()　　Dim s1 As String, s2 As String, s3 As String　　Set DataGrid1.DataSource = Nothing　　If opt = 0 Then

120、;　　s1 = "select * from 學生成績表 where 課程名稱='"　　s2 = Combo2.Text & " ' and 學號 in (select 學號 "　　s3 = "from 學生基本信息表 where 班級名稱 =

121、9;" & Combo1.Text & "')"　　Adodc1.RecordSource = s1 & s2 & s3　　Adodc1.Refresh　　Set DataGrid1.DataSource = Adodc1

122、　　Else　　s1 = "select * from 學生成績表 where 學號='" & Combo2.Text & "'"　　Adodc1.RecordSource = s1

123、　　Adodc1.Refresh　　Set DataGrid1.DataSource = Adodc1　　End If　　End Sub　　退出（Command1）處理（Click ）</p

124、>　　Private Sub Command1_Click()　　Unload Me　　End Sub　　窗體裝載處理程序（Load）　　Private Sub For

125、m_Load()　　DataGrid1.AllowAddNew = False　　DataGrid1.AllowDelete = False　　DataGrid1.AllowUpdate = False　　End Sub</p&

126、gt;　　單選按鈕（Option1）處理（Click ）　　Private Sub Option1_Click(Index As Integer)　　If Index > 1 Then　　Exit Sub&

127、lt;b>　　End If　　Combo1.Clear　　Combo2.Clear　　Set DataGrid1.DataSource = Nothing　　opt = Index　　If Index =

128、 0 Then '按班級查詢　　Label1.Caption = "請選擇班級"　　Label2.Caption = "請選擇課程"　　ElseIf Index = 1 Then

129、9;按學號查詢　　Label1.Caption = "請選擇班級"　　Label2.Caption = "請選擇學號"　　End If　　Adodc2.RecordSource = "

130、select distinct 班級名稱 from 班級課程表"　　Adodc2.Refresh　　Do While Adodc2.Recordset.EOF = False　　Combo1.AddItem Adodc2.Recordset.Fields(0)

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經(jīng)權益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負責。
6. 下載文件中如有侵權或不適當內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

sql數(shù)據(jù)庫課程設計---學生成績管理系統(tǒng)設計說明

文檔簡介

溫馨提示

最新文檔

評論

sql數(shù)據(jù)庫課程設計---學生成績管理系統(tǒng)設計說明

文檔簡介

溫馨提示

最新文檔

評論

免費下載