檔案管理系統(tǒng)畢業(yè)論文

1、. v檔案管理系統(tǒng)檔案管理系統(tǒng)畢業(yè)設(shè)計(jì)畢業(yè)設(shè)計(jì)專(zhuān)業(yè)專(zhuān)業(yè)班級(jí)班級(jí)XX學(xué)號(hào)學(xué)號(hào)日期日期 年年 月月 日日摘要 41.1 Abstract62 引言 72.1 背景 72.2 檔案管理系統(tǒng) 82.3 開(kāi)發(fā)檔案管理系統(tǒng)的目的和原則 82.4 開(kāi)發(fā)環(huán)境介紹 9主要的控件及其基本屬性，事件簡(jiǎn)介 92.5 命令按鈕類(lèi)的事件：112.6 獲得焦點(diǎn)GotFocus 事件 11觸發(fā)與適用 11事件處理過(guò)程 122.7 標(biāo)簽框類(lèi)的控件類(lèi)的控件：132.9 文本框類(lèi)的事件：152.10 單選按鈕類(lèi)的控件：162.11 單選按鈕類(lèi)的常用事件：182.12 復(fù)選按鈕類(lèi)的控件：192.13 復(fù)選按鈕類(lèi)的控件的基本事件：20

2、2.14 框架類(lèi)的控件：212.15 滾動(dòng)條類(lèi)的控件：212.16 定時(shí)器類(lèi)類(lèi)的控件：212.17 數(shù)據(jù)庫(kù)連接方式選擇 223 用 data 控件進(jìn)行數(shù)據(jù)庫(kù).223.1 利用 adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫(kù)：223.2 利用 DAO 對(duì)數(shù)據(jù)庫(kù)進(jìn)行操縱:234 關(guān)系數(shù)據(jù)庫(kù)介紹:234.1 數(shù)據(jù)庫(kù)設(shè)計(jì)工具ACCESS 數(shù)據(jù)庫(kù)管理系統(tǒng) 245 系統(tǒng)設(shè)計(jì) 255.1 系統(tǒng)分析 255.2 系統(tǒng)流程和操作方式設(shè)計(jì) 26. v6 系統(tǒng)界面設(shè)計(jì) 266.1 系統(tǒng)界面設(shè)計(jì)以及代碼分析 26登陸界面設(shè)計(jì) 27主界面設(shè)計(jì) 29檔案添加界面 357 數(shù)據(jù)庫(kù)的設(shè)計(jì) 437.1 數(shù)據(jù)庫(kù)設(shè)計(jì) 4

3、4修改表設(shè)計(jì) 442.檔案細(xì)節(jié)表設(shè)計(jì):448 總結(jié) 449 致謝 4510 參考文獻(xiàn) 46摘摘 要要隨著經(jīng)濟(jì)的發(fā)展，社會(huì)的進(jìn)步，計(jì)算機(jī)越來(lái)越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂(lè)等。各行各業(yè)的人們無(wú)須經(jīng)過(guò)特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿(mǎn)了多如牛毛的各種軟件，但它們依然不能滿(mǎn)足用戶(hù)的各種特

4、殊需要，人們還不得不開(kāi)發(fā)適合自己特殊需求的軟件。以前開(kāi)發(fā) Windows 應(yīng)用軟件是專(zhuān)業(yè)人員的工作，需要掌握許多專(zhuān)業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任?，F(xiàn)在不同了，即使你沒(méi)有接受過(guò)嚴(yán)格的程序設(shè)計(jì)訓(xùn)練，使用 Visual Basic也一樣能夠開(kāi)發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。Visual Basic 繼承了 Basic 語(yǔ)言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí) Windows 系統(tǒng)編程。檔案管理系統(tǒng)用計(jì)算機(jī)管理檔案的一種計(jì). v算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前檔案文件管理都是由工作人員人工存檔,調(diào)閱的方式來(lái)操作的.現(xiàn)在一般的檔案管理都采用計(jì)算機(jī)智能化管理,采用計(jì)算機(jī)作為工具的實(shí)用的

5、計(jì)算機(jī)檔案管理程序來(lái)幫助檔案管理員進(jìn)行更有效的檔案管理工作。檔案管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。經(jīng)過(guò)分析,我們使用 MICROSOFT 公司的 VISUAL BASIC 開(kāi)發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶(hù)滿(mǎn)意的可行系統(tǒng)。因?yàn)楸救四芰τ邢蓿由蠒r(shí)間緊迫，所以設(shè)

6、計(jì)出來(lái)的本系統(tǒng)可能功能比較簡(jiǎn)單，另外本系統(tǒng)是單機(jī)版，不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作,這些都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。關(guān)鍵字關(guān)鍵字:檔案管理,MIS,visual basic ,數(shù)據(jù)庫(kù),Access1.1 AbstractWith economic development, social progress, the puter and went to work learning and our daily lives, we bee an indispensable tool in everyday life. As science and technology continue to imp

