【文章內(nèi)容簡介】 一種使用方便、功能較強(qiáng)的數(shù)據(jù)庫開發(fā)工具。Access數(shù)據(jù)庫具有以下的特點(diǎn)：① 功能比較單一，不提供數(shù)據(jù)發(fā)布、分布式事務(wù)處理等操作，因此比SQL Server數(shù)據(jù)庫需要的內(nèi)存和磁盤資源要少。② Access數(shù)據(jù)庫一般適合于桌面應(yīng)用程序，以及中小型企業(yè)的數(shù)據(jù)庫管理系統(tǒng)應(yīng)用。Access應(yīng)用程序的可執(zhí)行文件為：，并且該文件的位置與PowPoint、Excel等都在同一個(gè)目錄下，例如Office 2003，在目錄...[Office安裝目錄]\Office10下可以找到該文件。要運(yùn)行Access，也可以在“開始”菜單上以快捷方式啟動，： access啟動后的界面Access數(shù)據(jù)庫由七個(gè)對象組成：表、查詢、窗體、報(bào)表、頁、宏以及模塊。表(Table) ——表是數(shù)據(jù)庫的基本對象，是創(chuàng)建其他6種對象的基礎(chǔ)。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。查詢(Query)——查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個(gè)表的字段組成新表。 窗體(Form)——窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。 報(bào)表(Report)——報(bào)表的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。 頁(Page) ——也叫數(shù)據(jù)訪問頁。是連接到數(shù)據(jù)庫的 Web 頁，在數(shù)據(jù)訪問頁中，可以查看、添加、編輯和操作存儲在數(shù)據(jù)庫中的數(shù)據(jù)。數(shù)據(jù)訪問頁還可以包括其他來源的數(shù)據(jù)，例如 Microsoft Excel。宏(Macro)——宏相當(dāng)于DOS中的批處理，用來自動執(zhí)行一系列操作。Access列出了一些常用的操作供用戶選擇，使用起來十分方便。模塊(Module)——模塊的功能與宏類似，但它定義的操作比宏更精細(xì)和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序。 數(shù)據(jù)庫表設(shè)計(jì)首先創(chuàng)建一個(gè)名為“”的數(shù)據(jù)庫，保存在和系統(tǒng)工程源文件同一個(gè)目錄下的“數(shù)據(jù)庫”文件夾中，然后根據(jù)本系學(xué)生綜合信息管理系統(tǒng)的一般工作過程和用戶需求的研究分析，“學(xué)生信息表”中包括編號、學(xué)號、姓名、性別、年齡、民族、籍貫、通信地址、聯(lián)系電話、備注等這些字段，則可使用設(shè)計(jì)器創(chuàng)建表，輸入上述字段名稱，并設(shè)好數(shù)據(jù)類型，即可得到“學(xué)生信息設(shè)計(jì)表”，由此表就可生成“學(xué)生信息表”了。其他數(shù)據(jù)表的創(chuàng)建于此方法類似，數(shù)據(jù)表結(jié)構(gòu)圖如上所述。 系統(tǒng)功能的實(shí)現(xiàn) 登錄窗體登錄窗體是一個(gè)系統(tǒng)必不可少的界面之一，其主要功能在于驗(yàn)證系統(tǒng)用戶的合法性，使合法用戶能夠順利的使用系統(tǒng)，而將非法用戶拒之門外。： 系統(tǒng)登錄窗體本窗體點(diǎn)擊“登錄”按鈕時(shí)所執(zhí)行的代碼如下：Private Sub CmdOk_Click()If Trim(TxtName) = Then MsgBox 請先輸入用戶名！, vbCritical, 用戶登錄 TxtName = Exit SubEnd IfIf Trim(TxtPwd) = Then MsgBox 請先輸入用戶密碼！, vbCritical, 用戶登錄 TxtPwd = Exit SubEnd If = select * from 用戶信息 where 用戶名=39。 amp。 Trim(TxtName) amp。 39。If 1 Then MsgBox 您輸入的用戶名錯(cuò)誤！, vbCritical, 用戶登錄 Exit SubEnd IfIf Trim(!用戶密碼) Trim(TxtPwd) Then MsgBox 您輸入的用戶密碼錯(cuò)誤！, vbCritical, 用戶登錄 TxtPwd = Exit SubEnd If39。登錄成功strUser = Trim(TxtName)strSF = Trim(CmbSF)MsgBox 歡迎使用本系統(tǒng)！, vbInformation, 登錄成功Unload MeEnd Sub 系統(tǒng)主窗體系統(tǒng)主窗體是整個(gè)系統(tǒng)的核心，在這里，幾乎將系統(tǒng)所有的功能都囊括其中。本系統(tǒng)主窗體采用MDI（多文檔窗口窗體）界面設(shè)計(jì)，可以在當(dāng)中很方便的打開，或者關(guān)閉各種系統(tǒng)子功能窗體，而在操作系統(tǒng)任務(wù)欄中卻只存在系統(tǒng)主窗體一個(gè)任務(wù)圖標(biāo)。另外，本系統(tǒng)主窗體還采用了幾個(gè)VB的內(nèi)置函數(shù)，很容易的就實(shí)現(xiàn)了當(dāng)中子窗體的各種排列功能，如層疊排列，水平平鋪，垂直排列等等，使系統(tǒng)界面更友好，使用更方便。、。 系統(tǒng)主窗體 層疊排列子窗體本窗體實(shí)現(xiàn)以上功能的部分特色代碼如下：Private Sub mmuCascade_Click()IsSP = FalseIsCZ = FalseIsCD = True vbCascade 39。層疊排列子窗體End SubPrivate Sub mmuTileH_Click()IsCD = FalseIsCZ = FalseIsSP = True vbTileVertical 39。水平平鋪?zhàn)哟绑wEnd SubPrivate Sub mmuTileV_Click()IsCD = FalseIsSP = FalseIsCZ = True vbTileHorizontal 39。垂直平鋪?zhàn)哟绑wEnd Sub 學(xué)生信息設(shè)置子窗體本子窗體模塊實(shí)現(xiàn)了對學(xué)生相關(guān)信息的設(shè)置功能，包括對相關(guān)記錄的添加、修改、刪除等功能。： 學(xué)生信息設(shè)置子窗體本窗體實(shí)現(xiàn)“保存記錄”時(shí)所執(zhí)行的部分代碼如下：With .Fields!學(xué)號 = Trim(TxtNo) .Fields!姓名 = Trim(TxtName) 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!信息錄入時(shí)間 = Trim(strTime) .UpdateEnd With 學(xué)生信息查詢主窗體本子窗體模塊實(shí)現(xiàn)了對之前所述的學(xué)生相關(guān)信息的查詢，以及對查詢結(jié)果的打印等功能。本窗體內(nèi)采用了動態(tài)模糊查詢技術(shù)，即用戶每輸入一個(gè)字符，系統(tǒng)都將會執(zhí)行一次模糊查詢操作，用戶輸入的字符數(shù)越多，查詢到的結(jié)果越少，但越精確；反之，用戶輸入的字符數(shù)越少，查詢到的結(jié)果越多，但越不精確。而且本窗體內(nèi)還提供了兩種查詢方式，分別是按學(xué)生學(xué)號查詢和按學(xué)生姓名查詢，使查詢過程更加靈活方便。動態(tài)模糊查詢技術(shù)也是本系統(tǒng)的特色功能之一，后面將會詳加闡述。 學(xué)生信息查詢子窗體本窗體中實(shí)現(xiàn)按“學(xué)生學(xué)號”動態(tài)模糊查詢的代碼如下：Private Sub TxtNo_Change() 39。按學(xué)生學(xué)號動態(tài)模糊查詢If isPrint2 = True Then Unload FrmPrint2End IfIf Trim(TxtNo) Then = select 學(xué)號,姓名,性別,年齡,民族,籍貫,通信地址,聯(lián)系電話,備注,信息錄入者,信息錄入時(shí)間 from 學(xué)生信息 where 所屬年級=39。 amp。 Trim(strGrade) amp。 39。 and 所屬班級=39。 amp。 Trim(strClass) amp。 39。 and 學(xué)號 like 39。* amp。 Trim(TxtNo) amp。 *39。 If 1 Then = 查詢結(jié)束，沒有相關(guān)記錄 TxtTiShi = 沒有相關(guān)記錄 AllClear Else = 查詢結(jié)果全部顯示（單擊查看詳細(xì)） ShowData End IfElse = select 學(xué)號,姓名,性別,年齡,民族,籍貫,通信地址,聯(lián)系電話,備注,信息錄入者,信息錄入時(shí)間 from 學(xué)生信息 where 所屬年級=39。 amp。 Trim(strGrade) amp。 39。 and 所屬班級=39。 amp。 Trim(strClass) amp。 39。 and 學(xué)號=39。 amp。 Trim(TxtNo) amp。 39。 = 按學(xué)生學(xué)號查詢 TxtTiShi = 按學(xué)生學(xué)號查詢End IfEnd Sub 德育成績設(shè)置子窗體本子窗體模塊實(shí)現(xiàn)了對學(xué)生的德育成績進(jìn)行相關(guān)設(shè)置的功能，包括德育成績的錄入、修改和查詢等功能。在本窗體中，先使用動態(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)行自動計(jì)算，然后寫入數(shù)據(jù)庫并為后述的學(xué)生綜合素質(zhì)測評提供相關(guān)的分?jǐn)?shù)計(jì)算依據(jù)。 學(xué)生德育成績設(shè)置子窗體本窗體中實(shí)現(xiàn)德育成績錄入時(shí)所執(zhí)行的部分代碼如下： = select * from 德育成績 where 學(xué)號=39。 amp。 Trim() amp。 39。 and 德育名稱=39。 amp。 Trim(CmbName) amp。 39。If 0 Then MsgBox 該同學(xué)的此類型德育成績已經(jīng)存在，錄入失?。≌埡藢笤龠M(jìn)行錄入！, vbCritical, 系統(tǒng)提示 Exit SubEnd IfWith .AddNew .Fields!學(xué)號 = Trim() .Fields!姓名 = Trim() .Fields!德育名稱 = Trim(CmbName) .Fields!德育成績 = CCur(Trim(TxtDeFen)) .Fields!所屬年級 = Trim(strGrade) .Fields!所屬班級 = Trim(strClass) .Fields!信息錄入者 = Trim(strUser) .Fields!信息錄入時(shí)間 = Trim(Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 amp。 Time) .UpdateEnd WithMsgBox 數(shù)據(jù)錄入成功！, vbInformation, 系統(tǒng)提示If MsgBox(是否繼續(xù)對該同學(xué)的德育成績進(jìn)行錄入？, vbQuestion + vbYesNo, 系統(tǒng)提示) = vbYes Then = 0 TxtDeFen = Exit SubElse 39。IsEnableDy (False) = FalseEnd If 智育成績設(shè)置子窗體本子窗體模塊實(shí)現(xiàn)了對學(xué)生的智育成績進(jìn)行相關(guān)設(shè)置的功能，包括對智育成績的錄入、修改、查詢和刪除等功能。在本窗體中，先使用動態(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)行自動計(jì)算，然后寫入數(shù)據(jù)庫并為后述的學(xué)生綜合素質(zhì)測評提供相關(guān)的分?jǐn)?shù)計(jì)算依據(jù)。 學(xué)生智育成績設(shè)置子窗體本窗體中實(shí)現(xiàn)智育成績錄入時(shí)所執(zhí)行的部分代碼如下： = select * from 智育成績 where 學(xué)號=39。 amp。 Trim() amp。 39。 and 課程名稱=39。 amp。 Trim(CmbName) amp。 39。If 0 Then MsgBox 該同學(xué)該課程的課程成績已經(jīng)存在，錄入失??！請核對后再進(jìn)行錄入！, vbCritical, 系統(tǒng)提示 Exit SubEnd IfWith .AddNew .Fields!學(xué)號 = Trim() .Fields!姓名 = Trim() .Fields!課程名稱 = Trim(CmbName) .Fields!得分 = CCur(Trim(TxtDeFen)) .Fields!所屬年級 = Trim(strGrade) .Fields!所屬班級 = Trim(strClass) .Fields!信息錄入者 = Trim(strUser) .Fields!信息錄入時(shí)間 = Trim(Year(Date) amp。 年 amp。 Month(Date) amp。 月 amp。 Day(Date) amp。 日 amp。 Time) .UpdateEnd WithMsgBox 數(shù)據(jù)錄入成功！, vbInformation, 系統(tǒng)提示If MsgBox(是否繼續(xù)對該同學(xué)的課程成績進(jìn)行錄入？, vbQuestion + vbYesNo, 系統(tǒng)提示) = vbYes Then = 0 TxtDeFen = Exit SubElse = FalseEnd If 體育成績設(shè)置子窗體本子窗體模塊實(shí)現(xiàn)了對學(xué)生的體育成績進(jìn)行相關(guān)設(shè)置的功能，包括對體育成績的錄入、修改、查詢和刪除等功能。在本窗體中，先使用動態(tài)模糊查詢技術(shù)查找到要進(jìn)行設(shè)置的學(xué)生相關(guān)信息，然后對其相關(guān)