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