7、rove, puter science increasingly mature, and its powerful functions for the people to deeply understand that it has entered human society in various fields and is playing an increasingly important role. It has to go down to the daily work and life, such as word processing, information management, ai

8、ded design, graphics and video processing, as well as education and training game entertainment. . vAll people without special training will be able to use puters to plete numerous plex. However, although now the world has been filled with an over-abundance of software, but they still can not meet t

9、he special needs of the various users, it also had to develop software suited to their particular needs. Professional Windows application software development before the work is needed in many professional knowledge and petence through special training. Different now, even if you have not received s

10、trict procedures designed training, the use of Visual Basic also like to develop a powerful, and suited to their special needs applications. Visual Basic inherited Basic language learn user-friendly features, and are particularly suited to new learner learning Windows system programming. File manage

11、ment system using a puter application puter file management technology innovation in the puter files before the document management is not yet universal by staff manual filing, access to the operation. General file management are now using puter intelligent management, using the puter as a tool for

12、puter files management procedures to help managers more effective archives files management. Records management system is a typical management information system (MIS), including its main development background to the establishment and maintenance of the database and front-end application developmen

13、t 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions, such as easy to use features. After analysis, we use Microsoft visual basic development tool panies, the use of its various object-orient

14、ed development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype application system in a short time and then, putation of the initial prototype system needs to constantly revise and improve until the formation of a

15、viable system of user satisfaction. Because I limited capacity, coupled with time constraints, it designed the system may function relatively simple, and the system is single edition, not Internet operations network, which I have yet to learn that in future work to further improve. keyword : file ma

16、nagement, MIS,visual basic database, Access引引言言1.2 背背景景隨著經(jīng)濟(jì)的發(fā)展，社會(huì)的進(jìn)步，計(jì)算機(jī)越來(lái)越深入到我們?nèi)粘５墓ぷ鲗W(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為. v人們深刻認(rèn)識(shí),它已進(jìn)入人類(lèi)社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂(lè)等。各行各業(yè)的人們無(wú)須經(jīng)過(guò)特別的訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿(mǎn)了多如牛毛的各種軟件，但它們依然不能

17、滿(mǎn)足用戶(hù)的各種特殊需要，人們還不得不開(kāi)發(fā)適合自己特殊需求的軟件。以前開(kāi)發(fā) Windows 應(yīng)用軟件是專(zhuān)業(yè)人員的工作，需要掌握許多專(zhuān)業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任?，F(xiàn)在不同了，即使你沒(méi)有接受過(guò)嚴(yán)格的程序設(shè)計(jì)訓(xùn)練，使用 Visual Basic也一樣能夠開(kāi)發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。Visual Basic 繼承了 Basic 語(yǔ)言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí) Windows 系統(tǒng)編程。1.3 檔檔案案管管理理系系統(tǒng)統(tǒng)檔案管理系統(tǒng)用計(jì)算機(jī)管理檔案的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前檔案文件管理都是由工作人員人工存檔,調(diào)閱的方式來(lái)操作的.現(xiàn)在一般的檔案管理都采用計(jì)

18、算機(jī)智能化管理,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)檔案管理程序來(lái)幫助檔案管理員進(jìn)行更有效的檔案管理工作。檔案管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。. v1.4 開(kāi)開(kāi)發(fā)發(fā)檔檔案案管管理理系系統(tǒng)統(tǒng)的的目目的的和和原原則則檔案管理系統(tǒng)開(kāi)發(fā)目的主要是服務(wù)于企事業(yè)單位檔案室檔案管理人員.方便日常的檔案組建,分類(lèi),存儲(chǔ),調(diào)用.設(shè)計(jì)原則是力求完成任務(wù)書(shū)所要求的所用功能模塊,做到程序的健壯性和界面的人性化.1.5 開(kāi)開(kāi)發(fā)發(fā)環(huán)環(huán)境境介介紹紹

19、Visual Basic 6.0 是 Micrsoft 公司出品的開(kāi)發(fā)工具，Visual Basic 是一種可視化的，面向?qū)ο蟮?Windows 開(kāi)發(fā)語(yǔ)言，它具有易用，通用和開(kāi)發(fā)效率高的特點(diǎn)。隨著微軟對(duì)它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高，使得 Visual Basic 越來(lái)越適合一般的應(yīng)用程序開(kāi)發(fā)。正如 Bill Gate 所說(shuō)，世界上絕大多數(shù)的 Windows 應(yīng)用程序是用 Visual Basic 編寫(xiě)的。在眾多的開(kāi)發(fā)工具中，我們?yōu)槭裁匆x擇 Visual Basic6.0呢.因?yàn)?VB 具有眾多其它開(kāi)發(fā)工具所沒(méi)有的優(yōu)點(diǎn)！具體介紹如下： 開(kāi)發(fā)的高效語(yǔ)言的高效編譯的高效執(zhí)行的高效維護(hù)的高效

