教學管理系統(tǒng)設(shè)計說明模板

1、蘭州交通大學課程設(shè)計(論文)題 目 名 稱 教學管理系統(tǒng) 課 程 名 稱 數(shù)據(jù)庫技術(shù)及應用 學 生 姓 名 毛燕春 學 號 201109118 學院 自然班 自動化與電氣工程學院 電氣2011-01 指 導 教 師 甄興華 2013年 6 月 14 日1. 需求本系統(tǒng)主要用于學校的學生成績管理。1. 用戶身份的驗證2. 學生基本信息管理3. 按班級選課4. 學生成績的管理2. 總體設(shè)計本系統(tǒng)包括：標準模塊、系統(tǒng)登錄模塊、主界面模塊、系統(tǒng)管理模塊、學生基本信息管理模塊、選課模塊、成績管理模塊。1. 標準模塊定義公共變量和過程。2. 系統(tǒng)登錄模塊進行用戶身份的驗證。3. 主界面模塊作為系統(tǒng)總界面，

2、供用戶進行各項選擇。4. 系統(tǒng)管理模塊用戶管理及系統(tǒng)退出。5. 學生基本信息管理模塊學生基本信息的錄入和查詢。6. 選課模塊為班級選課。7. 成績管理模塊進行學生成績的錄入及查詢。3. 數(shù)據(jù)庫設(shè)計及配置3.1. 數(shù)據(jù)庫設(shè)計該數(shù)據(jù)庫由以下幾個表組成：用戶表、學生基本信息表、班級課程表、學生成績表。3.1.1 用戶表包括用戶名、密碼、是否是超級用戶。字段名稱數(shù)據(jù)類型用戶名文本密碼文本是否為超級用戶布爾3.1.2 學生基本信息表包括學號、姓名、電話、地址、班級名稱、性別。字段名稱數(shù)據(jù)類型學號文本姓名文本電話文本地址文本班級名稱文本性別文本3.1.3 班級課程表包括班級名稱、課程名稱。字段名稱數(shù)據(jù)類型

3、班級名稱文本課程名稱文本3.1.4 學生成績表包括學號、課程名稱、成績。字段名稱數(shù)據(jù)類型學號文本課程名稱文本成績數(shù)值（單精度浮點型）3.2. 數(shù)據(jù)庫中各表關(guān)系學生基本信息表與班級課程表通過班級名稱字段相關(guān)聯(lián)，學生基本信息表與學生成績表通過學號字段相關(guān)聯(lián)，班級課程表與學生成績表通過課程名稱字段相關(guān)聯(lián)。4. 系統(tǒng)實現(xiàn)4.1. 標準模塊（公有模塊）4.1.1 標準模塊中的數(shù)據(jù)定義用于定義全局變量及過程。本系統(tǒng)定義了當前用戶名及用戶類型。序號變量名數(shù)據(jù)類型1UserNameString2UserTypeBoolean4.1.2 標準模塊代碼設(shè)計Option Explicit Public UserNa

4、me As String Public UserType As Boolean4.2. 系統(tǒng)登錄模塊4.2.1 說明進行用戶身份的驗證。特定的用戶才能登錄到系統(tǒng)。4.2.2 窗體設(shè)計系統(tǒng)登錄窗體的窗體類型為Form，界面如下圖所示：主要控件屬性如下表所示：對象名類型屬性值說明FrmLogin窗體Caption學生成績管理系統(tǒng)登錄學生成績管理系統(tǒng)登錄窗體Label1標簽Caption用戶名：Label2標簽Caption密碼：Text1文本框Text用于輸入用戶名Text2文本框Text用于輸入密碼cmdOk命令按鈕Caption確定確定當前輸入的用戶名和密碼，進行用戶登錄。登錄成功后進入主界面

5、。如果三次輸入錯誤的用戶和密碼，程序?qū)⒆詣油顺鯿mdCancel命令按鈕Caption取消取消操作，退出程序Adodc1AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString屬性在界面中設(shè)置，RecordSource屬性在代碼中設(shè)置。4.2.3 代碼設(shè)計l 公共定義Option ExplicitDim Count1 As Integerl 窗體裝載處理程序（Load）Private Sub Form_Load() Count1 = 0錯誤次數(shù)清零End Subl 取消按鈕（cmdCancel）處理程序（Click）Private Sub cmdCance

