基于access20xx數(shù)據(jù)庫開發(fā)設(shè)計的教學(xué)管理系統(tǒng)-大學(xué)畢業(yè)論文畢業(yè)設(shè)計學(xué)位論文范文模板參考資料(存儲版)
【正文】 Exit Sub Err_Command41_Click: MsgBox Resume Exit_Command41_Click End Sub Private Sub Form_Current() End Sub： （ 2）登入學(xué)生檔案 代碼： Option Compare Database Private Sub 上 _Click() On Error GoTo Err_上 _Click , , acPrevious Exit_上 _Click: Exit Sub Err_上 _Click : MsgBox Resume Exit_上 _Click End Sub Private Sub Command46_Click() On Error GoTo Err_Command46_Click t Exit_Command46_Click: Exit Sub Err_Command46_Click: MsgBox Resume Exit_Command46_Click End Sub Private Sub Command47_Click() On Error GoTo Err_Command47_Click , , acNewRec Exit_Command47_Click: Exit Sub Err_Command47_Click: MsgBox Resume Exit_Command47_Click End 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(24072) amp。 ChrW(26597) 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(31867) amp。 ChrW(21517) amp。 ChrW(23398) amp。 ChrW(20998) amp。 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。 Set the focus to the first button on the form, 39。 WHERE [ItemNumber] 0 AND [SwitchboardID]= amp。 rs![ItemNumber]).Visible = True Me(OptionLabel amp。 Find the item in the Switchboard Items table 39。 Set rs = Nothing Set con = Nothing Exit Function End If Select Case rs![Command] 39。 is not installed (. Minimal Install). On Error Resume Next If (Err 0) Then MsgBox 命令不可用。 Open a Data Access Page Case conCmdOpenPage rs![Argument] 39。 , vbCritical Resume HandleButtonClick_Exit End If End Function 5．小結(jié) 在幾個月的學(xué)習(xí)《 Accesss 2020 數(shù)據(jù)庫應(yīng)用教程》課本中我認(rèn)識到了 Access數(shù)據(jù)庫， Access 數(shù)據(jù)庫是怎樣的數(shù)據(jù)庫有什么功能、特點以及應(yīng)用。 Fill in the options for this switchboard page. 39。 Open the table of Switchboard Items, and find 39。 display a message. Otherwise, fill the page with the items. If () Then Me![OptionLabel1].Caption = 此切換面板頁上無項目。 Constants for the mands that can be execut
公司管理相關(guān)推薦
鄂ICP備17016276號-1