【正文】 ormation + vbOKOnly, 警告)Exit SubEnd Ifmodi = False (0)End Sub單擊“檔案瀏覽”菜單，調(diào)用學(xué)生檔案瀏覽窗體Private Sub liulan_Click()qxstr = Executeqx(2)If qxstr = false Thenss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告)Exit SubEnd Iffind = FalseEnd Sub單擊“檔案查詢”菜單，調(diào)用檔案查詢窗體Private Sub claasfind_Click()qxstr = Executeqx(2)If qxstr = false Thenss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告)Exit SubEnd If (0)i = SetWindowPos(, 1, 0, 0, 0, 0, 3)End Sub單擊“添加學(xué)生交費(fèi)”菜單，調(diào)用添加交費(fèi)窗體Private Sub jiaofeiadd_Click()qxstr = Executeqx(3)If qxstr = false Or qxstr = readonly Thenss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告)Exit SubEnd If 0End Sub單擊“查詢學(xué)生交費(fèi)”菜單，調(diào)用查詢交費(fèi)窗體Private Sub jiaofeibrowse_Click()qxstr = Executeqx(3)If qxstr = false Thenss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告)Exit SubEnd If 0End Sub其他菜單項(xiàng)Click事件代碼與前面列出的相似。5. 學(xué)生檔案窗體代碼Private Sub Command1_Click()For j = 0 To 7If Text1(j) = Thenss = MsgBox(Label1(j).Caption amp。 不能為空！, vbExclamation + vbOKOnly, 警告)Text1(j).SetFocusText1(j).SelStart = 0Text1(j).SelLength = Len(Text1(j).Text)Exit SubEnd IfNextDim mrc As txtsql1 = select * from xj where 學(xué)號(hào)=39。 amp。 Trim(Text1(0).Text) amp。 39。Set mrc = ExecuteSQL(txtsql1)If modi = False Then判斷是否是修改學(xué)生檔案若不是修改是添加新檔案If = False Thenss = MsgBox(已經(jīng)存在該學(xué)號(hào)的記錄,學(xué)號(hào)不能重復(fù)！, vbExclamation + vbOKOnly, 警告)Text1(0).SetFocusText1(0).SelStart = 0Text1(0).SelLength = Len(Text1(0).Text)Exit SubEnd IfEnd IfIf Not IsDate(Text1(2).Text) Then 判斷是否日期格式ss = MsgBox(應(yīng)輸入日期 mmddyy, vbInformation + vbOKOnly, 警告)Text1(2).SetFocusText1(2).SelStart = 0Text1(2).SelLength = Len(Text1(2).Text)Exit SubEnd IfIf Not IsDate(Text1(6).Text) Thenss = MsgBox(應(yīng)輸入日期 mmddyy, vbInformation + vbOKOnly, 警告)Text1(6).SetFocusText1(6).SelStart = 0Text1(6).SelLength = Len(Text1(6).Text)Exit SubEnd IfIf modi = True Thentxtsql1 = update xj set 學(xué)號(hào)=39。 amp。 Trim(Text1(0).Text) amp。 39。,姓名=39。 amp。 Trim(Text1(1).Text) amp。 39。,性別=39。 amp。 Trim(Combo1(0).Text) amp。 39。,班級(jí)=39。 amp。 Trim(Combo1(1).Text) amp。 39。,出生年月= amp。 Trim(Text1(2).Text) amp。 ,家庭住址=39。 amp。 Trim(Text1(3).Text) amp。 39。 ,郵政編碼=39。 amp。 Trim(Text1(4).Text) amp。 39。 ,聯(lián)系電話=39。 amp。 Trim(Text1(5).Text) amp。 39。 ,入學(xué)時(shí)間= amp。 Trim(Text1(6).Text) amp。 ,備注=39。 amp。 Trim(Text1(7).Text) amp。 39。where 學(xué)號(hào)=39。 amp。 Trim((, 1)) amp。 39。Set mrc = ExecuteSQL(txtsql1)txtsql1 = update cj set 學(xué)號(hào)=39。 amp。 Trim(Text1(0).Text) amp。 39。 where 學(xué)號(hào)=39。 amp。 Trim((, 1)) amp。 39。Set mrc = ExecuteSQL(txtsql1)txtsql1 = update jf set 學(xué)號(hào)=39。 amp。 Trim(Text1(0).Text) amp。 39。 where 學(xué)號(hào)=39。 amp。 Trim((, 1)) amp。 39。 39。Set mrc = ExecuteSQL(txtsql1)Unload MeExit SubEnd Iftxtsql1 = select * from xj Set mrc = ExecuteSQL(txtsql1)For i = 4 To 9(i) = Text1(i 2).TextNext i(0) = Trim(Text1(0).Text)(1) = Trim(Text1(1).Text)(2) = Trim(Combo1(0).Text)(3) = Trim(Combo1(1).Text)Set mrc = NothingFor j = 0 To 7Text1(j) = NextEnd Sub6. 學(xué)生檔案瀏覽窗體代碼Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case findCase modiIf Trim((, 1)) = Thenss = MsgBox(你還沒(méi)有選擇記錄！, vbOKOnly + vbExclamation, 警告)Exit SubElseqxstr = Executeqx(2)If qxstr = readonly Thenss = MsgBox(對(duì)不起，你是只讀用戶不能修改記錄，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告)Exit SubEnd Ifmodi = True 0End IfCase delDim mrc As Dim intcount As IntegerIf Trim((, 1)) = Thenss = MsgBox(你還沒(méi)有選擇記錄！, vbOKOnly + vbExclamation, 警告)ElseIf qxstr = readonly Thenss = MsgBox(對(duì)不起，你是只讀用戶不能刪除記錄，請(qǐng)與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告)Exit SubEnd IfIf MsgBox(確定要?jiǎng)h除學(xué)號(hào)為 amp。 Trim((, 1)) amp。 的記錄嗎？ amp。 Chr(10) amp。 Chr(13) amp。 該操作會(huì)導(dǎo)致該學(xué)生交費(fèi)記錄和成績(jī)記錄的丟失！確定嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Thenintcount = txtsql = delete * from xj where 學(xué)號(hào)=39。 amp。 Trim((, 1)) amp。 39。Set mrc = ExecuteSQL(txtsql)txtsql = delete * from jf where 學(xué)號(hào)=39。 amp。 Trim((, 1)) amp。 39。Set mrc = ExecuteSQL(txtsql)txtsql = delete * from cj where 學(xué)號(hào)=39。 amp。 Trim((, 1)) amp。 39。Set mrc = ExecuteSQL(txtsql)TreeView1_DblClickEnd IfEnd IfEnd SelectEnd Sub7. 成績(jī)?yōu)g覽窗體代碼Private Sub Combo1_Click(Index As Integer)Dim mrc As If Index = 0 Thentxtsql = select DISTINCT 班級(jí) from class where 年級(jí)=39。 amp。 Trim(Combo1(0).Text) amp。 39。Set mrc = ExecuteSQL(txtsql)If = True ThenCombo1(1).Text = Combo1(2).Text = Exit SubEnd IfCombo1(1).ClearDo Until Combo1(1).AddItem (0)LoopCombo1(1).ListIndex = 0End IfSet mrc = NothingcjfilldataEnd Sub8. 成績(jī)添加窗體Private Sub Command1_Click()For i = 0 To 13If Trim(Text1(i).Text) = ThenText1(i).Text = 0End IfNext iIf = Thenss = MsgBox(學(xué)號(hào)不能為空！, vbExclamation + vbOKOnly, 警告)Exit SubEnd IfDim mrc As txtsql = select 學(xué)號(hào) from cj where 學(xué)號(hào)=39。 amp。 Trim() amp。 39。 and 學(xué)期=39。 amp。 Trim() amp。 39。 and 類型=39。 amp。 Trim() amp。 39。Set mrc = ExecuteSQL(txtsql)If = False Thenss = MsgBox(已存在該學(xué)號(hào)本學(xué)期的成績(jī)記錄！, vbExclamation + vbOKOnly, 警告) = 0 = Len()Exit SubEnd Iftxtsql = select * from cjSet mrc = ExecuteSQL(txtsql)For i = 0 To (kechengcount 1)(0) = Trim()(1) = Trim()(2) = Trim()(3) = Trim(Label1(i).Caption)(4) = Val(Trim(Text1(i).Text))Next iFor i = 0 To 13Text1(i).Text = 0Next i = = End Sub9. 學(xué)費(fèi)設(shè)置窗體代碼Private Sub Command1_Click()If Combo1(0).Text = Thenss = MsgBox(年級(jí)不能為空！, vbExclamation + vbOKOnly, 警告)Exit SubEnd IfIf Combo1(1).Text = Thenss = MsgBox(專業(yè)不能為空！, vbExclamation + vbOKOnly, 警告)Exit SubEnd IfIf Combo1(2).Text = Thenss = MsgBox(年制不能為空！, vbExclamation + vbOKOnly, 警告)Exit SubEnd IfIf Combo1(3).Text = Thenss = MsgBox(學(xué)期不能為空！, vbExclamation + vbOKOnly, 警告)Exit SubEnd IfIf = Thenss = MsgBox(學(xué)費(fèi)不能為空！, vbExclamation + vbOKOnly, 警告)Exit SubEnd IfDim mrc As txtsql = select * from class where 專業(yè)=39。 am