【正文】 s Long 39。 Error Registry Entry Can Not Be Found... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit Sub SysInfoErr: MsgBox System Information Is Unavailable At This Time, vbOKOnly End Sub 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 27頁 Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long 39。 Validate Existance Of Known 32 Bit File Version If (Dir(SysInfoPath amp。 = 39。 . amp。 = About amp。H80000002 Const ERROR_SUCCESS = 0 Const REG_SZ = 1 39。H8 Const KEY_NOTIFY = amp。H20210 Const KEY_QUERY_VALUE = amp。由于資料有限，有很多地方還設(shè)計(jì)的不夠詳細(xì)，還需要更 好的完善。由于時間的原因，輸出報(bào)表不完善。 （源代碼見附錄） 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 21頁 第四章 結(jié)論 流程符合工程材料管理的要求。添加的信息會存入數(shù)據(jù)庫文件。右側(cè)可對已選擇的材料進(jìn)行修改、刪除，并可新增材料種類。 運(yùn)行界面如下圖所示： （圖 3） 這里，程序類似登陸模塊，也使用 IF?? ELSE 嵌套。第二循環(huán)判斷用戶名和密碼是否相符合，值為“ TURE”時進(jìn)入主界面，為“ FAILE”時返回“輸入密碼不正確，請重新輸入！” （源代碼見附錄） 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 15頁 4． 3 界面設(shè)計(jì) 主界面是用戶打開系統(tǒng)首先見到的界面，也是進(jìn)入其他模塊的入口。 outlibdetail（出庫表） 分為出 庫單號碼 ； 材料編碼 ； 數(shù)量 ； 單價 ； 金額 ； 備注 。 inlib（進(jìn)庫明細(xì)表） 分為 進(jìn)庫單號碼 ； 發(fā)票號碼 ； 進(jìn)庫日期 ； 經(jīng)辦人 ； 保管人 。 系統(tǒng)運(yùn)行環(huán)境 P2以上微機(jī)； 操作系統(tǒng)： 中文 Windows95/98 或以上的版本， 系統(tǒng)要求預(yù)裝 Office2021 套件中的 Access2021 文字編輯程序； 主 存： 最低 64MB，建議增設(shè)到 128MB 以上； 硬盤空間： 剩余空間 100MB 以上； 鼠 標(biāo)： Microsoft 及其兼容類鼠標(biāo)。 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 11頁 系統(tǒng)采用 Visual Basic 開發(fā)，用戶權(quán)限管理保證了系統(tǒng)與數(shù)據(jù)的安全。缺省情況下， DATA 控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一 個dynasettype（動態(tài)集合）類型的記錄集合。 二者的結(jié)合（ DBA） 微軟的 JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數(shù)據(jù)庫并對其進(jìn)行各種操作。另外， Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。故而，實(shí)現(xiàn)本系統(tǒng) VB 是一個相對較好的選擇。隨著問題的積累，甚至?xí)?dǎo)致系統(tǒng)被廢棄，巨額投資浪費(fèi)的嚴(yán)重后果。其他行業(yè)初期建設(shè)信息化管理系統(tǒng)時給我們留下了很多可供借鑒的經(jīng)驗(yàn)和教訓(xùn)。使用信息系統(tǒng)完善和加強(qiáng)傳統(tǒng)的管理方式，重新認(rèn)識和再造各種企業(yè)原有的業(yè)務(wù)流程，成為了企業(yè)在激烈的市場競爭中取勝的戰(zhàn)略手段。從過去到今天，施工企業(yè)對于提高運(yùn)作效率和經(jīng)營效益的追求一直沒有改變過。 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 7頁 同時，在整合之際，也為企業(yè)的發(fā)展和壯大提供了難得的機(jī)遇。身處此境，施工企業(yè)的組織結(jié)構(gòu)、業(yè)務(wù)流程、管理手段、人力資源等方面皆面臨著前所未有的沖擊和挑戰(zhàn)。 基于以上的選擇標(biāo)準(zhǔn)，施工企業(yè)一定能夠優(yōu)選出適合本企業(yè)施工項(xiàng)目部使用的材料 管理軟件系統(tǒng)，從而加快工作效率，規(guī)范材料管理制度，控制和節(jié)約材料成本，最終提高項(xiàng)目部的材料管理水平。 完善的材 料價格采集、比選功能 軟件應(yīng)該提供多種途徑幫助用戶實(shí)時采集材料市場價格，進(jìn)行價格比較，使用北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 6頁 戶購買到質(zhì)優(yōu)價廉的材料，降低采購成本。 可升級性 由于用戶需求會發(fā)生變化，不可避免的帶來軟件升級的問題，軟件應(yīng)預(yù)留接口，方便日后升級及軟件功能的擴(kuò)展，滿足企業(yè)未來發(fā)展的需求。因此就要求軟件界面直觀，操作簡單，容易理解和掌握。其最終目標(biāo)是實(shí)現(xiàn)項(xiàng)目現(xiàn)場及相關(guān)企業(yè)工程材料管理的科學(xué)化、規(guī)范化。在很長一段時間內(nèi)，建筑施工企業(yè)對進(jìn)度、質(zhì)量高度重視但是忽視對于成本的控制或者沒有很好的手段去控制，造成普遍利潤水平較低，甚至虧損的狀況，出現(xiàn)“沒活著急，有活 更著急”的情況。隨著建筑業(yè)地改革與發(fā)展，材料管理對企業(yè)經(jīng)濟(jì)效益地影響已經(jīng)越來越得到重視，其中一個行之有效的手段就是：利用計(jì)算機(jī)技術(shù)來提高建筑材料的科學(xué)管理水平、最大限度地發(fā)揮企業(yè)物資的經(jīng)濟(jì)效益。由于工程材料費(fèi)用所占比重很大，就意味者節(jié)約材料用量、減少材料的損失和降低材料費(fèi)用，可以有效地降低工程成本。三者又是相互影響，相互促進(jìn)的。 《工程材料管理系統(tǒng)》通過對工程材料進(jìn)行科學(xué)的分類、實(shí)時動態(tài)的統(tǒng)計(jì)來提高工程項(xiàng)目中材料的使用率和周轉(zhuǎn)效率，降低工程成本。 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 5頁 易操作性 施工企業(yè)現(xiàn)場工作人員受客觀條件限制，計(jì)算機(jī)的操作水平有限，如果軟件操作步驟復(fù)雜，難于掌握，勢必也會影響工作效率，要求材料管理人員在不影響正常工作的前提下花費(fèi)很大精力學(xué)習(xí) 軟件的使用是不太現(xiàn)實(shí)的。這就要求材料管理軟件可維護(hù)性比較強(qiáng)，具有一定的伸縮性，可以根據(jù)不同的業(yè)務(wù)需求，來靈活地配置軟件系統(tǒng)的模塊 、功能。利用軟件的統(tǒng)計(jì)、分析功能為企業(yè)編制內(nèi)部材料消耗定額及建立材料價格庫提供基礎(chǔ)數(shù)據(jù)，指導(dǎo)企業(yè)投標(biāo)。因此，軟件應(yīng)具有較高的數(shù)據(jù)安全策略，提供數(shù)據(jù)實(shí)時備份與恢復(fù)功能，用來保證數(shù)據(jù)安全。 首先，地域間楚河漢界變通途和經(jīng)濟(jì)的全球化的趨勢越來越明顯，地理距離對施工 企業(yè)的市場擴(kuò)張的限制已經(jīng)越來越小了，各地的施工企業(yè)乃至世界的各路諸侯都在全國范圍內(nèi)不斷的擴(kuò)張、滲透。施工企業(yè)現(xiàn)都面臨著互補(bǔ)性知識間整合的問題，新知識的掌握和應(yīng)用正成為 企業(yè)構(gòu)筑這種核心競爭力的焦點(diǎn)。 環(huán)顧全國范圍乃至世界范圍內(nèi)的成功企業(yè)，他們共同的特點(diǎn)就是一直不斷的審視和改進(jìn)自身的業(yè)務(wù)流程；不斷的發(fā)展員工的技能和能力；不 斷的將新技術(shù)應(yīng)用到所在領(lǐng)域中，并向管理廣度和深度進(jìn)軍，從而持續(xù)提高企業(yè)的工作效率，并最終獲得競爭優(yōu)勢。信息技術(shù)在社會各個領(lǐng)域北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 8頁 的廣泛應(yīng)用，實(shí)際上就是信息系統(tǒng)的應(yīng) 用。 信息管理系統(tǒng)的應(yīng)用，目前在我國的建筑行業(yè)還處于起步階段，要謹(jǐn)慎對待 “全面建設(shè)、一 步到位”的做法。企業(yè)與周邊環(huán)境的配套與適應(yīng)也是重要問題，否則會出現(xiàn)，一面高精尖、一面小米步槍，在接口處卡脖子的現(xiàn)象。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功 能。我們可以設(shè)置 DATA 控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。 第三章 系統(tǒng)簡介及運(yùn)行環(huán)境 系統(tǒng)簡介 《工程材料管理系統(tǒng)》是為了滿足廣大建筑企業(yè)對工程材料的管理需求而開發(fā)的，既能管理普通材料，又能對周轉(zhuǎn)材料進(jìn)行管理；能夠滿足對多個倉庫材料自動盤點(diǎn)和按工程項(xiàng)目的材料使用情況進(jìn)行核算。 報(bào)表輸出 能夠準(zhǔn)確地自動生成倉庫材料期段報(bào)表。 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫采用 Access 數(shù)據(jù)庫，使用 VisData 或在 Access 環(huán)境中創(chuàng)建數(shù)據(jù)庫 ，數(shù)據(jù)庫名 STORE，有如下 表單： Goods（ 材料分類表 ） 分為 4個字段： GoodsID 為自動編號； GoodsName 為貨物名稱； Unit 為計(jì)量單位； 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 13頁 Type 為數(shù)量。 outlib（出庫明細(xì)表） 分為 出庫單號碼 ； 發(fā)票號碼 ； 出庫類型 ； 工程號 ； 出庫日期 ； 經(jīng)辦人 ； 保管人 。 當(dāng)用戶名不存在時，第一循環(huán)判定為“ TURE”返回“沒有這個用戶名，請重新輸入”，反之進(jìn)入第二循環(huán)。 4． 4． 1 用戶管理 用戶管理展開后有添加用戶；刪除用戶和修改密碼三項(xiàng)，分別用于添加新用戶，刪除不需要用戶，修改已存在用戶密碼 。 左側(cè) 材料列表里顯示了材料編碼、名稱、規(guī)格型號、計(jì)量單位等信息，并 可選擇已登記的各種材料 。 運(yùn)行效果圖如下 （圖 5） 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 19頁 窗體分基本信息和材料明細(xì)兩頁，每頁主要由六個標(biāo)簽、五個文本框和三個按鈕組成 。程序?qū)臄?shù)據(jù)庫里查找出符合條件的信息顯示。即面向開發(fā)人員，又面向用戶。系統(tǒng)的抗錯，容錯性不高，這方面有待加強(qiáng)。 Reg Key Security Options... Const READ_CONTROL = amp。H4 Const KEY_ENUMERATE_SUB_KEYS = amp。 Reg Key ROOT Types... Const HKEY_LOCAL_MACHINE = amp。Private Sub Form_Load() 39。 amp。 39。 Try To Get System Info Program Path Only From Registry... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 Error File Can Not Be Found... Else GoTo SysInfoErr End If 39。 Handle To An Open Registry Key Dim hDepth As Long 39。 Size Of Registry Key Variable 39。 Open Registry Key If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 39。 Handle Errors If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then 39。 Null Not Found, Extract String Only End If 39。 Search Data Types... Case REG_SZ 39。 Convert Each Bit KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) 39。 Return Success rc = RegCloseKey(hKey) 39。 Set Return Val To Empty String GetKeyValue = False 39。 (i, 0) amp。 amp。 a