VB+ACCESS2000開(kāi)發(fā)的檔案管理系統【畢業(yè)論文】
摘 要
近年來(lái)，隨著(zhù)企業(yè)彼此間的競爭日趨激烈，信息技術(shù)在企業(yè)的發(fā)展中占據著(zhù)越來(lái)越重要的地位。在企業(yè)的運輸生產(chǎn)中，檔案已成為企業(yè)運輸經(jīng)營(yíng)中不可或缺的一部分，為管理者進(jìn)行管理決策和進(jìn)行各種經(jīng)營(yíng)活動(dòng)提供了重要的依據，在運輸生產(chǎn)中發(fā)揮了越來(lái)越重要的作用。
檔案管理系統是一個(gè)企業(yè)單位不可缺少的部分，它的內容對于企業(yè)的決策者和管理者來(lái)說(shuō)都至關(guān)重要，所以檔案管理系統能夠為用戶(hù)提供充足的信息和快捷的查詢(xún)手段。用Visual Basic構建的檔案管理系統，能實(shí)現檔案的錄入、修改、查找、刪除、統計、查詢(xún)、預覽、編輯、打印、打印預覽、取消、刷新、視圖、系統維護、幫助等功能，此外，在程序中還設計了用戶(hù)登陸，并設定了密碼，以確保本系統應用的安全性。本管理系統設計合理、界面美觀(guān)、操作方便、運行穩定、功能完備，為進(jìn)行現代化的檔案管理工作起到了重要作用，具有較高的實(shí)用價(jià)值。
關(guān)鍵詞： 數據庫 模塊 信息 數據源
目 錄
第一章 概述 ---------------------------------------------------------------------------------3
第二章 目標分析和方案確定--------------------------------------------------------4 第三章 開(kāi)發(fā)檔案管理系統的基本思路----------------------------------------6
3.1 使用VB6.0編寫(xiě)代碼------------------------------------------------------6
3.2 使用Access2000建立數據庫-------------------------------------------6 3.3 用JET數據庫引擎訪(fǎng)問(wèn)數據庫----------------------------------------6
第四章 Visual Basic 6.0編程語(yǔ)言概述----------------------------------------7
4.1 創(chuàng )建菜單欄--------------------------------------------------------------------7
4.2 創(chuàng )建工具欄--------------------------------------------------------------------7
4.3 建立幫助信息-----------------------------------------------------------------8
4.4 生成版本信息-----------------------------------------------------------------8
第五章 使用Access2000 實(shí)現關(guān)系型數據庫------------------------------9
5.1 數據庫的概念-----------------------------------------------------------------9
5.2 新建一個(gè)數據庫--------------------------------------------------------------9
5.3 修改已建的數據庫----------------------------------------------------------9
第六章 系統總體設計--------------------------------------------------------------------10
第七章 分模塊設計------------------------------------------------------------------------12 7.1檔案的系統維護---------------------------------------------------------------12 7.2檔案的版本和系統信息-----------------------------------------------------13 7.3檔案的錄入、編輯、刪除、刷新---------------------------------------17 7.4檔案的登陸和密碼設計-----------------------------------------------------24 7.5檔案的主界面------------------------------------------------------------------27 7.6檔案的查詢(xún)、預覽、打印功能------------------------------------------28 7.7檔案的統計功能---------------------------------------------------------------31 7.8檔案的報表----------------------------------------------------------------------32
第八章 結束語(yǔ)--------------------------------------------------------------------------------34
附：主要參考文獻-------------------------------------------------------------------35
第一章 概述
近年來(lái)，隨著(zhù)企業(yè)彼此間的競爭日趨激烈，信息技術(shù)在企業(yè)的發(fā)展中占據著(zhù)越來(lái)越重要的地位，借助信息技術(shù)來(lái)獲取更快捷、更高效、更準確的操作方式，發(fā)揮企業(yè)本身最大的競爭力以適應快速變遷的商業(yè)環(huán)境，逐漸成為不可避免的趨勢。在企業(yè)的運輸生產(chǎn)中，檔案已成為企業(yè)運輸經(jīng)營(yíng)中不可或缺的一部分，為管理者進(jìn)行管理決策和進(jìn)行各種經(jīng)營(yíng)活動(dòng)提供了重要的依據，在運輸生產(chǎn)中發(fā)揮了越來(lái)越重要的作用。為方便、高效、快捷地適應現代化檔案的需要，本論文應用Visual Basic構建了一個(gè)檔案管理系統，其中用到了數據庫的應用、建立、數據庫操作對象ADO、數據報表設計等知識。檔案管理系統是典型的信息管理系統(MIS)，其開(kāi)發(fā)主要包括后臺數據庫的建立和維護以及前端應用程序的開(kāi)發(fā)兩個(gè)方面。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備，易使用等特點(diǎn)。用Visual Basic構建的檔案管理系統，主要能實(shí)現檔案的錄入、修改、查找、刪除、統計、查詢(xún)、編輯、打印、打印預覽、取消、刷新、視圖、系統維護、幫助等功能，為保證用戶(hù)的安全性，還設計了簡(jiǎn)捷方便的用戶(hù)登陸和密碼修改。本管理系統設
計合理、界面美觀(guān)、操作方便、運行穩定、功能完備，為進(jìn)行現代化的檔案管理工作起到了重要作用，具有較高的實(shí)用價(jià)值。
第二章 目標分析和方案確定
檔案管理系統是一個(gè)企業(yè)單位不可缺少的部分，它的內容對于企業(yè)的決策者和管理者來(lái)說(shuō)都至關(guān)重要，所以檔案管理系統應該能夠為用戶(hù)提供充足的信息和快捷的查詢(xún)手段。但一直以來(lái)人們使用傳統人工的方式管理文件檔案，這種管理方式存在著(zhù)許多缺點(diǎn)，如:效率低、保密性差，另外時(shí)間一長(cháng)，將產(chǎn)生大量的文件和數據，這對于查找、更新和維護都帶來(lái)了不少的困難。
隨著(zhù)科學(xué)技術(shù)的不斷提高，計算機科學(xué)日漸成熟，其強大的功能已為人們深刻認識，它已進(jìn)入人類(lèi)社會(huì )的各個(gè)領(lǐng)域并發(fā)揮著(zhù)越來(lái)越重要的作用。今天，計算機的價(jià)格已經(jīng)十分低廉，性能卻有了長(cháng)足的進(jìn)步。它已經(jīng)被應用于許多領(lǐng)域，計算機之所以如此流行的原因主要有以下幾個(gè)方面：
首先，計算機可以代替人工進(jìn)行許多繁雜的勞動(dòng)；
其次，計算機可以節省許多資源；
第三，計算機可以大大的提高人們的工作效率；
第四，計算機可以使敏感文檔更加安全，等等。 在企業(yè)中用計算機管理檔案的意義：現在，有很多企業(yè)的檔案管理水平還停留在紙介質(zhì)的基礎上，這樣的機制已經(jīng)不能適應時(shí)代的發(fā)展，因為它浪費了許多人力和物力，在信息時(shí)代這種傳統的管理方法必然被計算機為基礎的信息管理所取代。
作為計算機應用的一部分，使用計算機對檔案信息進(jìn)行管理，具有著(zhù)手工管理所無(wú)法比擬的優(yōu)點(diǎn)。例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長(cháng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率，也是企業(yè)的科學(xué)化、正規化管理，與世界接軌的重要條件。 Visual Basic簡(jiǎn)單易學(xué)且功能豐富，是廣泛應用的變成語(yǔ)言之一，它的發(fā)展為編程人員提供了更廣泛的空間。為能夠迎合轉變快速的信息技術(shù)，越來(lái)越多的企業(yè)傾向于分布式的 管理需求，提供分布式主從結構環(huán)境的Microsoft SQL Server便成為相當重要的核心角色，這個(gè)數據庫服務(wù)器運用了關(guān)系數據庫的技術(shù)，同時(shí)考慮到高效率數據庫管理的需求，借助標準化的訪(fǎng)問(wèn)環(huán)境，提高了和前端應用環(huán)境輕松集成的能力，以適應各種企業(yè)組織在不同環(huán)境下的操作需求。作為前端應用程序開(kāi)發(fā)環(huán)境的Visual Basic6.0，在數據來(lái)源的維護、數據訪(fǎng)問(wèn)技術(shù)、國際網(wǎng)絡(luò )和企業(yè)內部Intranet應用程序等功能方面都有其獨到、先進(jìn)之處。 我作為一個(gè)計算機應用專(zhuān)業(yè)的專(zhuān)科生，希望在這方面有所貢獻。我希望能用我所學(xué)的Visual Basic6.0編制出一個(gè)實(shí)用的程序來(lái)對企業(yè)的檔案進(jìn)行更有效、快捷、方便的管理，因此，我充分運用Visual Basic進(jìn)行了這套檔案管理系統的開(kāi)發(fā)。
第三章 開(kāi)發(fā)檔案管理系統的基本思路
3.1、編程環(huán)境的選擇
微軟公司的Visual Basic 6.0是Windows應用程序開(kāi)發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向對象的開(kāi)發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實(shí)現各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設計過(guò)程，從而有效的提高了應用程序的運行效率和可靠性。故而，實(shí)現本系統VB是一個(gè)相對較好的選擇。
3.2、關(guān)系型數據庫的實(shí)現
Access2000 就是關(guān)系數據庫開(kāi)發(fā)工具，數據庫能匯集各種信息以供查詢(xún)、存儲和檢索。Access 的優(yōu)點(diǎn)在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了一種類(lèi)似于 Excel 的電子表格，可以使數據庫一目了然。另外，Access 允許創(chuàng )建自定義報表用于打印或輸出數據庫中的信息。Access也提供了數據存儲庫，可以使用桌面數據庫文件把數據庫文件置于網(wǎng)絡(luò )文件服務(wù)器，與其他網(wǎng)絡(luò )用戶(hù)共享數據庫。Access 是一種關(guān)系數據庫工具，關(guān)系數據庫是已開(kāi)發(fā)的最通用的數據庫之一。如上所述，Access 作為關(guān)系數據庫開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數據包中同時(shí)擁有桌面數據庫的便利和關(guān)系數據庫的強大功能。
3.3、二者的結合（DBA）
微軟的JET數據庫引擎提供了與數據庫打交道的途徑，我們是通過(guò)它以及Visual Basic 來(lái)訪(fǎng)問(wèn)數據庫并對其進(jìn)行各種操作。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過(guò)共用JET數據庫引擎，從而給用戶(hù)提供了豐富的數據類(lèi)型。
DATA 控件在數據庫中的信息與將信息顯示給用戶(hù)看的Visual Basic程序之間架起了一座橋梁。我們可以設置DATA控件的各個(gè)屬性，告訴它要調用那個(gè)數據庫的哪個(gè)部分。缺省情況下，DATA控件根據數據庫中的一個(gè)或多個(gè)數據表建立一個(gè)dynaset-type（動(dòng)態(tài)集合）類(lèi)型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著(zhù)，當原來(lái)的數據表中的容改變了以后，該記錄集合中的記錄也會(huì )隨之改變。DATA控件還提供了用來(lái)瀏覽不同記錄的各種跳轉按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數據庫之間建立聯(lián)系。
第四章 Visual Basic 6.0編程語(yǔ)言概述
Visual Basic應用程序基本的構建塊是用戶(hù)所創(chuàng )建的對象，每一個(gè)對象都具有一些特性和行為（屬性、事件和方法）。開(kāi)發(fā)人員可以最有效利用所創(chuàng )建的每一個(gè)對象。使用應用程序具有可通用性、可擴展性和強有力的功能。
Visual Basic應用由一系列對象組成，包括有函數、菜單、結構和數據窗口、用戶(hù)對象、用戶(hù)事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應用中重復使用。
4.1創(chuàng )建菜單欄
除此之外，VB6.0還有以下一些重要功能。菜單是程序最重要的特性之一，大多數程序都依賴(lài)一個(gè)定義良好的菜單使程序易于使用和維護，Visual Basic也提供了強大的創(chuàng )建菜單功能是程序更加標準。您可以使用Visual Basic的Applicaytion Wizard也可以使用Visual Basic的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單、控件。其屬性及對象如下：
1. Align屬性定義工具條在窗休中的位置。
2. ToolTipText屬性是字符串類(lèi)型，定義控件的提示字符。
3. Style屬性定義按鈕外觀(guān)。
4. ImageList屬性定義與數據條對應的ImageList控件名，該控件定義工具條按鈕顯示的圖像。
5. HotImangeList屬性設置一個(gè)ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。
6. DisabledImageList屬性定義工具條按鈕無(wú)效時(shí)顯示的圖像。
4.2創(chuàng )建工具欄
創(chuàng )建工具條主要利用ImageList和Toolbar控件。創(chuàng )建時(shí)，先將ImageList添加到窗體上，然后往其中添加一些圖片，接著(zhù)Toolbar控件添加到窗體上，再往Toolbar中插入一些命令按紐，為他們添加上相應圖片即可。
4.3建立幫助信息
專(zhuān)業(yè)水平的軟件通常都帶有聯(lián)機幫助功能。無(wú)論寫(xiě)出來(lái)的程序是要給大量的用戶(hù)使用，還是僅僅局限于公司內部有限的使用者，我們都應該為用戶(hù)提供詳細的、易于理解的聯(lián)機幫助文檔。微軟的Help Workshop4.0是一套獨立于Visual Basic的用來(lái)協(xié)助我們創(chuàng )建、運行于32位Windows操作系統下的幫助文件的工具。使用它可以為我們編寫(xiě)的應用程序生成一組幫助文件。
4.4生成版本信息
為了使程序顯得更具有專(zhuān)業(yè)風(fēng)格，首先可以在其中加入通常的應用程序信息。這些信息包括公司名稱(chēng)、版本號、修訂號以及其他類(lèi)似信息。Visual Basic允許你使用APP對象來(lái)保存這些信息，APP對象是一個(gè)預定義對象，不需要在程序中創(chuàng )建它。APP對象的大多數屬性被應用程序用來(lái)提供常規的信息，通過(guò)使用這些APP提供的屬性，可以在應用程序和用戶(hù)之間交流重要信息，在項目屬性框中可以設置它的屬性。
第五章 使用Access2000實(shí)現關(guān)系型數據庫
5.1、數據庫的概念
數據庫是一種存儲數據并對數據進(jìn)行操作的工具。數據庫的作用在于組織和表達信息，簡(jiǎn)而言之，數據庫就是信息集合。計算機的數據庫可以分為兩類(lèi)：非關(guān)系數據庫（flat-file）和關(guān)系數據庫（relational）。關(guān)系數據庫中包含了多個(gè)數據表的信息，數據庫含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。
5.2、新建一個(gè)數據庫
創(chuàng )建任何一個(gè)數據庫的第一步是仔細的規劃數據庫，設計必須是靈活的、有邏輯的。創(chuàng )建一個(gè)數據庫結構的過(guò)程被認為是數據模型設計。
1）標識需要的數據；
2）收集被標識的字段到表中；
3）標識主關(guān)鍵字字段；
4）繪制一個(gè)簡(jiǎn)單的數據圖表；
5）規范數據；
6）標識指定字段的信息；
7）創(chuàng )建物理表。
5.3、修改已建的數據庫
數據庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basic創(chuàng )建的程序來(lái)完成，下面的章節將詳細描述實(shí)現的具體方法。
第六章 系統總體設計
根據設計方案，本系統的結構框圖為（如下所示）：
本系統所實(shí)現的主要功能為：
可以進(jìn)行文本操作；
1. 錄入一個(gè)數據庫項目；
2. 修改一個(gè)數據庫項目；
3. 查找一個(gè)數據庫信息；
4. 刪除一個(gè)數據庫信息；
5. 統計一個(gè)數據庫信息；
6. 查詢(xún)一個(gè)數據庫信息；
7. 預覽一個(gè)數據庫信息；
8. 編輯一個(gè)數據庫信息；
9. 打印一個(gè)數據庫信息；
10. 打印預覽一個(gè)數據庫信息；
11. 刷新一個(gè)數據庫信息；
12. 取消一個(gè)數據庫信息。
根據實(shí)際數據操作流程，本城西數據的ER圖為（根據數據流程勾畫(huà)，下圖為示意圖）：
用戶(hù)登錄 → 檔案的錄入→檔案的修改和查詢(xún) →檔案的預覽和打印
本系統所采用的數據庫結構：
數據表：檔案表、用戶(hù)表。根據系統的需要，檔案表采用字段結構為：
編號 標題 發(fā)文部門(mén) 發(fā)文號 內容 發(fā)文日期
字段類(lèi)型 自動(dòng)編號 字符 字符 字符 備注 日期
是否索引 是 否 否 否 否 否
登錄表結構為：
編 號 用 戶(hù) 名 密 碼
第七章 分模塊設計
7.1、檔案的系統維護：
為提高系統的安全性，防止非法用戶(hù)進(jìn)入本系統，本系統設有用戶(hù)登陸界面，并設立密碼，合法用戶(hù)可以在系統維護里面的用戶(hù)修改里面自行設立用戶(hù)名和密碼，系統默認用戶(hù)名為“admin”，密碼為“1234”。系統的用戶(hù)密碼更改界面如下：
Edit.frm
¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
Dim db As Connection
Dim rs As Recordset
Private Sub Command1_Click()
On Error GoTo er
If rs.State = adStateOpen Then rs.Close
rs.Open "登錄", db, 1, 3
rs("用戶(hù)名") = Text1.Text
rs("密碼") = Text2.Text
rs.Update
'rs.Close
MsgBox "修改成功！", vbOKOnly + vbExclamation
Unload Me
Exit Sub
er:
MsgBox "有錯誤產(chǎn)生！", vbOKOnly + vbExclamation
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Text1.Text = login.user
Text2.Text = login.password
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=database.mdb;"
Set rs = New Recordset
End Sub
Private Sub Form_Unload(Cancel As Integer)
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
7.2、檔案的版本和系統信息
About.frm
Option Explicit
' 注冊表關(guān)鍵字安全選項...
Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
' 注冊表關(guān)鍵字 ROOT 類(lèi)型...
Const HKEY_LOCAL_MACHINE = &H80000002
Const ERROR_SUCCESS = 0
Const REG_SZ = 1 ' 獨立的空的終結字符串
Const REG_DWORD = 4 ' 32位數字
Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location"
Const gREGVALSYSINFOLOC = "MSINFO"
Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO"
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 Long, ByRef phkResult As Long) As Long
Private 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 Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Sub cmdSysInfo_Click()
Call StartSysInfo
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Caption = "關(guān)于 " & App.Title
lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision
lblTitle.Caption = App.Title
Me.Width = 5820
Me.Height = 4035
End Sub
Public Sub StartSysInfo()
On Error GoTo SysInfoErr
Dim rc As Long
Dim SysInfoPath As String
' 試圖從注冊表中獲得系統信息程序的路徑及名稱(chēng)...
If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then
' 試圖僅從注冊表中獲得系統信息程序的路徑...
ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then
' 已知32位文件版本的有效位置
If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then
SysInfoPath = SysInfoPath & "\MSINFO32.EXE"
' 錯誤 - 文件不能被找到...
Else
GoTo SysInfoErr
End If
' 錯誤 - 注冊表相應條目不能被找到...
Else
GoTo SysInfoErr
End If
Call Shell(SysInfoPath, vbNormalFocus)
Exit Sub
SysInfoErr:
MsgBox "此時(shí)系統信息不可用", vbOKOnly
End Sub
Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean
Dim i As Long ' 循環(huán)計數器
Dim rc As Long ' 返回代碼
Dim hKey As Long ' 打開(kāi)的注冊表關(guān)鍵字句柄
Dim hDepth As Long '
Dim KeyValType As Long ' 注冊表關(guān)鍵字數據類(lèi)型
Dim tmpVal As String ' 注冊表關(guān)鍵字值的臨時(shí)存儲器
Dim KeyValSize As Long ' 注冊表關(guān)鍵自變量的尺寸
'------------------------------------------------------------
' 打開(kāi) {HKEY_LOCAL_MACHINE...} 下的 RegKey
'------------------------------------------------------------
rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' 打開(kāi)注冊表關(guān)鍵字
If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' 處理錯誤...
tmpVal = String$(1024, 0) ' 分配變量空間
KeyValSize = 1024 ' 標記變量尺寸
'------------------------------------------------------------
' 檢索注冊表關(guān)鍵字的值...
'------------------------------------------------------------
rc = RegQueryValueEx(hKey, SubKeyRef, 0, _
KeyValType, tmpVal, KeyValSize) ' 獲得/創(chuàng )建關(guān)鍵字值
If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' 處理錯誤
If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then ' Win95 外接程序空終結字符串...
tmpVal = Left(tmpVal, KeyValSize - 1) ' Null 被找到,從字符串中分離出來(lái)
Else ' WinNT 沒(méi)有空終結字符串...
tmpVal = Left(tmpVal, KeyValSize) ' Null 沒(méi)有被找到, 分離字符串
End If
'------------------------------------------------------------
' 決定轉換的關(guān)鍵字的值類(lèi)型...
'------------------------------------------------------------
Select Case KeyValType ' 搜索數據類(lèi)型...
Case REG_SZ ' 字符串注冊關(guān)鍵字數據類(lèi)型
KeyVal = tmpVal ' 復制字符串的值
Case REG_DWORD ' 四字節的注冊表關(guān)鍵字數據類(lèi)型
For i = Len(tmpVal) To 1 Step -1 ' 將每位進(jìn)行轉換
KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ' 生成值字符。 By Char。
Next
KeyVal = Format$("&h" + KeyVal) ' 轉換四字節的字符為字符串
End Select
GetKeyValue = True ' 返回成功
rc = RegCloseKey(hKey) ' 關(guān)閉注冊表關(guān)鍵字
Exit Function ' 退出
GetKeyError: ' 錯誤發(fā)生后將其清除...
KeyVal = "" ' 設置返回值到空字符串
GetKeyValue = False ' 返回失敗
rc = RegCloseKey(hKey) ' 關(guān)閉注冊表關(guān)鍵字
End Function
7.3、檔案的錄入、編輯、刪除、刷新
本部分程序主要是把車(chē)站的檔案錄入計算機數據庫檔案表里，并提供編輯、刪除等功能，能快捷、高效地把用紙張記錄的檔案內容用數字的形式存儲在計算機里，適應現代化的辦公系統的需要，以對信息進(jìn)行高效、快速的查詢(xún)、修改。系統的錄入界面如下：
frm檔案
Dim WithEvents adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Private 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
adoPrimaryRS.Open "select 標題,發(fā)文部門(mén),發(fā)文號,發(fā)文日期,錄入人,內容 from 檔案", db, adOpenStatic, adLockOptimistic
Dim oText As TextBox
'綁定字段到窗體文本框
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next
mbDataChanged = False
End Sub
Private Sub Form_Resize()
On Error Resume Next
lblStatus.Width = Me.Width - 1500
cmdNext.Left = lblStatus.Width + 700
cmdLast.Left = cmdNext.Left + 340
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'顯示記錄位置
lblStatus.Caption = "Record: " & CStr(adoPrimaryRS.AbsolutePosition)
End Sub
Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal 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
Case adRsnRequery
Case adRsnResynch
Case adRsnUndoAddNew
Case adRsnUndoDelete
Case adRsnUndoUpdate
Case adRsnUpdate
End Select
If bCancel Then adStatus = adStatusCancel
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr
With adoPrimaryRS
If Not (.BOF And .EOF) Then
mvBookMark = .Bookmark
End If
.AddNew
lblStatus.Caption = "Add record"
mbAddNewFlag = True
SetButtons False
End With
Exit Sub
AddErr:
MsgBox Err.Description
End Sub
Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With adoPrimaryRS
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description
End Sub
Private Sub cmdRefresh_Click()
'This is only needed for multi user apps
On Error GoTo RefreshErr
adoPrimaryRS.Requery
Exit Sub
RefreshErr:
MsgBox Err.Description
End Sub
Private Sub cmdEdit_Click()
On Error GoTo EditErr
lblStatus.Caption = "Edit record"
mbEditFlag = True
SetButtons False
Exit Sub
EditErr:
MsgBox Err.Description
End Sub
Private 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 = False
End Sub
Private 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 Sub
UpdateErr:
MsgBox Err.Description
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdFirst_Click()
On Error GoTo GoFirstError
adoPrimaryRS.MoveFirst
mbDataChanged = False
Exit Sub
GoFirstError:
MsgBox Err.Description
End Sub
Private Sub cmdLast_Click()
On Error GoTo GoLastError
adoPrimaryRS.MoveLast
mbDataChanged = False
Exit Sub
GoLastError:
MsgBox Err.Description
End Sub
Private 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
adoPrimaryRS.MoveLast
End If
'show the current record
mbDataChanged = False
Exit Sub
GoNextError:
MsgBox Err.Description
End Sub
Private Sub cmdPrevious_Click()
On Error GoTo GoPrevError
If Not adoPrimaryRS.BOF Then adoPrimaryRS.MovePrevious
If adoPrimaryRS.BOF And adoPrimaryRS.RecordCount > 0 Then
Beep
'moved off the end so go back
adoPrimaryRS.MoveFirst
End If
'show the current record
mbDataChanged = False
Exit Sub
GoPrevError:
MsgBox Err.Description
End Sub
Private Sub SetButtons(bVal As Boolean)
cmdAdd.Visible = bVal
cmdEdit.Visible = bVal
cmdUpdate.Visible = Not bVal
cmdCancel.Visible = Not bVal
cmdDelete.Visible = bVal
cmdClose.Visible = bVal
cmdRefresh.Visible = bVal
cmdNext.Enabled = bVal
cmdFirst.Enabled = bVal
cmdLast.Enabled = bVal
cmdPrevious.Enabled = bVal
End Sub
7.4檔案的登陸和密碼設計
本部分程序主要是提高系統的安全性，以防止非法用戶(hù)進(jìn)入本系統，避免不必要的損失。
Login.frm
'是否合法用戶(hù)
Public password As String
Public user As String
Dim db As Connection
Dim rs As Recordset
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Then
MsgBox "請輸入完整！", vbOKOnly + vbExclamation
Else
If rs.State = adStateOpen Then rs.Close
rs.Open "select * from 登錄 where 用戶(hù)名='" & Text1.Text & "'", db, 1, 1
If Not rs.EOF And Not rs.BOF Then
If rs("密碼") = Text2.Text Then
user = Text1.Text
password = Text2.Text
main.Show
Unload Me
Else
MsgBox "密碼錯誤！", vbOKOnly + vbExclamation
End If
Else
MsgBox "無(wú)此用戶(hù)！", vbOKOnly + vbExclamation
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
'Me.Width = 8000
'Me.Height = 6000
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=database.mdb;"
Set rs = New Recordset
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_GotFocus()
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
7.5、檔案的主界面
本系統采用MDI方式，這是系統的所有窗口的父窗口，體統了系統的所有菜單等控制功能。
檔案的主界面如下：
Main.frm
Private Sub dacz_Click()
query.Show
End Sub
Private Sub dalr_Click()
frm檔案.Show
End Sub
Private Sub datj_Click()
tle.Show
End Sub
Private Sub guanyu_Click()
frmAbout.Show
End Sub
Private Sub MDIForm_Load()
StatusBar1.Panels(1).Text = Date
Me.WindowState = 2
End Sub
Private Sub ynghuxiugai_Click()
edit.Show
End Sub
Private Sub zhuangtai_Click()
If zhuangtai.Checked Then
zhuangtai.Checked = False
StatusBar1.Visible = False
Else
zhuangtai.Checked = True
StatusBar1.Visible = True
End If
End Sub
7.6、檔案的查詢(xún)、預覽、打印功能
本部分能夠提供對所需文件的按不同條件的查詢(xún)、預覽、打印等功能，利用了VB訪(fǎng)問(wèn)數據庫ADO對象的強大功能，能夠實(shí)現對所需文件的靈活查詢(xún)，再利用VB內置的數據報表功能，實(shí)現對所需文件的預覽和打印。
Query.frm
Dim db As Connection
Dim rs As Recordset
Public tdata As String
Private Sub Command1_Click()
On Error GoTo er
If rs.State=adStateOpen Then rs.Close
rs.Open〝select * from 檔案 where〝 & Combol.Text & 〝=〝 & Text1.Text & 〝,db,
adOpenStatic,adLockOptimistic
Set DataGrid1.DataSource=rs
DataGrid1.Refresh
Exit Sub
er:
MsgBox 〝請填寫(xiě)合適的查詢(xún)條件或確認格式正確〝，vbOKOnly+vbQuestion
End Sub
Private Sub Command2_Click()
On Error GoTo er
If rs.State=adStateOpen Then rs.Close
rs.Open 〝select * from 檔案 where 發(fā)文日期>=#〝 & Text2.text & 〝 and 發(fā)文日期<=#〝 &
Text3.Test & 〝#〝,db,adOpenStatic,adLockOptimistic
Set DataGrid1.DataSource=rs
DataGrid1.Refresh
Exit Sub
er:
MsgBox 〝請填寫(xiě)合適的查詢(xún)條件或確認格式正確〝,vbOKOnly+vbQuestion
End Sub
Private Sub Command3_Click()
On Error GoTo er
DataGrid1.Col=0
tdatat=DataGrid1.Test
DataReport1.Show
Exit Sub
er:
MsgBox〝請選擇要預覽的內容〝,vbOKOnly + vbQuestion
‵MsgBox
End Sub
Private Sub Form_Load()
‵Me.Width=10000
‵Me.Height=7000
Set db=New Commection
Db.CursorLocation=adUseClient
db.Open〝PROWIDER=Microsoft.Jet.OLEDB.3.51;Data Source=database.mdb; 〝
Set rs =New Recordset
End Sub
Private Sub Form_Unload(Cancel As Integer)
If rs.State=adStateOpen Then rs.Close
Set rs=Nothing
db.Close
Set db =Nothing
End Sub
Private Sub Option1_Click()
qita.Visible=False
riqi.Visible=True
End Sub
Private Sub Option2_Click()
qita.Visible=True
riqi.Visible=False
End Sub
____________________________________________________________________
7.7、檔案的統計功能
本部分能夠準確地統計出所錄入的檔案數目，以便進(jìn)行檔案統計。
Totle.frm
Private Sub Form_Load()
Dim rs As Recordset
Dim db As Connection
Set db=New Connection
db.CursorLocation=adUseClient
db.Open 〝PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=database.mdb; 〝
Set rs=New Recordset
rs.Open 〝檔案〝,db,adOpenStatic,1
Label1.Caption=〝本系統共收集檔案: 〝& rs.RecordCount &〝條檔案記錄〝
End Sub
____________________________________________________________________
7.8、檔案的報表
靈活運用了VB的數據報表功能，實(shí)現了文件的預覽、打印。
Datareport
Dim db As Connection
Dim rs As Recordset
Private Sub DataReport_Initialize()
Set db =New Connection
Db.Cursor location=adUseClient
db.Open 〝PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=database.mdb; 〝
Set rs = New Recordset
rs.Open 〝select * from 檔案 where 編號＝〝 ＆ query.tdata,db,1,1
Set DataReport1.DataSource=rs
End Sub
第八章 結束語(yǔ)
經(jīng)過(guò)一個(gè)多月的設計和開(kāi)發(fā)，這套檔案管理系統已基本結束。主要能實(shí)現檔案的錄入、修改、查找、刪除、統計、查詢(xún)、預覽、編輯、打印、打印預覽、取消、刷新等功能，此外，在程序中還設計了用戶(hù)登陸，以確保本系統應用的安全性。本管理系統設計合理、界面美觀(guān)、操作方便、運行穩定、功能完備，為企業(yè)進(jìn)行現代化的檔案管理工作起到了重要作用。但是由于畢業(yè)設計時(shí)間較短，所以該系統還有一些不盡人意的地方，比如聯(lián)機文檔比較少，用戶(hù)界面不夠美觀(guān)等問(wèn)題，這些都有待進(jìn)一步改善，敬請各位老師指正。
在本次畢業(yè)設計中，我從指導老師周朋紅老師身上學(xué)到了很多東西，周老師認真負責的工作態(tài)度、嚴謹治學(xué)的精神和深厚的理論水平都使我受益匪淺。無(wú)論在理論上還是在實(shí)踐中，她都給予我很大的幫助，使我的Visual Basic應用水平得到了很大的提高，這對于我以后的工作和學(xué)習都有一種巨大的幫助。
今后的工作中，我一定要充分運用自己所學(xué)的計算機知識，并在工作中不斷學(xué)習和完善，充分發(fā)揮一名計算機專(zhuān)業(yè)人員的作用，為企業(yè)的騰飛和發(fā)展貢獻自己的力量。
附：主要參考文獻
［1］Visual Basic 6.0使用指南
作者：Bob Reselman， Richard Peasley ， Warne Pruchniak。
出版社：電子工業(yè)出版社
［2］中文版Microsoft Office 97 自學(xué)通
作者：Ned Snell
出版社：機械工業(yè)出版社
［3］Visual Basic 6.0 中文版控件大全
作者：Microsoft
出版社：電子工業(yè)出版社
［4］中文Access 2000 24學(xué)時(shí)教程
作者：Craig Eddy， Timothy Buchanan
出版社：機械工業(yè)出版社
［5］Vbsual Basic 6.0用戶(hù)編程手冊
作者：林永 張樂(lè )強
出版社：人民郵電出版社
［6］Visual Basic 6.X程序設計
作者：陳俊源
出版社：中國鐵道出版社
