1、摘 要近年來，隨著企業彼此間的競爭日趨激烈，信息技術在企業的發展中占據著越來越重要的地位。在企業的運輸生產中，檔案已成為企業運輸經營中不可或缺的一部分，為管理者進行管理決策和進行各種經營活動提供了重要的依據，在運輸生產中發揮了越來越重要的作用。檔案管理系統是一個企業單位不可缺少的部分，它的內容對于企業的決策者和管理者來說都至關重要，所以檔案管理系統能夠為用戶提供充足的信息和快捷的查詢手段。用visual basic構建的檔案管理系統，能實現檔案的錄入、修改、查找、刪除、統計、查詢、預覽、編輯、打印、打印預覽、取消、刷新、視圖、系統維護、幫助等功能，此外，在程序中還設計了用戶登陸，并設定了密碼，

2、以確保本系統應用的安全性。本管理系統設計合理、界面美觀、操作方便、運行穩定、功能完備，為進行現代化的檔案管理工作起到了重要作用，具有較高的實用價值。關鍵詞： 數據庫 模塊 信息 數據源目 錄第一章 概述-3第二章 目標分析和方案確定-4第三章 開發檔案管理系統的基本思路-63.1 使用vb6.0編寫代碼-63.2 使用access2000建立數據庫-63.3 用jet數據庫引擎訪問數據庫-6第四章 visual basic 6.0編程語言概述-74.1 創建菜單欄-74.2 創建工具欄-74.3 建立幫助信息-84.4 生成版本信息-8第五章 使用access2000 實現關系型數據庫-95.

3、1 數據庫的概念-95.2 新建一個數據庫-95.3 修改已建的數據庫-9第六章 系統總體設計-10第七章 分模塊設計-127.1檔案的系統維護-127.2檔案的版本和系統信息-137.3檔案的錄入、編輯、刪除、刷新-177.4檔案的登陸和密碼設計-247.5檔案的主界面-277.6檔案的查詢、預覽、打印功能-287.7檔案的統計功能-317.8檔案的報表-32第八章 結束語-34附：主要參考文獻-35第一章 概述 近年來，隨著企業彼此間的競爭日趨激烈，信息技術在企業的發展中占據著越來越重要的地位，借助信息技術來獲取更快捷、更高效、更準確的操作方式，發揮企業本身最大的競爭力以適應快速變遷的商業

4、環境，逐漸成為不可避免的趨勢。在企業的運輸生產中，檔案已成為企業運輸經營中不可或缺的一部分，為管理者進行管理決策和進行各種經營活動提供了重要的依據，在運輸生產中發揮了越來越重要的作用。為方便、高效、快捷地適應現代化檔案的需要，本論文應用visual basic構建了一個檔案管理系統，其中用到了數據庫的應用、建立、數據庫操作對象ado、數據報表設計等知識。檔案管理系統是典型的信息管理系統(mis)，其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備，易使用等特點。用visual basic

5、構建的檔案管理系統，主要能實現檔案的錄入、修改、查找、刪除、統計、查詢、編輯、打印、打印預覽、取消、刷新、視圖、系統維護、幫助等功能，為保證用戶的安全性，還設計了簡捷方便的用戶登陸和密碼修改。本管理系統設計合理、界面美觀、操作方便、運行穩定、功能完備，為進行現代化的檔案管理工作起到了重要作用，具有較高的實用價值。第二章 目標分析和方案確定 檔案管理系統是一個企業單位不可缺少的部分，它的內容對于企業的決策者和管理者來說都至關重要，所以檔案管理系統應該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統人工的方式管理文件檔案，這種管理方式存在著許多缺點，如:效率低、保密性差，另外時間一

6、長，將產生大量的文件和數據，這對于查找、更新和維護都帶來了不少的困難。隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發揮著越來越重要的作用。今天，計算機的價格已經十分低廉，性能卻有了長足的進步。它已經被應用于許多領域，計算機之所以如此流行的原因主要有以下幾個方面：首先，計算機可以代替人工進行許多繁雜的勞動；其次，計算機可以節省許多資源；第三，計算機可以大大的提高人們的工作效率；第四，計算機可以使敏感文檔更加安全，等等。 在企業中用計算機管理檔案的意義：現在，有很多企業的檔案管理水平還停留在紙介質的基礎上，這樣的機制已經不能適應時代的發展，

