基于access 20xx數(shù)據(jù)庫(kù)開(kāi)發(fā)設(shè)計(jì)的教學(xué)管理系統(tǒng)-大學(xué)畢業(yè)論文畢業(yè)設(shè)計(jì)學(xué)位論文范文模板參考資料(文件)
【正文】 izeSwitchboard 39。 rs![Argument] 39。 1 = adOpenKeyset 39。 WHERE [SwitchboardID]= amp。 Constants for the mands that can be executed. Const conCmdGotoSwitchboard = 1 Const conCmdOpenFormAdd = 2 Const conCmdOpenFormBrowse = 3 Const conCmdOpenReport = 4 Const conCmdCustomizeSwitchboard = 5 Const conCmdExitApplication = 6 Const conCmdRunMacro = 7 Const conCmdRunCode = 8 Const conCmdOpenPage = 9 39。 rs![ItemNumber]).Caption = rs![ItemText] Wend End If 39。 display a message. Otherwise, fill the page with the items. If () Then Me![OptionLabel1].Caption = 此切換面板頁(yè)上無(wú)項(xiàng)目。 ORDER BY [ItemNumber]。 Open the table of Switchboard Items, and find 39。 but the first. You can39。 Fill in the options for this switchboard page. 39。在設(shè)計(jì)過(guò)程中遇到了很多問(wèn)題，但在同學(xué)的幫助下以及通過(guò)自己查找了很多資料，總算解決了問(wèn)題，完成了設(shè)計(jì)。 , vbCritical Resume HandleButtonClick_Exit End If End Function 5．小結(jié) 在幾個(gè)月的學(xué)習(xí)《 Accesss 2020 數(shù)據(jù)庫(kù)應(yīng)用教程》課本中我認(rèn)識(shí)到了 Access數(shù)據(jù)庫(kù)， Access 數(shù)據(jù)庫(kù)是怎樣的數(shù)據(jù)庫(kù)有什么功能、特點(diǎn)以及應(yīng)用。 If the action was cancelled by the user for 39。 Open a Data Access Page Case conCmdOpenPage rs![Argument] 39。 = Nz(Me![ItemText], ) FillOptions 39。 is not installed (. Minimal Install). On Error Resume Next If (Err 0) Then MsgBox 命令不可用。 Open a form. Case conCmdOpenFormBrowse rs![Argument] 39。 Set rs = Nothing Set con = Nothing Exit Function End If Select Case rs![Command] 39。 AND [ItemNumber]= amp。 Find the item in the Switchboard Items table 39。 This function is called when a button is clicked. 39。 rs![ItemNumber]).Visible = True Me(OptionLabel amp。 1 = adOpenKeyset 39。 WHERE [ItemNumber] 0 AND [SwitchboardID]= amp。 intOption).Visible = False Me(OptionLabel amp。 Set the focus to the first button on the form, 39。 = True End Sub Private Sub Form_Current() 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(23398) amp。 ChrW(20998) 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(23398) amp。 ChrW(23398) amp。 ChrW(21517) 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(31867) amp。 ChrW(20998) 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(29698) amp。 ChrW(31243) amp。 ChrW(31867) 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）課程及選課信息查詢(xún) 代碼： Option Compare Database Private Sub Command10_Click() On Error GoTo Err_Command10_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(24072) amp。 ChrW(21517) amp。 ） 4． 數(shù)據(jù)庫(kù)系統(tǒng)功能設(shè)計(jì) 與 實(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
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1