【正文】 資本之后的又一大資源。誰控制的信息越多，誰利用信息資源的效率越高，誰就會在各方面的競爭中占有一席之地，誰就會有更多的優(yōu)勢。 物資供應(yīng)部門是企業(yè)與生產(chǎn)單位之間的橋梁、紐帶，是企業(yè)正常生產(chǎn)的物資保障部門。正因為供應(yīng)部門是關(guān)鍵的中轉(zhuǎn)環(huán)節(jié)，建立一套物資 管理信息系統(tǒng) 對于如何有效的把本單位生產(chǎn)所需的生產(chǎn)資料及時、保質(zhì)保量的供應(yīng)上去，有著重要的意義。從微觀上講，建立一套物資管理信息系統(tǒng)能夠加快物資的周轉(zhuǎn)速度，提高生產(chǎn)效率，從而加強了管理的信息化手段，提高了本單位的經(jīng)濟效益。從宏觀上講，順應(yīng)了社會的信息化、社會化潮流，縮短了整個社會化大生產(chǎn)的周期。 第二章 國內(nèi)外現(xiàn)狀的研究 國外現(xiàn)狀 計算機的發(fā)明應(yīng)用，被視為人類的第三次重大的科學技術(shù)革命，是一次飛躍。過去的革命最高成就就是 “用機器制造機器 ”，是手的延長，而計算機的出現(xiàn)卻能做到 “用機器控制機器 ”，是腦的延伸。計算機是 提高生產(chǎn)效率的主要工具 及途徑。在西方國家，計算機系統(tǒng)的發(fā)展有以下四個階段：第一階段（ 19541964）電子數(shù)據(jù)處理階段（ EDP）。 此階段以單項數(shù)據(jù)處理為主，如財務(wù)管理、物資管理、工資管理等。 第二階段（ 19641974）管理信息系統(tǒng)階段（ MIS）。在這期間，由于高速度的處理機、高速度大容量的存儲器與器件有了突破性進展，使得計算機應(yīng)用系統(tǒng)從單項應(yīng)用的 EDP 發(fā)展到多功能、多層次、綜合性的應(yīng)用階段，使得 MIS 日漸成熟，具有了控制、預(yù)測、輔助和決策的功能。 第三階段（ 19741980）決策支持系 統(tǒng)階段（ DSS）。在此階段解決的主要是面向高層管理，大范圍的決策問題以及非結(jié)構(gòu)化信息的處理。 第四階段（ 1980）職能管理系統(tǒng)階段 （ IMS）。這個階段強調(diào)的是綜合管理功能，多維服務(wù)模式，人機協(xié)調(diào)的、智能化的、集成化的計算機輔助管理功能等。 據(jù)統(tǒng)計，目前，美國在財務(wù)會計上占有 90%的工作由計算機完成；物資管理中 80100%的信息處理由計算機完成；計劃管理是 80—90%；在計算機應(yīng)用發(fā)展較快的國家中，計算機應(yīng)用于經(jīng)濟管理的占 80%；用于科技計算的占 8%，用于生產(chǎn)過程控制的占 12%；由此可以看出，經(jīng)濟管理 是計算機應(yīng)用的主要領(lǐng)域。 2． 2 國內(nèi)狀況 由于種種原因，我國的信息資源建設(shè)水平遠遠落后于信息基礎(chǔ)設(shè)施的建設(shè)的水平。長期以來，我國信息資源的開發(fā)管理未能與信息資源的增長同步進行。我國有豐富的原始信息資源，但在此基礎(chǔ)上再生的二次信息系統(tǒng)和數(shù)據(jù)庫產(chǎn)業(yè)的規(guī)模和市場占有率、使用率相當?shù)?，大量的有價值的信息未能進一步加工成商品使其增值。我國的計算機應(yīng)用要比西方國家落后十幾年，管理信息系統(tǒng)的開發(fā)應(yīng)用是從 1973 年開始的， 83 年以后才開始了大量的實際的開發(fā)和研究工作。因此，信息資源的開發(fā)和利用已被確立為國民經(jīng)濟信息的核 心內(nèi)容，信息數(shù)字化，傳輸?shù)木W(wǎng)絡(luò)化是縮小發(fā)展中國家與發(fā)達國家差距的捷徑，值世界信息化浪潮正以不可阻擋之勢席卷全球時，我國要迎頭趕上，就必須利用現(xiàn)有的信息基礎(chǔ)設(shè)施，重點開發(fā)和推廣應(yīng)用于各類科技經(jīng)濟等數(shù)據(jù)庫和網(wǎng)絡(luò)資源服務(wù)系統(tǒng)，以便取得巨大的社會效益和經(jīng)濟效益。 由于種種原因，我國的信息資源建設(shè)水平遠遠落后于信息基礎(chǔ)設(shè)施的建設(shè)的水平。長期以來，我國信息資源的開發(fā)管理未能與信息資源的增長同步進行。我國有豐富的原始信息資源，但在此基礎(chǔ)上再生的二次信息系統(tǒng)和數(shù)據(jù)庫產(chǎn)業(yè)的規(guī)模和市場占有率、使用率相當?shù)?，大量的有價值的信息 未能進一步加工成商品使其增值。我國的計算機應(yīng)用要比西方國家落后十幾年，管理信息系統(tǒng)的開發(fā)應(yīng)用是從 1973 年開始的， 83 年以后才開始了大量的實際的開發(fā)和研究工作。因此，信息資源的開發(fā)和利用已被確立為國民經(jīng)濟信息的核心內(nèi)容，信息數(shù)字化，傳輸?shù)木W(wǎng)絡(luò)化是縮小發(fā)展中國家與發(fā)達國家差距的捷徑，值世界信息化浪潮正以不可阻擋之勢席卷全球時，我國要迎頭趕上，就必須利用現(xiàn)有的信息基礎(chǔ)設(shè)施，重點開發(fā)和推廣應(yīng)用于各類科技經(jīng)濟等數(shù)據(jù)庫和網(wǎng)絡(luò)資源服務(wù)系統(tǒng)，以便取得巨大的社會效益和經(jīng)濟效益。 由于物資管理在社會大生產(chǎn)中占用重要地位，其計 算機化在發(fā)達國家已達到 95%以上，而我國在全國范圍內(nèi)推廣計算機在管理中的應(yīng)用，是在 80 年代初開始的。起步雖晚，但發(fā)展快。特別是微型計算機的出現(xiàn)和普及，為信息處理提供了物美價廉的手段，對于推動我國管理信息處理現(xiàn)代化起到了重要作用。 第三章 物資管理工作中存在的主要問題 技術(shù)檢測中心是 1991 年初成立的局屬二級單位，主要負責油田地區(qū)各單位的安全教育、工程質(zhì)量、鍋爐壓力容器、計量設(shè)備、儀器儀表及環(huán)境檢測，井架檢測等監(jiān)督檢測工作。供應(yīng)站則負責保證檢測工作的順利進行所需的物資正常供應(yīng)工作。我單位供應(yīng)站屬直屬四級站，物 資類別 99 大類，年吞吐量 450 萬元，周轉(zhuǎn)速度為 49 天，庫存 30 萬元，一年以上無動態(tài)積壓物資 4 萬元。供應(yīng)站每月要向局供應(yīng)處及中心機關(guān)上報月度庫存清冊，其數(shù)據(jù)都是從各種賬本中收集，再統(tǒng)計，最后逐級匯總再報送。目前存在的 主要問題是： 1 ） 根據(jù)各三級單位所報材料明細逐個與 庫存賬本對照查閱，進行庫平，即庫中有其所需材料則開據(jù)料單從庫中領(lǐng)取，若庫中無，則通知采購人員采購。庫中物資種類繁多，查對繁瑣，易出錯。 2 ） 從開據(jù)發(fā)料單到每月結(jié)帳、清冊都是手工操作，計算器加算盤，效率低且準確率不高。 單位配備的計算機僅 局限于打字，做報表，不能開單據(jù)，計算機應(yīng)有的功能沒有充分發(fā)揮。 針對以上存在的問題，領(lǐng)導決定通過建立物資管理信息系統(tǒng)使物資管理工作更加規(guī)范化、程序化，提高其處理工作的速度和準確性，也便于動態(tài)查詢，提高決策水平 第三章 應(yīng)用系統(tǒng)開發(fā)工具 Visual Basic 簡介及實現(xiàn)原理 Visual Basic（簡稱 VB）是美國微軟公司（ Microsoft）于 1990 年推出的一套完整的Windows 系統(tǒng)軟件開發(fā)工具，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序，是一種可視化、面向?qū)ο?、用事件?qū) 動方式的結(jié)構(gòu)化高級程序設(shè)計語言和工具，是目前使用最廣泛的編程語言之一。至今以升級到了 版。 VB 的重要特點之一是可視性。系統(tǒng)引進了窗體和控件的機制，用于設(shè)計應(yīng)用程序界面。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設(shè)計菜單和對話框， VB會自動生成相應(yīng)的代碼。 VB 的另一重要特點是事件驅(qū)動。當窗體或控件上發(fā)生一個事件時， VB 立即把控制權(quán)交給程序員。程序員不必擔心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計算機在事件發(fā)生以后應(yīng)該做什么工作就可以了。這樣，設(shè)計一個 Windows 應(yīng)用程序簡化為 用鼠標在屏幕上點擊、拖拽并添加少量的代碼就可以完成了，大大降低了對程序設(shè)計的要求，提高了應(yīng)用程序的開發(fā)效率。 利用 VB 的可視性特點，可方便的設(shè)計了程序的窗體界面，并在各個窗體中的合適位置繪制所需的每種控件。如要修改窗體或控件的某項屬性，只需在相應(yīng)的窗體或控件的屬性窗口修改相應(yīng)的參數(shù)便可達到需要的設(shè)計效果。 利用 VB 的事件驅(qū)動性特點，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達到告訴當在相應(yīng)的窗體或控件上發(fā)生某一事件時，它們在事件發(fā)生后應(yīng)該做什么工作的目的。例如幾個窗體上的添加、刪除、返回按鈕的作用， 就是通過在各個相應(yīng)按鈕的代碼窗口中輸入相應(yīng)的代碼，來達到當在幾個按鈕上出現(xiàn)單擊（ Click）事件后，相應(yīng)按鈕實現(xiàn)添加、刪除、返回的功能的。 數(shù)據(jù)庫組件介紹 在使用 Visual Basic 開發(fā)數(shù)據(jù)庫應(yīng)用程序的時候，會經(jīng)常使用數(shù)據(jù)庫訪問控件。這些控件包括： ● Data 控件； ● ADO Data 控件； ● DataList 控件 /DataCombo 控件； ● DataGrid 控件； ● MSChart 控件。 下面將分別對這些控件的主要功能及使用方法進行介紹。 Data 控件 Data 控件是 Visual Basic 中最基本的數(shù)據(jù)庫操作控件。它使用 Recordset 對象提供對存儲在數(shù)據(jù)庫中數(shù)據(jù)的訪問。 Data 控件允許從一個記錄移動到另一個記錄，并顯示和操縱來自被連接控件的記錄的數(shù)據(jù)。許多其他的數(shù)據(jù)庫操作控件都需要 Data 控件或類似的數(shù)據(jù)源控件（比如 ADO Data 控件）。 Data 控件可以執(zhí)行大部分數(shù)據(jù)庫訪問操作，但是它并不能顯示數(shù)據(jù)庫中數(shù)據(jù)的內(nèi)容。Data 控件通常需要與其他控件結(jié)合使用。這些與 Data 控件結(jié)合使用的控件，可以稱之為“數(shù)據(jù)覺察控件”。因為程序員無需編寫任何代碼，就可以在這些控件中顯示 當前記錄的數(shù)據(jù)。當 Data 控件中當前記錄發(fā)生變化時，數(shù)據(jù)覺察控件的內(nèi)容也會隨之發(fā)生變化。 當與 Data 控件相連接時， DataList、 DataCombo、 DataGrid 和 MSHFlexGrid 控件都能管理記錄集合。所有這些控件都允許一次顯示或操作幾個記錄。內(nèi)部的 Picture、 Label、 TextBox、CheckBox、 Image、 OLE、 ListBox 和 ComboBox 控件也是數(shù)據(jù)覺察的，能和由 Data 控件管理的 Recordset 對象的某個字段相連接。 ADO Data 控件 ADO Data 控件與內(nèi)部 Data 控件以及 Remote Data 控件（ RDC）相似。用戶可以使用ADO Data 控件快速地創(chuàng)建一個到數(shù)據(jù)庫的連接。 DataList 控件 /DataCombo 控件 DataList 控件是一個數(shù)據(jù)綁定列表框，它可以自動地由一個附加數(shù)據(jù)源中的一個字段充填，并且可選擇地更新另一個數(shù)據(jù)源中一個相關(guān)表的一個字段。 DataCombo 控件的功能與DataList 控件完全相同，只不過 DataCombo 控件是一個組合框。 DataGrid 控件 在許多情況下，需要使用表格形式來顯示數(shù)據(jù)庫 中的數(shù)據(jù)。這時就要借助于 DaatGrid控件。用戶可以設(shè)置 DataGrid 控件的 DataSource 屬性為一個 ADO Data 控件，從而將 ADO Data 中的數(shù)據(jù)自動地填充到 DataGrid 表格中。這個 DataGrid 控件實際上是一個固定的列集合，每一列的行數(shù)都是不確定的。 MSChart 控件 MSChart 控件的功能是以圖形方式顯示數(shù)據(jù)的圖表。這會使枯燥的數(shù)據(jù)變得更加生動直觀，增加了程序的實用價值。 MSChart 控件支持一下特性： 真三維表示； 支持所有主要的圖表類型； 數(shù)據(jù)網(wǎng)絡(luò) 成員支持隨機數(shù)據(jù)，數(shù)據(jù)數(shù)組。 SQL 語言在 VB 中的應(yīng)用 提供的實用函數(shù) 為實現(xiàn)使用 VB 程序調(diào)用 SQL 語言訪問 Access 數(shù)據(jù)庫多個記錄的目的，我們利用 SQL提供的函數(shù)。 ● Davg Function（求平均值） ● Dcount Function（計算滿足條件的記錄數(shù)） ● Dfirst Function（返回記錄集的第一個記錄的某個域值） ● Dlast Function（返回記錄集的最后一個記錄的某個域值） ● Dlookup Function（返回記錄集中滿足待定條件的記錄的域值） ● Dsum Function（求和計算） ● Dmax Function（求最大值） ● Dmin Function（求最小值） 利用以上的 SQL 函數(shù)能夠方便地進行數(shù)據(jù)庫文件記錄地查詢和統(tǒng)計工作，以 Dsum 為例，語法如下： Dsum(expr,clomain[,criteria]) 例：計算目的港為英國地所有訂單地運費總和。 假定“ Orders”是數(shù)據(jù)庫文件中地一張表格，則 x=Dsum(“[Feight]”,”O(jiān)rder”.”[ship country]=’UK’”) SQL 訪問多個記錄地方法 在進信息查詢和統(tǒng) 計地過程中，我們往往需要從記錄集中根據(jù)待定的條件提取其中的一部分記錄信息。這種改變基于數(shù)據(jù)庫關(guān)系視圖的記錄集，這里我們介紹提取記錄信息的有效方法。 （ 1）建立一個新的查詢 set mydb=Open Database(“c:\DIR1\”) （打開數(shù)據(jù)庫文件 c:\DIR1\） set myquery= QueryDef(“monthquery”)(創(chuàng)建查詢名為 monthquery 的查詢 ) =”select*from OPNRPT where mid $(year,7,2)=’”amp。amp?！薄? ” (利用查詢的 SQL 屬性，建立查詢依據(jù)，即查詢的條件。這里用到了 Setect Statement) 以后如果需要這樣的查詢，只需要引用查詢名 ”monthquery”即可。需要說明的兩點是：①使用前先定義 Dim mydb AS Database 及 myquery AS querydef.②查詢 ”monthquery”沒有使用 Data 控件，也就不直接顯示信息。 （ 2）如何設(shè)置 Data 控件的 Recordsource 屬性 設(shè)置 Datasource 屬性的命令為： =”Setect Vss_code,voyage,Sum(weight)AS Weight20 from monthquery where ctn_size=’20’group by Vss_code,Voyage” 在這個命令中字段名 Vss_code 為船名代碼， Voyage 為航次， ctn_size 為集裝箱號， weight為集裝箱重量。 計算機通過增加了條件的 mon