20、基于以上理由，我們毫不憂(yōu)郁的選擇了 VB6.0 做為我們的開(kāi)發(fā)工具！. v主主要要的的控控件件及及其其基基本本屬屬性性，事事件件簡(jiǎn)簡(jiǎn)介介命令按鈕類(lèi)的控件：1) Caption 屬性：用來(lái)顯示在控件上的標(biāo)題。2) Enable 屬性：控制控件的激活狀態(tài)灰色或可用。3) Appearance 屬性：值為 1 時(shí),則以 3D 效果顯示該控件,0 則不然。4) Backcolor 屬性：用來(lái)改變?cè)诎粹o上顯示圖像的背景色。5) Cancel 屬性：該屬性決定按鈕是否為一個(gè)”取消”按鈕。6) Default 屬性:決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕.7) Font 屬性:控制各種文字字體類(lèi)型.8)

21、 Left,top,height,width 屬性:設(shè)定控件的位置與大小.9) Style,picture 屬性:決定按鈕的顯示方式是否為圖像形式出現(xiàn).10)Visible 屬性:確定控件運(yùn)行時(shí)是否為可見(jiàn).11)Index 屬性:當(dāng)控件為一控件數(shù)組時(shí),此屬性值為該控件在數(shù)組的下標(biāo)值.12)DownPicture 屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在按鈕被單擊處于壓下?tīng)顟B(tài)時(shí)顯示。13)DisabledPicture 屬性：設(shè)置/返回一個(gè)對(duì)圖片的引. v用，該圖片在控件無(wú)效時(shí)顯示在控件中。14)MaskColor 屬性：設(shè)置/返回一個(gè)在按鈕的圖片中作為“掩碼“的的顏色15)Picture 屬

22、性：設(shè)置返回 mandButton 控件中要顯示的圖片。1.6 命命令令按按鈕鈕類(lèi)類(lèi)的的事事件件：1）單擊事件Click 事件（1） 觸發(fā)與適用此事件是在一個(gè)命令按鈕對(duì)象上按下然后釋放一個(gè)鼠標(biāo)按鈕時(shí)發(fā)生。命令按鈕的 Click 事件僅對(duì)當(dāng)單擊鼠標(biāo)時(shí)發(fā)生。（2） 事件處理過(guò)程按鈕單擊事件的處理過(guò)程為： Private Sub object-Click（Index As Integer）其中 Object 為引發(fā)該事件的對(duì)象名稱(chēng)。如果是命令按鈕的控件是數(shù)組，則需要使用 Index參數(shù)標(biāo)識(shí)該控件。1.7 獲獲得得焦焦點(diǎn)點(diǎn)GotFocus 事事件件觸觸發(fā)發(fā)與與適適用用當(dāng)命令按鈕獲得焦點(diǎn)產(chǎn)生該事件，獲得

23、焦點(diǎn)可以通過(guò)諸如 Tab 切換或單擊對(duì)象之類(lèi)的用. v戶(hù)動(dòng)作，或在代碼中用 SetFocus 方法改變焦點(diǎn)來(lái)實(shí)現(xiàn)。事事件件處處理理過(guò)過(guò)程程命令按鈕 GotFoucs 事件處理過(guò)程為：Private Sub Object-GotFocus（Index As Integer）2）LostFocus 事件：當(dāng)一個(gè)對(duì)象失去焦點(diǎn)時(shí)發(fā)生3）KeyDown 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生4）KeyUp 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。5）KeyPress 事件：當(dāng)用戶(hù)按下或松開(kāi)一個(gè) ANSI 鍵時(shí)發(fā)生。6）MouseDown 事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時(shí)發(fā)生。7）MouseMo

24、ve 事件：當(dāng)命令按鈕上移動(dòng)鼠標(biāo)時(shí)發(fā)生。8）MouseUp 事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時(shí)發(fā)生。1.8 標(biāo)標(biāo)簽簽框框類(lèi)類(lèi)的的控控件件類(lèi)類(lèi)的的控控件件：16)Caption 屬性：在應(yīng)用程序界面上加入說(shuō)明。17)Autosize 屬性：決定控件是否自動(dòng)改變大小以顯. v示其全部?jī)?nèi)容。18)Backstyle 屬性：用以指示標(biāo)簽是否透明.19)Bordstyle 屬性:用以設(shè)定控件是否有邊框。1.9 文文本本框框類(lèi)類(lèi)的的控控件件：20)Text 屬性：通過(guò)像 text 屬性賦值的方法來(lái)改變?cè)搶傩缘闹怠?1)Maxlength 屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。22)Multl

