【正文】 Refresh_Eva 過程的代碼如下： Private Sub Refresh_Scores() 39。下面介紹窗體中的主要代碼。 設(shè)計(jì)學(xué)生成績排名窗體 學(xué)生成績排名窗體的名稱為 FrmScoresSor，窗體布局如圖所示。設(shè)置數(shù)據(jù)源 = conn = SELECT As 學(xué)生編號 , As 學(xué)生姓名 , _ + As 考試成績 , 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 語句將篩選出用戶選擇班級中所有學(xué)生的指定課程的成績記錄。 Refresh_Scores 過程用來更新 ADO Data 控件的記錄源，從而更新 D ataGrid 控件中顯示的內(nèi)容。 38 圖 417 窗體 FrmScoresMan 的布局 窗體中使用 DataGrid 控件顯示滿足 條件的學(xué)生成績記錄，使用 ADO Data控件提供數(shù)據(jù)源。然后，再將學(xué)生姓名添加到 ComboStu 組合框中。把數(shù)組中的學(xué)生姓名依次添加到 ComboStu 組合框中 i = 0 Do While Arr_StuName(i) 37 Arr_StuName(i) i = i + 1 Loop 39。 2. Form_Load 過程 當(dāng)裝入窗體時觸發(fā) Form_Load 過程，代碼如下： Private Sub Form_Load() Dim i As Integer 39。當(dāng) Modify=True 時，表示修改已有的數(shù)據(jù)；當(dāng) Modify=False 時，表示插入新的數(shù)據(jù)。下面分析窗體 FrmScoresEdit 中部分過程的代碼。 設(shè)計(jì)學(xué)生成績編輯窗體 學(xué)生成績編輯窗體名稱為 FrmScoresEdit 窗體布局如圖所示。 4. 查看學(xué)生成績信息。 2. 修改學(xué)生成績信息。 過程 RefreshData 過程的功能是設(shè)置 Adodc1 控件的數(shù)據(jù)源，在表格中顯示滿足條件的課程安排記錄，代碼如下： Private Sub RefreshData() 39。設(shè)置記錄源 = conn = SELECT * FROM Terms ORDER BY TermName = TermName = TermId = 39。 Form_Load 過程。 圖 415窗體 FrmArrangeMan 的布局 35 在編輯課程安排信息時，需要選擇學(xué)期和班級信息。根據(jù)變量 Modify 決定是插入新數(shù)據(jù)，還是 更新已有的數(shù)據(jù) If Modify = False Then .Insert Else Call .Update(OriId) End If End With MsgBox 編輯完成 39。 .Term = MakeStr(txtTerm) 39。 .LessonType = Trim() 34 39。判斷是否輸入了課程名稱 If Len(Trim(txtName)) = 0 Then MsgBox 請輸入課程名稱 = 0 = Len(txtName) Exit Sub End If 39。 設(shè)計(jì)課程安排編輯窗體 課程安排編輯窗體的名稱為 FrmArrangeEdit，窗體布局如圖所示。 3. 刪除課程安排記錄。 33 圖 413 窗體 FrmLessonMan 布局 課程安排管理模塊設(shè)計(jì) 課程安排管理模塊可以安排每個學(xué)期的課程，主要包括以下功能： 1. 創(chuàng)建課程安排記錄。窗體屬性與登錄窗體相似。 4. 查看課程記錄。 2. 修改課程記錄。 = AdoTermList = TermName 32 = TermId End Sub 程序?qū)⒃O(shè)置 AdoTermList 的數(shù)據(jù)源，把學(xué)期名稱按照順序添加到 DataList列表中。 窗體啟動時觸發(fā) Form_Load 事件，代碼如下： Private Sub Form_Load() 39。 圖 411 窗體 FrmTermMan 的布局 窗體中使用 DataList 控件顯示 所有學(xué)期 的列表，使用 ADO Data 控件為DataList 控件提供數(shù)據(jù)源。 在保存記錄時，需要首先判斷此記錄是否存在。修改 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。插入 39。將新輸入的數(shù)據(jù)保存到類變量中 With MyTerm .TermName = MakeStr(txtTerm) 39。 圖 410 窗體 FrmTermedit 的布局 當(dāng)單擊“確定”按鈕時觸發(fā) Cmd_OK_Click 事件，對應(yīng)的代碼如下： Private Sub Cmd_OK_Click() 39。 設(shè)計(jì)學(xué)期信息編輯窗體 學(xué)期信息編輯窗體的名稱為 FrmTermEdit，窗體布局如下圖所示。 3. 刪除學(xué)生記錄。將選擇學(xué)生的數(shù)據(jù)保存在 SelStu 變量中 = () Unload Me End Sub 30 學(xué)期信息管理模塊設(shè)計(jì) 學(xué)期信息管理模塊可以實(shí)現(xiàn)以下功能： 1. 創(chuàng)建學(xué)期記錄。 Cmd_OK_Click 過程 當(dāng)單擊“確定”按鈕時觸發(fā) Cmd_OK_Click 事件，對應(yīng)的代碼如下： Private Sub Cmd_OK_Click() 39。讀取當(dāng)前學(xué)生信息到 MyStu () End Sub 的值是當(dāng)前選擇學(xué)生的 Student_Id 字段值。 1. Datalist1_Click 過程 當(dāng)單擊學(xué)生列表（ DataList1 控件）時觸發(fā) DataList1_Click 事件，對應(yīng)代碼如下： Private Sub DataList1_Click() 39。 窗體屬性與選擇信息窗體相似，窗體中主要控件的屬性與學(xué)生信息管理窗體中對應(yīng)控件的屬性相似 FrmStuStu1 窗體的布局如下圖所示。 設(shè)計(jì)選擇學(xué)生信息窗體 為了方便用戶在其他模塊中選擇學(xué)生，設(shè)計(jì)一個選擇學(xué)生信息的窗體，窗體名稱為 FrmStuSe1。在窗體的右側(cè)部分使用 Label 控件顯示當(dāng)前學(xué)生的基本信息，每個 Label 控件的 DataSoruce 屬性都被設(shè)置為 AdoStuDetail， DataFie1d 屬性被設(shè)置為相對應(yīng)的字段。 圖 48 學(xué)生信息管理窗體布局 窗體屬性與登錄窗體相似，窗體中主要控件的屬性如下表所示 設(shè)置窗體中主要控件的屬性 對象名 屬性 屬性值 28 DataList1 Boundcolumn Student_id Listfie1d Student_name Rowsource Adostunamelist Lb1_stu_name Datafie1d Student_name Lb1_sex Datafie1d Sex Lb1_nationality Datafie1d Nationality Lb1_birth Datafie1d Birth Lb1_fanukt_piace Datafie1d Family_place Lb1_title Datafie1d Title Lb1_id_card Datafie1d Id_card Lb1_badgeID Datafie1d Badegid Lb1_residence Datafie1d Residence Lb1_honephone Datafie1d Home_phone Lb1_postcode Datafie1d Postcode Lb1_indate Datafie1d Indate Lb1_memo Datafie1d Memo Lb1_fillin_time Datafie1d Fillin_time Cmd_add caption 添加學(xué)生 Cmd_modi caption 修改資料 Cmd_de1 caption 刪除學(xué)生 Cmd_back caption 返回 窗體中使用了兩個 ADO Data 控件，分別為學(xué)生列表控件和學(xué)生的各項(xiàng)屬性控件提供數(shù)據(jù)源。窗體 FrmStuEdit 的布局如圖所示。 學(xué)生基本信息管理模塊設(shè)計(jì) 學(xué)生基本信息管理模塊可以實(shí)現(xiàn)以下功能： 1. 創(chuàng)建學(xué)生記錄 2. 修改學(xué)生基本信息 3. 刪除學(xué)生記錄 4. 查看學(xué)生基本信息 設(shè)計(jì)學(xué)生信息編輯窗體 編輯學(xué)生信息的窗體可以用來添加和修改學(xué)生的基本信息，基本信息中并不包含照片。也需要使用 TreeView控件來顯示院系班級，使用 ImageList 控件來管理 TreeView 控件中的圖像信息 。它的布局如下圖所示 圖 46 院系班級選擇窗體布 局 26 窗體屬性如下表所示。將“圖像列別”屬性設(shè)置為 ImageList1，其他屬性可以根據(jù)需要設(shè)置。 在窗體中添加一個 TreeView 控件。右擊此控件，選擇菜單中的“屬性”命令，打開“屬性頁”對話框。 24 設(shè)計(jì)院系信息編輯窗體 編輯院系信息的窗體可以用來修改院系信息，窗體名稱設(shè)置為 Frm Class Edit，窗體布局如下所示 圖 44 窗體 FrmClassEdit 的布局 設(shè)計(jì)院系信息管理窗體 院系信息管理窗體的名稱設(shè)置為 FrmClassMan。通過遞歸調(diào)用，所有的結(jié)點(diǎn)都將依次被處理到。 在向 Tree View 控件中添加結(jié)點(diǎn)時，通常需要使用遞歸函數(shù)，即在函數(shù)代碼中隊(duì)自身進(jìn)行調(diào)用。 用戶要調(diào)用次過程時，應(yīng)首先把根據(jù)點(diǎn) a0 添加到 Tree View 控件中，因?yàn)樗⒉皇且粋€具體的院系。過程根據(jù) TmpKey 得到院系班級的編號，從 而獲得院系班級的所有信息，包括它的下一級院系班級。在本實(shí)例中，我們規(guī)定關(guān)鍵字的格式為“ a”加上院系班級編號，如果院系班級的編號為 1，則此院系班級在 TreeView 控件中的關(guān)鍵字為“ a1”。它的功能是把所有的院系班級名臣按照上下級關(guān)系添加到 TreeView 控件中。在這里， ImageList 控件用來為 TreeView 控件提供圖像。在這一小節(jié)中，將使用其中的 Tree View 控件和 ImageList 控件。如果在列表中沒有此選項(xiàng)，請下載并安裝 Visual 的升級補(bǔ)丁。選擇“工程”菜單中的“部件”命令，打開“部件”屬性對話框。TreeView 控件時顯示 Node（結(jié)點(diǎn)）對象的分層列表，每個 Node 對象均由一個標(biāo)簽和一個可選的位圖組成。 4. 查看院系班級數(shù)據(jù)。 23 2. 修改院系班級記錄。如果不能通過身份驗(yàn)證，則不能進(jìn)入系統(tǒng)。 Data Source= + + \學(xué)生成績 .mdb。 圖 42 學(xué)生成績管理系統(tǒng)主界面 22 學(xué)生成績管理系統(tǒng)主界面 圖 43 菜單編輯器 在主窗體 Frmmain 中添加如下代碼： Private Sub Form_Load() 39。 菜單項(xiàng)的屬性 標(biāo)題 名稱 基本信息管理 Mn_i … 院系管理 Mn_class … 學(xué)生管理 Mn_student … 退出系統(tǒng) Mn_exit 學(xué)生成績管理 Mn_2 … 學(xué)期管理 Mn_term … 課程管理 Mn_lesson … 排課管理 Mn_arrange … 成績管理 Mn_score … 成績排名 Mn_sort 系統(tǒng)用戶管理 Mn_3 … 用戶管理 Mn_user … 修改密碼 Mn_pwd 菜單編輯器如圖所示。本實(shí)例中窗體名為 FrmMain。