基于access20xx數(shù)據(jù)庫開發(fā)設(shè)計的教學(xué)管理系統(tǒng)-大學(xué)畢業(yè)論文畢業(yè)設(shè)計學(xué)位論文范文模板參考資料-文庫吧資料
2024-12-02 03:42本頁面
【正文】 End Sub Private Sub Form_Current() 39。 Move to the switchboard page that is marked as the default. = [ItemNumber] = 0 AND [Argument] = 39。 ChrW(21517) stDocName Exit_Command22_Click: Exit Sub Err_Command22_Click: MsgBox Resume Exit_Command22_Click End Sub Private Sub Form_Current() End Sub (7)學(xué)生信息現(xiàn)示 代碼： Option Compare Database Private Sub Form_Current() End Sub （ 8）教學(xué)管理系統(tǒng)主菜單 代碼： Option Compare Database Private Sub Form_Open(Cancel As Integer) 39。 ChrW(26597) stDocName Exit_Command21_Click: Exit Sub Err_Command21_Click: MsgBox Resume Exit_Command21_Click End Sub Private Sub Command22_Click() On Error GoTo Err_Command22_Click Dim stDocName As String stDocName = ChrW(29698) amp。 ChrW(23398) amp。 ChrW(29698) amp。 ChrW(20998) amp。 ChrW(31243) amp。 ChrW(26597) stDocName Exit_Command18_Click: Exit Sub Err_Command18_Click: MsgBox Resume Exit_Command18_Click End Sub Private Sub Command19_Click() On Error GoTo Err_Command19_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(22995) amp。 ChrW(23398) amp。 ChrW(26597) amp。 ChrW(23398) amp。 ChrW(23398) amp。 ChrW(21517) amp。 ChrW(29983) amp。 ChrW(21517) 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(26597) stDocName Exit_Command17_Click: Exit Sub Err_Command17_Click: MsgBox Resume Exit_Command17_Click End Sub Private Sub Command18_Click() On Error GoTo Err_Command18_Click Exit_Command18_Click: Exit Sub Err_Command18_Click: MsgBox Resume Exit_Command18_Click End Sub Private Sub Command19_Click() On Error GoTo Err_Command19_Click Dim stDocName As String stDocName = ChrW(29698) amp。 ChrW(31867) amp。 ChrW(29698) amp。 ChrW(20998) amp。 ChrW(31243) 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_Command16_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(21517) amp。 ChrW(29698) amp。 ChrW(20998) amp。 ChrW(31243) 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(31867) amp。 ChrW(29698) amp。 ChrW(26597) amp。 ChrW(31243) 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(21495) amp。 ChrW(24072) 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(21517) amp。 ChrW(24072) amp。 ） 4． 數(shù)據(jù)庫系統(tǒng)功能設(shè)計 與 實現(xiàn) （ 1） .登 入教師檔案 界面截圖 代碼 ： Option Compare Database Private Sub Command34_Click() On Error GoTo Err_Command34_Click Exit_Command34_Click: Exit Sub Err_Command34_Click: MsgBox Resume Exit_Command34_Click End Sub Private Sub Command35_Click() On Error GoTo Err_Command35_Click , , acPrevious Exit_Command35_Click: Exit Sub Err_Command35_Click: MsgBox Resume Exit_Command35_Click End Sub Private Sub Command36_Click() On Error GoTo Err_Command36_Click , , acNewRec Exit_Command36_Click: Exit Sub Err_Command36_Click: MsgBox Resume Exit_Command36_Click End Sub Private Sub Command37_Click() On Error GoTo Err_Command37_Click acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_Command37_Click: Exit Sub Err_Command37_Click: MsgBox Resume Exit_Command37_
公司管理相關(guān)推薦
鄂ICP備17016276號-1