7、因為它浪費了許多人力和物力，在信息時代這種傳統的管理方法必然被計算機為基礎的信息管理所取代。作為計算機應用的一部分，使用計算機對檔案信息進行管理，具有著手工管理所無法比擬的優點。例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高學生檔案管理的效率，也是企業的科學化、正規化管理，與世界接軌的重要條件。 visual basic簡單易學且功能豐富，是廣泛應用的變成語言之一，它的發展為編程人員提供了更廣泛的空間。為能夠迎合轉變快速的信息技術，越來越多的企業傾向于分布式的 管理需求，提供分布式主從結構環境的microsoft sql server便成為相當

8、重要的核心角色，這個數據庫服務器運用了關系數據庫的技術，同時考慮到高效率數據庫管理的需求，借助標準化的訪問環境，提高了和前端應用環境輕松集成的能力，以適應各種企業組織在不同環境下的操作需求。作為前端應用程序開發環境的visual basic6.0，在數據來源的維護、數據訪問技術、國際網絡和企業內部intranet應用程序等功能方面都有其獨到、先進之處。 我作為一個計算機應用專業的專科生，希望在這方面有所貢獻。我希望能用我所學的visual basic6.0編制出一個實用的程序來對企業的檔案進行更有效、快捷、方便的管理，因此，我充分運用visual basic進行了這套檔案管理系統的開發。第三章

9、 開發檔案管理系統的基本思路3.1、編程環境的選擇微軟公司的visual basic 6.0是windows應用程序開發工具，使目前最為廣泛的、易學易用的面向對象的開發工具。visual basic提供了大量的控件，這些控件可用于設計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現本系統vb是一個相對較好的選擇。3.2、關系型數據庫的實現access2000 就是關系數據庫開發工具，數據庫能匯集各種信息以供查詢、存儲和檢索。access 的優點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類似于 exce

10、l 的電子表格，可以使數據庫一目了然。另外，access 允許創建自定義報表用于打印或輸出數據庫中的信息。access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據庫。access 是一種關系數據庫工具，關系數據庫是已開發的最通用的數據庫之一。如上所述，access 作為關系數據庫開發具備了許多優點，可以在一個數據包中同時擁有桌面數據庫的便利和關系數據庫的強大功能。3.3、二者的結合（dba）微軟的jet數據庫引擎提供了與數據庫打交道的途徑，我們是通過它以及visual basic 來訪問數據庫并對其進行各種操作。visual basic、ac

11、cess以及其他微軟的軟件產品都是通過共用jet數據庫引擎，從而給用戶提供了豐富的數據類型。data 控件在數據庫中的信息與將信息顯示給用戶看的visual basic程序之間架起了一座橋梁。我們可以設置data控件的各個屬性，告訴它要調用那個數據庫的哪個部分。缺省情況下，data控件根據數據庫中的一個或多個數據表建立一個dynaset-type（動態集合）類型的記錄集合。一個記錄集合是動態的也就意味著，當原來的數據表中的容改變了以后，該記錄集合中的記錄也會隨之改變。data控件還提供了用來瀏覽不同記錄的各種跳轉按鈕。將data控件放置在窗體中之后，我們還必須在該控件與要處理的數據庫之間建立聯

12、系。第四章 visual basic 6.0編程語言概述 visual basic應用程序基本的構建塊是用戶所創建的對象，每一個對象都具有一些特性和行為（屬性、事件和方法）。開發人員可以最有效利用所創建的每一個對象。使用應用程序具有可通用性、可擴展性和強有力的功能。visual basic應用由一系列對象組成，包括有函數、菜單、結構和數據窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應用中重復使用。4.1創建菜單欄除此之外，vb6.0還有以下一些重要功能。菜單是程序最重要的特性之一，大多數程序都依賴一個定義良好的菜單使程序易于使用和維護，vi

13、sual basic也提供了強大的創建菜單功能是程序更加標準。您可以使用visual basic的applicaytion wizard也可以使用visual basic的菜單編輯器建立菜單或者修改已經存在的菜單、控件。其屬性及對象如下：1. align屬性定義工具條在窗休中的位置。2. tooltiptext屬性是字符串類型，定義控件的提示字符。3. style屬性定義按鈕外觀。4. imagelist屬性定義與數據條對應的imagelist控件名，該控件定義工具條按鈕顯示的圖像。5. hotimangelist屬性設置一個imagelist控件名，該控件定義按鈕獲得熱點時顯示的圖像。6.

14、disabledimagelist屬性定義工具條按鈕無效時顯示的圖像。4.2創建工具欄創建工具條主要利用imagelist和toolbar控件。創建時，先將imagelist添加到窗體上，然后往其中添加一些圖片，接著toolbar控件添加到窗體上，再往toolbar中插入一些命令按紐，為他們添加上相應圖片即可。4.3建立幫助信息專業水平的軟件通常都帶有聯機幫助功能。無論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內部有限的使用者，我們都應該為用戶提供詳細的、易于理解的聯機幫助文檔。微軟的help workshop4.0是一套獨立于visual basic的用來協助我們創建、運行于32位

