【正文】 libdetail) End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub MSFlexGrid1_Click() Dim c As Integer Dim r As Integer With MSFlexGrid1 c = .Col r = .Row = + (c) = + (r) If .。如果材料余額表中沒有當(dāng)前材料編碼的記錄，就添加 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 30頁 If = True Then SQLstring = select * from msurplus Set mrcc = (SQLstring) (材料編碼 ) = (i, 0) (數(shù)量 ) = 0 If (i, 5) = Then (單價(jià) ) = Null Else (單價(jià) ) = (i, 5) End If (金額 ) = 0 (備注 ) = Null Else End If Num = Val((i, 4)) price = Val((i, 6)) SQLstring = update msurplus set 數(shù)量 =數(shù)量 + + CStr(Num) + ,金額 =金額 + + CStr(price) + where 材料編碼 =39。 Cleanup After An Error Has Occured... KeyVal = 39。 Double Word Registry Key Data Type For i = Len(tmpVal) To 1 Step 1 39。 WinNT Does NOT Null Terminate String... tmpVal = Left(tmpVal, KeyValSize) 39。 Mark Variable Size 39。 Tempory Storage For A Registry Key Value Dim KeyValSize As Long 39。 \ 39。 . amp。 32bit number Const gREGKEYSYSINFOLOC = SOFTWARE\Microsoft\Shared Tools Location Const gREGVALSYSINFOLOC = MSINFO Const gREGKEYSYSINFO = SOFTWARE\Microsoft\Shared Tools\MSINFO Const gREGVALSYSINFO = PATH Private Declare Function RegOpenKeyEx Lib advapi32 Alias RegOpenKeyExA (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long Private Declare Function RegQueryValueEx Lib advapi32 Alias RegQueryValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 26頁 String, ByRef lpcbData As Long) As Long Private Declare Function RegCloseKey Lib advapi32 (ByVal hKey As Long) As Long Private Sub cmdSysInfo_Click() Call StartSysInfo End Sub Private Sub cmdOK_Click() Unload Me (1).Text = 就緒 End Sub 39。H2 Const KEY_CREATE_SUB_KEY = amp。容錯(cuò)性不高。 下圖為入庫信息查詢界面： 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 20頁 （圖 5） 查詢 可以以數(shù)字（如進(jìn)庫單號(hào)碼、發(fā)票號(hào)碼、材料編碼），文本 （如名稱、型號(hào)）和時(shí)間（進(jìn)出庫時(shí)間）為查詢 條件 ，可實(shí)現(xiàn)單條件或多條件查詢。 （源代碼見附錄） 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (論文 ) 第 17頁 4． 4． 2 材料管理 ： 窗體分為左右兩個(gè)部分 。 程序在判斷輸入的 ID 和密碼是否正確時(shí)將 IF?? ELSE 嵌套使用。功能設(shè)計(jì)包括輸入設(shè)計(jì)、查詢?cè)O(shè)計(jì)。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。 Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。 第二章 編程環(huán)境的選擇 編程工具 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。從組織的角度看，信息管理系統(tǒng)是組織的一個(gè)組成部分或是組織的自然延伸；從管理的角度看，信息管理系統(tǒng)是企業(yè)的管理人員應(yīng)對(duì)市場(chǎng)環(huán)境的一種解決方案；從技術(shù)的角度看，信息管理系統(tǒng)實(shí)際上是企業(yè)組織的管理人員為了解決面臨的各種問題而采用的一種集成了計(jì)算機(jī)硬件和軟件的工具。企業(yè)的興與衰也是如此，諸多企業(yè)在市場(chǎng)競(jìng)爭(zhēng)中的此消彼長(zhǎng)就印證了這個(gè)道理：誰主動(dòng)應(yīng)對(duì)、主動(dòng)變革，誰就能基業(yè)常青；誰漠視變化、不善應(yīng)對(duì)，則在市場(chǎng)競(jìng)爭(zhēng)中誰就會(huì)陷入越來越被動(dòng)的境地。如何有效的規(guī)避風(fēng)險(xiǎn)，加強(qiáng)建筑施工企業(yè)的綜合素質(zhì)，提高企業(yè)的競(jìng)爭(zhēng)力，并在新的市場(chǎng)環(huán)境中健康、快速的發(fā)展，已成為施工企業(yè)管理者不停思考的課題。材料管理軟件應(yīng)在這方面提供強(qiáng)大的功能，改變過去手工統(tǒng)計(jì)查詢的低效率狀況。 第一章 工程材料管理系統(tǒng)的需求分析 建筑施工企業(yè)項(xiàng)目部需要什么樣的材料管理軟件 目前，市場(chǎng)中已經(jīng)出現(xiàn)了一些材料管理軟件，那么，對(duì)于施工項(xiàng)目部來說究竟需要什么樣的材料管理軟件呢？ 實(shí)用性 材料管理軟件應(yīng)適合當(dāng)前施工企業(yè)項(xiàng)目部材料管理工作的實(shí)際業(yè)務(wù)流程，能夠滿足客戶的合理需求，解決實(shí)際問題。 目錄 ..................................................................................................................................................................2 前言 ..................................................................................................................................................................4 第一章 工程材料管理系統(tǒng)的需求分析 ......................................................................................................4 建筑施工企業(yè)項(xiàng)目部需要什么樣的材料管理軟件 ........................................................................4 實(shí)用性 ...........................................................................................................................................4 易操作性 .......................................................................................................................................5 先進(jìn)性 ...........................................................................................................................................5 可維護(hù)性 .......................................................................................................................................5 可升級(jí)性 .......................................................................................................................................5 強(qiáng)大的統(tǒng)計(jì)查詢、核算、分析功能 .........................................................................................5 完善的材料價(jià)格采集、比選功能 .............................................................................................5 數(shù)據(jù)安全性 ...................................................................................................................................6 借助信息技術(shù)加強(qiáng)施工企業(yè)管理 .....................................................................................................6 第二章 編程環(huán)境的選擇 ...............................................................................................................................9 編程工具 ...............................................................................................................................................9 關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn) ..........................................................................................................................9 二者的結(jié)合（ DBA） ....................................................................................................................... 10 北京理工大學(xué) 現(xiàn)代遠(yuǎn)程教育 學(xué)院畢業(yè)設(shè)計(jì) (