25、ine 屬性：該屬性設(shè)定 text 字符串中是否接受換行符。23)Scrollbars 屬性：該屬性決定是否為文本框加滾動(dòng)條。24)Passwordchar 屬性：該屬性設(shè)定輸入文本的特殊顯示字符,在設(shè)計(jì)密碼程序時(shí)非常有用。25)Change 事件屬性：文本框的內(nèi)容發(fā)生改變時(shí),相應(yīng)的控件之間發(fā)生相應(yīng)的改變,具有即時(shí)性。26)Keypress：事件由用戶(hù)在文本框控件中按任意鍵觸發(fā)。27)Alignment 屬性：設(shè)定控件中的文本對(duì)其方式28)Appearance 屬性：設(shè)定一個(gè)對(duì)象在運(yùn)行時(shí)是否可以 3D 效果顯示。29)BackColor 屬性：設(shè)置返回背景色. v30)BorderStyle

26、屬性：設(shè)置對(duì)象的邊框樣式31)DataField 屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名32)DataFormat 屬性：設(shè)定 DataFormat 對(duì)象，用于數(shù)據(jù)綁定33)DataMember 屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個(gè)數(shù)據(jù)成員中返回/設(shè)定一個(gè)特定的數(shù)據(jù)成員34)DataSource 屬性：設(shè)定控件綁定的一個(gè)數(shù)據(jù)源35)DragIcon 屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示36)DragMode 模式：設(shè)定一個(gè)值，確定在拖放操作中所用方式37)Enabled 屬性：設(shè)置/返回運(yùn)行時(shí) TextBox 是否相應(yīng)用戶(hù)事件38)Font 屬性：設(shè)置/返回字體屬性39)ForeColor

27、屬性：設(shè)置/返回文本的前景色40)Height 屬性：設(shè)置/返回 TextBox 的高度41)IMEMode 屬性：設(shè)置/返回?cái)?shù)值用來(lái)確定輸入方法編輯器的狀態(tài)42)Index 屬性：設(shè)置/返回唯一的標(biāo)識(shí)控件數(shù)組中該控件的編號(hào)43)Left 屬性：設(shè)置/返回 TextBox 控件的水平位置. v44)Locked 屬性：設(shè)置/返回 TextBox 中文本是否可編輯45)LinkItem 屬性：設(shè)置/返回 DDE 與另一個(gè)應(yīng)用程序會(huì)話(huà)時(shí)，傳給接受端的數(shù)據(jù)46)MaxLength 屬性：設(shè)置/返回一個(gè)值，指定在TextBox 控件中能夠輸入的字符最大值47)MouseIcon 屬性：設(shè)置/返回自定義

28、鼠標(biāo)的圖標(biāo)48)Top 屬性：設(shè)置/返回 TextBox 控件的垂直位置49)Tag 屬性：存儲(chǔ)過(guò)程所需的附加數(shù)據(jù)1.10 文文本本框框類(lèi)類(lèi)的的事事件件：1）Change 事件：當(dāng)改變文本框內(nèi)容時(shí)發(fā)生2）Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生3）DblClick 事件：用鼠標(biāo)左鍵雙擊控件時(shí)發(fā)生4）DragDrop 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生5）DragOver 事件：在拖放操作正在進(jìn)行時(shí)發(fā)生6）GotFocus 事件：當(dāng)一個(gè)命令按鈕獲得焦點(diǎn)時(shí)發(fā)生7）LinkClose 事件：當(dāng)一個(gè) DDE 對(duì)話(huà)結(jié)束時(shí)發(fā)生8）LinkErro

29、r 事件：當(dāng)一個(gè) DDE 對(duì)話(huà)框過(guò)程中出現(xiàn)錯(cuò)誤時(shí)，該事件發(fā)生. v9）KeyDown 事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生10） Validate 事件：在焦點(diǎn)轉(zhuǎn)換到另一個(gè)控件之前發(fā)生，此時(shí)該控件的 Causes Validation 屬性值設(shè)置為 True1.11 單單選選按按鈕鈕類(lèi)類(lèi)的的控控件件：50)Caption 屬性：顯示在控件上的文本,是單選按鈕的標(biāo)題。51)Alignment 屬性：決定單選按鈕的標(biāo)題在控件上的位置。52)Enable 屬性：該控件為灰色時(shí)為 false,表示運(yùn)行時(shí)不可用。53)Index 屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。54)Tab

30、index 屬性：建立控件時(shí),vb 自動(dòng)為其分配一個(gè)tabindex 值,利用 tab 鍵可以在控件之間切換焦點(diǎn)。55)Value 屬性：反映控件狀態(tài)的屬性,返回 true 表示已選擇了該按鈕。56)Appearance 屬性：設(shè)置/返回一個(gè)對(duì)象在運(yùn)行時(shí)是否以 3D 效果顯示。57)BackColor 屬性：設(shè)置/返回背景色。58)Container 屬性：設(shè)置/返回 Form 上的控件屬性。. v59)DataField 屬性：設(shè)置/返回?cái)?shù)據(jù)使用者將被綁定到的字段名。60)DataFormat 屬性：設(shè)置/返回 DataFormat 對(duì)象，一個(gè)綁定對(duì)象將附加到它。61)DisabledPic