15、windows操作系統下的幫助文件的工具。使用它可以為我們編寫的應用程序生成一組幫助文件。4.4生成版本信息為了使程序顯得更具有專業風格，首先可以在其中加入通常的應用程序信息。這些信息包括公司名稱、版本號、修訂號以及其他類似信息。visual basic允許你使用app對象來保存這些信息，app對象是一個預定義對象，不需要在程序中創建它。app對象的大多數屬性被應用程序用來提供常規的信息，通過使用這些app提供的屬性，可以在應用程序和用戶之間交流重要信息，在項目屬性框中可以設置它的屬性。第五章 使用access2000實現關系型數據庫5.1、數據庫的概念數據庫是一種存儲數據并對數據進行操作的工

16、具。數據庫的作用在于組織和表達信息，簡而言之，數據庫就是信息集合。計算機的數據庫可以分為兩類：非關系數據庫（flat-file）和關系數據庫（relational）。關系數據庫中包含了多個數據表的信息，數據庫含有各個不同部分的術語，象記錄、域等。5.2、新建一個數據庫創建任何一個數據庫的第一步是仔細的規劃數據庫，設計必須是靈活的、有邏輯的。創建一個數據庫結構的過程被認為是數據模型設計。1）標識需要的數據；2）收集被標識的字段到表中；3）標識主關鍵字字段；4）繪制一個簡單的數據圖表；5）規范數據；6）標識指定字段的信息；7）創建物理表。檔案管理系統登陸模塊錄入模塊修改模塊查詢模塊統計模塊預覽打印

17、5.3、修改已建的數據庫數據庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由visual basic創建的程序來完成，下面的章節將詳細描述實現的具體方法。第六章 系統總體設計根據設計方案，本系統的結構框圖為（如下所示）：本系統所實現的主要功能為：可以進行文本操作；1. 錄入一個數據庫項目；2. 修改一個數據庫項目；3. 查找一個數據庫信息；4. 刪除一個數據庫信息；5. 統計一個數據庫信息；6. 查詢一個數據庫信息；7. 預覽一個數據庫信息；8. 編輯一個數據庫信息；9. 打印一個數據庫信息；10. 打印預覽一個數據庫信息；11. 刷新一個數據庫信息；12. 取消一個數據庫信息。數據打印根

18、據實際數據操作流程，本城西數據的er圖為（根據數據流程勾畫，下圖為示意圖）：檔案數據數據錄入數據修改、查詢用戶登錄 檔案的錄入檔案的修改和查詢 檔案的預覽和打印本系統所采用的數據庫結構：數據表：檔案表、用戶表。根據系統的需要，檔案表采用字段結構為：編號標題發文部門發文號內容發文日期字段類型自動編號字符字符字符備注日期是否索引是否否否否否登錄表結構為：編 號用 戶 名密 碼第七章 分模塊設計7.1、檔案的系統維護：為提高系統的安全性，防止非法用戶進入本系統，本系統設有用戶登陸界面，并設立密碼，合法用戶可以在系統維護里面的用戶修改里面自行設立用戶名和密碼，系統默認用戶名為“admin”，密碼為“1

19、234”。系統的用戶密碼更改界面如下：edit.frmdim db as connectiondim rs as recordsetprivate sub command1_click()on error goto erif rs.state = adstateopen then rs.closers.open "登錄", db, 1, 3rs("用戶名") = text1.textrs("密碼") = text2.textrs.update'rs.closemsgbox "修改成功！", vbokonly

20、 + vbexclamationunload meexit suber:msgbox "有錯誤產生！", vbokonly + vbexclamationend subprivate sub command2_click() unload meend subprivate sub form_load()text1.text = login.usertext2.text = login.password set db = new connection db.cursorlocation = aduseclient db.open "provider=microsof

21、t.jet.oledb.3.51;data source=database.mdb;" set rs = new recordsetend subprivate sub form_unload(cancel as integer)if rs.state = adstateopen then rs.closeset rs = nothingdb.closeset db = nothingend sub7.2、檔案的版本和系統信息about.frmoption explicit' 注冊表關鍵字安全選項.const read_control = &h20000const k

22、ey_query_value = &h1const key_set_value = &h2const key_create_sub_key = &h4const key_enumerate_sub_keys = &h8const key_notify = &h10const key_create_link = &h20const key_all_access = key_query_value + key_set_value + _ key_create_sub_key + key_enumerate_sub_keys + _ key_notif

