【正文】 rc As Dim myBookmark As VariantDim mcclean As BooleanPrivate Sub editCommand_Click() mcclean = False = False = False = False = False = False = True = True = True = True = True = True = True = True = True myBookmark = End SubPrivate 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 MsgBox 什么都沒有修改，有什么好取消的！, vbOKOnly + vbExclamation, 警告 End If End SubPrivate 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 IfEnd SubPrivate Sub firstCommand_Click() Call viewDataEnd SubPrivate 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 SubPublic Sub viewData() = (0) = (1) = (2) = Format((3), yyyymmdd) = (4) = (5) = Format((6), yyyymmdd) = (7) = (8)End SubPrivate Sub lastCommand_Click() Call viewDataEnd SubPrivate Sub nextCommand_Click() If Then End If Call viewDataEnd SubPrivate Sub previousCommand_Click() If Then End If Call viewDataEnd SubPrivate 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 If Not Testtxt() Then MsgBox 請輸入學(xué)號！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入姓名！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請選擇性別！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入出生日期！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請選擇班號！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入聯(lián)系電話！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入入校日期！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入家庭住址！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsNumeric(Trim()) Then MsgBox 學(xué)號請輸入數(shù)字！, vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = select * from student_Info where student_ID = 39。 Set mrcc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 學(xué)號重復(fù)，請重新輸入！, vbOKOnly + vbExclamation, 警告 Else If Not IsDate() Then MsgBox 出生時(shí)間應(yīng)輸入日期格式（yyyymmdd）！, vbOKOnly + vbExclamation, 警告 Else txtBorndate = Format(txtBorndate, yyyymmdd) If Not IsDate() Then MsgBox 入校時(shí)間應(yīng)輸入日期格式（yyyymmdd）！, vbOKOnly + vbExclamation, 警告 Else txtRudate = Format(txtRudate, yyyymmdd) (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (8) = Trim() MsgBox 修改學(xué)籍信息成功！, vbOKOnly + vbExclamation, 修改學(xué)籍信息 =。 Trim() amp。 Trim() amp。 amp。 Trim() amp。 Trim() amp。 amp。 Trim() amp。 Trim() amp。 amp。記錄確定次數(shù)Dim miCount As IntegerPrivate Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize 0 Then = Else = vbNullString End If OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False End SubPrivate Sub cmdOK_Click() Dim txtSQL As String Dim mrc As Dim MsgText As String 39。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，學(xué)校管理者接口不夠美觀，出錯(cuò)處理不夠等多方面問題。有條件的應(yīng)該定期對數(shù)據(jù)庫文件進(jìn)行拷貝備份，防止因意外或人為因素導(dǎo)致數(shù)據(jù)庫文件的破壞而造成數(shù)據(jù)丟失的損失，保證系統(tǒng)的正常運(yùn)行。后查閱文檔，改用Click事件放更新代碼，運(yùn)行正常。2．ComboxBox的使用在程序許多對話框中都要用到改變一個(gè)ComboBox的選擇項(xiàng)，其他的相關(guān)ComboBox的內(nèi)容要進(jìn)行相應(yīng)的改變，如在學(xué)院的ComboBox中選定了某個(gè)年級，則相應(yīng)的專業(yè)ComboBox的內(nèi)容應(yīng)變?yōu)檫@個(gè)學(xué)院的專業(yè)項(xiàng)。由于測試項(xiàng)目內(nèi)容較多，無法在此一一羅列，故將幾個(gè)在測試中發(fā)現(xiàn)的主要問題列出。以及對象的接口的容錯(cuò)性。圖614 幫助模塊的設(shè)計(jì)一個(gè)良好的WINDOWS應(yīng)用程序應(yīng)該提供一個(gè)ABOUT窗口，基中包括系統(tǒng)的名稱、所有權(quán)等。圖612 修改成績信息窗體的創(chuàng)建選擇“成績管理—修改成績信息”菜單。圖69 課程設(shè)置模塊的創(chuàng)建課程設(shè)置模塊主要實(shí)現(xiàn)如下功能：◇ 添加課程信息◇ 修改課程信息◇ 設(shè)置年級課程 添加課程信息窗體的創(chuàng)建選擇“課程設(shè)置—添加課程信息”菜單，將出現(xiàn)如圖610所示的窗體。