【正文】 的時候，我們通常是用來檢查數(shù)據(jù)是否 為空，或者是在輸出數(shù)據(jù)時，師傅一僅夠到了最后，后面已經(jīng)設(shè)有數(shù)據(jù)了，然跳出循環(huán)。 Delect 方法將刪除ADO 數(shù)據(jù)控件當(dāng)前記錄； MoveNext 和 MoceLast 方法則可以實現(xiàn)在記錄集中的移動，其功能同 ADO數(shù)據(jù)控件提供的幾個導(dǎo)航按鈕相同，類似的方法還有 Move、 MoveFirst和 MovePrevious。 資產(chǎn)折舊 資產(chǎn)折舊功能是本系統(tǒng)最為突出的功能，也是有別也其他管理系統(tǒng)的地方。 購買日期 )/(使用年限 *365),39?！?表示現(xiàn)在的日期，因為在計算中是以“日”為單位的，所以在最后我們因該除以 365 天使它變成以“年”為單位。 對于一個除法公式來說他的除數(shù)是不能為零，所以，我們在公式代碼中加入限定條件使用年限 0?，F(xiàn)在我們來看下 它的運行結(jié)果?，F(xiàn)在我們來簡要分析下兩個窗體的功能設(shè)計。同時，如果管理人員還需對所查詢的資產(chǎn)信息做修改 條件查找 條件查找，即詳細(xì)查找，本窗體采用了 Combo1 下拉框，管理人員可以很方便的從下拉框中選擇其所要查找的條件，而無須手動輸入，減少了查詢時間。查找方式多樣，功能強大，簡單、方便的操作方法，令管理人員查詢便捷。 在此窗體中，由于引用了 Like 和 NotLike 兩種邏輯運算符，我們能夠通過它們實現(xiàn)兩種查找： 1）精確查找； 2）模糊查找。 amp。 str = str amp。 39。在 出現(xiàn)之前， VB 中主要的報表工具甚至都不是微軟的產(chǎn)品。然而對 VB 來說數(shù)據(jù)報表實際上是被直接編譯進可執(zhí)行文件的，這就意味著不必在用戶機器上安裝任何格式化文件 。添加一兩個 RptLable 控件來為你的報表創(chuàng)建一個標(biāo)題。 （ 2）為報表做清除工作 設(shè)計者可以選中報表后使用 屬性窗口來設(shè)置報表自身的 Caption 屬性。如圖22 所示。但是一個完整的系統(tǒng)的產(chǎn)生必須通過測試，通過測試來判斷該系統(tǒng)是否存在不為知的錯誤或是運行不對的地方，并且通過錯誤測試使我們的系統(tǒng)能夠進一步的完善甚至是在原先基礎(chǔ)上的進化。 （ 2）對現(xiàn)有資產(chǎn)信息進行刪除，在“刪除現(xiàn)有資產(chǎn)”窗體中選中要測試的資產(chǎn)信息進行刪除，若刪除成功則在“編輯現(xiàn)有資產(chǎn)”窗體里查看不到該信息。 （ 5） 測試“條件查找”。 （ 6）我們將某個資產(chǎn)信息修改成注銷狀態(tài)，點擊“注銷統(tǒng)計表”核對信息是否一致。同時該系統(tǒng)符合各個企業(yè)、單位、學(xué)校等地方的需求。下面我就簡要的講下遇到的問題及其解決的方法。代碼如下： Load frmEdit = constr = select * from 資產(chǎn)信息表 where 資產(chǎn)編號 like amp。 Like 的作用是用來比較兩個字符串。 為了使數(shù)據(jù)類型、文本類型、日期類型像結(jié)合起來，形 成功能強大的查找窗體，我在這段代碼中運用 If 嵌套的形式，使它們有條理的相互交織在一起。 amp。 39。 5）報 表應(yīng)該怎樣建立？ 在過去所學(xué)的開發(fā)中，很少甚至沒有接觸過“報表”這形式。這樣的系統(tǒng)適于運行在各個企業(yè)、單位、學(xué)校等地方 ， 對固定資產(chǎn)進行管理， 易于使用的 管理軟件，無須幫助說明，節(jié)省了管理人員的時間，使 他們在使用過程中對該軟件的功能及各菜單的作用一目了然。 輸即輸入，將系統(tǒng)外的企業(yè)固定資產(chǎn)信息輸入到系統(tǒng)中去。資產(chǎn)的編號都是有一定規(guī)律，前后 位數(shù)的組合代表著各自的意思。這樣管理人員就能節(jié)省大量的精力和時間在資 產(chǎn)的折舊計算上，而把大部分的精力集中在考慮決定企業(yè)是否要添加或是報廢資產(chǎn)， 節(jié)約了企業(yè)的資源，提高了企業(yè)的效率。因此，建立計算管理信息系統(tǒng)是一種客觀發(fā)展必然趨勢。為建設(shè)中國特色的社會主義而努力奮斗。 東華理工學(xué)院長江學(xué)院畢業(yè)設(shè)計（論文） 致謝 27
。對于企業(yè)固定資產(chǎn)管理軟件帶來的新問題，需要對原有企業(yè)內(nèi)部管理方式進行調(diào)整。輕視或者拒絕利用計算機技術(shù)，就不可能真正地、全面地實現(xiàn)固定資產(chǎn)管理現(xiàn)代化。 計算機的廣泛應(yīng)用，計算機固定資產(chǎn)管理信息系統(tǒng)的建立，適應(yīng)了社會經(jīng)濟發(fā)的客觀要求，是資產(chǎn)管理現(xiàn)代化的一大進步。以往管 理人員對企業(yè)的固定資產(chǎn)進行折舊統(tǒng)計時，他們需 要以手動的方式，對企業(yè)（或產(chǎn)房）中每一個運用了資產(chǎn)進行計算，這樣既浪費時間 又耗費精力。 本系統(tǒng)對資產(chǎn)的編號采用唯一法，即一個資產(chǎn)只有一個編號與之配對。因此對企業(yè)資源進行組織、控制、加工和規(guī)劃，是有效利用企業(yè)資源的前提。 6）怎 樣實現(xiàn)數(shù)據(jù)導(dǎo)入到報表里？ 首先，我將數(shù)據(jù)設(shè)定到相對的報表中，然后在將數(shù)據(jù)傳輸過去，部分代碼如下： Set rs = (SELECT 資產(chǎn)名稱 ,使用部門 ,購買價格 ,折舊價格 FROM 資產(chǎn)信息表 order by 資產(chǎn)編號 ) With report Set .DataSource = rs .DataMember = .Show vbModal （ 2）體會與總結(jié) 基于以上的設(shè)計方案，我們對已經(jīng)開發(fā)好的系統(tǒng)做個簡要的總結(jié)。 amp。 39。具體代碼如下： 確查找： str = str amp。 amp。 order by 資產(chǎn)編號 39。以上的種種方法我選擇最后一種，因為它可以將資產(chǎn)管理系統(tǒng)總體與數(shù)據(jù)庫相連，而在每個窗體中只要與主模塊中設(shè)定的函數(shù)相連即可，避免了很多重復(fù)又復(fù)雜的操作，減少程序的存儲空間?？朔藗鹘y(tǒng)管理模式下依賴紙面單據(jù)或通過手工方式錄入原始數(shù)據(jù)而帶來的低效及錯誤，解決了固定資產(chǎn)管理過程中的實物管理的問題，實現(xiàn)了信息流和實物流的統(tǒng)一，并且大大降低庫管人員的工作強度高，提高工作效率。 （ 7）選中一個資產(chǎn)信息，并用公式預(yù)先算出它到目前為止的折舊價格并將它與“折舊統(tǒng)計表”中的該項目核對，看它們是否符合。 其次，我們對日期型進行查找，先選擇購買日期，再選擇預(yù)算符 =，最后輸入任意日期，假設(shè)是 2020410，此時，所有在該日期后購買的資產(chǎn)就會顯示出來。 （ 4）測試“按編號查找”。 （ 1）先將摸具廠提供的固定資產(chǎn)信息逐一地輸入固定資產(chǎn)管理系統(tǒng)中，檢測信息 是否被錄入，我們可以打開“編輯現(xiàn)有資產(chǎn)”窗體查看。如圖 23所示。 在本系統(tǒng) 的報表管理中包括“注銷統(tǒng)計表”和“折舊統(tǒng)計表”。下一步要做的是使用數(shù)據(jù)環(huán)境設(shè)計器將報表和數(shù)據(jù)源連接起來。 （ 1）開始創(chuàng)建報表 1. 在“工程”菜單中選擇“添加數(shù)據(jù)報表”選項； 2. 要給這個報表一個標(biāo)題。隨著 的發(fā)行，微軟已經(jīng)將一個很好的報表記錄器與 VB 結(jié)合了起來，使得用戶可以有選擇地購買其他工具。 創(chuàng)建報表是任何一個好的商業(yè)應(yīng)用程序的主要功能。 amp。 39。 str = str amp。要實現(xiàn)這三種查找集中與一個 bol 控件中，就需要用一個 If語句的三重循環(huán)來一一實現(xiàn)。該界面如圖 21所示。該窗體界面設(shè)計如圖 20所示。在本系統(tǒng)中設(shè)計了兩個不同的查找功能“按資產(chǎn)編號查找”和“條件查找”。這樣以來保證了折舊出來的數(shù)值不是負(fù)數(shù)也不是無意義的數(shù)。39。) where not(購買日期 Is null) and 使用年限 0 其中， ” amp。使用年限 因此，將其轉(zhuǎn)換為代碼： strCost = Update 資產(chǎn)信息表 set 折舊價格 = format(購買價格 *( amp。其界面如下圖 18示： 圖 18 編輯現(xiàn)有資產(chǎn)界面 本窗體主要使用了餓 Updata 功能，用來變更已經(jīng)改變的資產(chǎn)信息。 CStr((0)) 在 ADO 數(shù)據(jù)控件中移動記錄后將觸發(fā) MoveComplete 事件，本設(shè)計中的代碼將改變 ADO 數(shù)據(jù)控件的標(biāo)題，顯示當(dāng)前記錄的信息。注冊新資產(chǎn)界面如圖 16 示： 東華理工學(xué)院長江學(xué)院畢業(yè)設(shè)計（論文） 系統(tǒng)分析與實現(xiàn) 16 圖 16 注冊新資產(chǎn)界面 刪除舊資產(chǎn) 該界面主要的功能就是將原有的不能用的舊資產(chǎn)報廢，在本窗體中去添加窗體有所不容的主要是解決數(shù)據(jù)移動問題。前面的三個子模塊是負(fù)責(zé)資產(chǎn)信息的添加、刪除、注銷、編輯三個基本功能的實現(xiàn)。根據(jù)以上分析的系統(tǒng)所分的模塊，將菜單分為“資產(chǎn)管理”、“資產(chǎn)查找”“報表”等三個主菜單。 在語句中 Persist Security Info 布爾類型 .為 True 時，表明采用集成安全機制；若為 False，則表明不采用集成安全機制。 amp。當(dāng)然，模塊中也可以定義 private 的函數(shù)或者過程以便公用過程的內(nèi)部調(diào)用。還考慮到使用動態(tài)生成ADOQuery 可能會更節(jié)省資源。那么，能不能將這些 數(shù)據(jù)源集中管理，最好是做成一個統(tǒng)一的模塊，需要時就將該模塊引入而不必直接操作數(shù)據(jù)源本身呢？數(shù)據(jù)模塊（ DataModule）是解決這個問題最好的答案。 表 14 資產(chǎn)信息結(jié)構(gòu)表 字段名（列名） 數(shù)據(jù)類型 長度 允許為空 資產(chǎn)編號 數(shù)字 整型 資產(chǎn)名稱 文本 20 資產(chǎn)分類 文本 20 資產(chǎn)型號 文本 20 購買日期 日期 /時間 短日期 購買價格 貨幣 小數(shù)位數(shù) 1 折舊價格 貨幣 小數(shù)位數(shù) 1 生產(chǎn)單位 文本 50 使用狀態(tài) 文本 20 使用部門 文本 20 負(fù)責(zé)人 文本 20 使用年限 整型 20 注銷日期 日期 /時間 短日期 備注 文本 100 注銷 是 /否 是 /否 在資產(chǎn)編號的設(shè)置上，我們采取了唯一法，即一件固定資產(chǎn)只有一個編號。 （ 1） 導(dǎo)出初始關(guān)系模式 資產(chǎn)信息表（資產(chǎn)編號、資產(chǎn)分類、資產(chǎn)型號、購買日期、購買價格、折舊價格、生產(chǎn)單位、使用狀態(tài)、使用部門編號、負(fù)責(zé)人、使用年限、注銷日期、備注、注銷） 部門信息（使用部門編號、部門名稱、責(zé)負(fù)人） 東華理工學(xué)院長江學(xué)院畢業(yè)設(shè)計（論文） 系統(tǒng)分析與實現(xiàn) 13 （ 2） 產(chǎn)生子模式 子模式是管理人員所用到的那部分?jǐn)?shù)據(jù)的描述。一個好的全局 ER 模式，除能準(zhǔn)確、全面地反映用戶功能需求外，還應(yīng)滿足下列條件：實體類型的個數(shù)要盡可能的少；實體類型所含屬性個數(shù)盡可能少；實體類型間聯(lián)系無冗余。 2)局部 ER 模式的合并 合并的原則是：首先進行兩兩合并；先和合并那些現(xiàn)實世界中有聯(lián)系的局部結(jié)構(gòu)；合并從公共實體類型開始，最后再加入獨立的局部結(jié)構(gòu)。 全局概念結(jié)構(gòu)不僅要支持所有局部 ER 模式，而且必須合理地表示一個完整、一致的數(shù)據(jù)庫概念結(jié)構(gòu)。若有聯(lián)系，進一步確定是 1:N， M:N，還是 1:1 等。將概念設(shè)計從設(shè)計過程中獨立開來，使各階段的任務(wù)相對單一化，設(shè)計復(fù)雜程度大大降低，不受特定 DBMS的限制。系統(tǒng)數(shù)據(jù)流圖如下所示： 圖 13 數(shù)據(jù)流圖 輸入 原始數(shù)據(jù) 系統(tǒng)數(shù)據(jù) 數(shù)據(jù)修改 數(shù)據(jù)注銷 折舊計算 查找功能 導(dǎo)出 折舊統(tǒng)計表 注銷統(tǒng)計表 東華理工學(xué)院長江學(xué)院畢業(yè)設(shè)計（論文） 系統(tǒng)分析與實現(xiàn) 11 4. 系統(tǒng)分析與實現(xiàn) 數(shù)據(jù)庫的設(shè)計 數(shù)據(jù)庫結(jié)構(gòu)的設(shè)計是總體設(shè)計階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫結(jié)構(gòu)可以簡化開發(fā)過程，使系統(tǒng)功能更加清晰明確。 資產(chǎn)管理 資產(chǎn)查找 統(tǒng)計表 注冊新資產(chǎn) 注銷資產(chǎn) 編輯資產(chǎn) 資產(chǎn)折舊 按資產(chǎn)編號查找 條件查找 注銷統(tǒng)計表 折舊統(tǒng)計表 表 11 系統(tǒng)主要功能模塊表 三個模塊的功能分別為： （ 1） 資產(chǎn)管理模塊：實現(xiàn)了企業(yè)固定資產(chǎn)的注冊、注銷、編輯以及折舊價格的計算； （ 2） 資產(chǎn)查找模塊：為管理員提供資產(chǎn)的查詢，是他們能夠很方便、快捷的了解到他們所需要資產(chǎn)的狀態(tài)； （ 3） 統(tǒng)計表模塊：該模塊主要實現(xiàn)了企業(yè)固定資產(chǎn)的注銷狀態(tài)及折舊計算的直觀表達，使管理員快速的掌握資產(chǎn)的狀態(tài)。 作為一個整體來看，系統(tǒng)會顯得太大太復(fù)雜，很難理解。因此，使用現(xiàn)在的新技術(shù)，開發(fā)出適應(yīng)新的需求的新系統(tǒng)的任務(wù)刻不容緩。其缺點是開發(fā)出的系統(tǒng)依賴性強，運行必須依托數(shù)據(jù)庫環(huán)境；不容易升級與擴展；無法實現(xiàn)數(shù)據(jù)的共享與并行操作；代碼重用性差。 本管理系統(tǒng)是為適應(yīng)于 企業(yè) 的固定資產(chǎn)管理而開發(fā)的軟件。系統(tǒng)設(shè)計的目標(biāo)是在保證時間邏輯模型的基礎(chǔ)上，盡可能提高系統(tǒng)的各項指標(biāo)，即系統(tǒng)的工作效率、可靠性、工作質(zhì)量、可變性與經(jīng)濟性等。通常使用更為簡潔的方法，即使用工具來創(chuàng)建數(shù)據(jù)庫，然后在 VB 中加以引用。這使得 Access 數(shù)據(jù)庫在 VB 數(shù)據(jù)庫編程中頗具代表性。 AllowAddNew 屬性：返回或者設(shè)置一個值，指出用戶是否能夠從與該控件連接的結(jié)果集中增加新記錄。 以下是其主要的屬性和使用方法：