【導(dǎo)讀】固定資產(chǎn)管理系統(tǒng)的設(shè)計與實(shí)現(xiàn)。研究使用VisualBasic和ACCESS數(shù)據(jù)庫制作一個數(shù)據(jù)信息管理系。設(shè)備，提高設(shè)備的工作效率，從而提高企業(yè)的經(jīng)濟(jì)效益，就是中國一拖交予我們。完成這次課題的目的。通用性好，適用性強(qiáng)，界面美觀，方便用戶操作，可進(jìn)行打印設(shè)置，分。2020年11月-2020年2月，系統(tǒng)調(diào)研,系統(tǒng)分析,系統(tǒng)方案討論、確定。2020年4月2號-4月28號，系統(tǒng)軟件編寫。2020年4月29號-5月14號，系統(tǒng)調(diào)試,系統(tǒng)運(yùn)行、維護(hù)。2020年5月15號-6月15號，論文的撰寫。（美）Stephen，面向?qū)ο笈c經(jīng)典軟件工程，機(jī)械工業(yè)出版。社，中信出版社，2020年8月。夏邦貴、劉凡馨等，ACCESS2020數(shù)據(jù)庫開發(fā)經(jīng)典實(shí)例精解，機(jī)械。工業(yè)出版社，2020年6月。黃志峰，VisualBasic高級編程實(shí)例精編，國防工業(yè)出版社，2020. 李曉黎、張巍，VisualBasic＋SQLServer數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)與。解圣慶，ACCESS2020數(shù)據(jù)庫教程，清華大學(xué)出版社，2020年10. 學(xué)生________指導(dǎo)教師________系主任________

　　

