【正文】 28 圖 62 修改班級信息界面圖 本系統(tǒng)的其他模塊的功能也都能一一實(shí)現(xiàn)，由于操作步驟類似，在這里就不再贅述了。 輸入正確的用戶名和密碼后就會出現(xiàn)如圖 43 所示的系統(tǒng)主界面。 order by student_ID Set mrc = ExecuteSQL(txtSQL, MsgText) With myflexgrid .Rows = 2 .CellAlignment = 4 .TextMatrix(1, 0) = 學(xué)號 .TextMatrix(1, 1) = 姓名 .TextMatrix(1, 2) = 性別 .TextMatrix(1, 3) = 出生日期 26 .TextMatrix(1, 4) = 班號 .TextMatrix(1, 5) = 聯(lián)系電話 .TextMatrix(1, 6) = 入校日期 .TextMatrix(1, 7) = 家庭住址 Do While Not .Rows = .Rows + 1 .CellAlignment = 4 .TextMatrix(.Rows 1, 0) = (0) .TextMatrix(.Rows 1, 1) = (1) .TextMatrix(.Rows 1, 2) = (2) .TextMatrix(.Rows 1, 3) = Format((3), yyyymmdd) .TextMatrix(.Rows 1, 4) = (4) .TextMatrix(.Rows 1, 5) = (5) .TextMatrix(.Rows 1, 6) = Format((6), yyyymmdd) .TextMatrix(.Rows 1, 7) = (7) Loop End With End Sub Private Sub Form_Load() With myflexgrid .CellAlignment = 4 .TextMatrix(1, 0) = 學(xué)號 .TextMatrix(1, 1) = 姓名 .TextMatrix(1, 2) = 性別 27 .TextMatrix(1, 3) = 出生日期 .TextMatrix(1, 4) = 班號 .TextMatrix(1, 5) = 聯(lián)系電話 .TextMatrix(1, 6) = 入校日期 .TextMatrix(1, 7) = 家庭住址 End With End Sub 因為 本系統(tǒng)中很多功能模塊具有相似之處，因此在這里 只用 學(xué)生學(xué)籍管理 模塊進(jìn)行一個簡單的說明。 amp。 amp。 39。 Else txtSQL = txtSQL amp。 and student_Name = 39。 amp。 圖 54 修改學(xué)籍信息模塊 圖 Dim mrc As Dim myBookmark As Variant Dim mcclean As Boolean Private Sub editCommand_Click() mcclean = False = False = False = False = False = False = True = True 19 = True = True = True = True = True = True = True myBookmark = End Sub Private Sub cancelCommand_Click() If Not mcclean Then = True = True = True = True = True = False = False = False = False = False = False = False = False = False = myBookmark Call viewData Else 20 MsgBox 什么都沒有修改， 確定取消？ , vbOKOnly + vbExclamation, 警告 End If End Sub Private Sub deleteCommand_Click() myBookmark = str2$ = MsgBox(是否刪除當(dāng)前記錄？ , vbOKCancel, 刪除當(dāng)前記錄 ) If str2$ = vbOK Then If Then myBookmark = = myBookmark Call viewData Else myBookmark = = myBookmark Call viewData End If Else = myBookmark Call viewData End If End Sub 21 Private Sub firstCommand_Click() Call viewData End Sub Private Sub Form_Load() Dim txtSQL As String Dim MsgText As String txtSQL = select * from student_Info Set mrc = ExecuteSQL(txtSQL, MsgText) Call viewData mcbookmark = mcclean = True End Sub Public Sub viewData() = (0) = (1) = (2) = Format((3), yyyymmdd) = (4) = (5) = Format((6), yyyymmdd) = (7) = (8) End Sub Private Sub lastCommand_Click() 22 Call viewData End Sub Private Sub nextCommand_Click() If Then End If Call viewData End Sub Private Sub previousCommand_Click() If Then End If Call viewData End Sub Private Sub updateCommand_Click() Dim txtSQL As String Dim MsgText As String Dim mrcc As If mcclean Then MsgBox 請先修改學(xué)籍信息 , vbOKOnly + vbExclamation, 警告 Exit Sub End If 23 ? (這部分修改學(xué)生學(xué)籍信息的代碼類似于添加學(xué)生學(xué)籍信息的代碼，在這里將不再贅述 ) End Sub 在該模塊中選擇“查詢學(xué)籍信息”將出現(xiàn)圖 55所示界面，在這個界面上可以查詢系統(tǒng)中所有學(xué)生的學(xué)籍信息。 16 Trim() amp。 圖 52 學(xué)生學(xué)籍信息管理模塊的具體界面 圖 在該模塊中選擇“添加學(xué)籍信息”將出現(xiàn)圖 53所示界面，在這個界面上可以向系統(tǒng)中添加學(xué)生的學(xué)籍信息。 amp。 39。ToDo: create test for correct password 12 39。 5 代碼分析與實(shí)現(xiàn) 本部分主要內(nèi)容 是介紹 本系統(tǒng) 的一些 主要界面 及相應(yīng) 的源代碼。 班級 管理模塊 界面設(shè)計 該模塊的主要功能是實(shí)現(xiàn)對 全校班級信息的管理 ，包括 添加班級信息和修改班級信息兩個模塊 ，從而方便學(xué)校管理部門對學(xué)校的 班級 情況 進(jìn)行管理。 該系統(tǒng)主界面如圖 43所示，選