【正文】 功能示例本窗體中實(shí)現(xiàn)打印預(yù)覽功能的部分代碼如下：Print strMsg1Print ┌。 Trim(strClass) amp。 Trim(TxtName) amp。 Trim(strGrade) amp。 39。 strTime amp。 TimeIf MsgBox(確認(rèn)添加信息： amp。 條相關(guān)查詢記錄End WithMsgBox str3, vbInformation, 查詢結(jié)束End Sub 能力類(lèi)型設(shè)置子窗體本子窗體模塊實(shí)現(xiàn)了對(duì)能力類(lèi)型信息的相關(guān)設(shè)置功能，包括對(duì)能力類(lèi)型的添加、修改、刪除、查詢等功能，本子窗體所錄入的數(shù)據(jù)為前述的“學(xué)生能力成績(jī)?cè)O(shè)置”模塊設(shè)置提供數(shù)據(jù)依據(jù)。 Trim(.Fields!信息錄入者) amp。 vbCr amp。 *39。 vbCr .MoveNext Wend str3 = str3 amp。 vbCr amp。 Trim(.Fields!課程類(lèi)型) amp。 vbCrWith .MoveFirst While Not .EOF str3 = str3 amp。 and 課程名稱 like 39。： 課程信息設(shè)置子窗體本窗體中點(diǎn)擊“查詢”按鈕是所執(zhí)行的代碼如下：Private Sub CmdSch_Click()Dim str2 As StringDim str3 As Stringstr2 = InputBox(請(qǐng)輸入要查詢的課程名稱或其關(guān)鍵字（模糊查詢）！, 查詢課程信息)If Trim(str2) = Then MsgBox 輸入無(wú)效！, vbCritical, 系統(tǒng)提示 Exit SubEnd If = select 課程編號(hào),課程名稱,課程類(lèi)型,課程學(xué)分,課程描述,信息錄入者,信息錄入時(shí)間 from 課程信息 where 所屬年級(jí)=39。 String(4, ─)。 String(4, ─)。 String(5, ─)。 String(4, ─)。 String(4, ─)。 String(4, ─)。 String(5, ─)。 String(2, ─)。 String(4, ─)。 Next Print Tab(169)。 String(5, ─)。 String(2, ─)。 String(4, ─)。 Next Print Tab(169)。 String(5, ─)。 String(2, ─)。 String(4, ─)。 條記錄If = 30 Then = 學(xué)生綜合素質(zhì)測(cè)評(píng)成績(jī)打印預(yù)覽（第一頁(yè)） strMsg1 = strMsg1 amp。 Time amp。修改信息身份驗(yàn)證 MsgBox 很抱歉，您不是本條記錄的錄入者，您不能對(duì)此記錄進(jìn)行修改！, vbCritical, 修改信息 Exit SubEnd IfstrFenShu = InputBox(該同學(xué)的該類(lèi)型能力成績(jī)?yōu)? amp。 amp。 信息錄入者： amp。 Trim(.Fields!基本得分) amp。 學(xué)號(hào)： amp。 學(xué)生體育成績(jī)?cè)O(shè)置子窗體本窗體中實(shí)現(xiàn)學(xué)生體育成績(jī)“查詢”時(shí)的代碼如下：Private Sub CmdDYSch_Click()Dim strCh As StringDim strRut As StringstrCh = InputBox(請(qǐng)輸入要查詢的學(xué)生學(xué)號(hào)！, 學(xué)生體育成績(jī)查詢)If Trim(strCh) = Then MsgBox 輸入無(wú)效，取消查詢操作！, vbCritical, 系統(tǒng)提示 Exit SubEnd If = select * from 體育成績(jī) where 學(xué)號(hào)=39。 年 amp。 amp。 月 amp。 39。 Trim(TxtNo) amp。 Trim(strGrade) amp。 Trim(strClass) amp。 系統(tǒng)主窗體 層疊排列子窗體本窗體實(shí)現(xiàn)以上功能的部分特色代碼如下：Private Sub mmuCascade_Click()IsSP = FalseIsCZ = FalseIsCD = True vbCascade 39。 amp。數(shù)據(jù)訪問(wèn)頁(yè)還可以包括其他來(lái)源的數(shù)據(jù)，例如 Microsoft Excel。表由記錄組成，記錄由字段組成，表用來(lái)存貯數(shù)據(jù)庫(kù)的數(shù)據(jù)，故又稱數(shù)據(jù)表。 Microsoft Access 2003簡(jiǎn)介Microsoft Access 2003是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng) (RDBMS)。當(dāng)打開(kāi)一個(gè)新的工程文件時(shí)，VB建立一個(gè)空的窗體，并命名為FormX（X＝1，2，3...）④ 工程管理器用來(lái)管理開(kāi)發(fā)一個(gè)VB程序所需要的各種類(lèi)型的窗體和模塊，含有建立一個(gè)應(yīng)用程序所需要的文件的清單。① 標(biāo)題欄和菜單欄標(biāo)題欄是屏幕最頂端的水平條，他顯示的是應(yīng)用程序的名字。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而Visual Basic則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在Visual Basic環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動(dòng)態(tài)鏈接庫(kù)(DLL)、動(dòng)態(tài)數(shù)據(jù)交換(DDE)、對(duì)象的鏈接與嵌入(OLE)、開(kāi)放式數(shù)據(jù)訪問(wèn)(ODBC)等技術(shù)，可以高效、快速地開(kāi)發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。在系統(tǒng)開(kāi)發(fā)的過(guò)程中，最重要的環(huán)節(jié)就是數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì)。本模塊所實(shí)現(xiàn)的功能為：① 用戶基本信息設(shè)置② 用戶信息查詢③ 添加、修改、刪除、保存用戶信息 MDI窗體（系統(tǒng)主窗體）模塊。在評(píng)定中對(duì)學(xué)生的德育、智育、體育以及能力成績(jī)進(jìn)行相應(yīng)的考核，再根據(jù)該綜合素質(zhì)測(cè)評(píng)成績(jī)對(duì)學(xué)生頒發(fā)相應(yīng)的獎(jiǎng)助學(xué)金。實(shí)現(xiàn)學(xué)生的基本信息管理，這是根據(jù)管理學(xué)生信息的需要，將各個(gè)學(xué)生的基本信息分類(lèi)，開(kāi)發(fā)不同的子功能模塊，如有基本信息模塊、教育經(jīng)歷信息模塊等。③ 使用可視化面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言Visual Basic 2003開(kāi)發(fā)。第 2 章 系統(tǒng)總體設(shè)計(jì)本系統(tǒng)由前臺(tái)和后臺(tái)模塊構(gòu)成，采用C/S（Client/Server,客戶端/服務(wù)器）結(jié)構(gòu)設(shè)計(jì)。本人作為一名計(jì)算機(jī)專(zhuān)業(yè)的學(xué)生，開(kāi)發(fā)一個(gè)學(xué)生信息管理系統(tǒng)目的是使本校擁有一個(gè)兼學(xué)生基本信息管理與綜合素質(zhì)測(cè)評(píng)管理于一體的信息管理系統(tǒng)，原因是：① 本校的學(xué)生信息管理置于本科生應(yīng)用系統(tǒng)之下。由本系統(tǒng)在處理學(xué)生信息管理上所帶來(lái)的人力的節(jié)省可以使人才資源得到更加合理的利用；財(cái)力的節(jié)省可加快資金周轉(zhuǎn)速度，從而降低成本；存儲(chǔ)空間的節(jié)省以及數(shù)據(jù)保管的便利進(jìn)一步降低了管理費(fèi)用，所以本系統(tǒng)的設(shè)計(jì)開(kāi)發(fā)在經(jīng)濟(jì)上是可行的。學(xué)生信息管理系統(tǒng)的應(yīng)用是一種趨勢(shì)，必將發(fā)揮出越來(lái)越大的作用！ 盡管現(xiàn)在很多學(xué)校都有計(jì)算機(jī)，但是尚未用于信息管理，沒(méi)有發(fā)揮出計(jì)算機(jī)應(yīng)有的效力，資源閑置比較突出，這些都可以成為本信息管理系統(tǒng)的開(kāi)發(fā)的基本環(huán)境。為適應(yīng)本校學(xué)生綜合信息管理的需求，實(shí)現(xiàn)應(yīng)用計(jì)算機(jī)對(duì)學(xué)生的基本信息以及綜合素質(zhì)測(cè)評(píng)信息進(jìn)行管理，使學(xué)生綜合信息管理實(shí)現(xiàn)簡(jiǎn)潔化、自動(dòng)化、計(jì)算機(jī)化，開(kāi)發(fā)一個(gè)相應(yīng)的學(xué)生信息管理系統(tǒng)將會(huì)是一個(gè)具有理論和實(shí)際意義的明智之舉。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的數(shù)據(jù)庫(kù)，而對(duì)于后者則要求應(yīng)用程序功能完備，操作簡(jiǎn)單，使用方便等特點(diǎn)。這些優(yōu)點(diǎn)能夠極大地提高信息管理的效率。鑒于目前本校每一學(xué)期的學(xué)生綜合素質(zhì)測(cè)評(píng)管理和學(xué)生信息管理還停留在紙質(zhì)模式的階段。開(kāi)發(fā)技術(shù)上使用可視化的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言Visual Basic和數(shù)據(jù)庫(kù)管理工具Access開(kāi)發(fā)，Visual Basic是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解并翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并可以判斷每條語(yǔ)句的語(yǔ)法錯(cuò)誤。② 每一學(xué)期的綜合素質(zhì)測(cè)評(píng)還停留在紙質(zhì)模式的階段。 系統(tǒng)開(kāi)發(fā)設(shè)計(jì)思想系統(tǒng)應(yīng)符合學(xué)生信息管理的規(guī)定，滿足學(xué)生信息日常管理的工作需要，并達(dá)到操作過(guò)程中的直觀、方便、實(shí)用、安全等要求。 系統(tǒng)總體功能設(shè)計(jì) 實(shí)現(xiàn)對(duì)學(xué)生的基本信息管理① 能夠?qū)崿F(xiàn)對(duì)學(xué)生基本信息進(jìn)行添加、修改、刪除、查詢和打印等功能。② 根據(jù)班上同學(xué)提供的考勤記錄和獎(jiǎng)懲情況進(jìn)行登記。同時(shí)為優(yōu)秀三好學(xué)生、優(yōu)秀班干及各種獎(jiǎng)學(xué)金的評(píng)定等提供了依據(jù)。所以在通俗的意義上，數(shù)據(jù)庫(kù)不妨理解為存儲(chǔ)數(shù)據(jù)的基地。所以我們必須進(jìn)行數(shù)據(jù)庫(kù)需求分析，進(jìn)行數(shù)據(jù)庫(kù)需求分析的主要目標(biāo)就是為了確定基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程等。有時(shí)候，這種編程編譯修改的操作可能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。 結(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)的邏輯思維方式。菜單中包含了所有的VB提供的功能的選項(xiàng)，而其中一些常用的功能或操作選項(xiàng)則被提取出來(lái)放在了“便捷工具按鈕”中。⑤ 屬性窗口在屬性（Properties）窗口中你可以改變窗體上用戶界面元素的特性，或稱做屬性。Access數(shù)據(jù)庫(kù)具有以下的特點(diǎn)：① 功能比較單一，不提供數(shù)據(jù)發(fā)布、分布式事務(wù)處理等操作，因此比SQL Server數(shù)據(jù)庫(kù)需要的內(nèi)存和磁盤(pán)資源要少。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。模塊(Module)——模塊的功能與宏類(lèi)似，但它定義的操作比宏更精細(xì)和復(fù)雜，用戶可以根據(jù)自己的需要編寫(xiě)程序。If 1 Then MsgBox 您輸入的用戶名錯(cuò)誤！, vbCritical, 用戶登錄 Exit SubEnd IfIf Trim(!用戶密碼) Trim(TxtPwd) Then MsgBox 您輸入的用戶密碼錯(cuò)誤！, vbCritical, 用戶登錄 TxtPwd = Exit SubEnd If39。垂直平鋪?zhàn)哟绑wEnd Sub 學(xué)生信息設(shè)置子窗體本子窗體模塊實(shí)現(xiàn)了對(duì)學(xué)生相關(guān)信息的設(shè)置功能，包括對(duì)相關(guān)記錄的添加、修改、刪除等功能。 amp。* amp。 amp。在本窗體中，先使用動(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ù)。 Trim(CmbName) amp。 Time) .UpdateEnd WithMsgBox 數(shù)據(jù)錄入成功！, vbInformation, 系統(tǒng)提示If MsgBox(是否繼續(xù)對(duì)該同學(xué)的德育成績(jī)進(jìn)行錄入？, vbQuestion + vbYesNo, 系統(tǒng)提示) = vbYes Then = 0 TxtDeFen = Exit SubElse 39。 and 課程名稱=39。 Day(Date) amp。 39。 姓名： amp。 Trim(.Fields!加分) amp。 信息錄入時(shí)間： amp。 and 能力名稱=39。 年 amp。完成后將數(shù)據(jù)進(jìn)行保存即可。 的同學(xué)的綜合素質(zhì)測(cè)評(píng)成績(jī)記錄嗎？, vbYesNo + vbQuestion, 刪除記錄) = vbYes Then .Delete Else Exit Sub End If ShowData = Trim(CInt(Trim()) 1)End With 學(xué)生綜合素質(zhì)測(cè)評(píng)成績(jī)打印預(yù)覽本窗體中實(shí)現(xiàn)打印預(yù)覽時(shí)所執(zhí)行的部分代碼如下：stLH(1) = 1: stLH(2) = 15: stLH(3) = 27: stLH(4) = 37: stLH(5) = 47: stLH(6) = 57: stLH(7) = 67: stLH(8) = 77: stLH(9) = 83: stLH(10) = 95: stLH(11) = 105: stLH(12) = 115: stLH(13) = 127strMsg1 = 班級(jí)： amp。 ┬。 ┬。 ┬。 ┐With .MoveFirst Print │。 ┼。 ┼。 ┼。 ┤ While Not .EOF Print │。 ┴。 ┴。 ┴。 ┘ iszhPrint1 = True = True Exit Sub End If If .AbsolutePosition + 1 .RecordCount Then Print ├。 ┼。 ┼。 ┼。 ┴。 ┴。 ┴。 39。 *39。 vbCr amp。 Trim(.Fields!課程學(xué)分) amp。 vbCr amp。 條相關(guān)查詢記錄End WithMsgBox str3, vbInformation, 查詢結(jié)束End Sub 德育類(lèi)型設(shè)置子窗體本子窗體模塊實(shí)現(xiàn)了對(duì)德育類(lèi)型信息的相關(guān)設(shè)置功能，包括對(duì)德育類(lèi)型的添加、修改、刪除、查詢等功能，本子窗體所錄入的數(shù)據(jù)為前述的“學(xué)生德育成績(jī)?cè)O(shè)置”模塊設(shè)置提供數(shù)據(jù)依據(jù)。 的德育類(lèi)型信息記錄！, vbExclamation, 查詢結(jié)果 Exit SubEnd Ifstr3 = 查詢結(jié)果： amp。 vbCr amp。 Trim(.Fields!信息錄入時(shí)間) amp。 年 amp。 本次信息錄入者： amp。 是否繼續(xù)？, vbExclamation + vbYesNo, 系統(tǒng)提示) = vbNo Then = False Exit SubEnd IfMsgBox 請(qǐng)輸入要添加的能力類(lèi)型信息，然后點(diǎn)擊保存按鈕進(jìn)行保存！