31、ture 屬性：設(shè)置/返回一個(gè)對(duì)圖像的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。62)DownPicture 屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在控件單擊下處于壓下?tīng)顟B(tài)時(shí)顯示。63)DragMode 屬性：設(shè)置/返回一個(gè)值，確定在拖放操作中所用的方式。64)Font 屬性：設(shè)置/返回字體屬性。65)FontBold 屬性：設(shè)置/返回字體粗體樣式。66)FontItalic 屬性：設(shè)置/返回字體斜體樣式。 67)FontStrikethru 屬性：設(shè)置/返回字體刪除線(xiàn)樣式。68)FontUnderLine 屬性：設(shè)置/返回字體下劃線(xiàn)樣式。69)FontName 屬性：設(shè)置/返回控件中顯示文本所

32、用的字體大小。70)FontSize 屬性：設(shè)置/返回控件中顯示文本所用的字體大小. v71)Height 屬性：設(shè)置/返回控件的高度。72)MaskColor 屬性：設(shè)置/返回一個(gè)在控件的圖片中作為掩碼的顏色。73)MousePointer 屬性：設(shè)置/返回一個(gè)值，該值指示在運(yùn)行時(shí)當(dāng)鼠標(biāo)移動(dòng)到對(duì)象上時(shí)顯示的指針類(lèi)型。1.12 單單選選按按鈕鈕類(lèi)類(lèi)的的常常用用事事件件：1）Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。2）DbClick 事件： 當(dāng)在一個(gè)對(duì)象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。3）DragDrop 事件：在一個(gè)完整的拖放動(dòng)作或使用Drag 方法，并將其 Action

33、 參數(shù)設(shè)置位 2 時(shí)，該事件發(fā)生。4）DragOver 事件： 在拖放操作正在進(jìn)行時(shí)發(fā)生。5）GotFocus 事件： 當(dāng)獲的對(duì)象焦點(diǎn)時(shí)發(fā)生。6）LostFocus 事件：當(dāng)對(duì)象失去焦點(diǎn)時(shí)發(fā)生。7）KeyDown 事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生。8）KeyUp 事件： 當(dāng)控件具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。9）KeyPress 事件：當(dāng)用戶(hù)按下或釋放 ANSI 一個(gè)鍵. v時(shí)發(fā)生。10） MouseDown 事件：當(dāng)在控件上按下鼠標(biāo)鍵時(shí)發(fā)生。11） MouseMove 事件：在控件上移動(dòng)鼠標(biāo)時(shí)發(fā)生。12） MouseUp 事件：在控件上釋放鼠標(biāo)時(shí)發(fā)生。1.13 復(fù)復(fù)選選按按鈕鈕類(lèi)類(lèi)的的控控

34、件件：74)Caption 屬性：缺省為 check1。75)Index 屬性:該屬性值為復(fù)選框控件數(shù)組的下標(biāo).76)Value 屬性:value 為 0 表空白,為 1 表勾號(hào),為 2 表示灰色勾號(hào).77)Container 屬性：Form 控件上的容器。78)DataChangeed 屬性：設(shè)置/返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。79)DataField 屬性：設(shè)置或返回?cái)?shù)據(jù)使用者將被綁定到的字段名。80)DataFormat 屬性：設(shè)置或返回 DataFormat 對(duì)象，用于數(shù)據(jù)綁定。81)Datasource 屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。82)Disabl

35、edPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件無(wú)效時(shí)顯示在控件中。83)DownPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引. v用，該圖片在控件被單擊處于壓下?tīng)顟B(tài)時(shí)顯示。84)DragIcon 屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。85)DragMode 屬性：設(shè)置返回一個(gè)值，確定在拖放操作中所用方式。86)Font 屬性：設(shè)置或返回字體的屬性。87)Name 屬性：設(shè)置或返回控件的標(biāo)識(shí)名。88)Value 屬性：設(shè)置或返回控件的狀態(tài)。1.14 復(fù)復(fù)選選按按鈕鈕類(lèi)類(lèi)的的控控件件的的基基本本事事件件：1）Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。2）DragDr

36、op 事件：在一個(gè)完整的拖放動(dòng)作完成或使用 Drag 方法，并將其 Action 參數(shù)設(shè)置為 2 時(shí)發(fā)生。3）DragOver 事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。4）GotFocus 事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。 ，5）OLEpleteDrag 事件：當(dāng)源部件被放到目標(biāo)時(shí)發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。6）OLEDragDrag 事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。1.15 框框架架類(lèi)類(lèi)的的控控件件：1) List 屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存,數(shù)組的每一個(gè)元素存儲(chǔ)列表控件的一個(gè). v表項(xiàng)89)Listcount 屬性:控件列表部分項(xiàng)目的個(gè)

