【正文】 indows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng) 。如果對界面的效果不滿意，還要回到程序中修改。 Visual Basic 提供了可視化設(shè)計工具，把 Windows 界面設(shè)計的復(fù)雜性 “ 封裝 ” 起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。 Visual Basic 自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn) 系統(tǒng) 功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。在一般的面向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 Visual Basic 則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法 (OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。每個對象以圖形方式顯示在界面上，都是可視的。 Visual Basic 語句簡單易懂，其編輯器支持彩色代碼，可自動進(jìn)行語法錯誤 檢查，同時具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。在設(shè)計 Visual Basic 程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic環(huán)境，直接在 Windows 環(huán)境下運行。 ① 標(biāo)題欄和菜單欄 標(biāo)題欄是屏幕 最 頂 端 的水平條，他顯示的是應(yīng)用程序的名字。 菜單欄位于標(biāo)題欄的下面，菜單欄中的菜單命令提供了開發(fā)、調(diào)試、保存應(yīng)用程序所需要的工具。 ② 工具欄 工具欄位于菜單欄的下面，它以圖標(biāo)的形式提供了部分常用菜單命令的功能，通過鼠標(biāo)點擊這些快捷按鈕可以加快程序開發(fā)的速度。下圖 標(biāo)出了常見的工具按鈕的作用 : 圖 VB6 集成開發(fā)環(huán)境工具欄 ③ 窗體設(shè)計器 窗體設(shè)計器窗口簡稱窗體（ Form） ,是應(yīng)用程序最終面向用戶的窗口。當(dāng) 打開一個新的工程文件時， VB 建立一個空的窗體，并命名為 FormX（ X＝ 1， 2， 3...） ④ 工程管理器 用來管理開發(fā)一個 VB 程序所需要的各種類型的窗體和模塊，含有建立一個應(yīng)用程序所需要的文件的清單。當(dāng)我們點擊 “ 添加窗體 ” 便捷工具按鈕后，左圖的 “ VB 工程管理器 ” 中就會顯示出新添加的窗體，這也就是 “VB 工程管理器 ”的功能，它使我們從總體上把握程序開發(fā)的各個部分。屬性是用戶界面中對象性質(zhì)的描述。 ⑦ 工具箱 工具箱實際上是一個窗口，稱為工具箱窗口，可以通過單擊其右上角的 “ X” 關(guān)閉，如果想打開工具箱，則可以執(zhí)行 “視圖 ”菜單中的 “ 工具箱 ” 命令或單擊標(biāo)準(zhǔn)工具欄中的 “ 工具箱 ”按鈕。 Microsoft Access 20xx 簡介 Microsoft Access 20xx 是一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng) (RDBMS)。 與其他關(guān)系型數(shù)據(jù)庫一樣 ， MS Access 充當(dāng) “ 后端 ”， 不但能存儲和管理數(shù)據(jù)，還能編寫數(shù)據(jù)庫管理軟件，用戶可以通過 Access 提供的開發(fā)環(huán)境及工具方便地構(gòu)建數(shù)據(jù)庫應(yīng)用程序，大部分是直觀的可視化的操作，無需編寫程序代碼，是一種使用方便、功能較強(qiáng)的數(shù)據(jù)庫開發(fā)工具。 ② Access 數(shù)據(jù)庫一般 適合于 桌面應(yīng)用程序， 以及中小型企業(yè)的數(shù)據(jù)庫管理系統(tǒng) 應(yīng)用 。要運行 Access，可以雙擊文件 ，也可以在 “開始 ”菜單上以快捷方式啟動，啟動后的界面如下圖 所示 ： 20 圖 access 啟動后的界面 Access 數(shù)據(jù)庫由七個對象組成：表、查詢、窗體、報表、頁、宏以及模塊。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。 窗體 (Form)——窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。窗體也稱表單。 頁 (Page) ——也叫數(shù)據(jù)訪問頁。數(shù)據(jù)訪問頁還可以包括其他來源的數(shù)據(jù)，例如 Microsoft Excel。 Access 列出了一些常用的操作供用戶選擇，使用起來十分方便。 數(shù)據(jù)庫表設(shè)計 首先創(chuàng)建一個名為 “ ”的數(shù)據(jù)庫 ，保存在 和系統(tǒng)工程源文件同一個目錄下的“數(shù)據(jù)庫”文件夾中，然后 根據(jù) 本 系 學(xué) 生綜合 信息 管理 系統(tǒng)的一般工作過程和用戶需求的研究分析， “學(xué)生信息 表 ” 中包括 編號、學(xué)號、姓名、性別、年齡、民族、籍貫、通信地址、聯(lián)系電話、備注等這些字段，則可使用設(shè)計器創(chuàng)建表，輸入上述字段名稱，并設(shè)好數(shù)據(jù)類型，即可得到“學(xué)生信息設(shè)計表”，由此表就可生成“學(xué)生信息 表 ”了。 系統(tǒng)功能的實現(xiàn) 登錄窗體 登錄窗體是一個系統(tǒng)必不可少的界面之一，其主要功能在于驗證系統(tǒng)用戶的合法性，使合法用戶能夠順利的使用系統(tǒng)，而將非法用戶拒之門外。 amp。 39。登錄成功 strUser = Trim(TxtName) strSF = Trim(CmbSF) MsgBox 歡迎使用本系統(tǒng)！ , vbInformation, 登錄成功 Unload Me 23 End Sub 系統(tǒng)主窗體 系統(tǒng) 主窗體是整個系統(tǒng)的核心，在這里，幾乎將系統(tǒng)所有的功能都囊括其中。 另外，本系統(tǒng)主窗體還采用了幾個 VB 的內(nèi)置函數(shù)，很容易的就實現(xiàn)了當(dāng)中子窗體的各種排列功能，如層疊排列，水平平鋪，垂直排列等等 ，使系統(tǒng)界面更友好，使用更方便 。 圖 系統(tǒng)主窗體 24 圖 層疊排列子窗體 本窗體實現(xiàn)以上功能的部分特色代碼如下： Private Sub mmuCascade_Click() IsSP = False IsCZ = False IsCD = True vbCascade 39。水平平鋪子窗體 End Sub 25 Private Sub mmuTileV_Click() IsCD = False IsSP = False IsCZ = True vbTileHorizontal 39。如下圖 所示： 圖 學(xué)生信息設(shè)置子窗體 本窗體實現(xiàn)“保存記錄”時所執(zhí)行的部分代碼如下： With .Fields!學(xué)號 = Trim(TxtNo) .Fields!姓名 = Trim(TxtName) 26 If Opt(0).Value = True Then .Fields!性別 = 男 Else .Fields!性別 = 女 End If .Fields!年齡 = Trim(TxtAge) .Fields!民族 = Trim(TxtMZ) .Fields!籍貫 = Trim(TxtJG) .Fields!通信地址 = Trim(TxtAddress) .Fields!聯(lián)系電話 = Trim(TxtPhone) .Fields!備注 = Trim(TxtBZ) .Fields!所屬年級 = Trim(strGrade) .Fields!所屬班級 = Trim(strClass) .Fields!信息錄入者 = Trim(strUser) .Fields!信息錄入時間 = Trim(strTime) .Update End With 學(xué)生信息查詢主窗體 本子窗體模 塊實現(xiàn)了對之前所述的學(xué)生相關(guān)信息的查詢，以及對查詢結(jié)果的打印等功能。而且本窗體內(nèi)還提供了兩種查詢方式，分別是按學(xué)生學(xué)號查詢和按學(xué)生姓名查詢，使查詢過程更加靈活方便。 本窗體界面運行效果如圖 所示。按學(xué)生學(xué)號動態(tài)模糊查詢 If isPrint2 = True Then Unload FrmPrint2 End If If Trim(TxtNo) Then = select 學(xué)號 ,姓名 ,性別 ,年齡 ,民族 ,籍貫 ,通信地址 ,聯(lián)系電話 ,備注 ,信息錄入者 ,信息錄入時間 from 學(xué)生信息 where 所屬年級 =39。 Trim(strGrade) amp。 and 所屬班級 =39。 Trim(strClass) amp。 and 學(xué)號 like 39。 Trim(TxtNo) amp。 If 1 Then = 查詢結(jié)束，沒有相關(guān)記錄 TxtTiShi = 沒有相關(guān)記錄 AllClear 28 Else = 查詢結(jié)果全部顯示（單擊查看詳細(xì)） ShowData End If Else = select 學(xué)號 ,姓名 ,性別 ,年齡 ,民族 ,籍貫 ,通信地址 ,聯(lián)系電話 ,備注 ,信息錄入者 ,信息錄入時間 from 學(xué)生信息 where 所屬年級 =39。 Trim(strGrade) amp。 and 所屬班級 =39。 Trim(strClass) amp。 and 學(xué)號 =39。 Trim(TxtNo) amp。 = 按學(xué)生學(xué)號查詢 TxtTiShi = 按學(xué)生學(xué)號查詢 End If End Sub 德育成績設(shè)置子窗體 本子窗體模塊實現(xiàn)了對學(xué)生的德育成績進(jìn)行相關(guān)設(shè)置的功能，包括 德育成績的錄入、 修改和 查詢等功能。 本窗體的運行效果如圖 所示。 amp。 39。 amp。 39。 年 amp。 月 amp。 日 amp。IsEnableDy (False) = False End If 智育成績設(shè)置子窗體 本子窗體模塊實現(xiàn)了對學(xué)生的智育成績進(jìn)行相關(guān)設(shè)置的功能，包括對智育成績的錄入、修改、查詢和刪除等功能。 本窗體的運行效果如圖 所示。 amp。 39。 amp。 39。 年 amp。 月 amp。 日 amp。 在本窗體中，先使用動態(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ù)。 33 圖 學(xué)生體育成績設(shè)置子窗體 本窗體中實現(xiàn)學(xué)生體育成績“查詢”時的代碼如下： Private Sub CmdDYSch_Click() Dim strCh As String Dim strRut As String strCh = InputBox(請輸入要查詢的學(xué)生學(xué)號！ , 學(xué)生體育成績查詢 ) If Trim(strCh) = Then MsgBox 輸入無效，取消查詢操作！ , vbCritical, 系統(tǒng)提示 Exit Sub End If = select * from 體育成績 where 學(xué)號 =39。 Trim(strCh) amp。 If 1 Then MsgBox 查詢結(jié)束，無學(xué)號為 amp。 的同學(xué)的任何體育成績記錄！ , vbInformation, 系統(tǒng)提示 34 Exit Sub End If With strRut = 查詢結(jié)果為： amp。 學(xué)號： amp。 vbCr amp。 Trim(.Fields!姓名 ) amp。 vbCr strRut = strRut amp。 Trim(.Fields!基 本得分 ) amp。 加分： amp。 vbCr amp。 Trim(.Fields!減分 ) amp。 信息錄入者： amp。 vbCr amp。 Trim(.Fields!信息錄入時間 ) End With MsgBox strRut, vbInformation, 查詢結(jié)束 End Sub 能力成績設(shè)置子窗體 本子窗體模塊實現(xiàn)了對學(xué)生的能力成績進(jìn)行相關(guān)設(shè)置的功能，包括對 能力成績的錄入、修改、查詢和刪除等功能。 本窗體的運行效果如圖 所示。 amp。 39。 amp。 39。修改信息身份驗證 MsgBox 很抱歉，您不是本條記錄的錄入者，您不能對此記錄進(jìn)行修改！ , vbCritical, 修改信息 Exit Sub End If strFenShu = InputBox(該同學(xué)的該類型能力成績?yōu)? amp。 ,請輸入要修改的該同學(xué)該類型能力成績的新分?jǐn)?shù)： , 修改能力成績 ) If Trim(strFenShu) = Then MsgBox 輸入無效，取消修改操作！ , vbCritical, 系統(tǒng)提示 Exit Sub End If If Not IsNumeric(Trim(strFenShu)) Or CInt(Trim(strFenShu)) 100 Then MsgBox 您所輸入的新能力成績無效，取消修改操作！ , vbCritical, 系統(tǒng)提示 Exit Sub End If !能力成績 = CCur(Trim(strFenShu)) !信息錄入時間 = Trim(Year(Date) amp。 Month(Date) amp。 Day(Date) amp。 Time amp。 先通過輸入或者選擇學(xué)生的學(xué)號找到要進(jìn)行設(shè)置的學(xué)生相關(guān)信息，然后輸入相應(yīng)的德智體能成績，或者是可以選擇“自動計算”，此時如果數(shù)據(jù)庫當(dāng)中已經(jīng)有了相關(guān)的數(shù) 據(jù)，系統(tǒng)將會根據(jù)相關(guān)的公式自動計算出相應(yīng)的成績并自動填充到相關(guān) 位置上，然后可以使用“全班自動排名”功能對當(dāng)前設(shè)置的班級所 有錄入的學(xué)生綜合測評成