6、l_Click() Unload Me系統(tǒng)退出End Subl 確定按鈕（cmdOk）處理程序（Click）Private Sub cmdOk_Click() Dim s1 As String Dim Password As StringOn Error Resume Next If Text1.Text = "" Then用戶名為空，則退出 MsgBox ("用戶名不能為空,請重新輸入") Text1.SetFocus Exit SubEnd If按輸入的用戶名進行查詢 s1 = "SELECT * from 用戶表 WHERE 用戶名=&#

7、39;" & Text1.Text & "'" Adodc1.RecordSource = s1 Adodc1.Refresh If Adodc1.Recordset.EOF = False Then判斷查詢結(jié)果 UserName = Adodc1.Recordset.Fields(0)有該用戶名，即用戶名正確 Password = Adodc1.Recordset.Fields(1) UserType = Adodc1.Recordset.Fields(2) If Password = Text2.Text Then判斷密碼是否正確 Un

8、load Me密碼正確，關(guān)閉當前窗體 FrmMain.Show顯示主界面窗體 Exit Sub Else MsgBox ("密碼錯誤,請重新輸入")密碼錯誤，提示 Text2.SetFocus Text2.Text = "" End If Else沒有該用戶名，即用戶名錯誤 MsgBox "用戶名錯誤,請重新輸入" Text1.SetFocus Text1.Text = "" Text2.Text = "" End If Count1 = Count1 + 1錯誤次數(shù)累計 If Count1 &

9、gt;= 3 Then MsgBox "錯誤超過3次,系統(tǒng)退出" Unload Me End IfEnd Sub4.3. 主界面模塊4.3.1 說明作為系統(tǒng)總界面，供用戶進行各項選擇。4.3.2 窗體設(shè)計主界面模塊窗體類型為MDIForm，界面如下圖所示。4.3.3 代碼設(shè)計l 窗體變?yōu)榛顒哟绑w處理程序（MDIFormActivate）Private Sub MDIForm_Activate() WindowState = 2窗體最大化狀態(tài) StatusBar1.Panels(1).Text = "用戶名: " & UserName在狀態(tài)欄顯示用

10、戶名、用戶類型 If UserType = True Then StatusBar1.Panels(2).Text = "用戶類型: 管理員" Else StatusBar1.Panels(2).Text = "用戶類型: 普通用戶"End If If UserType = False Then對普通用戶設(shè)某些菜單項不可用 AA1.Enabled = False BB1.Enabled = False CC.Enabled = False DD1.Enabled = False Toolbar1.Buttons(1).Enabled = False對普通

11、用戶設(shè)工具欄的某些按鈕不可用 Toolbar1.Buttons(3).Enabled = False Toolbar1.Buttons(6).Enabled = False Toolbar1.Buttons(7).Enabled = False Toolbar1.Buttons(9).Enabled = False End IfEnd Subl 定時器（Timer1）處理程序（Timer）Private Sub Timer1_Timer() StatusBar1.Panels(3).Text = Now在狀態(tài)欄中顯示當前時間End Subl 工具欄（Toolbar1）處理程序（ButtonCl

12、ick）Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 Form11.Show (1)用戶管理 Case 3 Form21.Show (1)學生基本信息維護 Case 4 Form22.Show (1)學生基本信息查詢 Case 6 Form31.Show (1)課程添加 Case 7 Form32.Show (1)課程刪除 Case 9 Form41.Show (1)學生成績維護 Case 10 Form42.Show (1)學生成績查詢

13、Case 12 Unload Me系統(tǒng)退出 End SelectEnd Subl “用戶管理”菜單項處理程序（AA1Click）Private Sub AA1_Click() Form11.Show (1)End Subl “退出”菜單項處理程序（AA3click）Private Sub AA3_Click() Unload MeEnd Subl “學生基本信息維護”菜單項處理程序（BB1click）Private Sub BB1_Click() Form21.Show (1)End Subl “學生基本信息查詢”菜單項處理程序（BB2click）Private Sub BB2_Click()

14、 Form22.Show (1)End Subl “課程添加”菜單項處理程序（CC1click）Private Sub CC1_Click() Form31.Show (1)End Subl “課程刪除”菜單項處理程序（CC2click）Private Sub CC2_Click() Form32.Show (1)End Subl “學生成績維護”菜單項處理程序（DD1click）Private Sub DD1_Click() Form41.Show (1)End Subl “學生成績查詢”菜單項處理程序（DD2click）Private Sub DD2_Click() Form42.Show

15、 (1)End Sub4.4. 用戶管理模塊4.4.1 說明創(chuàng)建、刪除用戶。設(shè)定用戶權(quán)限。4.4.2 窗體設(shè)計4.4.3 代碼設(shè)計l 上一條（Command1）處理（Click）Private Sub Command1_Click() Command2.Enabled = True Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Command1.Enabled = False Adodc1.Recordset.MoveFirst End IfEnd Subl 下一條（Command2）處理（Click）Private Su

