基于access 20xx數(shù)據(jù)庫(kù)開發(fā)設(shè)計(jì)的教學(xué)管理系統(tǒng)-大學(xué)畢業(yè)論文畢業(yè)設(shè)計(jì)學(xué)位論文范文模板參考資料-文庫(kù)吧
2025-10-21 03:42 本頁(yè)面
【正文】 d Sub Private Sub Command48_Click() On Error GoTo Err_Command48_Click acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_Command48_Click: Exit Sub Err_Command48_Click: MsgBox Resume Exit_Command48_Click End Sub Private Sub Command49_Click() On Error GoTo Err_Command49_Click Exit_Command49_Click: Exit Sub Err_Command49_Click: MsgBox Resume Exit_Command49_Click End Sub Private Sub Command50_Click() On Error GoTo Err_Command50_Click Exit_Command50_Click: Exit Sub Err_Command50_Click: MsgBox Resume Exit_Command50_Click End Sub Private Sub Command53_Click() On Error GoTo Err_Command53_Click , , acNext Exit_Command53_Click: Exit Sub Err_Command53_Click: MsgBox Resume Exit_Command53_Click End Sub Private Sub Command54_Click() On Error GoTo Err_Command54_Click Exit_Command54_Click: Exit Sub Err_Command54_Click: MsgBox Resume Exit_Command54_Click End Sub Private Sub Command55_Click() On Error GoTo Err_Command55_Click , , acNext Exit_Command55_Click Exit Sub Err_Command55_Click: MsgBox Resume Exit_Command55_Click End Sub Private Sub Command56_Click() On Error GoTo Err_Command56_Click , , acPrevious Exit_Command56_Click: Exit Sub Err_Command56_Click: MsgBox Resume Exit_Command56_Click End Sub Private Sub Command57_Click() On Error GoTo Err_Command57_Click , , acPrevious Exit_Command57_Click: Exit Sub Err_Command57_Click: MsgBox Resume Exit_Command57_Click End Su b Private Sub Command58_Click() On Error GoTo Err_Command58_Click , , acNext Exit_Command58_Click: Exit Sub Err_Command58_Click: MsgBox Resume Exit_Command58_Click End Su b Private Sub Command59_Click() On Error GoTo Err_Command59_Click Exit_Command59_Click: Exit Sub Err_Command59_Click: MsgBox Resume Exit_Command59_Click End Sub Private Sub Form_Current() End Sub （ 3）教師信息查詢 代碼： Option Compare Database Private Sub Command19_Click() On Error GoTo Err_Command19_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(25945) amp。 ChrW(24072) amp。 ChrW(22995) amp。 ChrW(21517) amp。 ChrW(26597) amp。 ChrW(25214) stDocName Exit_Command19_Click: Exit Sub Err_Command19_Click: MsgBox Resume Exit_Command19_Click End Sub Private Sub Command20_Click() On Error GoTo Err_Command20_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(25945) amp。 ChrW(24072) amp。 ChrW(32534) amp。 ChrW(21495) amp。 ChrW(26597) amp。 ChrW(29726) stDocName Exit_Command20_Click: Exit Sub Err_Command20_Click: MsgBox Resume Exit_Command20_Click End Sub Private Sub Command21_Click() On Error GoTo Err_Command21_Click Exit_Command21_Click: Exit Sub Err_Command21_Click: MsgBox Resume Exit_Command21_Click End Sub Private Sub Form_Current() End Sub （ 4）教師瀏覽情況 代碼 Option Compare Database Private Sub Command19_Click() On Error GoTo Err_Command19_Click Exit_Command19_Click: Exit Sub Err_Command19_Click: MsgBox Resume Exit_Command19_Click End Sub Private Sub Form_Current() End Sub： （ 5）課程及選課信息查詢 代碼： Option Compare Database Private Sub Command10_Click() On Error GoTo Err_Command10_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(29698) amp。 ChrW(31243) amp。 ChrW(21517) amp。 ChrW(26597) amp。 ChrW(29726) stDocName Exit_Command10_Click: Exit Sub Err_Command10_Click: MsgBox Resume Exit_Command10_Click End Sub Private Sub Command11_Click() On Error GoTo Err_Command11_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(29698) amp。 ChrW(31243) amp。 ChrW(31867) amp。 ChrW(21035) amp。 ChrW(26597) stDocName Exit_Command11_Click: Exit Sub Err_Command11_Click: MsgBox Resume Exit_Command11_Click End Sub Private Sub Command12_Click() On Error GoTo Err_Command12_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(29698) amp。 ChrW(31243) amp。 ChrW(23398) amp。 ChrW(20998) amp。 ChrW(26597) stDocName Exit_Command12_Click: Exit Sub Err_Command12_Click: MsgBox Resume Exit_Command12_Click End Sub Private Sub Command15_Click() On Error GoTo Err_Command15_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(29698) amp。 ChrW(31243) amp。 ChrW(21517) amp。 ChrW(26597) amp。 ChrW(29726) stDocName Exit_Command15_Click: Exit Sub Err_Command15_Click: MsgBox Resume Exit_Command15_Click End Sub Private Sub Command16_Click() On Error GoTo Err_Comma
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1