23、y + key_create_link + read_control ' 注冊表關鍵字 root 類型.const hkey_local_machine = &h80000002const error_success = 0const reg_sz = 1 ' 獨立的空的終結字符串const reg_dword = 4 ' 32位數字const gregkeysysinfoloc = "softwaremicrosoftshared tools location"const gregvalsysinfoloc = "msinfo&q

24、uot;const gregkeysysinfo = "softwaremicrosoftshared toolsmsinfo"const gregvalsysinfo = "path"private declare function regopenkeyex lib "advapi32" alias "regopenkeyexa" (byval hkey as long, byval lpsubkey as string, byval uloptions as long, byval samdesired as

25、long, byref phkresult as long) as longprivate declare function regqueryvalueex lib "advapi32" alias "regqueryvalueexa" (byval hkey as long, byval lpvaluename as string, byval lpreserved as long, byref lptype as long, byval lpdata as string, byref lpcbdata as long) as longprivate

26、declare function regclosekey lib "advapi32" (byval hkey as long) as longprivate sub cmdsysinfo_click() call startsysinfoend subprivate sub cmdok_click() unload meend subprivate sub form_load() me.caption = "關于 " & app.title lblversion.caption = "版本 " & app.major

27、 & "." & app.minor & "." & app.revision lbltitle.caption = app.title me.width = 5820 me.height = 4035end subpublic sub startsysinfo() on error goto sysinfoerr dim rc as long dim sysinfopath as string ' 試圖從注冊表中獲得系統信息程序的路徑及名稱. if getkeyvalue(hkey_local_machine,

28、gregkeysysinfo, gregvalsysinfo, sysinfopath) then ' 試圖僅從注冊表中獲得系統信息程序的路徑. elseif getkeyvalue(hkey_local_machine, gregkeysysinfoloc, gregvalsysinfoloc, sysinfopath) then ' 已知32位文件版本的有效位置 if (dir(sysinfopath & "msinfo32.exe") <> "") then sysinfopath = sysinfopath &

29、amp; "msinfo32.exe" ' 錯誤 - 文件不能被找到. else goto sysinfoerr end if ' 錯誤 - 注冊表相應條目不能被找到. else goto sysinfoerr end if call shell(sysinfopath, vbnormalfocus) exit subsysinfoerr: msgbox "此時系統信息不可用", vbokonlyend subpublic function getkeyvalue(keyroot as long, keyname as string, s

30、ubkeyref as string, byref keyval as string) as boolean dim i as long ' 循環計數器 dim rc as long ' 返回代碼 dim hkey as long ' 打開的注冊表關鍵字句柄 dim hdepth as long ' dim keyvaltype as long ' 注冊表關鍵字數據類型 dim tmpval as string ' 注冊表關鍵字值的臨時存儲器 dim keyvalsize as long ' 注冊表關鍵自變量的尺寸 '- '

31、; 打開 hkey_local_machine. 下的 regkey '- rc = regopenkeyex(keyroot, keyname, 0, key_all_access, hkey) ' 打開注冊表關鍵字 if (rc <> error_success) then goto getkeyerror ' 處理錯誤. tmpval = string$(1024, 0) ' 分配變量空間 keyvalsize = 1024 ' 標記變量尺寸 '- ' 檢索注冊表關鍵字的值. '- rc = regqueryva