16、b Command2_Click() Command1.Enabled = True Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Command2.Enabled = False Adodc1.Recordset.MoveLast End IfEnd Subl 添加（Command3）處理（Click）Private Sub Command3_Click() If Command3.Caption = "添加" Then Command3.Caption = "確定" Command1.E

17、nabled = False Command2.Enabled = False Command4.Enabled = False Adodc1.Recordset.AddNew Text1.SetFocus Else If Text1.Text = "" Then MsgBox ("用戶名不能為空") Exit Sub End If Command3.Caption = "添加" Adodc1.Recordset.Update Command1.Enabled = True Command2.Enabled = True Comman

18、d4.Enabled = True End IfEnd Subl 刪除（Command4）處理（Click）Private Sub Command4_Click() Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfEnd Subl 退出（Command5）處理（Click）Private Sub Command5_Click() Unload MeEnd Sub4.5. 學生基本信息管理模塊4.5.1 說明學生基本信息的添

19、加、刪除、查詢。該模塊有兩個窗體：學生基本信息維護窗體和學生基本信息查詢窗體4.5.2 學生基本信息維護窗體4.5.2.1. 窗體設(shè)計主要控件屬性如下表所示：對象名類型屬性值說明Form21窗體Caption學生基本信息維護學生基本信息維護窗體Adodc1AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString、RecordSource屬性都在界面中設(shè)置。作為DataGrid1的數(shù)據(jù)源RecordSourceCommandType2adCmdTable學生基本信息表DataGrid1DataGridDataSourceAdodc1用于顯示學生基本信息表內(nèi)容

20、Command1命令按鈕Caption退出4.5.2.2. 代碼設(shè)計l 窗體裝載處理程序（Load）Private Sub Form_Load() DataGrid1.AllowAddNew = True DataGrid1.AllowDelete = True DataGrid1.AllowUpdate = TrueEnd Subl 退出（Command1）處理（Click）Private Sub Command1_Click() Unload MeEnd Sub4.5.3 學生基本信息查詢窗體4.5.3.1. 窗體設(shè)計主要控件屬性如下表所示：對象名類型屬性值說明Form22窗體Captio

21、n學生基本信息查詢學生基本信息查詢窗體Adodc1AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString屬性在界面中設(shè)置，RecordSource屬性在代碼中設(shè)置。Adodc2AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString、RecordSource屬性都在界面設(shè)置。作為DataList1的數(shù)據(jù)源RecordSourceCommandType 1adCmdTextSELECT DISTINCT 班級名稱 FROM 學生基本信息表Check1復選按鈕Caption姓名選擇查詢條件Check2復選按鈕Captio

22、n學號Check3復選按鈕Caption班級Text1文本框用于輸入姓名Text2文本框用于輸入學號DataList1DataListRowSourceAdodc2用于選擇輸入班級名稱ListField班級名稱DataSourceAdodc2DataListField班級名稱DataGrid1DataGrid顯示查詢得到的學生基本信息Command1命令按鈕Caption查詢Command2命令按鈕Caption退出4.5.3.2. 代碼設(shè)計l 查詢（Command1）處理（Click ）Private Sub Command1_Click() Dim s1 As Strings1 = &qu

23、ot;" If Check1.Value = 1 Then If Text1.Text <> "" Then s1 = s1 & "姓名='" & Text1.Text & "'" End IfEnd If If Check2.Value = 1 Then If Text2.Text <> "" Then If s1 <> "" Then s1 = s1 & " and " End

24、If s1 = s1 & "學號='" & Text2.Text & "'" End IfEnd If If Check3.Value = 1 Then If DataList1.Text <> "" Then If s1 <> "" Then s1 = s1 & " and " End If s1 = s1 & "班級名稱='" & DataList1.Text & &q

25、uot;'" End If End If If s1 <> "" Then s1 = "where " & s1End If Adodc1.RecordSource = "select * from 學生基本信息表 " & s1 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End Subl 退出（Command2）處理（Click）Private Sub Command2_Click() Unload MeEnd Subl 窗體裝載處理程

26、序（Load）Private Sub Form_Load() DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = FalseEnd Sub4.6. 選課模塊4.6.1 說明該模塊為一個班級選課。4.6.2 課程添加窗體用于課程的添加和查詢4.6.2.1. 窗體設(shè)計主要控件屬性如下表所示：對象名類型屬性值說明Form31窗體Caption課程添加課程添加窗體Adodc1AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString屬性在界面中設(shè)置，R

