【導(dǎo)讀】本問(wèn)敘述了成績(jī)管理的現(xiàn)狀以及visual語(yǔ)言的概況。庫(kù)升級(jí)、系統(tǒng)實(shí)現(xiàn)。本系統(tǒng)主要功能有用戶(hù)管理、學(xué)生注冊(cè)、班級(jí)信息錄入、學(xué)。據(jù)查詢(xún)、打印輸出等功能?？偨Y(jié)了本系統(tǒng)的特點(diǎn)：界面美觀、操作方便、效率高，從而節(jié)約學(xué)生成績(jī)管理成本。第二章概述了管理信息系統(tǒng)的相關(guān)理論及開(kāi)發(fā)語(yǔ)言的有關(guān)知識(shí)，第三章。對(duì)本系統(tǒng)進(jìn)行了系統(tǒng)分析和設(shè)計(jì)，包括功能需求描述、數(shù)據(jù)庫(kù)設(shè)計(jì)等內(nèi)容。章介紹了本系統(tǒng)的具體實(shí)現(xiàn)。第五章關(guān)于本系統(tǒng)開(kāi)發(fā)過(guò)程的結(jié)論。

　　

【正文】 。此過(guò)程的主要作用是根據(jù) 的值獲取學(xué)生信息，并將其保存在 MyStudent 變量中。 Cmd_OK_Click 過(guò)程 當(dāng)單擊“確定”按鈕時(shí)觸發(fā) Cmd_OK_Click 事件，對(duì)應(yīng)的代碼如下： Private Sub Cmd_OK_Click() 39。如果沒(méi)有選擇學(xué)生 ,則提示重新選擇 If = 0 Then MsgBox 請(qǐng)選擇學(xué)生 Exit Sub End If 39。將選擇學(xué)生的數(shù)據(jù)保存在 SelStu 變量中 = () Unload Me End Sub 30 學(xué)期信息管理模塊設(shè)計(jì) 學(xué)期信息管理模塊可以實(shí)現(xiàn)以下功能： 1. 創(chuàng)建學(xué)期記錄。 2. 修改學(xué)生記錄。 3. 刪除學(xué)生記錄。 4. 查看學(xué)期記錄。 設(shè)計(jì)學(xué)期信息編輯窗體 學(xué)期信息編輯窗體的名稱(chēng)為 FrmTermEdit，窗體布局如下圖所示。窗體屬性與登錄窗體相似。 圖 410 窗體 FrmTermedit 的布局 當(dāng)單擊“確定”按鈕時(shí)觸發(fā) Cmd_OK_Click 事件，對(duì)應(yīng)的代碼如下： Private Sub Cmd_OK_Click() 39。檢查用戶(hù)錄入數(shù)據(jù)的有效性 If Trim(txtTerm) = Then MsgBox 請(qǐng)輸入學(xué)期名稱(chēng) Exit Sub End If 39。將新輸入的數(shù)據(jù)保存到類(lèi)變量中 With MyTerm .TermName = MakeStr(txtTerm) 39。根據(jù)變量 Modify 決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then 39。插入 39。調(diào)用 In_DB()函數(shù)判斷用戶(hù)輸入的名稱(chēng)是否已經(jīng)存在 If .In_DB(.TermName) = True Then MsgBox Trim(txtTerm) + 已經(jīng)存在 Exit Sub End If .Insert Else 39。修改 If OriName Trim(txtTerm) Then 31 If .In_DB(Trim(txtTerm)) = True Then MsgBox Trim(txtTerm) + 已經(jīng)存在 Exit Sub End If End If .Update (OriId) End If End With MsgBox 編輯完成 39。關(guān)閉窗口 Unload Me End Sub 變量 OriId 保存當(dāng)前編輯的學(xué)期記錄編號(hào)，變量 OriName 保存當(dāng)前編輯的學(xué)期記錄名稱(chēng)。 在保存記錄時(shí)，需要首先判斷此記錄是否存在。 設(shè)計(jì)學(xué)期信息管理窗體 學(xué)期信息管理窗體的名稱(chēng)為 FrmTermMan，窗體的布局如圖所示。 圖 411 窗體 FrmTermMan 的布局 窗體中使用 DataList 控件顯示 所有學(xué)期 的列表，使用 ADO Data 控件為DataList 控件提供數(shù)據(jù)源。下面介紹窗體 FrmTermMan 中的 Form_Load 過(guò)程。 窗體啟動(dòng)時(shí)觸發(fā) Form_Load 事件，代碼如下： Private Sub Form_Load() 39。設(shè)置記錄源 = conn = SELECT * FROM Terms ORDER BY TermName 39。 = AdoTermList = TermName 32 = TermId End Sub 程序?qū)⒃O(shè)置 AdoTermList 的數(shù)據(jù)源，把學(xué)期名稱(chēng)按照順序添加到 DataList列表中。 課程信息管理模塊設(shè)計(jì) 課程信息管理模塊可以實(shí)現(xiàn)以下功能： 1. 創(chuàng)建課程記錄。 2. 修改課程記錄。 3. 刪除課程記錄。 4. 查看課程記錄。 設(shè)計(jì)課程信息編輯窗體 課程信息編輯窗體的名稱(chēng)為 FrmLessonEdit，窗體布局如圖所示。窗體屬性與登錄窗體相似。 圖 412 窗體 FrmLessonEdit 的布局 設(shè)計(jì)課程信息管理窗體 課程信息管理窗體的名稱(chēng)為 FrmLessonMan，窗體的布局如圖所示。 33 圖 413 窗體 FrmLessonMan 布局 課程安排管理模塊設(shè)計(jì) 課程安排管理模塊可以安排每個(gè)學(xué)期的課程，主要包括以下功能： 1. 創(chuàng)建課程安排記錄。 2. 修改課程安排記錄。 3. 刪除課程安排記錄。 4. 查看課程安排記錄。 設(shè)計(jì)課程安排編輯窗體 課程安排編輯窗體的名稱(chēng)為 FrmArrangeEdit，窗體布局如圖所示。 圖 414 窗體 FrmArrangeEdit 的布局 當(dāng)單擊“確定”按鈕時(shí)觸發(fā) Cmd_OK_Click 事件，對(duì)應(yīng)的代碼如下： Private Sub Cmd_OK_Click() 39。判斷是否輸入了課程名稱(chēng) If Len(Trim(txtName)) = 0 Then MsgBox 請(qǐng)輸入課程名稱(chēng) = 0 = Len(txtName) Exit Sub End If 39。把用戶(hù)錄入的數(shù)據(jù)賦值到 MyLesson 對(duì)象的成員變量中 With MyLesson .LessonName = MakeStr(txtName) 39。 .LessonType = Trim() 34 39。 .Teacher = MakeStr(txtTeacher) 39。 .Term = MakeStr(txtTerm) 39。 .Hours = Val(txtHours) 39。根據(jù)變量 Modify 決定是插入新數(shù)據(jù)，還是 更新已有的數(shù)據(jù) If Modify = False Then .Insert Else Call .Update(OriId) End If End With MsgBox 編輯完成 39。關(guān)閉窗口 Unload Me End Sub 設(shè)計(jì)課程安排管理窗體 課程安排管理窗體為 FrmArrangeMan，窗體的布局如圖所示。 圖 415窗體 FrmArrangeMan 的布局 35 在編輯課程安排信息時(shí)，需要選擇學(xué)期和班級(jí)信息。下面接受窗體中的幾段關(guān)鍵代碼。 Form_Load 過(guò)程。 將窗體啟動(dòng)時(shí)觸發(fā) Form_Load 事件，代碼如下： Private Sub Form_Load() 39。設(shè)置記錄源 = conn = SELECT * FROM Terms ORDER BY TermName = TermName = TermId = 39。刷新表格數(shù)據(jù) RefreshData End Sub 程序?qū)⒃O(shè)置 Ado Term 的數(shù)據(jù)源，把續(xù)期名稱(chēng)按照順序添加到 DataCombo1列表中。 過(guò)程 RefreshData 過(guò)程的功能是設(shè)置 Adodc1 控件的數(shù)據(jù)源，在表格中顯示滿(mǎn)足條件的課程安排記錄，代碼如下： Private Sub RefreshData() 39。設(shè)置數(shù)據(jù)源 = conn = SELECT , , , , _ + As 課程名稱(chēng) , As 課程類(lèi)型 , As 授課教師 , _ + As 課時(shí) FROM Arrangement a, Lessons l WHERE = _ + AND = + Trim() + And = _ + Trim(Val()) With DataGrid1 .Columns(0).Width = 0 .Columns(1).Width = 0 .Columns(2).Width = 0 .Columns(3).Width = 0 End With End Sub 36 學(xué)生成績(jī) 管理模塊設(shè)計(jì) 學(xué)生成績(jī)管理模塊可以實(shí)現(xiàn)以下功能： 1. 創(chuàng)建學(xué)生成績(jī)信息。 2. 修改學(xué)生成績(jī)信息。 3. 刪除學(xué)生成績(jī)信息。 4. 查看學(xué)生成績(jī)信息。 5. 查看學(xué)生總成績(jī)排名表。 設(shè)計(jì)學(xué)生成績(jī)編輯窗體 學(xué)生成績(jī)編輯窗體名稱(chēng)為 FrmScoresEdit 窗體布局如圖所示。 圖 416 窗體 FrmScoresEdit 的布局 窗體屬性定義與登錄窗體相似。下面分析窗體 FrmScoresEdit 中部分過(guò)程的代碼。 1. 公共變量 變量 Modify 用來(lái)標(biāo)記當(dāng)前的數(shù)據(jù)庫(kù)訪問(wèn)狀態(tài)。當(dāng) Modify=True 時(shí)，表示修改已有的數(shù)據(jù)；當(dāng) Modify=False 時(shí)，表示插入新的數(shù)據(jù)。 變量 TmpAid 保存當(dāng)前編輯的課程安排編號(hào)；變量 TmpCid 保存當(dāng)前選擇的班級(jí)編號(hào)；變量 OriStuName 在編輯成績(jī)信息時(shí)保存當(dāng)前的學(xué)生姓名。 2. Form_Load 過(guò)程 當(dāng)裝入窗體時(shí)觸發(fā) Form_Load 過(guò)程，代碼如下： Private Sub Form_Load() Dim i As Integer 39。把當(dāng)前班級(jí)的所有學(xué)生信息裝入到數(shù)組中 (TmpCid) 39。把數(shù)組中的學(xué)生姓名依次添加到 ComboStu 組合框中 i = 0 Do While Arr_StuName(i) 37 Arr_StuName(i) i = i + 1 Loop 39。根據(jù)當(dāng)前的狀態(tài)，設(shè)置學(xué)生姓名 If Modify = False Then If 0 Then = 0 End If Else If InCombo(OriStuName, ComboStu) = True Then = OriStuName End If End If End Sub 程序調(diào)用 過(guò)程，將制定班級(jí)的所有學(xué)生姓名都裝入到公共數(shù)組 Arr_StuName()中。然后，再將學(xué)生姓名添加到 ComboStu 組合框中。 設(shè)計(jì)學(xué)生成績(jī)管理窗體 學(xué)生成績(jī)管理窗體的名稱(chēng)為 FrmScoresMan，窗體布局如圖所示。 38 圖 417 窗體 FrmScoresMan 的布局 窗體中使用 DataGrid 控件顯示滿(mǎn)足 條件的學(xué)生成績(jī)記錄，使用 ADO Data控件提供數(shù)據(jù)源。下面介紹窗體中的主要代碼。 Refresh_Scores 過(guò)程用來(lái)更新 ADO Data 控件的記錄源，從而更新 D ataGrid 控件中顯示的內(nèi)容。 Refresh_Eva 過(guò)程的代碼如下： Private Sub Refresh_Scores() 39。設(shè)置數(shù)據(jù)源 = conn = SELECT As 學(xué)生編號(hào) , As 學(xué)生姓名 , _ + As 考試成績(jī) , FROM Students s, Scores s1, Arrangement a _ + WHERE = + Trim() _ + And = And = _ + And = + Trim(Val()) + AND = _ + Trim(Val()) + AND = ORDER 39 BY DESC With DataGrid1 .Columns(0).Width = 0 .Columns(1).Width = 3200 .Columns(2).Width = 3500 .Columns(3).Width = 0 End With End Sub 此 SELECT 語(yǔ)句將篩選出用戶(hù)選擇班級(jí)中所有學(xué)生的指定課程的成績(jī)記錄。(i).Width 可以設(shè)置表格控件中第 i+1 列的寬度。 設(shè)計(jì)學(xué)生成績(jī)排名窗體 學(xué)生成績(jī)排名窗體的名稱(chēng)為 FrmScoresSor，窗體布局如圖所示。 圖 418 窗體 FrmScoresSort 的布局 窗體中使用 DataGrid 控件來(lái)顯示滿(mǎn)足條件的學(xué)生總成績(jī)記錄，使用 ADO Data 控件提供數(shù)據(jù)源。下面介紹窗體中的主要代碼。 Refresh_Scores 過(guò)程用來(lái)更新 ADO Data 控件的記錄源，從而更新40 DataGrid 控件中顯示的內(nèi)容。 Refresh_Eva 過(guò)程的代碼如下： Private Sub Refresh_Scores() 39。設(shè)置數(shù)據(jù)源 = conn = SELECT As 學(xué)生姓名 , _ + SUM() As 考試成績(jī) FROM S