【導(dǎo)讀】莁羃膄莀蚇衿膃蒂蒀螅膂膂蚅蟻膁芄蒈羀芁莆蚄袆芀葿蒆螂艿膈螞蚈羋莁蒅肆芇蒃螀芆薅薃袈芅芅螈螄袂莇薁蝕羈葿螇罿羀腿薀裊罿芁螅袁羈蒄薈螇羈薆蒁肆羇芆蚆羆莈葿袈羅蒀蚄螄肄膀蕆蝕肅節(jié)蚃羈肅蒞蒅羄肂薇蟻袀肁芇薄螆肀荿蝿螞聿蒁薂羈肈膁螈袇膇芃薀螃膇蒞螆蠆膆蒈蕿肇膅芇莁羃膄莀蚇衿膃蒂蒀螅膂膂蚅蟻膁芄蒈羀芁莆蚄袆芀葿蒆螂艿膈螞蚈羋莁蒅肆芇蒃螀芆薅薃袈芅芅螈螄袂莇薁蝕羈葿螇罿羀腿薀裊罿芁螅袁羈蒄薈螇羈薆蒁肆羇芆蚆羆莈葿袈羅蒀蚄螄肄膀蕆蝕肅節(jié)蚃羈肅蒞蒅羄肂薇蟻袀肁芇薄螆肀荿蝿螞聿蒁薂羈肈膁螈袇膇芃薀螃膇蒞螆蠆膆蒈蕿肇膅芇莁羃膄莀蚇衿膃蒂蒀螅膂膂蚅蟻膁芄蒈羀芁莆蚄

　　

