【文章內(nèi)容簡(jiǎn)介】 lBar就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他 ActiveX的容器。通過在 CoolBar中遷入其他空間你局可以向用戶提 供更好的靈活性和義用性。 Toolbar 是工具條控件，是實(shí)現(xiàn)工具條的主體。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。Toolbar也是一個(gè)控件容器且具有 Style屬性，并可以為其增加下拉按鈕和平滑按鈕等。 選擇 “工程 ”下拉菜單中的 “部件 ”選項(xiàng)，顯示 “部件 ”對(duì)話框。在 “控件 ”選項(xiàng)卡列表中選擇 “Microsoft Windows Common Controls ”后工具相中增加改控件。其屬性及對(duì)象如下： 1． Align屬性定義工具條在窗體中的 位置 2． ToolTipText屬性是字符串類型，定義控件的提示字符 3． Style屬性定義按鈕外觀。 4． ImageList屬性定義與數(shù)據(jù)條對(duì)應(yīng)的 ImageList控件名，該控件定義工具條按鈕顯示的圖像。 5． HotImangeList屬性設(shè)置一個(gè) ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時(shí)顯示的圖像。 6． DisabledImageList屬性定義工具條按鈕無(wú)效時(shí)顯示的圖像。 創(chuàng)建工具條包括 ImageList和 Toolbar控件 ImageList用于為其他控件提供圖像庫(kù)，將 ImageList控件加入到工具箱的操作于前述 Toolbar控件相同。 _ 幫助 專業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。無(wú)論寫出來的程序是要給大量的用戶使用，還是僅僅局限于公司內(nèi)部有限的使用者，我們都應(yīng)該為用戶提供詳細(xì)的、易于理解的聯(lián)機(jī)幫助文檔。微軟的 Help 是一套獨(dú)立于 Visual Basic 的用來協(xié)助我們創(chuàng)建、運(yùn)行于 32位 Windows 操作系統(tǒng)下的幫助文件的工具。使用它我們可以為我們編寫的應(yīng)用程序生成一組幫助文件。 _ 關(guān)于版本 為了是程序顯得更具有專業(yè)風(fēng)格，首先可以在其中加入通常的 應(yīng)用程序信息。這些信息包括公司名稱、版本號(hào)、修訂號(hào)以及其他類似信息。 Visual Basic允許你使用 APP對(duì)象來保存這些信息， APP對(duì)象是一個(gè)預(yù)定義對(duì)象，不需要在程序中創(chuàng)建它。 APP對(duì)象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些 APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項(xiàng)目屬性框中可以設(shè)置它的屬性。 第四章 .數(shù)據(jù)庫(kù)具體實(shí)現(xiàn) 數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息，簡(jiǎn)而言之，數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類 ：非關(guān)系數(shù)據(jù)庫(kù)（ flatfile）和關(guān)系數(shù)據(jù)庫(kù)（ relational）。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)語(yǔ)，象記錄、域等。 _ 新建一個(gè)數(shù)據(jù)庫(kù) 創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。 1． 標(biāo)識(shí)需要的數(shù)據(jù)； 2． 收集被標(biāo)識(shí)的字段到表中； 3． 標(biāo)識(shí)主關(guān)鍵字字段； 4． 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標(biāo)識(shí)指定字段的信息； 7． 創(chuàng)建物理表。 _ 修改已建的數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)的 修改分為：添加、編輯和刪除記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。 _ 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系 數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān) 鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。 ．?dāng)?shù)據(jù)庫(kù)設(shè)計(jì) （ 1）數(shù)據(jù)庫(kù)的概念 數(shù)據(jù)庫(kù)處理在信息系統(tǒng)的研究中一直是非常重要的主題，然而，近年來，隨著 World Wide Web(WWW)的猛增及 Inter 技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫(kù)技術(shù)之時(shí)成為最熱門技術(shù)之一。數(shù)據(jù)庫(kù)技術(shù)能使 Inter 應(yīng)用超越具有早期應(yīng)用特點(diǎn)的簡(jiǎn)單的發(fā)布。同時(shí)， Inter 技術(shù)提供了一種向用戶發(fā)布數(shù)據(jù)庫(kù)內(nèi)容的標(biāo)準(zhǔn)化的訪問方法。這些技術(shù)沒有脫離經(jīng)典數(shù)據(jù)庫(kù)技術(shù)的要求。它們只是 加重了數(shù)據(jù)庫(kù)技術(shù)的重要性。 數(shù)據(jù)庫(kù)的設(shè)計(jì)和開發(fā)及包括藝術(shù)有包括工程。理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫(kù)設(shè)計(jì)是一個(gè)藝術(shù)過程。把設(shè)計(jì)轉(zhuǎn)變?yōu)閷?shí)際的數(shù)據(jù)庫(kù)，并且這些數(shù)據(jù)庫(kù)帶有功能完備、高效能的應(yīng)用，是一個(gè)工程過程。 數(shù)據(jù)庫(kù)的目的是幫助人們跟蹤事務(wù)。經(jīng)典的數(shù)據(jù)庫(kù)應(yīng)用涉及諸如訂單、顧客、工作、員工、學(xué)生、電話之類的項(xiàng)，或其它數(shù)據(jù)量較大、需要密切關(guān)注的事務(wù)。最近，由于數(shù)據(jù)庫(kù)的普及，數(shù)據(jù)庫(kù)技術(shù)已經(jīng)被應(yīng)用到了新的領(lǐng)域，諸如用于 Inter的數(shù)據(jù)庫(kù)或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫(kù)。數(shù)據(jù)庫(kù)也被越來越多地應(yīng)用于生成和維護(hù)多 媒體應(yīng)用程序上。 計(jì)算機(jī)的數(shù)據(jù)處理應(yīng)用，首先要把大量的信息以數(shù)據(jù)形式存放在存儲(chǔ)器中。存儲(chǔ)器的容量、存儲(chǔ)速率直接影響到數(shù)據(jù)管理技術(shù)的發(fā)展。從 1956 年生產(chǎn)出第一臺(tái)計(jì)算機(jī)到現(xiàn)在，存儲(chǔ)器的發(fā)展，為數(shù)據(jù)庫(kù)技術(shù)提供了良好的物質(zhì)基礎(chǔ)。 使用計(jì)算機(jī)以后，數(shù)據(jù)處理的速度和規(guī)模，無(wú)論是相對(duì)于手工方式，還是機(jī)械方式，都有無(wú)可比擬的優(yōu)勢(shì)。通常在數(shù)據(jù)處理中，計(jì)算是比較簡(jiǎn)單的而數(shù)據(jù)的管理卻比較復(fù)雜。數(shù)據(jù)管理是指數(shù)據(jù)的收集、整理、組織、存儲(chǔ)、維護(hù)、檢索、傳送等操作，這部分操作是數(shù)據(jù)處理業(yè)務(wù)的基本環(huán)節(jié)，而且是任何數(shù)據(jù)處理業(yè)務(wù)中必不可少的 共有部分。數(shù)據(jù)管理技術(shù)的優(yōu)劣，將直接影響數(shù)據(jù)處理的效率。 數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫(kù)設(shè)計(jì)可以提高數(shù)據(jù)庫(kù)存儲(chǔ)效率，保證數(shù)據(jù)的完整和一致。同時(shí)合理的數(shù)據(jù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。 設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)時(shí)，應(yīng)該首先了解用戶的各個(gè)方面的需求，包括現(xiàn)有的以及將來可能增加的。 （ 2）創(chuàng)建數(shù)據(jù)庫(kù)文件 如果操作系統(tǒng)中安裝了 ACCESS2021 的話，可以在開始菜單的程序菜單中可以找到。如下所示： 打開 ACCESS2021 之后，會(huì)開啟一個(gè)窗 口，可選擇是打開以前的數(shù)據(jù)庫(kù)文件還是新建一個(gè)新的空數(shù)據(jù)庫(kù)文件，如果選擇空 ACCESS 數(shù)據(jù)庫(kù)，然后點(diǎn)擊確定按鈕。這些就新建了一個(gè)數(shù)據(jù)庫(kù)文件。 最后一步就是要選擇一個(gè)要保存數(shù)據(jù)庫(kù)文件的名字和位置。點(diǎn)擊創(chuàng)建就完成。 （ 3） 怎樣創(chuàng)建一個(gè)數(shù)據(jù)表 上面已經(jīng)講了如何創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)文件，按照上面的步驟建立一個(gè)數(shù)據(jù)庫(kù)文件后，需要在數(shù)據(jù)庫(kù)文件中建立一個(gè)數(shù)據(jù)表。 在下面的對(duì)話框中選 ” 使用設(shè)計(jì)器創(chuàng)建表 ” ，上面還有三個(gè)按鈕，一個(gè)是打開，一個(gè)是設(shè)計(jì)，一個(gè)是新建，點(diǎn)擊設(shè)計(jì)，就可以開始設(shè)計(jì)數(shù)據(jù)表了。 出 現(xiàn)設(shè)計(jì)的界面后，就可以開始設(shè)計(jì)數(shù)據(jù)表了！ （ 4） VB 連接 ACCESS2021 數(shù)據(jù)庫(kù) 用 vb 編寫一個(gè)管理軟件，如果不能連接數(shù)據(jù)庫(kù)，那也沒有什么用處。先看看 VB 是如何與 ACCESS2021 數(shù)據(jù)庫(kù)相連接的。 Sub ConnStr() 39。連接數(shù)據(jù)庫(kù) Set conn = CreateObject() 39。建立數(shù)據(jù)庫(kù)連接對(duì)像 DBpath = amp。 \ amp。 39。設(shè)置數(shù)據(jù)的路徑 Provider=。Data Source= amp。 DBpath 39。打開數(shù)據(jù)庫(kù)連接 Set rs = CreateObject() 39。設(shè)置數(shù)據(jù)庫(kù)對(duì)像 End Sub 上面的一段代碼就是連接數(shù)據(jù)庫(kù)的。上用到了三個(gè)變量 conn,Dbpath,rs。其中有兩個(gè)變量要定義為公用的變量，因?yàn)檫@段代碼是放在一個(gè)模塊中的，為了在每一個(gè)窗體中能夠使用這個(gè)變量，所以必須要聲明為公用變量。聲明公用變量的方法如下： Public conn Public rs 上面就是聲明為公用變量， 上面的聲明一定要放在模塊的最上面。如果聲明在下面，那就成了局部變量，那么作用范圍就會(huì)不同了，作用就更不同，而且在其它窗體中使用到了這個(gè)變量，程序會(huì)出錯(cuò)。 第五章 .系統(tǒng)總體規(guī)劃 1． 可以進(jìn)行文本操作； 2． 添加一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目； 3． 刪除一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目； 4． 修改一個(gè)數(shù)據(jù)庫(kù)項(xiàng)目； 5． 查詢信息 6 系統(tǒng)維護(hù) 系統(tǒng)數(shù)據(jù)轉(zhuǎn)出 系統(tǒng)數(shù)據(jù)轉(zhuǎn)入 修改系統(tǒng)密碼 數(shù)據(jù)初始化 7幫助 8 退出 數(shù)據(jù)查詢 固定資產(chǎn)管理系統(tǒng) 數(shù)據(jù)編輯 系統(tǒng)維護(hù) 幫助 退出 第一個(gè) 前一個(gè) 系統(tǒng)登錄 下一個(gè) 最后一個(gè) 添加 編輯 刪除 退出 搜索 全部 取消 系統(tǒng)數(shù)據(jù)轉(zhuǎn)出 系統(tǒng)數(shù)據(jù)轉(zhuǎn)入 修改系統(tǒng)密碼 數(shù)據(jù)初始化 第六章 系統(tǒng)具體實(shí)現(xiàn) 主界面實(shí)現(xiàn)： 功能：對(duì)所有資產(chǎn)進(jìn)行添加，查詢，修改，刪除操作，對(duì)用戶密碼進(jìn)行修改，對(duì)每條固定資產(chǎn)信息進(jìn)行打印。 數(shù)據(jù)編緝界面實(shí)現(xiàn)功能： 對(duì)于固定資產(chǎn)的編號(hào)，資產(chǎn)名稱，資產(chǎn)型號(hào)，制造商，國(guó)別，購(gòu)買日期，單價(jià)，數(shù)量，使用單位，使用人，管理員，放置地點(diǎn)，已使用年限，資產(chǎn)來源，報(bào)年限，聯(lián)系電話等記錄進(jìn)行錄入，刪除，修改，打印操作！ 數(shù)據(jù)查詢界面與功能簡(jiǎn)介 實(shí)現(xiàn)對(duì)在所有的固定資產(chǎn)記錄中查找某一個(gè)資產(chǎn)的說細(xì)信息，也可在查詢完一個(gè)后點(diǎn) 擊 下一個(gè)按鈕對(duì)下一條記錄進(jìn)行查詢。 結(jié)束語(yǔ) 經(jīng)過一個(gè)多月的設(shè)計(jì)和開發(fā)，固定資產(chǎn)管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠 實(shí)現(xiàn)固資產(chǎn)的基本信息的錄入、更新、刪除、打印等基本功能，從而實(shí)現(xiàn)資產(chǎn)的管理。 對(duì)于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。這些都有待進(jìn)一步改善。 致謝 在本次畢業(yè) 設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。 另外，在系統(tǒng)開發(fā)過程中助手同學(xué)也給于我很大的幫助，幫助解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 主要參考文獻(xiàn) [1] Visual Basic 使用指南 作者 ： Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：電子工業(yè)出版社 [2] 中文版 Microsoft Office 97 自學(xué)通 作者： Ned Snell 出版社：機(jī)械工業(yè)出版社 [3] Visual Basic 中文版控件大全 作者： Microsoft 出版社；電子工業(yè)出版社 [4] 中文 Access 2021 24學(xué)時(shí)教程 作者： Craig Eddy ， Timothy Buchanan 出版社：機(jī)械工業(yè)出版社 附錄：程序源代碼及實(shí)現(xiàn)界面 ――――登錄界面源代碼： Private Sub Command1_Click() If Trim() = Trim() And Trim() = Trim() Then Unload Me Else For X = 1 To 1 If = True Then MsgBox 您輸入的用戶名和密碼有誤，請(qǐng)重新輸入！ , 16, 出錯(cuò)： = = = 1 Else If Trim() = Trim() And Trim() = Trim() Then = Unload Me Else X = X 1 End If End If Next X End If End Sub Private Sub Command2_Click() Unload Me End Su