37、數(shù)。90)Mutselect 屬性:可以設(shè)置列表框?yàn)閱芜x或允許多選屬性.91)Selectd 屬性:標(biāo)示一個(gè)數(shù)組,數(shù)組各元素為:92)Selected(0),selected(1)1.16 滾滾動(dòng)動(dòng)條條類(lèi)類(lèi)的的控控件件：93)Value 屬性：滾動(dòng)條上滑塊所在位置由 value 值所決定。94)Max 和 min 屬性：對(duì) value 值的最大,最小進(jìn)行限制。95)Largechange 屬性：用戶(hù)點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域時(shí),value 的改變量。4) OnClick 事件：用來(lái)添加按鈕的單擊事件所執(zhí)行的程序代碼。1.17 定定時(shí)時(shí)器器類(lèi)類(lèi)類(lèi)類(lèi)的的控控件件：96)Interval 屬性：表示

38、定時(shí)的時(shí)間間隔,以毫秒為單位。97)Enable 屬性:為 true 時(shí)(缺省值),激活定時(shí)器開(kāi)始計(jì)時(shí);為 false 時(shí)處于休眠狀態(tài).1.18 數(shù)數(shù)據(jù)據(jù)庫(kù)庫(kù)連連接接方方式式選選擇擇Visual basic6.0 連接數(shù)據(jù)庫(kù)的主要方式以下幾種方式：一是：. v用 data 控件進(jìn)行數(shù)據(jù)庫(kù) ，二是利用 adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫(kù) 。三是: 利用 DataEnvironment 進(jìn)行數(shù)據(jù)庫(kù).四是利用 ADO(ActiveX Data Objects)進(jìn)行編程:現(xiàn)在我們來(lái)大致對(duì)這幾種技術(shù)應(yīng)用介紹：用用data 控控件件進(jìn)進(jìn)行行數(shù)數(shù)據(jù)據(jù)庫(kù)庫(kù) .第一步：給窗體添加一個(gè) Da

39、ta 控件。第二步：用 Access建立一個(gè)名為 Pad 的數(shù)據(jù)庫(kù)，在庫(kù)中建立一個(gè)表 Myset，給表添加四個(gè)字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請(qǐng)將庫(kù)文件存入程序所在目錄。如果你的機(jī)器沒(méi)安裝有 Access，可通過(guò) VB 建庫(kù)。1.19 利利用用adodc（ADO Data Control)進(jìn)進(jìn)行行數(shù)數(shù)據(jù)據(jù)庫(kù)庫(kù)：使用 adodata 控件訪問(wèn)數(shù)據(jù)庫(kù)可以完全不用編寫(xiě)代碼,只需要通過(guò)簡(jiǎn)單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫(kù)的連接,通過(guò)綁定數(shù)據(jù)感知控件,就能提供一個(gè)訪問(wèn)數(shù)據(jù)庫(kù)的界面,用來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的瀏覽,貼加,刪

40、除,修改等操作.1.20 利利用用DAO 對(duì)對(duì)數(shù)數(shù)據(jù)據(jù)庫(kù)庫(kù)進(jìn)進(jìn)行行操操縱縱 :在 visual basic 中提供了兩種與 jet 數(shù)據(jù)引擎接口的方法:data 控件與數(shù)據(jù)訪問(wèn)對(duì)象(DAO)DAO 是 database object的英文縮寫(xiě),要訪問(wèn)數(shù)據(jù)庫(kù)一方面數(shù)據(jù)庫(kù)要提供訪問(wèn)接口,. v另一方面要在編程環(huán)境中有對(duì)數(shù)據(jù)庫(kù)的支持.DAO 模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)結(jié)構(gòu)的對(duì)象類(lèi)的集合.他們提供了管理關(guān)系型數(shù)據(jù)庫(kù)系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫(kù),定義表,字段和建立表間關(guān)系,定位和查詢(xún)數(shù)據(jù)庫(kù)等.關(guān)關(guān)系系數(shù)數(shù)據(jù)據(jù)庫(kù)庫(kù)介介紹紹:關(guān)系數(shù)據(jù)庫(kù)是目前各類(lèi)數(shù)據(jù)庫(kù)中最重要、最流行的數(shù)據(jù)庫(kù)，他應(yīng)用數(shù)

41、學(xué)方法來(lái)處理數(shù)據(jù)庫(kù)數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫(kù)系統(tǒng)。20 世紀(jì) 70 年代以后開(kāi)發(fā)的數(shù)據(jù)庫(kù)管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫(kù)發(fā)展的歷史上，最重要的成就就是關(guān)系模型。關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)與非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫(kù)系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。結(jié)構(gòu)化查詢(xún)語(yǔ)言 SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語(yǔ)言，其功能包括查詢(xún)、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫(kù)語(yǔ)言。目前已成為關(guān)系數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)語(yǔ)言1.21 數(shù)數(shù)據(jù)據(jù)庫(kù)庫(kù)設(shè)設(shè)計(jì)計(jì)工工具具 ACCESS 數(shù)數(shù)據(jù)

