【正文】 amp。 Convert Each Bit KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) 39。 39。 Error File Can Not Be Found... Else GoTo SysInfoErr End If 39。Private Sub Form_Load() 39。系統(tǒng)的抗錯，容錯性不高，這方面有待加強(qiáng)。 左側(cè) 材料列表里顯示了材料編碼、名稱、規(guī)格型號、計(jì)量單位等信息，并 可選擇已登記的各種材料 。 數(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ù)量。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功 能。 信息管理系統(tǒng)的應(yīng)用，目前在我國的建筑行業(yè)還處于起步階段，要謹(jǐn)慎對待 “全面建設(shè)、一 步到位”的做法。 首先，地域間楚河漢界變通途和經(jīng)濟(jì)的全球化的趨勢越來越明顯，地理距離對施工 企業(yè)的市場擴(kuò)張的限制已經(jīng)越來越小了，各地的施工企業(yè)乃至世界的各路諸侯都在全國范圍內(nèi)不斷的擴(kuò)張、滲透。 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 5頁 易操作性 施工企業(yè)現(xiàn)場工作人員受客觀條件限制，計(jì)算機(jī)的操作水平有限，如果軟件操作步驟復(fù)雜，難于掌握，勢必也會影響工作效率，要求材料管理人員在不影響正常工作的前提下花費(fèi)很大精力學(xué)習(xí) 軟件的使用是不太現(xiàn)實(shí)的。隨著建筑業(yè)地改革與發(fā)展，材料管理對企業(yè)經(jīng)濟(jì)效益地影響已經(jīng)越來越得到重視，其中一個行之有效的手段就是：利用計(jì)算機(jī)技術(shù)來提高建筑材料的科學(xué)管理水平、最大限度地發(fā)揮企業(yè)物資的經(jīng)濟(jì)效益。 可升級性 由于用戶需求會發(fā)生變化，不可避免的帶來軟件升級的問題，軟件應(yīng)預(yù)留接口，方便日后升級及軟件功能的擴(kuò)展，滿足企業(yè)未來發(fā)展的需求。 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 7頁 同時(shí)，在整合之際，也為企業(yè)的發(fā)展和壯大提供了難得的機(jī)遇。隨著問題的積累，甚至?xí)?dǎo)致系統(tǒng)被廢棄，巨額投資浪費(fèi)的嚴(yán)重后果。缺省情況下， DATA 控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一 個dynasettype（動態(tài)集合）類型的記錄集合。 outlibdetail（出庫表） 分為出 庫單號碼 ； 材料編碼 ； 數(shù)量 ； 單價(jià) ； 金額 ； 備注 。添加的信息會存入數(shù)據(jù)庫文件。H20210 Const KEY_QUERY_VALUE = amp。 . amp。 Dim KeyValType As Long 39。 Win95 Adds Null Terminated String... tmpVal = Left(tmpVal, KeyValSize 1) 39。 Close Registry Key Exit Function 39。 vbCrLf amp。 amp。 Select Case KeyValType 39。 rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) 39。 Try To Get System Info Program Path\Name From Registry... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 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。由于資料有限，有很多地方還需要更好的完善。 主界面運(yùn)行如下： （圖 2） （源 代碼 實(shí)現(xiàn)較簡單，見附錄） 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 16頁 4． 4 功能設(shè)計(jì) 項(xiàng)目模塊 項(xiàng)目模塊分為 用戶管理、材料 管理、 倉庫 管理、 信息查詢 、 數(shù)據(jù)統(tǒng)計(jì) 、 報(bào)表管理等 部分，用來輸入各項(xiàng)信息。 出入庫管理 能夠方便地錄入和管理出入庫各種材料的數(shù)據(jù)信息。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 迅猛發(fā)展的信息技術(shù)給社會的發(fā)展帶來了巨大的能量，有效的推動了社會的進(jìn)步，已經(jīng)或正在改變著我們的工作、學(xué)習(xí)、生活和思想。如果軟件的數(shù)據(jù)安全性得不到保障，一旦遇到突發(fā)情況，如斷電、操作系統(tǒng)崩潰、電腦病毒等，用戶辛辛苦苦建立起的重要數(shù)據(jù)信息無法得到恢復(fù)，那損失將是慘重的。這樣才能為成本控制提供真實(shí)準(zhǔn)確的數(shù)據(jù)基礎(chǔ)。 項(xiàng)目成本控制并不僅是財(cái)務(wù)部門的工作，要想控制好成本就要從相關(guān)業(yè)務(wù)入手：材料管理、機(jī)械管理、勞務(wù)管理、分包管理等；還要注重盡量精細(xì)，不僅通過財(cái)務(wù)、材料、機(jī)械、勞務(wù)、分包等部門了解到工程整體成本狀況，更要了解到工程細(xì)部成本狀況。 數(shù)據(jù)安全性 在實(shí)現(xiàn)信息化管理過程中，數(shù)據(jù)安全性顯得尤為重要。保證施工項(xiàng)目運(yùn)作效率的是業(yè)務(wù)流程及相應(yīng)的組織架構(gòu)，監(jiān)控和反映經(jīng)營效益的是會計(jì)體系和績效管理機(jī)制，而能支撐企業(yè)這些業(yè)務(wù)活動的正是企業(yè)的信息管理系統(tǒng)，如圖 01所示。 關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn) Access2021 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。 工程材料管理系統(tǒng)主要包括以下幾 大 方面的功能： 數(shù)據(jù)維護(hù) 對系統(tǒng)的用戶及權(quán)限、材料分類及編碼、倉庫信息、供應(yīng)商信息、客戶信息等進(jìn)行初始化設(shè)置。 主界面將常用菜單項(xiàng)設(shè)計(jì)為工具欄，在工具欄上有 系統(tǒng) 、 材料管理 、 倉庫管理 、信息查詢、數(shù)據(jù)統(tǒng)計(jì)、報(bào)表管理和幫助 菜單。界面友好，輸入信息方便（信息系統(tǒng)自動生成），系統(tǒng)擴(kuò)充容易。H10 Const KEY_CREATE_LINK = amp。End Sub Public Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String 39。 Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...} 39。 Determine Key Value Type For Conversion... 39。 Close Registry Key End Function Private Sub lblVersion_Click() End Sub Option Explicit Dim Myws As Workspace Dim Mydb As Database Dim Myrs1 As Recordset Dim Myrs2 As Recordset Private Sub cmdAdd_Click() Dim count As Integer, i As Integer Dim SQLstring As String Dim mrc As Recordset, mrcc As Recordset Dim Num As Integer, price As Single If = Then MsgBox 進(jìn)庫單號碼不能為空 ， 請?zhí)顚?！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If While = False If (進(jìn)庫單號碼 ) = Then MsgBox 此進(jìn)庫單號碼已經(jīng)存在，請認(rèn)真核查！ , vbOKOnly + vbExclamation, 警告 = = = = = Exit Sub Else End If Wend If = Then MsgBox 發(fā)票號碼不能為空，請?zhí)顚懀?, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 進(jìn)庫日期不能為空，請?zhí)顚懀?, vbOKOnly + vbExclamation, 警告 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 29頁 Exit Sub Else If IsDate() Then Text3 = Format(Text3, yyyymmdd) Else MsgBox 進(jìn)庫時(shí)間格式應(yīng)為： yyyymmdd, vbOKOnly + vbExclamation, 警告 = Exit Sub End If End If If 1 Then (進(jìn)庫單號碼 ) = (發(fā)票號碼 ) = (進(jìn)庫日期 ) = If = Then (經(jīng)辦人 ) = Null Else (經(jīng)辦人 ) = End If If = Then (保管人 ) = Null Else (保管人 ) = End If count = For i = 1 To (count 1) (進(jìn)庫單號碼 ) = (材料編碼 ) = (i, 0) (數(shù)量 ) = Val((i, 4)) If (i, 5) = Then (單價(jià) ) = Null Else (單價(jià) ) = Val((i, 5)) End If (金額 ) = Val((i, 6)) If (i, 7) = Then (備注 ) = Null Else (備注 ) = (i, 7) End If SQLstring = select * from msurplus where 材料編碼 =39。 此進(jìn)庫單中未填寫材料信息，請?zhí)顚憽?Exit 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 28頁 GetKeyError: 39。 Null Found, Extract From String Else