【文章內(nèi)容簡(jiǎn)介】 CCESS 2003介紹ACCESS2003 office自帶的數(shù)據(jù)庫(kù)Access 是Office2000里面的一個(gè)組件。是用來(lái)制作簡(jiǎn)單的數(shù)據(jù)庫(kù)。還有的意思就是訪問(wèn)、還有接入的意思。如Access list 訪問(wèn)列表 Access point 接入點(diǎn)在辦公軟件Office套件中，最為廣大用戶熟悉的是Word和Excel，因?yàn)樗鼈児δ軓?qiáng)大且方便易用，更因?yàn)樗鼈儾粌H可用于辦公，還可用于個(gè)人寫作和家庭記帳理財(cái)?shù)取Ｍ瑸镺ffice套件中一部分的Access，雖然有著同樣強(qiáng)大的功能，但使用的人卻相對(duì)少些，不像Word和Excel那樣廣泛。事實(shí)上，真正用過(guò)Access的用戶，對(duì)其強(qiáng)大功能和靈活應(yīng)用均稱贊有加。 Access 數(shù)據(jù)庫(kù)管理系統(tǒng)是Microsoft Office 套件的重要組成部分，適用于小型商務(wù)活動(dòng)，用以存貯和管理商務(wù)活動(dòng)所需要的數(shù)據(jù)。Access不僅是一個(gè)數(shù)據(jù)庫(kù)，而且它具有強(qiáng)大的數(shù)據(jù)管理功能，它可以方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報(bào)表和應(yīng)用程序等。 　　數(shù)據(jù)庫(kù)是有結(jié)構(gòu)的數(shù)據(jù)集合,它與一般的數(shù)據(jù)文件不同，(其中的數(shù)據(jù)是無(wú)結(jié)構(gòu)的)是一串文字或數(shù)字流。數(shù)據(jù)庫(kù)中的數(shù)據(jù)可以是文字、圖象、聲音等。 Microsoft Access是一種關(guān)系式數(shù)據(jù)庫(kù)，關(guān)系式數(shù)據(jù)庫(kù)由一系列表組成，表又由一系列行和列組成，每一行是一個(gè)記錄，每一列是一個(gè)字段，每個(gè)字段有一個(gè)字段名，字段名在一個(gè)表中不能重復(fù)。圖1是一個(gè)“產(chǎn)品”表的例子?！爱a(chǎn)品”表由10個(gè)記錄組成，一個(gè)記錄占一行，每一個(gè)記錄由產(chǎn)品ID、產(chǎn)品名稱、庫(kù)存量、訂貨量、單價(jià)和折扣率6個(gè)字段組成?！爱a(chǎn)品ID”是字段名，其下面的1，2等是字段的值。表與表之間可以建立關(guān)系（或稱關(guān)聯(lián)，連接），以便查詢相關(guān)聯(lián)的信息。Access數(shù)據(jù)庫(kù)以文件形式保存，文件的擴(kuò)展名是MDB。Access 數(shù)據(jù)庫(kù)由六種對(duì)象組成，它們是表、查詢、窗體、報(bào)表、宏和模塊。表(Table) 表是數(shù)據(jù)庫(kù)的基本對(duì)象，是創(chuàng)建其他5種對(duì)象的基礎(chǔ)。表由記錄組成，記錄由字段組成，表用來(lái)存貯數(shù)據(jù)庫(kù)的數(shù)據(jù)，故又稱數(shù)據(jù)表。查詢(Query)查詢可以按索引快速查找到需要的記錄，按要求篩選記錄并能連接若干個(gè)表的字段組成新表。窗體(Form) 窗體提供了一種方便的瀏覽、輸入及更改數(shù)據(jù)的窗口。還可以創(chuàng)建子窗體顯示相關(guān)聯(lián)的表的內(nèi)容。窗體也稱表單。報(bào)表(Report) 報(bào)表的功能是將數(shù)據(jù)庫(kù)中的數(shù)據(jù)分類匯總，然后打印出來(lái)，以便分析。宏(Macro) 宏相當(dāng)于DOS中的批處理，用來(lái)自動(dòng)執(zhí)行一系列操作。Access列出了一些常用的操作供用戶選擇，使用起來(lái)十分方便。 　　模塊(Module) 模塊的功能與宏類似，但它定義的操作比宏更精細(xì)和復(fù)雜，用戶可以根據(jù)自己的需要編寫程序。模塊使用Visual Basic編程。三、需求分析（一）需求背景在設(shè)備管理系統(tǒng)中，需要從大量的設(shè)備信息中，提取相關(guān)信息，以反映設(shè)備的當(dāng)前的情況。傳統(tǒng)的手工操作方式，易發(fā)生數(shù)據(jù)丟失，統(tǒng)計(jì)錯(cuò)誤，勞動(dòng)強(qiáng)度高，且速度慢。使用計(jì)算機(jī)可以高速，快捷地完成以上工作。在計(jì)算機(jī)聯(lián)網(wǎng)后，數(shù)據(jù)在網(wǎng)上傳遞，可以實(shí)現(xiàn)數(shù)據(jù)共享，避免重復(fù)勞動(dòng)，規(guī)范設(shè)備管理行為，從而提高了管理效率和水平。（二）用戶及功能需求1．設(shè)備用戶的主要功能和權(quán)限設(shè)備管理：可查看設(shè)備的編號(hào)、名稱、型號(hào)、購(gòu)買日期、購(gòu)買價(jià)格、折舊價(jià)格等。設(shè)備查詢：可查詢?cè)O(shè)備的價(jià)格、注銷日期等基本信息。用戶管理：可以查詢和修改用戶的基本信息。系統(tǒng)管理：可以進(jìn)行密碼的修改、數(shù)據(jù)備份、數(shù)據(jù)整理、數(shù)據(jù)清理和退出系統(tǒng)。2．設(shè)備管理員的主要功能和權(quán)限基本信息 ：可查詢?cè)O(shè)備的基本信息。用戶管理：可以新增和刪除設(shè)備的基本信息。級(jí)別管理：可以進(jìn)行用戶級(jí)別所有的相關(guān)信息。四、系統(tǒng)概要設(shè)計(jì)（一）設(shè)備管理信息系統(tǒng)功能結(jié)構(gòu)圖分析設(shè)備管理信息系統(tǒng)，其大致的模式主要有：設(shè)備管理、用戶管理、系統(tǒng)管理等功能模塊，其總體功能如圖1所示。同時(shí)，結(jié)合設(shè)備管理信息化軟件，對(duì)設(shè)備管理信息系統(tǒng)的應(yīng)用作進(jìn)一步的闡述。設(shè)備管理系統(tǒng)設(shè)備管理用戶管理部門管理設(shè)備編號(hào)用戶級(jí)別用戶名設(shè)備類型設(shè)備名稱部門部門編號(hào)類型編號(hào)系統(tǒng)管理密碼類型名稱圖1 設(shè)備管理系統(tǒng)功能結(jié)構(gòu)圖根據(jù)系統(tǒng)分析的結(jié)果，按照結(jié)構(gòu)化的系統(tǒng)設(shè)計(jì)方法，設(shè)備管理系統(tǒng)需要實(shí)現(xiàn)的具體功能模塊主要可以分為設(shè)備管理、用戶管理、系統(tǒng)管理等三個(gè)模塊。設(shè)備管理系統(tǒng)的數(shù)據(jù)流程圖如圖2所示。圖2 設(shè)備管理系統(tǒng)數(shù)據(jù)流程圖（二）設(shè)備管理信息系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)設(shè)計(jì)是整個(gè)程序設(shè)計(jì)的最關(guān)鍵部分，數(shù)據(jù)庫(kù)的設(shè)計(jì)是否合理，將對(duì)數(shù)據(jù)庫(kù)的大小、代碼的優(yōu)化起到至關(guān)重要的作用，因此在設(shè)計(jì)程序前必需對(duì)數(shù)據(jù)庫(kù)進(jìn)行設(shè)計(jì)，而在設(shè)計(jì)數(shù)據(jù)庫(kù)前必需對(duì)所要完成的功能進(jìn)行認(rèn)真的研究分析，下面介紹我們的數(shù)據(jù)庫(kù)設(shè)計(jì):在本系統(tǒng)的設(shè)計(jì)中總共設(shè)計(jì)了5個(gè)表，其中有關(guān)于用戶信息管理的，還有部門信息的，設(shè)備臺(tái)帳的，設(shè)備借入借出的和設(shè)備類型的表。其相應(yīng)情況如下圖3至圖7：圖3　用戶表圖4　部門表圖5　設(shè)備借入借出表圖6 設(shè)備類型表圖7 設(shè)備臺(tái)帳表 五、設(shè)備管理信息系統(tǒng)的詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)（一）系統(tǒng)功能概述該系統(tǒng)的主要功能是為設(shè)備管理員對(duì)設(shè)備流動(dòng)管理而開發(fā)，主要是對(duì)日常設(shè)備情況進(jìn)行添加、刪除、借入借出、設(shè)備報(bào)廢和注銷的功能。根據(jù)系統(tǒng)的開發(fā)目標(biāo)、原則和項(xiàng)目需求。對(duì)數(shù)據(jù)庫(kù)、操作系統(tǒng)平臺(tái)以及服務(wù)器等關(guān)鍵部分進(jìn)行了認(rèn)真討論和詳盡對(duì)比分析，并做出以下選擇：Microsoft公司的Windows XP作為操作系統(tǒng)平臺(tái)， Microsoft ACCESS 2003標(biāo)準(zhǔn)版作為后端數(shù)據(jù)庫(kù)服務(wù)器軟件：以Windows作為前端工作站的主要操作系統(tǒng)；VB 。（二）系統(tǒng)架構(gòu)設(shè)計(jì)設(shè)備管理系統(tǒng)的架構(gòu)分為窗體，模塊和類模塊三個(gè)部分。在窗體的部分有以下幾個(gè)窗體，他們的作用分別是： “”是設(shè)備窗口，可以對(duì)設(shè)備信息進(jìn)行添加，刪除的操作；“”是設(shè)置日期窗體，對(duì)日期進(jìn)行設(shè)置；“” 是設(shè)備借入借出，管理員可以在此修改設(shè)備的借入借出狀態(tài)；“”是用戶的登陸窗口，啟動(dòng)系統(tǒng)時(shí)就會(huì)出現(xiàn)這個(gè)窗口； “”是系統(tǒng)主界面，用戶可以選擇要執(zhí)行的任務(wù)；“” 是用戶管理窗口，對(duì)用戶進(jìn)行添加和刪除；系統(tǒng)架構(gòu)說(shuō)明見圖8所示： 圖8 系統(tǒng)架構(gòu)圖（三）系統(tǒng)登陸界面的設(shè)計(jì)登陸界面在VB ，在新建窗體后，然后加上相應(yīng)的控件按鈕。當(dāng)輸入用戶名和密碼時(shí)，點(diǎn)擊“確定”按鈕，此時(shí)CmdOK事件被激活，它將執(zhí)行相應(yīng)的事件。圖9 登陸界面其后臺(tái)代碼為：Dim strPwd As String Dim rsPwd As Dim strLogin As String strLogin = Trim() strPwd = Trim() If Len(strLogin) = 0 Then MsgBox 用戶名不能為空,請(qǐng)輸入用戶名 Exit Sub End If If Len(strPwd) = 0 Then MsgBox 密碼不能為空,請(qǐng)輸入正確的密碼 Exit Sub End If Set rsPwd = (SELECT pwd FROM tblUser WHERE login=39。 amp。 Replace(strLogin, 39。, 39。39。) amp。 39。) If Then MsgBox 用戶名不正確,請(qǐng)重新輸入! ElseIf strPwd = rsPwd(pwd).value Then 39。將代碼放在這里傳遞 39。成功到 calling 函數(shù) 39。設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True Else MsgBox 無(wú)效的密碼，請(qǐng)重試!, , 登錄 SendKeys {Home}+{End} End If Set rsPwd = NothingEnd Sub（四）主窗體的設(shè)計(jì)主窗體界面是顯示系統(tǒng)主要操作功能的面板，在系統(tǒng)主窗體中，可以顯示設(shè)備管理、設(shè)備查詢、用戶管理和系統(tǒng)管理信息，還可以通過(guò)點(diǎn)擊這四組按鈕來(lái)查看設(shè)備的信息。設(shè)備管理信息系統(tǒng)的主界面如圖10所示。圖10 設(shè)備管理信息系統(tǒng)的主界面成功登錄后，進(jìn)入的系統(tǒng)的主窗體，在主窗體中有四組按鈕，第一組是設(shè)備管理選擇按鈕，通過(guò)點(diǎn)擊相應(yīng)的按鈕可以在主窗體中顯示不同設(shè)備的表單，這些表單分別是設(shè)備信息表，這組按鈕和Access數(shù)據(jù)庫(kù)中各表相聯(lián)系。第二組按鈕是對(duì)設(shè)備的查詢操作，通過(guò)設(shè)備名、型號(hào)、價(jià)格、購(gòu)置日期和注銷日期對(duì)設(shè)備進(jìn)行查詢。第三組按鈕是用戶管理，對(duì)用戶的權(quán)限進(jìn)行設(shè)置。第四組按鈕是系統(tǒng)管理按鈕，分為用戶操作和系統(tǒng)管理員操作，用戶操作執(zhí)行密碼的修改和退出系統(tǒng)的功能，系統(tǒng)管理員操作執(zhí)行數(shù)據(jù)備份、數(shù)據(jù)整理和數(shù)據(jù)清理的功能。用戶成功進(jìn)入系統(tǒng)主窗體運(yùn)行結(jié)果見圖11所示：圖11 系統(tǒng)主窗體的運(yùn)行結(jié)果其后臺(tái)代碼為：Private Sub tabMain_Click(PreviousTab As Integer) Dim strSQL As String Select Case Case 0 strSQL = SELECT a.*, FROM (tblDevice AS A INNER JOIN tblDepartment AS B ON =) INNER JOIN tblTypeInfo C ON = ORDER BY DESC Call fillDeviceGr