42、據(jù)庫(kù)庫(kù)管管理理系系統(tǒng)統(tǒng) Microsoft Access 介紹:. v使用 Microsoft Access，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。在這個(gè)文件中，用戶(hù)可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱(chēng)作表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù)；使用查詢(xún)來(lái)查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。如果要保存數(shù)據(jù)，請(qǐng)為每一種類(lèi)型的信息創(chuàng)建一個(gè)表。如果要從查詢(xún)、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來(lái)自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢(xún)。查詢(xún)的同時(shí)也可以更新或刪除多條記錄，并對(duì)

43、數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。在打開(kāi)一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶(hù)在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來(lái)，請(qǐng)創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印標(biāo)簽的報(bào)表。. v系系統(tǒng)統(tǒng)設(shè)設(shè)計(jì)計(jì)1.22 系系統(tǒng)統(tǒng)分分析析本系統(tǒng)主要由以下幾大功能模塊構(gòu)成:一.檔案管理:檔案?jìng)}庫(kù),退出系統(tǒng)二.系統(tǒng)配置:配置公司信息,配置員工信息,配置數(shù)據(jù)庫(kù)路徑三.添加檔案,修改檔

44、案,刪除檔案,搜索檔案1.23 系系統(tǒng)統(tǒng)流流程程和和操操作作方方式式設(shè)設(shè)計(jì)計(jì)程序登陸主界面檔案管理系統(tǒng)配置添加檔案系統(tǒng)幫助退出系統(tǒng) 系系統(tǒng)統(tǒng)界界面面設(shè)設(shè)計(jì)計(jì)1.24 系系統(tǒng)統(tǒng)界界面面設(shè)設(shè)計(jì)計(jì)以以及及代代碼碼分分析析登登陸陸界界面面設(shè)設(shè)計(jì)計(jì)代碼設(shè)計(jì)分析:Private Sub cmdOK_Click() 檢查密碼的正確性Dim X As Long X = UserTxt.ListIndex 如果有加密，解密方法放此處，將 PassYu(X)數(shù)組中的值，. v 轉(zhuǎn)換成原來(lái)信息 Dim FindStr As String將加密口令變回來(lái) Dim shiftStr As String, shiftSt

45、rR As Variant, shiftNum As Integer, ili As Integer, SureStr As String shiftStr = Trim(txtPassword.Text) shiftNum = Len(shiftStr) ili = 1 SureStr = For ili = 1 To shiftNum shiftStrR = Mid(shiftStr, ili, 1) shiftStrR = Asc(shiftStrR) shiftStrR = shiftStrR - 3 shiftStrR = Chr(shiftStrR) SureStr = SureS

46、tr & shiftStrR Next 密匙 開(kāi)始查找 sureStr 為解除的口令 If SureStr = PassYu(X) Then UserText = UserTxt.Text PurView = strPurView(X) 密碼正確時(shí) frmLogin.MousePointer = 11 Unload Me frmSplash.Show Exit Sub Else MsgBox 無(wú)效的密碼，再試一次！, 32, 登錄 LOGINNO = LOGINNO + 1 If LOGINNO 3 Then MsgBox 對(duì)不起，您不能使用該系統(tǒng)！, 64, 登錄失敗 Unload