27、ecordSource屬性在代碼中設(shè)置。Label1標簽Caption班級名稱Label2標簽Caption課程名稱Text1文本框用于輸入班級名稱Text2文本框用于輸入課程名稱DataGrid1DataGrid顯示該班級課程Command1命令按鈕Caption添加Command2命令按鈕Caption查詢Command3命令按鈕Caption退出4.6.2.2. 代碼設(shè)計l 添加（Command1）處理（Click）Private Sub Command1_Click() Dim s1 As String, s2 As String On Error Resume Next If Tex

28、t1.Text = "" Or Text2.Text = "" Then MsgBox ("輸入不能為空") Exit Sub End If s1 = "select * from 班級課程表 where 班級名稱='" s2 = Text1.Text & "' and 課程名稱='" & Text2.Text & "'" Adodc1.RecordSource = s1 & s2 Adodc1.Refresh

29、If Adodc1.Recordset.EOF = False Then Text1.SetFocus MsgBox "該記錄已存在,請重新輸入", , "警告" Exit Sub End If s1 = "select * from 班級課程表" Adodc1.RecordSource = s1 Adodc1.Refresh Adodc1.Recordset.MoveLast Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("班級名稱") = Text1.Text

30、Adodc1.Recordset.Fields("課程名稱") = Text2.Text Adodc1.Recordset.Update Adodc1.Refresh s1 = "select 課程名稱 from 班級課程表 where 班級名稱='" & Text1.Text & "'" Adodc1.RecordSource = s1 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1.Recordset Text2.SetFocus Text2.Tex

31、t = "" Exit SubEnd Subl 查詢（Command2）處理（Click）Private Sub Command2_Click() Dim s1 As String s1 = "select 課程名稱 from 班級課程表 where 班級名稱='" & Text1.Text & "'" Adodc1.RecordSource = s1 Adodc1.Refresh Set DataGrid1.DataSource = Adodc1.RecordsetEnd Subl 退出（Comman

32、d3）處理（Click）Private Sub Command3_Click() Unload MeEnd Subl 窗體裝載處理程序（Load）Private Sub Form_Load() DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = FalseEnd Sub4.6.3 課程刪除窗體4.6.3.1. 窗體設(shè)計主要控件屬性如下表所示：對象名類型屬性值說明Form32窗體Caption課程添加課程刪除及修改窗體Adodc1AdodcConnectionString連接所使用

33、的數(shù)據(jù)庫，ConnectionString、RecordSource屬性都在界面中設(shè)置。作為DataList1的數(shù)據(jù)源RecordSourceCommandType 1adCmdTextSELECT DISTINCT 班級名稱 from 班級課程表Adodc2AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString在界面中設(shè)置，RecordSource屬性在代碼中設(shè)置。Label1標簽Caption班級名稱Label2標簽Caption課程列表DataList1DataListRowSourceAdodc1用于選擇輸入班級名稱ListField班級名稱Da

34、taSourceAdodc1DataListField班級名稱DataGrid1DataGrid顯示查詢得到的學生基本信息4.6.3.2. 代碼設(shè)計l 退出（Command1）處理（Click）Private Sub Command1_Click() Unload MeEnd Subl 數(shù)據(jù)列表框（DataList1）處理（Click）Private Sub DataList1_Click() Dim s1 As String s1 = "select * from 班級課程表 where 班級名稱='" & DataList1.Text & &qu

35、ot;'" Adodc2.RecordSource = s1 Adodc2.Refresh Set DataGrid1.DataSource = Adodc2End Subl 窗體裝載處理程序（Load）Private Sub Form_Load() DataGrid1.AllowDelete = True DataGrid1.AllowUpdate = True DataGrid1.AllowAddNew = FalseEnd Sub4.7. 成績管理模塊4.7.1 說明進行學生成績的錄入及查詢。4.7.2 成績錄入窗體進行學生成績的添加、修改及刪除。4.7.2.1. 窗體

36、設(shè)計4.7.2.2. 代碼設(shè)計l 錄入（Command1）處理（Click）Private Sub Command1_Click() Dim s1 As String, s2 As String, s3 As String On Error Resume Next s1 = "select * from 學生成績表 " s2 = "where 學號='" & List2.Text & "' and " s3 = "課程名稱='" & List1.Text &

