【正文】 修理成本 1 End Sub Private Sub mnuPriceUpdate_Click() (1).Text = 統(tǒng)計改造成本 1 End Sub Private Sub mnuPriceWork_Click() (1).Text = 統(tǒng)計特定工程的成本 1 End Sub Private Sub mnuQin_Click() (1).Text = 查詢材料入庫信息 1 End Sub Private Sub mnuQout_Click() 北京理工大學(xué) 現(xiàn)代遠程教育 學(xué)院畢業(yè)設(shè)計 (論文 ) 第 24頁 (1).Text = 查詢材料出庫信息 1 End Sub Private Sub mnuQsub_Click() (1).Text = 查詢倉庫余額信息 1 End Sub Private Sub mnuReportIn_Click() (1).Text = 查詢、打印進庫材料報表 1 End Sub Private Sub mnuReportNorth_Click() (1).Text = 查詢、打印北撥材料報表 1 End Sub Private Sub mnuReportRepair_Click() (1).Text = 查詢、打印修理材料報表 1 End Sub Private Sub mnuReportRetail_Click() (1).Text = 查詢、打印銷售材料報表 1 End Sub Private Sub mnuReportRevise_Click() (1).Text = 查詢、打印改造材料報表 1 End Sub Private Sub mnuReportSouth_Click() (1).Text = 查詢、打印南撥材料報表 1 End Sub Private Sub mnuReportTotal_Click() (1).Text = 查詢、打印倉庫報表 1 End Sub Private Sub mnuRetail_Click() (1).Text = 統(tǒng)計銷售額 1 End Sub Private Sub mnuUserAdd_Click() 北京理工大學(xué) 現(xiàn)代遠程教育 學(xué)院畢業(yè)設(shè)計 (論文 ) 第 25頁 (1).Text = 添加用戶 1 End Sub Private Sub mnuUserDelete_Click() (1).Text = 刪除用戶 1 End Sub Private Sub mnuUserUpdata_Click() (1).Text = 修改密碼 1 End Sub Private Sub Picture1_Click() End Sub 項目管理代碼： Option Explicit 39。H20 Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL 39。 = Version amp。 Try To Get System Info Program Path\Name From Registry... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 39。 Return Code Dim hKey As Long 39。 rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) 39。 Get/Create Key Value If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 Select Case KeyValType 39。 Convert Double Word To String End Select GetKeyValue = True 39。 amp。 (SQLstring) Next i Unload Me (1).Text = 就緒 Exit Sub Else MsgBox 進庫單中必須至少包含一項材料明細。 vbCrLf amp。 39。 Close Registry Key Exit Function 39。 String Registry Key Data Type KeyVal = tmpVal 39。 Win95 Adds Null Terminated String... tmpVal = Left(tmpVal, KeyValSize 1) 39。 Handle Error... tmpVal = String$(1024, 0) 39。 Dim KeyValType As Long 39。 Validate Existance Of Known 32 Bit File Version If (Dir(SysInfoPath amp。 . amp。H80000002 Const ERROR_SUCCESS = 0 Const REG_SZ = 1 39。H20210 Const KEY_QUERY_VALUE = amp。由于時間的原因，輸出報表不完善。添加的信息會存入數(shù)據(jù)庫文件。 運行界面如下圖所示： （圖 3） 這里，程序類似登陸模塊，也使用 IF?? ELSE 嵌套。 outlibdetail（出庫表） 分為出 庫單號碼 ； 材料編碼 ； 數(shù)量 ； 單價 ； 金額 ； 備注 。 系統(tǒng)運行環(huán)境 P2以上微機； 操作系統(tǒng)： 中文 Windows95/98 或以上的版本， 系統(tǒng)要求預(yù)裝 Office2021 套件中的 Access2021 文字編輯程序； 主 存： 最低 64MB，建議增設(shè)到 128MB 以上； 硬盤空間： 剩余空間 100MB 以上； 鼠 標： Microsoft 及其兼容類鼠標。缺省情況下， DATA 控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一 個dynasettype（動態(tài)集合）類型的記錄集合。另外， Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。隨著問題的積累，甚至?xí)?dǎo)致系統(tǒng)被廢棄，巨額投資浪費的嚴重后果。使用信息系統(tǒng)完善和加強傳統(tǒng)的管理方式，重新認識和再造各種企業(yè)原有的業(yè)務(wù)流程，成為了企業(yè)在激烈的市場競爭中取勝的戰(zhàn)略手段。 北京理工大學(xué) 現(xiàn)代遠程教育 學(xué)院畢業(yè)設(shè)計 (論文 ) 第 7頁 同時，在整合之際，也為企業(yè)的發(fā)展和壯大提供了難得的機遇。 基于以上的選擇標準，施工企業(yè)一定能夠優(yōu)選出適合本企業(yè)施工項目部使用的材料 管理軟件系統(tǒng)，從而加快工作效率，規(guī)范材料管理制度，控制和節(jié)約材料成本，最終提高項目部的材料管理水平。 可升級性 由于用戶需求會發(fā)生變化，不可避免的帶來軟件升級的問題，軟件應(yīng)預(yù)留接口，方便日后升級及軟件功能的擴展，滿足企業(yè)未來發(fā)展的需求。其最終目標是實現(xiàn)項目現(xiàn)場及相關(guān)企業(yè)工程材料管理的科學(xué)化、規(guī)范化。隨著建筑業(yè)地改革與發(fā)展，材料管理對企業(yè)經(jīng)濟效益地影響已經(jīng)越來越得到重視，其中一個行之有效的手段就是：利用計算機技術(shù)來提高建筑材料的科學(xué)管理水平、最大限度地發(fā)揮企業(yè)物資的經(jīng)濟效益。三者又是相互影響，相互促進的。 北京理工大學(xué) 現(xiàn)代遠程教育 學(xué)院畢業(yè)設(shè)計 (論文 ) 第 5頁 易操作性 施工企業(yè)現(xiàn)場工作人員受客觀條件限制，計算機的操作水平有限，如果軟件操作步驟復(fù)雜，難于掌握，勢必也會影響工作效率，要求材料管理人員在不影響正常工作的前提下花費很大精力學(xué)習(xí) 軟件的使用是不太現(xiàn)實的。利用軟件的統(tǒng)計、分析功能為企業(yè)編制內(nèi)部材料消耗定額及建立材料價格庫提供基礎(chǔ)數(shù)據(jù)，指導(dǎo)企業(yè)投標。 首先，地域間楚河漢界變通途和經(jīng)濟的全球化的趨勢越來越明顯，地理距離對施工 企業(yè)的市場擴張的限制已經(jīng)越來越小了，各地的施工企業(yè)乃至世界的各路諸侯都在全國范圍內(nèi)不斷的擴張、滲透。 環(huán)顧全國范圍乃至世界范圍內(nèi)的成功企業(yè)，他們共同的特點就是一直不斷的審視和改進自身的業(yè)務(wù)流程；不斷的發(fā)展員工的技能和能力；不 斷的將新技術(shù)應(yīng)用到所在領(lǐng)域中，并向管理廣度和深度進軍，從而持續(xù)提高企業(yè)的工作效率，并最終獲得競爭優(yōu)勢。 信息管理系統(tǒng)的應(yīng)用，目前在我國的建筑行業(yè)還處于起步階段，要謹慎對待 “全面建設(shè)、一 步到位”的做法。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功 能。 第三章 系統(tǒng)簡介及運行環(huán)境 系統(tǒng)簡介 《工程材料管理系統(tǒng)》是為了滿足廣大建筑企業(yè)對工程材料的管理需求而開發(fā)的，既能管理普通材料，又能對周轉(zhuǎn)材料進行管理；能夠滿足對多個倉庫材料自動盤點和按工程項目的材料使用情況進行核算。 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫采用 Access 數(shù)據(jù)庫，使用 VisData 或在 Access 環(huán)境中創(chuàng)建數(shù)據(jù)庫 ，數(shù)據(jù)庫名 STORE，有如下 表單： Goods（ 材料分類表 ） 分為 4個字段： GoodsID 為自動編號； GoodsName 為貨物名稱； Unit 為計量單位； 北京理工大學(xué) 現(xiàn)代遠程教育 學(xué)院畢業(yè)設(shè)計 (論文 ) 第 13頁 Type 為數(shù)量。 當用戶名不存在時，第一循環(huán)判定為“ TURE”返回“沒有這個用戶名，請重新輸入”，反之進入第二循環(huán)。 左側(cè) 材料列表里顯示了材料編碼、名稱、規(guī)格型號、計量單位等信息，并 可選擇已登記的各種材料 。程序?qū)臄?shù)據(jù)庫里查找出符合條件的信息顯示。系統(tǒng)的抗錯，容錯性不高，這方面有待加強。H4 Const KEY_ENUMERATE_SUB_KEYS = amp。Private Sub Form_Load() 39。 39。 Error File Can Not Be Found... Else GoTo SysInfoErr End If 39。 Size Of Registry Key Variable 39。 39。 Null Not Found, Extract String Only End If 39。 Convert Each Bit KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) 39。 Set Return Val To Empty String GetKeyValue = False 39。 a