【正文】 有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應(yīng)用中重復(fù)使用。 實(shí)現(xiàn)菜單選項 菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個定義良好的菜單使程序易于使用和維護(hù)， Visual Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能是程 序更加標(biāo)準(zhǔn)。 您可以使用 Visual Basic 的 Application Wizard 也可以使用 Visual Basic 的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單。 實(shí)現(xiàn)工具欄 CoolBar控件與 Office97種看到的 CoolBar是類似的。 CoolBar就是一個可以在窗體上浮動的工具，同時也是其他 ActiveX的容器。通過在 CoolBar中遷入其他空間你局可以向用戶提供更好的靈活性和義用性。 Toolbar 是工具條控件，是實(shí)現(xiàn)工具條的主體。其中的按鈕可以顯示圖像和標(biāo)題，并按功能分組或加 入分隔符，還可以圍棋設(shè)置鼠標(biāo)停留在其上顯示的提示字符。 Toolbar也是一個控件容器且具有 Style屬性，并可以為其增加下拉按鈕和平滑按鈕等。 選擇 “工程 ”下拉菜單中的 “部件 ”選項，顯示 “部件 ”對話框。在 “控件 ”選項卡列表中選擇“Microsoft Windows Common Controls ”后工具相中增加改控件。其屬性及對象如下： 1． Align屬性定義工具條在窗體中的位置 2． ToolTipText屬性是字符串類型，定義控件的提示字符 3． Style屬性定義按鈕外觀。 11 4． ImageList屬性定義與數(shù)據(jù)條對應(yīng)的 ImageList控件名，該控件定義工具條按鈕顯示的圖像。 5． HotImangeList屬性設(shè)置一個 ImageList控件名，該控件定義按鈕獲得熱點(diǎn)時顯示的圖像。 6． DisabledImageList屬性定義工具條按鈕無效時顯示的圖像。 創(chuàng)建工具條包括 ImageList和 Toolbar控件 ImageList用于為其他控件提供圖像庫，將 ImageList控件加入到工具箱的操作于前述Toolbar控件相同。 幫助 專業(yè)水平的軟件通常都帶有聯(lián)機(jī)幫助功能。無論寫出 來的程序是要給大量的用戶使用，還是僅僅局限于公司內(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)用程序信息。這些信息包括公司名稱、版本號、修訂號以及其他類似信息。 Visual Basic允許你使用 APP對象來保存這些信息， APP對象是一個預(yù)定義對象，不需要在程序中創(chuàng)建它。 APP對象的大多數(shù)屬性被應(yīng)用程序用來提供常規(guī)的信息，通過使用這些 APP提供的屬性，可以在應(yīng)用程序和用戶之間交流重要信息，在項目屬性框中可以設(shè)置它的屬性。 12 4 使用 Access2020 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫 數(shù)據(jù)庫的概念 數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（ flatfile）和關(guān)系數(shù)據(jù)庫（ relational）。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。 _ 新建一個數(shù)據(jù)庫 創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計必須是靈活的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計。 1． 標(biāo)識需要的數(shù)據(jù)； 2． 收集被標(biāo)識的字段到表中； 3． 標(biāo)識主關(guān)鍵字字段； 4． 繪制一個簡單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)； 6． 標(biāo)識指定字段的信息； 7． 創(chuàng)建物理表。 修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。 實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。一個連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段 13 用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及 在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。 系統(tǒng)功能 1． 可以進(jìn)行文本操作； 2． 添加一個數(shù)據(jù)庫項目； 3． 刪除一個數(shù)據(jù)庫項目； 4． 修改一個數(shù)據(jù)庫項目； 5． 查詢信息 6 系統(tǒng)維護(hù) 系統(tǒng)數(shù)據(jù)轉(zhuǎn)出 系統(tǒng)數(shù)據(jù)轉(zhuǎn)入 修改系統(tǒng)密碼 數(shù)據(jù)初始化 7幫助 8 退出 14 數(shù)據(jù)查詢 固定資產(chǎn)管理系統(tǒng) 數(shù)據(jù)編輯 系統(tǒng)維護(hù) 幫助 退出 第一個 前一個 系統(tǒng)登錄 下一個 最后一個 添加 編輯 刪除 退出 搜索 全部 取消 系統(tǒng)數(shù)據(jù)轉(zhuǎn)出 系統(tǒng)數(shù)據(jù)轉(zhuǎn)入 修改系統(tǒng)密碼 數(shù)據(jù)初始化 15 5 系統(tǒng)具體實(shí)現(xiàn) 主界面實(shí)現(xiàn)： 功能：對所有資產(chǎn)進(jìn)行添加，查詢，修改，刪除操作，對用戶密碼進(jìn)行修改，對每條固定資產(chǎn)信息進(jìn)行打 印。 16 數(shù)據(jù)編緝界面實(shí)現(xiàn)功能： 對于固定資產(chǎn)的編號，資產(chǎn)名稱，資產(chǎn)型號，制造商，國別，購買日期，單價，數(shù)量，使用單位，使用人，管理員，放置地點(diǎn)，已使用年限，資產(chǎn)來源，報年限，聯(lián)系電話等記錄進(jìn)行錄入，刪除，修改，打印操作！ 17 數(shù)據(jù)查詢界面與功能簡介 實(shí)現(xiàn)對在所有的固定資產(chǎn)記錄中查找某一個資產(chǎn)的說細(xì)信息，也可在查詢完一個后點(diǎn) 擊 下一個按鈕對下一條記錄進(jìn)行查詢。 18 6 程序源代碼、 各功能模塊的程序流程圖 登錄界面源代碼： Private Sub Command1_Click() If Trim() = Trim() And Trim() = Trim() Then Unload Me Else For X = 1 To 1 If = True Then MsgBox 您輸入的用戶名和密碼有誤，請重新輸 入！ , 16, 出錯： = = = 1 Else If Trim() = Trim() And Trim() = Trim() Then = Unload Me Else X = X 1 End If 19 End If Next X End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() If = True And = True Then MsgBox 您是第一次使用本程 序，請設(shè)置超級用戶！ , 32, 設(shè)置： Unload Me End If End Sub 系統(tǒng)主界面代碼： Private Sub gycx_Click() End Sub Private Sub sjbj_Click() End Sub Private Sub sjcx_Click() End Sub Private Sub sjdy_Click() End Sub 20 Private Sub tc_Click() Unload Me End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 1 Case 2 Case 3 Case 4 Case 5