37、"'" Adodc3.RecordSource = s1 & s2 & s3 Adodc3.Refresh If Adodc3.Recordset.EOF = False Then Adodc3.Recordset.Fields(2) = Val(Text1.Text) Else Adodc3.Recordset.MoveLast Adodc3.Recordset.AddNew Adodc3.Recordset.Fields(0) = List2.Text Adodc3.Recordset.Fields(1) = List1.Text Adodc3.

38、Recordset.Fields(2) = Val(Text1.Text) End If Adodc3.Recordset.Update Adodc3.Refresh s1 = "select 學號,成績 from 學生成績表 where 課程名稱='" & List1.Text & "'" s2 = " and 學號 in (select 學號 from 學生基本信息表 " s3 = "where 班級名稱 ='" & DataList1.Text & &q

39、uot;')" Adodc3.RecordSource = s1 & s2 & s3 Adodc3.Refresh Set DataGrid1.DataSource = Adodc3End Subl 退出（Command1）處理（Click ）Private Sub Command2_Click() Unload MeEnd Subl 數(shù)據(jù)列表框（DataList1）處理（Click）Private Sub DataList1_Click() Dim s1 As String, s2 As String Set DataGrid1.DataSource = N

40、othing s1 = "select 課程名稱 from 班級課程表 " s2 = "where 班級名稱='" & DataList1.Text & "'" Adodc2.RecordSource = s1 & s2 Adodc2.Refresh If Adodc2.Recordset.EOF = True Then MsgBox "請在班級課程表里添加該班級的課程名稱" Exit Sub End If List1.Clear Adodc2.Recordset.MoveF

41、irst Do While Adodc2.Recordset.EOF = False List1.AddItem Adodc2.Recordset.Fields(0) Adodc2.Recordset.MoveNext Loop s1 = "select 學號 from 學生基本信息表 " s2 = "where 班級名稱='" & DataList1.Text & "'" Adodc2.RecordSource = s1 & s2 Adodc2.Refresh If Adodc2.Record

42、set.EOF = True Then MsgBox "請在學生信息表里添加該班級" Exit Sub End If List2.Clear Adodc2.Recordset.MoveFirst Do While Adodc2.Recordset.EOF = False List2.AddItem Adodc2.Recordset.Fields(0) Adodc2.Recordset.MoveNext LoopEnd Subl 窗體裝載處理程序（Load）Private Sub Form_Load() DataGrid1.AllowDelete = True DataGri

43、d1.AllowAddNew = False DataGrid1.AllowUpdate = FalseEnd Subl 列表框（List1）處理（Click）Private Sub List1_Click() Dim s1 As String, s2 As String, s3 As String s1 = "select 學號,成績 from 學生成績表 where 課程名稱='" & List1.Text & "'" s2 = " and 學號 in (select 學號 from 學生基本信息表 &quo

44、t; s3 = "where 班級名稱 ='" & DataList1.Text & "')" Adodc3.RecordSource = s1 & s2 & s3 Adodc3.Refresh Set DataGrid1.DataSource = Adodc3End Subl 列表框（List2）處理（Click）Private Sub List2_Click() Text1.Text = ""End Sub4.7.3 成績查詢窗體進行學生成績的查詢4.7.3.1. 窗體設(shè)計主要控件屬

45、性如下表所示：對象名類型屬性值說明Form42窗體Caption學生成績查詢學生成績查詢窗體Adodc1AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString在界面中設(shè)置，RecordSource屬性在代碼中設(shè)置。Adodc2AdodcConnectionString連接所使用的數(shù)據(jù)庫，ConnectionString在界面中設(shè)置，RecordSource屬性在代碼中設(shè)置。Option1(0)單選按鈕Caption按班級用于選擇查詢條件Option1(1)單選按鈕Caption按學號Label1標簽CaptionLabel1Label2標簽Caption

46、Label2Combo1組合框用于選擇班級名稱Combo2組合框用于選擇學號和課程名稱DataGrid1DataGrid用于顯示查詢得到的學生成績Command1命令按鈕Caption退出4.7.3.2. 代碼設(shè)計l 公共定義Option ExplicitDim opt As Integerl 組合框（Combo1）處理（Click）Private Sub Combo1_Click() Dim s1 As String, s2 As String Set DataGrid1.DataSource = Nothing Combo2.Clear If opt = 0 Then s1 = "

47、;select 課程名稱 from 班級課程表 where 班級名稱='" s2 = Combo1.Text & "' group by 課程名稱" Adodc2.RecordSource = s1 & s2 Else s1 = "select 學號 from 學生基本信息表 where 班級名稱='" s2 = Combo1.Text & "'" Adodc2.RecordSource = s1 & s2 End If Adodc2.Refresh Do While Adodc2.R