【正文】 （最新修改時間） ) TiShich End Sub 綜合成績設(shè)置子窗體 本子窗體模塊實(shí)現(xiàn)了對學(xué)生的綜合測評成績的設(shè)置功能，包括對綜合測評成績的錄入和 37 查詢等功能。 日 amp。 月 amp。 年 amp。 Trim(!能力成績 ) amp。 If 1 Then MsgBox 該同學(xué)的此類型能力成績并沒有錄入，不能修改！ , vbCritical, 系統(tǒng)提示 36 Exit Sub End If If Trim(!信息錄入者 ) Trim(strUser) Then 39。 Trim(CmbName) amp。 and 能力名稱 =39。 Trim() amp。 35 圖 學(xué)生能力成績設(shè)置子窗體 本窗體中實(shí)現(xiàn)學(xué)生能力成績“修改”時所執(zhí)行的代碼如下： Private Sub CmdDYCh_Click() Dim strFenShu As String If = 0 Then MsgBox 請先選擇該同學(xué)的能力名稱！ , vbCritical, 系統(tǒng)提示 Exit Sub End If = select * from 能力成績 where 學(xué)號 =39。 在本窗體中，先使用動態(tài)模糊查詢技術(shù)查找到要進(jìn)行設(shè)置的學(xué)生相關(guān)信息，然后對其 相關(guān)的能力成績分?jǐn)?shù)進(jìn)行選擇和設(shè)置，設(shè)置完成后，系統(tǒng)會對該學(xué)生的能力 成績分?jǐn)?shù)進(jìn)行自動計算，然后寫入數(shù)據(jù)庫并為后述的學(xué)生綜合素質(zhì)測評提供相關(guān)的分?jǐn)?shù)計算依據(jù)。 信息錄入時間： amp。 Trim(.Fields!信息錄入者 ) amp。 vbCr amp。 減分： amp。 Trim(.Fields!加分 ) amp。 vbCr amp。 基本分： amp。 vbCr amp。 姓名： amp。 Trim(.Fields!學(xué)號 ) amp。 vbCr amp。 Trim(strCh) amp。 39。 amp。 本窗體的運(yùn)行效果如圖 所示。 Time) .Update End With MsgBox 數(shù)據(jù)錄入成功！ , vbInformation, 系統(tǒng)提示 If MsgBox(是否繼續(xù)對該同學(xué)的課程成績進(jìn)行錄入？ , vbQuestion + vbYesNo, 系統(tǒng)提示 ) = vbYes Then = 0 TxtDeFen = Exit Sub Else = False End If 體育成績設(shè)置子窗體 本子窗體模塊實(shí)現(xiàn)了對學(xué)生的體育成績進(jìn)行相關(guān)設(shè)置的功能，包括對體育成績的錄入、修改、查詢和刪除等 功能。 Day(Date) amp。 Month(Date) amp。 If 0 Then MsgBox 該同學(xué)該課程的課程成績已經(jīng)存在，錄入失??！請核對后再進(jìn)行錄入！ , vbCritical, 系統(tǒng)提示 Exit Sub End If With .AddNew .Fields!學(xué)號 = Trim() .Fields!姓名 = Trim() 32 .Fields!課程名稱 = Trim(CmbName) .Fields!得分 = CCur(Trim(TxtDeFen)) .Fields!所屬年級 = Trim(strGrade) .Fields!所屬班級 = Trim(strClass) .Fields!信息錄入者 = Trim(strUser) .Fields!信息錄入時間 = Trim(Year(Date) amp。 Trim(CmbName) amp。 and 課程名稱 =39。 Trim() amp。 31 學(xué)生智育成績設(shè)置子窗體 本窗體中實(shí)現(xiàn)智育成績錄入時所執(zhí)行的部分代碼如下： = select * from 智育成績 where 學(xué)號 =39。 在本窗體中，先使用動態(tài)模糊查詢技術(shù)查找到要進(jìn)行設(shè)置的學(xué)生相關(guān)信息，然后對其相關(guān)的智育成績分?jǐn)?shù)進(jìn)行選擇和設(shè)置，設(shè)置完成后，系統(tǒng)會對該學(xué)生的智育成績分?jǐn)?shù)進(jìn)行自動計算， 然后寫入數(shù)據(jù)庫并為后述的學(xué)生綜合素質(zhì)測評提供相關(guān)的分?jǐn)?shù)計算依據(jù)。 Time) .Update End With MsgBox 數(shù)據(jù)錄入成功！ , vbInformation, 系統(tǒng)提示 If MsgBox(是否繼續(xù)對該同學(xué)的德育成績進(jìn)行錄入？ , vbQuestion + vbYesNo, 系統(tǒng)提示 ) = vbYes Then = 0 TxtDeFen = Exit Sub Else 39。 Day(Date) amp。 Month(Date) amp。 If 0 Then MsgBox 該同學(xué)的此類型德育成績已經(jīng)存在，錄入失?。≌埡藢笤龠M(jìn)行錄入！ , vbCritical, 系統(tǒng)提示 Exit Sub End If With .AddNew .Fields!學(xué)號 = Trim() .Fields!姓名 = Trim() 30 .Fields!德育名稱 = Trim(CmbName) .Fields!德育成績 = CCur(Trim(TxtDeFen)) .Fields!所屬年級 = Trim(strGrade) .Fields!所屬班級 = Trim(strClass) .Fields!信息錄入者 = Trim(strUser) .Fields!信息錄入時間 = Trim(Year(Date) amp。 Trim(CmbName) amp。 and 德育名稱 =39。 Trim() amp。 29 圖 學(xué)生德育成績設(shè)置子窗體 本窗體中實(shí)現(xiàn)德育成績錄入時所執(zhí)行的部分代碼如下： = select * from 德育成績 where 學(xué)號 =39。 在本窗體中，先使用動態(tài)模糊查詢技術(shù)查找到要進(jìn)行設(shè)置的學(xué)生相關(guān)信息，然后對其相關(guān)的德育類型分?jǐn)?shù)進(jìn)行選擇和設(shè)置，設(shè)置完成后，系統(tǒng)會對該學(xué)生的德育成績分?jǐn)?shù)進(jìn)行自動計算，然后寫入數(shù)據(jù)庫并為后述的學(xué)生綜合素質(zhì)測評提供相關(guān)的分?jǐn)?shù)計算依據(jù)。 39。 amp。 39。 amp。 39。 amp。 *39。* amp。 39。 amp。 39。 amp。 27 圖 學(xué)生信息查詢子窗體 本窗體中實(shí)現(xiàn)按“學(xué)生學(xué)號”動態(tài)模糊查詢 的代碼如下： Private Sub TxtNo_Change() 39。 動態(tài)模糊查詢技術(shù)也是本系統(tǒng)的特色功能之一，后面將會詳加闡述。本窗體內(nèi)采用了動態(tài)模糊查詢技術(shù)，即用戶每輸入一個字符，系統(tǒng)都將會執(zhí)行一次模糊查詢操作，用戶輸入的字符數(shù)越多，查詢到的結(jié)果越少，但越精確；反之，用戶輸入的字符數(shù)越少，查詢到的結(jié)果越多，但越不精確。垂直平鋪?zhàn)哟绑w End Sub 學(xué)生信息設(shè)置子窗體 本子窗體模塊實(shí)現(xiàn)了對學(xué)生相關(guān)信息的設(shè)置功能，包括對相關(guān)記錄的添加、修改、刪除等功能。層疊排列子窗體 End Sub Private Sub mmuTileH_Click() IsCD = False IsCZ = False IsSP = True vbTileVertical 39。本系統(tǒng)主界面效果圖分別如圖 、圖 所示。本系統(tǒng)主窗體采用 MDI（多文檔窗口窗體）界面設(shè)計，可以在當(dāng)中很方便的打開，或者關(guān)閉各種系統(tǒng)子功能窗體，而在操作系統(tǒng)任務(wù)欄中卻只存在系統(tǒng)主窗體一個任務(wù)圖標(biāo)。 If 1 Then MsgBox 您輸入的用戶名錯誤！ , vbCritical, 用戶登錄 Exit Sub End If If Trim(!用戶密碼 ) Trim(TxtPwd) Then MsgBox 您輸入的用戶密碼錯誤！ , vbCritical, 用戶登錄 TxtPwd = Exit Sub End If 39。 Trim(TxtName) amp。 本系統(tǒng)記錄界面如下圖 所示 ： 圖 系統(tǒng)登錄窗體 本窗體點(diǎn)擊“登錄”按鈕時所執(zhí)行的代碼如下： Private Sub CmdOk_Click() If Trim(TxtName) = Then MsgBox 請先輸入用戶名！ , vbCritical, 用戶登錄 TxtName = 22 Exit Sub End If If Trim(TxtPwd) = Then MsgBox 請先輸入用戶密碼！ , vbCritical, 用戶登錄 TxtPwd = Exit Sub End If = select * from 用戶信息 where 用戶名 =39。其他數(shù)據(jù)表的創(chuàng)建于此方法類似，數(shù)據(jù)表結(jié)構(gòu)圖如上所述。 21 模塊 (Module)——模塊的功能與宏類似，但它定義的操作比宏更精細(xì)和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序。 宏 (Macro)——宏相當(dāng)于 DOS 中的批處理，用來自動執(zhí)行一系列操作。是連接到數(shù)據(jù)庫的 Web 頁，在數(shù)據(jù)訪問頁中，可以查看、添 加、編輯和操作存儲在數(shù)據(jù)庫中的數(shù)據(jù)。 報表 (Report)——報表的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。 查詢 (Query)——查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個表的字段組成新表。 表 (Table) ——表是數(shù)據(jù)庫的基本對象，是創(chuàng)建其他 6 種對象的 基礎(chǔ)。Access 應(yīng)用程序的 可執(zhí)行文件為： ，并且該文件的位置與 PowPoint、 Excel 等都在同一個目錄下，例如 Office 2021，在目錄 ...[Office 安裝目錄 ]\Office10 下可以找到該文件。 Access 數(shù)據(jù)庫具有以下的特點(diǎn)： ① 功能比較單一，不提供數(shù)據(jù)發(fā)布、分布式事務(wù)處理等操作，因此 比 SQL Server 數(shù)據(jù)庫需要的內(nèi)存和磁盤資源要少 。 Access 數(shù)據(jù)庫是 Microsoft Office 2021 套件的 Professional 版和 Developer 版的一個組件 ， 不需要單獨(dú)安裝。 ⑧ 代碼編輯區(qū)域 “ 代碼編輯區(qū)域 ” ，當(dāng)我們在 “ 窗體設(shè)計區(qū)域 ” 雙擊鼠標(biāo)，就能彈出這個區(qū)域，可以看到一行行的 VB 程序顯示在其中，我們可以修改，寫入程序代碼，來讓程序?qū)崿F(xiàn)一定的功能，它是整個程序設(shè)計的關(guān)鍵 。 ⑥ 窗體布局窗口 調(diào)整程序運(yùn)行時，程序窗體在屏幕中的初始位置，把鼠標(biāo)移到左圖屏幕中的窗體上，這時鼠標(biāo)會變成移動形狀，拖動窗體，就設(shè)置好了運(yùn)行時此窗體的位置。 19 ⑤ 屬性窗口 在屬性（ Properties）窗口中你可以改變窗體上用戶界面元素的特性，或稱做屬性。在工程管理窗口中還有 “ 查看代碼 ”“ 查看對象 ” 和 “ 切換文件夾 ” 三個按鈕。他對應(yīng)于應(yīng)用程序的運(yùn)行結(jié)果，各種圖形、圖像、數(shù)據(jù)等都是通過窗體或窗體中的控件顯示出來的。 提供了 4 種工具欄，包括編輯、標(biāo)準(zhǔn)、窗體編輯器和調(diào)試，并可根據(jù)需要定義用戶自己的工具欄。菜單中包含了所有的 VB 提供的功能的選項(xiàng)，而其中一些常用的功能或操作選項(xiàng)則被提取出來放在了 “ 便捷工具按鈕 ” 中。啟動 VB 后，標(biāo)題欄中顯示的信息是 “ 工程 1Microsoft Visual Basic[設(shè)計 ]”， [設(shè)計 ]表明當(dāng)前的工作狀態(tài)是 “ 設(shè)計階段 ” 。 Visual Basic 窗口環(huán)境 啟動 Visual Basic 集成開發(fā)環(huán)境 后， 即可以看到 主窗口 的頂部，該窗口 的頂部 由標(biāo)題欄、菜單欄和工具欄 等 組成。 Visual Basic 是解釋型語言，在輸入代碼的同時，解釋系統(tǒng)將高級語言分解翻譯成計算機(jī) 18 可以識別的機(jī)器指令，并判斷每個語句的語法錯誤。 結(jié)構(gòu)化程序設(shè)計語言： Visual Basic 是在 BASIC 語言的基礎(chǔ)上發(fā)展起來的，具有高級程序設(shè)計語言的語句結(jié)構(gòu)，接近于自然語言和人類的邏輯思維方式。在設(shè)計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上， Visual Basic 自動生成對象的程序代碼并封裝起來。 面向?qū)ο蟮某绦蛟O(shè)計： 版以后的 Visual Basic 支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言 (C++)不完全相同。只需要按設(shè)計要求的屏幕布局 ，用系統(tǒng)提供的工具，在屏幕上畫出各種 各樣的“ 部件 ” ，即圖形對象，并設(shè)置這些圖形對象的屬性。有時候，這種編程 編譯 修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。 總的來說， Visual Basic 具有以下特點(diǎn)： 可視化編程 ： 用傳統(tǒng)程序設(shè)計語言設(shè)計程序時，都是通過編寫程序代碼來設(shè)計用戶界面，在設(shè)計過程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與 Windows 的專業(yè)開發(fā)工具 SDK 相媲美，而且程序開發(fā)人員不必具有 C/C++編程