32、lueex(hkey, subkeyref, 0, _ keyvaltype, tmpval, keyvalsize) ' 獲得/創建關鍵字值 if (rc <> error_success) then goto getkeyerror ' 處理錯誤 if (asc(mid(tmpval, keyvalsize, 1) = 0) then ' win95 外接程序空終結字符串. tmpval = left(tmpval, keyvalsize - 1) ' null 被找到,從字符串中分離出來 else ' winnt 沒有空終結字符串. t

33、mpval = left(tmpval, keyvalsize) ' null 沒有被找到, 分離字符串 end if '- ' 決定轉換的關鍵字的值類型. '- select case keyvaltype ' 搜索數據類型. case reg_sz ' 字符串注冊關鍵字數據類型 keyval = tmpval ' 復制字符串的值 case reg_dword ' 四字節的注冊表關鍵字數據類型 for i = len(tmpval) to 1 step -1 ' 將每位進行轉換 keyval = keyval + hex

34、(asc(mid(tmpval, i, 1) ' 生成值字符。 by char。 next keyval = format$("&h" + keyval) ' 轉換四字節的字符為字符串 end select getkeyvalue = true ' 返回成功 rc = regclosekey(hkey) ' 關閉注冊表關鍵字 exit function ' 退出 getkeyerror: ' 錯誤發生后將其清除. keyval = "" ' 設置返回值到空字符串 getkeyvalue =

35、false ' 返回失敗 rc = regclosekey(hkey) ' 關閉注冊表關鍵字end function7.3、檔案的錄入、編輯、刪除、刷新本部分程序主要是把車站的檔案錄入計算機數據庫檔案表里，并提供編輯、刪除等功能，能快捷、高效地把用紙張記錄的檔案內容用數字的形式存儲在計算機里，適應現代化的辦公系統的需要，以對信息進行高效、快速的查詢、修改。系統的錄入界面如下：frm檔案dim withevents adoprimaryrs as recordsetdim mbchangedbycode as booleandim mvbookmark as variantdim

36、 mbeditflag as booleandim mbaddnewflag as booleandim mbdatachanged as booleanprivate sub form_load() dim db as connection set db = new connection db.cursorlocation = aduseclient db.open "provider=microsoft.jet.oledb.3.51;data source=database.mdb;" set adoprimaryrs = new recordset adoprimar

37、yrs.open "select 標題,發文部門,發文號,發文日期,錄入人,內容 from 檔案", db, adopenstatic, adlockoptimistic dim otext as textbox '綁定字段到窗體文本框 for each otext in me.txtfields set otext.datasource = adoprimaryrs next mbdatachanged = falseend subprivate sub form_resize() on error resume next lblstatus.width = me

38、.width - 1500 cmdnext.left = lblstatus.width + 700 cmdlast.left = cmdnext.left + 340end subprivate sub form_unload(cancel as integer) screen.mousepointer = vbdefaultend subprivate sub adoprimaryrs_movecomplete(byval adreason as adodb.eventreasonenum, byval perror as adodb.error, adstatus as adodb.ev

39、entstatusenum, byval precordset as adodb.recordset) '顯示記錄位置 lblstatus.caption = "record: " & cstr(adoprimaryrs.absoluteposition)end subprivate sub adoprimaryrs_willchangerecord(byval adreason as adodb.eventreasonenum, byval crecords as long, adstatus as adodb.eventstatusenum, byval

40、 precordset as adodb.recordset) 'this is where you put validation code 'this event gets called when the following actions occur dim bcancel as boolean select case adreason case adrsnaddnew 'adstatus = adstatuscancel case adrsnclose case adrsndelete case adrsnfirstchange case adrsnmove ca

41、se adrsnrequery case adrsnresynch case adrsnundoaddnew case adrsnundodelete case adrsnundoupdate case adrsnupdate end select if bcancel then adstatus = adstatuscancelend subprivate sub cmdadd_click() on error goto adderr with adoprimaryrs if not (.bof and .eof) then mvbookmark = .bookmark end if .ad

42、dnew lblstatus.caption = "add record" mbaddnewflag = true setbuttons false end with exit subadderr: msgbox err.descriptionend subprivate sub cmddelete_click() on error goto deleteerr with adoprimaryrs .delete .movenext if .eof then .movelast end with exit subdeleteerr: msgbox err.descripti

43、onend subprivate sub cmdrefresh_click() 'this is only needed for multi user apps on error goto refresherr adoprimaryrs.requery exit subrefresherr: msgbox err.descriptionend subprivate sub cmdedit_click() on error goto editerr lblstatus.caption = "edit record" mbeditflag = true setbutto

44、ns false exit subediterr: msgbox err.descriptionend subprivate sub cmdcancel_click() on error resume next setbuttons true mbeditflag = false mbaddnewflag = false adoprimaryrs.cancelupdate if mvbookmark > 0 then adoprimaryrs.bookmark = mvbookmark else adoprimaryrs.movefirst end if mbdatachanged =

45、falseend subprivate sub cmdupdate_click() on error goto updateerr adoprimaryrs.updatebatch adaffectall if mbaddnewflag then adoprimaryrs.movelast 'move to the new record end if mbeditflag = false mbaddnewflag = false setbuttons true mbdatachanged = false exit subupdateerr: msgbox err.description

46、end subprivate sub cmdclose_click() unload meend subprivate sub cmdfirst_click() on error goto gofirsterror adoprimaryrs.movefirst mbdatachanged = false exit subgofirsterror: msgbox err.descriptionend subprivate sub cmdlast_click() on error goto golasterror adoprimaryrs.movelast mbdatachanged = false exit subgolasterror: msgbox err.descriptionend subprivate sub cmdnext_click() on error goto gonexterror if not adoprimaryrs.eof then adoprimaryrs.movenext if adoprimaryrs.eof and adoprimaryrs.recordcount > 0 then beep 'moved off the end so go back adoprim