基于access20xx數(shù)據(jù)庫(kù)開發(fā)設(shè)計(jì)的教學(xué)管理系統(tǒng)-大學(xué)畢業(yè)論文畢業(yè)設(shè)計(jì)學(xué)位論文范文模板參考資料-免費(fèi)閱讀
【正文】 some reason, don39。 Exit the application. Case conCmdExitApplication CloseCurrentDatabase 39。 Open a report. Case conCmdOpenReport rs![Argument], acPreview 39。 intBtn stSql, con, 1 39。 intBtn indicates which button was clicked. 39。 If there are no options for this Switchboard Page, 39。 intOption).Visible = False Next intOption 39。 Update the caption and fill in the list of options. = Nz(Me![ItemText], ) FillOptions End Sub Private Sub FillOptions() 39。 Instead, resume on the next line. If (Err = conErrDoCmdCancelled) Then Resume Next Else MsgBox 執(zhí)行命令時(shí)出錯(cuò)。 Run code. Case conCmdRunCode rs![Argument] 39。 Handle the case where the Switchboard Manager 39。 If no item matches, report the error and exit the function. If () Then MsgBox 讀取 Switchboard Items 表時(shí)出錯(cuò)。 An error that is special cased. Const conErrDoCmdCancelled = 2501 Dim con As Object Dim rs As Object Dim stSql As String On Error GoTo HandleButtonClick_Err 39。 Else While (Not ()) Me(Option amp。 the first item for this Switchboard Page. Set con = stSql = SELECT * FROM [Switchboard Items] stSql = stSql amp。 The number of buttons on the form. Const conNumButtons = 8 Dim con As Object Dim rs As Object Dim stSql As String Dim intOption As Integer 39。 ChrW(31243) amp。 ChrW(23398) amp。 ChrW(29726) stDocName Exit_Command21_Click: Exit Sub Err_Command21_Click: MsgBox Resume Exit_Command21_Click End Sub Private Sub Form_Current() End Sub （ 6）學(xué)生成績(jī)子窗體 代碼： Option Compare Database Private Sub Form_Current() End Sub （ 6）學(xué)生信息查詢 代碼： Option Compare Database Private Sub Command18_Click() On Error GoTo Err_Command18_Click Dim stDocName As String stDocName = ChrW(25353) amp。 ChrW(22995) amp。 ChrW(31243) amp。 ChrW(26597) amp。 ChrW(29698) amp。 ChrW(21517) amp。 ChrW(25945) amp。具體說(shuō)，首先創(chuàng)建相應(yīng)的宏，再通過 宏將已經(jīng)創(chuàng)建好的有關(guān)查詢對(duì)象連接到窗體特定的命令按鈕上，當(dāng)單擊該命令按鈕時(shí)即可實(shí)現(xiàn)運(yùn)行相應(yīng)的宏，從而執(zhí)行該宏所對(duì)應(yīng)的查詢并將查詢結(jié)果顯示出來(lái)。 （使用窗體可以是數(shù)據(jù)庫(kù)中數(shù)據(jù)的輸入、查看和維護(hù)操作變得更加直觀和方便。通過數(shù)據(jù)訪問頁(yè)講數(shù)據(jù)發(fā)布到 Inter 或 Intra 上，并可以是用瀏覽器進(jìn)行數(shù)據(jù)的維修和操作。 窗體（ Form）：窗體提供了一種方便的瀏覽，輸入及更改數(shù)據(jù)的窗口。它提供了表、查詢、窗體、報(bào)表、頁(yè)、宏 、模塊 7 種用來(lái)建立 數(shù)據(jù)庫(kù)系統(tǒng) 的對(duì)象；提供了多種向?qū)?、生成器、模板，把?shù)據(jù)存儲(chǔ)、數(shù)據(jù)查詢、界面設(shè)計(jì)、報(bào)表生成等操作規(guī)范化；為建立功能完善的數(shù)據(jù)庫(kù)管理系統(tǒng)提供了方便，也使得普通用戶不必編寫代碼，就可以完成大部分?jǐn)?shù)據(jù)管理的任務(wù)。 數(shù)據(jù)庫(kù)是整個(gè)網(wǎng)站的基礎(chǔ)，只有將數(shù)據(jù)庫(kù)搭建起來(lái)，才能進(jìn)行模塊的編輯實(shí)施。還可以創(chuàng)建子 窗體顯示相關(guān)聯(lián)的表的內(nèi)容。 教學(xué)管理系統(tǒng)數(shù)據(jù)表設(shè)計(jì)與開發(fā) 開發(fā)平臺(tái)簡(jiǎn)述 a. 軟件平臺(tái) 操作系統(tǒng)： Microsoft Windows7 旗艦版 信息服務(wù)： Microsoft Inter Information Services 數(shù)據(jù)庫(kù)： Microsoft Access 2020 簡(jiǎn)體中文版 編輯設(shè)計(jì)： SQL、 ASP、 VBA 文檔工具： Microsoft Word 2020 簡(jiǎn)體中文版 圖片工具： 剪切工具 （ Ctrl+Alt+A） 處理器： Intel(R)Core(TM) i3 M 380 系統(tǒng)類型： 32位操作系統(tǒng) 模塊簡(jiǎn)述 教學(xué)管理系統(tǒng) 教師信息管理 選課信息管理 學(xué)生信息管理 教師信息查詢 教師信息情況情況 登入教師檔案 課程及選課信息查詢 登入學(xué)生信息查詢 學(xué)生信息查詢 學(xué)生成績(jī)子窗體 學(xué)生信息顯示 3． 數(shù)據(jù)庫(kù)設(shè)計(jì) (1)數(shù)據(jù)庫(kù)構(gòu)成 ：學(xué)生檔案表、學(xué)生成績(jī)表、課程名表、學(xué)生選課表、教師檔案表 、教師授課表 。用戶不能對(duì)數(shù)據(jù)進(jìn)行修改、刪除等，但為用戶 只能通過設(shè)計(jì)相應(yīng)窗體來(lái)進(jìn)行數(shù)據(jù)錄入、維護(hù)與檢索工作。 ） 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 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_Click End Sub Private Sub Command38_Click() On Error GoTo Err_Command38_Click Exit_Command38_Click: Exit Sub Err_Command38_Click: MsgBox Resume Exit_Command38_Click End Sub Private Sub Command39_Click() On Error GoTo Err_Command39_Click Exit_Command39_Click: Exit Sub Err_Command39_Click: MsgBox Resume Exit_Command39_Click End Sub Private Sub Command40_Click() On Error GoTo Err_Command40_Click , , acPrevious Exit_Command40_Click: Exit Sub Err_Command40_Click: MsgBox Resume Exit_Command40_Click End Sub Private Sub Command41_Click() On Error GoTo Err_Command41_Click , , acNext Exit_Command41_Click:
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1