47、Me Exit Sub End If txtPassword.SetFocus SendKeys Home+End End IfEnd SubPrivate Sub Form_Load()On Error Resume NextMe.Left = Val(GetSetting(App.EXEName, Login, Left)Me.Top = Val(GetSetting(App.EXEName, Login, Top)Dim retValue As Long retValue = SetActiveWindow(Me.hwnd). v Browser = CurDir() 設(shè)計(jì)時(shí)定義 tem

48、p dir Browser = D:ProgramStudy文件管理 If Right(Browser, 1) Then Browser = Browser + End If checkPath 檢測(cè)路徑Dim DB As Database, EF As Recordset, X As Long, i As LongDim UserYu(10) As String Set DB = OpenDatabase(ConData, False, False, ConStr) Set EF = DB.OpenRecordset(User, dbOpenTable) X = EF.RecordCount

49、 Set EF = DB.OpenRecordset(User, dbOpenDynaset) For i = 0 To X - 1 UserYu(i) = EF.Fields(0).Value If Not IsNull(EF.Fields(1).Value) Then PassYu(i) = EF.Fields(1).Value End If If Not IsNull(EF.Fields(2).Value) Then strPurView(i) = EF.Fields(2).Value End If UserTxt.AddItem UserYu(i), i EF.MoveNext Nex

50、t EF.Close DB.CloseIf X = 1 Then UserTxt.ListIndex = 0End IfLOGINNO = 1End Sub主主界界面面設(shè)設(shè)計(jì)計(jì)代碼分析:Private Sub MDIForm_Load()frmMain.MousePointer = 11Dim Ltp As LongfrmMain.WindowState = GetSetting(App.EXEName, Windows, Windows Status, 1)Me.Left = GetSetting(App.Title, Settings, MainLeft, 1000)Me.Top = Ge

51、tSetting(App.Title, Settings, MainTop, 1000)Me.Width = GetSetting(App.Title, Settings, MainWidth, 6500)Me.Height = GetSetting(App.Title, Settings, MainHeight, 6500). v配置圖片StatusBar.Panels.Item(3).Text = 日期: & Format(Date, Long Date)frmMain.Caption = TempArray(0) + -檔案管理系統(tǒng)frmMain.StatusBar.Panels

52、.Item(6).Text = 制作單位： + TempArray(0)frmMain.StatusBar.Panels.Item(6).ToolTipText = 歡迎使用本軟件frmMain.MousePointer = 0On Error Resume NextfrmMain.Picture = LoadPicture(TempArray(5)frmMain.StatusBar.Panels.Item(2).Text = 準(zhǔn)備就緒.showT = False權(quán)限控制Select Case PurView Case 只能添加 Mnupany.Enabled = False MnuEmplo

53、y.Enabled = False Case 不能修改 Mnupany.Enabled = False MnuEmploy.Enabled = False Case 可以修改 MnuEmploy.Enabled = False Case 超級(jí)權(quán)限 沒(méi)有權(quán)限限制End Select顯示路徑 MnuDataPathDisplay.Caption = 當(dāng)前數(shù)據(jù)庫(kù)路徑： & ConDataExit SubPhotoValible: MsgBox 桌面圖片配置有錯(cuò)誤,請(qǐng)重新配置桌面!, vbOKOnly + 16, 警告! frmMain.MousePointer = 0 Exit SubEnd

54、 SubPrivate Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then 右鍵按下時(shí) PopupMenu MnuSystem End IfEnd SubPrivate Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If frmMain.StatusBar.Panels.Item(2).Text = 待命狀態(tài). Then

55、 Exit Sub Else frmMain.StatusBar.Panels.Item(2).Text = 待命狀態(tài).End If. vEnd SubPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim SureQ As IntegerSureQ = MsgBox(真的退出該系統(tǒng)嗎(Y/N). , vbYesNo + 32, 請(qǐng)確認(rèn).) If SureQ = 6 Then Cancel = 0 Else Cancel = -1 End IfEnd SubPrivate Sub MDIForm_

56、Unload(Cancel As Integer) For i = Forms.Count - 1 To 1 Step -1 Unload Forms(i) Next If Me.WindowState vbMinimized Then SaveSetting App.Title, Settings, MainLeft, Me.Left SaveSetting App.Title, Settings, MainTop, Me.Top SaveSetting App.Title, Settings, MainWidth, Me.Width SaveSetting App.Title, Setti

57、ngs, MainHeight, Me.Height End If SaveSetting App.EXEName, Windows, Windows Status, frmMain.WindowStateEnd SubPrivate Sub Mnupany_Click() Me.MousePointer = 11 GetStatus 公司信息配置 If ConfigForm.Visible = True Then ConfigForm.SetFocus Else ConfigForm.Show End If Me.MousePointer = 0End SubPrivate Sub MnuE

58、mploy_Click() Me.MousePointer = 11 GetStatus 操作員配置 If frmOperator.Visible = True Then frmOperator.SetFocus Else frmOperator.Show End If Me.MousePointer = 0End Sub. vPrivate Sub MnuExi_Click() GetStatus 關(guān)閉系統(tǒng) Unload MeEnd SubPrivate Sub MnuGuestManager_Click() GetStatus 檔案添加、刪除、修改、查詢(xún)End SubPrivate Sub

59、 MnuGuestType_Click() frmMain.MousePointer = 11 GetStatus 檔案類(lèi)型有：公文、原始材料 frmCatalog.Show 1 frmMain.MousePointer = 0End SubPrivate Sub Mnuhelp_Click()GetStatus 配置桌片圖片、操作員、關(guān)于信息End SubPrivate Sub MnuNetData_Click() frmMain.MousePointer = 11 NetData.Show 1 frmMain.MousePointer = 0End SubPrivate Sub MnuSe

60、archGuest_Click() frmMain.MousePointer = 11 If frmManager.Visible = True Then frmManager.SetFocus Else frmManager.Show End If frmMain.MousePointer = 0End SubPrivate Sub MnuTip_Click()frmMain.MousePointer = 11GetStatus 系統(tǒng)的使用技巧與幫助If frmTip.Visible = True Then frmTip.SetFocus frmMain.MousePointer = 0 Exit SubEnd