【正文】 32193399 單電設(shè)備 36413659 儀器儀表 67216799 其他 5819584 58595899 單位編碼的設(shè)計：（暫以集團(tuán)公司五個單位為例） 單位編碼由三位數(shù)組成，考慮到公司今后的發(fā)展，明確資產(chǎn)的隸屬關(guān)系，設(shè)定第一位“ 2”為集團(tuán)公司擁有的固定資產(chǎn)，“ 1”為股份公司擁有的固定資產(chǎn)。第二 、三位為單位順序號。具體如下表： 單 位 編 碼 單 位 201 造型廠 202 發(fā)動機(jī)廠 本科畢業(yè)設(shè)計論文 24 207 汽車廠 212 泵閥廠 250 工程廠 輸出輸入設(shè)計 一、輸入設(shè)計 由于固定資產(chǎn)管理信息系統(tǒng)的最終用戶是對計算機(jī)技術(shù)并不精通的業(yè)務(wù)管理人員，從他們的應(yīng)用需求出發(fā)，系統(tǒng)全部采用類似 WINDOWS 風(fēng)格的界面，清晰直觀，人機(jī)交互性好，只需要用戶會最基本的 WINDOWS 操作和多種輸入法，就可用好本系統(tǒng)。 使用者：領(lǐng)導(dǎo)、業(yè)務(wù)管理人員等。 報告量：關(guān)于任一時期固定資產(chǎn)的構(gòu)成及分析，把分析結(jié)果 報給領(lǐng)導(dǎo)及相關(guān)單位。 保管方法：打印在報表上保存。 采用的輸出設(shè)備：打印機(jī)、顯示器 輸出介質(zhì)：計算機(jī)磁盤上和打印紙上 二、輸出設(shè)計 （一）收集方 式：根據(jù)各單位目前實(shí)際，采用人工收集數(shù)據(jù)的方式和下屬單位上報數(shù)據(jù)導(dǎo)入這兩種方式，這種形式雖然速度慢，出錯率高，但它是目前固定資產(chǎn)數(shù)據(jù)的主要收集方式。 （二）數(shù)據(jù)的輸入方式：采用傳統(tǒng)的手工數(shù)據(jù)輸入方式，業(yè)務(wù)管理員從原始單據(jù)上獲取數(shù)據(jù)。 （三）輸入設(shè)備的選擇：鍵盤－終端 用調(diào)查研究的方法達(dá)到研究目的的，調(diào)查目標(biāo)、對象、范圍、時間、地點(diǎn)、調(diào)查的過程和方法等，這些內(nèi)容與研究 的量終結(jié)果有關(guān)系，但不是結(jié)果本身，所以一定要簡述 。 但對調(diào)查所提的樣本、數(shù)據(jù)，新的發(fā)現(xiàn)等則應(yīng)詳細(xì)說明，這是結(jié)論產(chǎn)生的依據(jù)。 本科畢業(yè)設(shè)計論文 25 第 4 章 界面功能與測試 結(jié)果 界面與實(shí)現(xiàn)功能 功能分布： 圖 功能分布圖 一、 登錄界面 （圖 所示） ： 本科畢業(yè)設(shè)計論文 26 圖 登錄界面 實(shí)現(xiàn)功能：用戶登陸（附加功能：通過安全碼找回密碼） 二、固定資產(chǎn)標(biāo)號更改界面 （圖 所示） 本科畢業(yè)設(shè)計論文 27 圖 固定資產(chǎn)標(biāo)號更改界面 實(shí)現(xiàn)功能：找出指定設(shè)備并修改其資產(chǎn)編號 三、固定資產(chǎn)信息查詢界面 （如圖 所示） ： 圖 固定資產(chǎn)信息查詢界面 實(shí)現(xiàn)功能：根據(jù)資產(chǎn)編號、設(shè)備名稱、出廠日期、制造單位、單位編碼中任一個要素搜索相對應(yīng)的設(shè)備。 四、信息錄入界面 （如圖 所示） ： 本科畢業(yè)設(shè)計論文 28 圖 信息錄入界面 實(shí)現(xiàn)功能：新設(shè)備各項(xiàng)信息錄入系統(tǒng)并儲存。 五、 類別 （ 歸類 ）處理界面 （如圖 （ ）所示） ： 代碼： Private Sub Check1_Click() 39?！爸伙@示故障 設(shè)備 ”選項(xiàng) 39。 Call open_connection(GDZCXXK) sql = select * from GDZCXXK where 設(shè)備屬性 = amp。 39。 amp。 故障 amp。 39。 sql, con, adOpenDynamic, adLockPessimistic = adUseClient Set = rst End Sub Private Sub Command1_Click() 39?！按_定”按鈕 39。 Call open_connection(GDZCXXK) 39。打開與表 GDZCXXK 的連接 39。 本科畢業(yè)設(shè)計論文 29 sql = select * from GDZCXXK where 資產(chǎn)類別 = amp。 39。 amp。 Trim() amp。 39。 sql, con, adOpenDynamic, adLockPessimistic = adUseClient Set = rst 39。顯示類產(chǎn)類別與下拉菜單中一致的設(shè)備 39。 End Sub Private Sub Command2_Click() 39?！肮收蠘?biāo)記”按鈕 39。 Call open_connection(GDZCXXK) sql = select * from GDZCXXK where 資產(chǎn)編號 = amp。 39。 amp。 Trim() amp。 39。 sql, con, adOpenDynamic, adLockPessimistic If = True Then MsgBox 該用戶不存在 Exit Sub End If rst!設(shè)備屬性 = 故障 39。選中設(shè)備 的設(shè)備屬性設(shè)置為“故障” 39。 If rst!設(shè)備屬性 = 故障 Then MsgBox 故障標(biāo)記成功 39。判斷標(biāo)記是否成功 39。 = End If End Sub Private Sub Command3_Click() 39。“故障清除”按鈕 39。 本科畢業(yè)設(shè)計論文 30 Call open_connection(GDZCXXK) sql = select * from GDZCXXK where 資產(chǎn)編號 = amp。 39。 amp。 Trim() amp。 39。 sql, con, adOpenDynamic, adLockPessimistic If = True Then MsgBox 該用戶不存在 Exit Sub End If If rst!設(shè)備屬性 = Then MsgBox 該設(shè)備無故障 39。判斷是否為故障設(shè)備 39。 Else If rst!設(shè)備屬性 = 故障 Then rst!設(shè)備屬性 = End If If rst!設(shè)備屬性 = Then MsgBox 故障清除成功 End If End If = End Sub Private Sub Command4_Click() 39。“上一步”按鈕 39。 Unload Me End Sub Private Sub Command5_Click() 39?！巴顺觥卑粹o 39。 本科畢業(yè)設(shè)計論文 31 Unload Me End Sub 圖 ：類別處理界面 圖 歸類處理界面 本科畢業(yè)設(shè)計論文 32 實(shí)現(xiàn)功能：根據(jù)類別（歸類）找出相對應(yīng)的設(shè)備并進(jìn)行保養(yǎng)維修。 六、原值 /凈值處理 （如圖 所示） 圖 原值 /凈值處理 Private Sub Command1_Click() 39?！案隆卑粹o Call open_connection(GDZCXXK) sql = select MAX(平面圖號 ) from GDZCXXK 39。找出設(shè)備最大的平面圖號 sql, con, adOpenDynamic, adLockPessimistic X = rst!expr1000 39。最大的平面圖號賦值給 X sql = select MIN(平面圖號 ) from GDZCXXK 39。找 出設(shè)備最小的平面圖號 sql, con, adOpenDynamic, adLockPessimistic n = rst!expr1000 39。最小的平面圖號賦值給 X 本科畢業(yè)設(shè)計論文 33 d = Val(Year(Now) * 10000 + Month(Now) * 100 + Day(Now)) 39。系統(tǒng)日期以年月日的形式表示 For i = n To X 39。平面圖號從最小到最大循環(huán) sql = select * from GDZCXXK where 平面圖號 = 39。 amp。 i amp。 39。 sql, con, adOpenDynamic, adLockPessimistic If False Then 39。判斷用戶是否存在 MsgBox 該用戶不存在 Exit Sub End If If ((Val(rst!出廠日期 ) + (rst!使用年限 ) * 10000)) d Then 39。超過使用年限予以報廢 rst!資產(chǎn)凈值 = 0 rst!報廢屬性 = 已報廢 Else If (Val(rst!出廠日期 ) + ((rst!使用年限 ) * 10000)) d And (Val(rst!出廠日期 ) + (((rst!使用年限 ) 1) * 10000)) = d Then rst!資產(chǎn)凈值 = (rst!資產(chǎn)原值 ) / (rst!使用年限 ) rst!報廢屬性 = 即將報廢 39。進(jìn)入使用期限最后一年 Else rst!資產(chǎn)凈值 = (rst!資產(chǎn)原值 ) * (1 (Year(Now) (Val(rst!出廠日期 ) (Val(rst!出廠日期 ) Mod 10000)) / 10000) / (rst!使用年限 )) End If End If Next sql = select 資產(chǎn)編號 ,設(shè)備名稱 ,出廠日期 ,資產(chǎn)原值 ,資 產(chǎn)凈值 ,報廢屬性 ,使 本科畢業(yè)設(shè)計論文 34 用年限 from GDZCXXK sql, con, adOpenDynamic, adLockPessimistic = adUseClient Set = rst End Sub 實(shí)現(xiàn)功能：根據(jù)使用時間的長短進(jìn)行價值折算并能自動報廢使用年限已到設(shè)備。 其他功能：注冊、找回密碼、刪除用戶等等。 數(shù)據(jù)庫 實(shí)現(xiàn)數(shù)據(jù)庫與 VB 鏈接的代碼： Option Explicit 39。聲明全局變量 Public con As New Public sql As String Public rst As New Public connectionstring As String Public Sub concect_db() connectionstring = Provider=。 Data Source = connectionstring End Sub Function open_connection(table_name As String) 39。實(shí)現(xiàn)打開數(shù)據(jù)庫中對應(yīng)的表 Dim sqlstr As String Dim str As String Set con = New Set rst = New = adUseClient sqlstr = Provider=。 Data Source = sqlstr 本科畢業(yè)設(shè)計論文 35 str = select * from amp。 table_name amp。 str, con, adOpenDynamic, adLockOptimistic End Function 圖 數(shù)據(jù)庫 GDZCXXK（固定資產(chǎn)信息） 表中存儲設(shè)備的詳細(xì)信息 如 圖 所示： 本科畢業(yè)設(shè)計論文 36 固定資產(chǎn)信息表 數(shù)據(jù)類型如 圖 所示： 圖 固定資產(chǎn)信息表中的數(shù)據(jù)類型 User_table 表中存儲用戶信息 ZCBHGLSJ 表中存儲資產(chǎn)類別及資產(chǎn)編號信息 ZCGSDW 表中存儲分廠聯(lián)系信息 測試 測試環(huán)境 機(jī)型： P4 臺式機(jī)和迅馳筆記本 軟驅(qū)：無 硬盤： 80GB 內(nèi)存： 512M 打印機(jī)： 已連接 軟件： Visual Basic （漢化）、 Office2020；操作系統(tǒng)： Windows XP。 測試概述 軟件測試是保證軟件產(chǎn)品質(zhì)量的重要手段之一。它是測量、評估軟件產(chǎn)品特點(diǎn)和能力的活動?，F(xiàn)在，國內(nèi)一些軟件企業(yè)對于軟件測試的重視程度還很不夠， 本科畢業(yè)設(shè)計論文 37 認(rèn)為測試工作非常簡單，只是簡單地操作所測的軟