【文章內容簡介】 利用 VB的可視性特點，可方便的設計了程序的窗體界面，并在各個窗體中的合適位置繪制所需的每種控件。如要修改窗體或控件的某項屬性，只需在相應的窗體或控件的屬性窗口修改相應的參數便可達到需要的設計效果。 利用 VB的事件驅動性特點，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達到告訴當在相應的窗體或控件上發(fā)生某一事件時，它們在事件發(fā)生后應該做什么工作的目的。例如幾個 窗體上的添加、刪除、返回按鈕的作用，就是通過在各個相應按鈕的代碼窗口中輸入相應的代碼，來達到當在幾個按鈕上出現單擊（ Click）事件后，相應按鈕實現添加、刪除、返回的功能的。 12 數據庫組件介紹 在使用 Visual Basic 開發(fā)數據庫應用程序的時候，會經常使用數據庫訪問控件。這些控件包括： ● Data 控件； ● ADO Data 控件； ● DataList 控件 /DataCombo 控件； ● DataGrid 控件； ● MSChart 控件。 下面將分別對這些控件的主要功能及使用 方法進行介紹 。 Data 控件 Data 控件是 Visual Basic 中最基本的數據庫操作控件。它使用 Recordset對象提供對存儲在數據庫中數據的訪問。 Data 控件允許從一個記錄移動到另一個記錄，并顯示和操縱來自被連接控件的記錄的數據。許多其他的數據庫操作控件都需要 Data 控件或類似的數據源控件（比如 ADO Data 控件）。 Data 控件可以執(zhí)行大部分數據庫訪問操作，但是它并不能顯示數據庫中數據的內容。 Data 控件通常需要與其他控件結合使用。這些與 Data 控件結合使用的控件，可以稱之 為“數據覺察控件”。因為程序員無需編寫任何代碼，就可以在這些控件中顯示當前記錄的數據。當 Data 控件中當前記錄發(fā)生變化時，數據覺察控件的內容也會隨之發(fā)生變化。 當與 Data 控件相連接時， DataList、 DataCombo、 DataGrid 和 MSHFlexGrid控件都能管理記錄集合。所有這些控件都允許一次顯示或操作幾個記錄。內部的Picture、 Label、 TextBox、 CheckBox、 Image、 OLE、 ListBox 和 ComboBox 控件也是數據覺察的，能和由 Data 控件管理的 Recordset對象的某個字段相連接。 ADO Data 控件 ADO Data 控件與內部 Data 控件以及 Remote Data 控件（ RDC）相似。用戶可以使用 ADO Data 控件快速地創(chuàng)建一個到數據庫的連接。 DataList 控件 /DataCombo 控件 DataList 控件是一個數據綁定列表框，它可以自動地由一個附加數據源中 13 的一個字段充填，并且可選擇地更新另一個數據源中一個相關表的一個字段。DataCombo 控件的功能與 DataList 控件完全相同，只不過 DataCombo 控件是一個組合框。 DataGrid 控件 在許多情況下，需要使用表格形式來顯示數據庫中的數據。這時就要借助于DaatGrid 控件。用戶可以設置 DataGrid 控件的 DataSource 屬性為一個 ADO Data控件，從而將 ADO Data 中的數據自動地填充到 DataGrid 表格中。這個 DataGrid控件實際上是一個固定的列集合，每一列的行數都是不確定的。 MSChart 控件 MSChart 控件的功能是以圖形方式顯示數據的圖表。這會使枯燥的數據變得更加生動直觀，增加了程序 的實用價值。 MSChart 控件支持一下特性： 真三維表示； 支持所有主要的圖表類型； 數據網絡成員支持隨機數據，數據數組。 SQL 語言在 VB 中的應用 提供的實用函數 為實現使用 VB 程序調用 SQL 語言訪問 Access 數據庫多個記錄的目的，我們利用 SQL 提供的函數。 ● Davg Function（求平均值） ● Dcount Function（計算滿足條件的記錄數） ● Dfirst Function（返回記錄集的第一個記錄的某個域值） ● Dlast Function（返回記錄集的最后一個記錄的某個域值） ● Dlookup Function（返回記錄集中滿足待定條件的記錄的域值） ● Dsum Function（求和計算） ● Dmax Function（求最大值） ● Dmin Function（求最小值） 利用以上的 SQL 函數能夠方便地進行數據庫文件記錄地查詢和統計工作，以Dsum 為例，語法如下： 14 Dsum(expr,clomain[,criteria]) 例：計算目的港為英國地所有訂單地運費總和。 假定“ Orders”是數據庫文件中地一張表格，則x=Dsum(“ [Feight]” ,” Order” .” [ship country]=’ UK’” ) SQL 訪問多個記錄地方法 在進信息查詢和統計地過程中，我們往往需要從記錄集中根據待定的條件提取其中的一部分記錄信息。這種改變基于數據庫關系視圖的記錄集，這里我們介紹提取記錄信息的有效方法。 （ 1）建立一個新的查詢 set mydb=Open Database(“ c:\DIR1\” ) （打開數據庫文件 c:\DIR1\） set myquery= QueryDef(“ monthquery” )(創(chuàng)建查詢名為monthquery 的查詢 ) =” select*from OPNRPT where mid $(year,7,2)=’” amp。amp?！薄?? ” (利用查詢的 SQL屬性，建立查詢依據，即查詢的條件。這里用到了 Setect Statement) 以后如果需要這樣的查詢，只需要引用查詢名 ” monthquery” 即可。需要說明的兩點是：①使用前先定義 Dim mydb AS Database 及 myquery AS querydef.②查詢 ” monthquery” 沒有使用 Data 控件，也就不直接顯示信息。 （ 2）如何設置 Data 控件的 Recordsource 屬性 設置 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 為集裝箱重量。 計算機通過增加了條件的 monthquery 查詢組成了新的記錄集。 AS 為關鍵字表示，并定義了別名。 通過這一個方法定義的記錄集可以使用 move和 Find方法逐條記錄的進行操作。 15 第四章 庫存管理系統設計分析 需求分析 市場經濟的一個重要特征，就是生產的相對過剩和產品的相對過剩。它決定了這是一個買方市場。對企業(yè)來說，庫存 的增加或積壓，無論是原材料、半成品或制成品，都意味著企業(yè)運作處于一種不良的狀態(tài)，都是一種直接的或潛在的損失。大量的庫存擠占了企業(yè)的有限資金，使得資金流速減緩，現金流發(fā)生困難，甚至導致資金緊張，影響企業(yè)的正常運作。 此外，大量的庫存增加了保管與倉儲的壓力，占用了相當的人力和物力，使得企業(yè)負擔加重。 凡此種種，一直困擾著企業(yè)的生產經營管理活動，影響企業(yè)經濟效益的實現。顯而易見，切實而有效地控制庫存，是擺在眾多企業(yè)面前的當務之急，也是紓解企業(yè)經濟壓力、減負增效的重要途徑。 庫存管理的 日常業(yè)務 有 ： （ 1）采購 入庫單 采購入庫單一般指采購原材料驗收入庫時，所填制的入庫單據；企業(yè)一般指商品進貨入庫時，填制的入庫單。采購入庫單是企業(yè)入庫單據的主要部分，因此在本系統中，采購入庫單也是日常業(yè)務的主要原始單據之一。 （ 2）材料出庫單 材料出庫單是企業(yè)領用材料時，所填制的出庫單據。材料出庫單是企業(yè)出庫單據的主要部分，因此在本系統中，材料出庫單也是進行日常業(yè)務處理和記帳的主要原始單據之一。 （ 3）產成品入庫單 產成品入庫單是指產成品驗收入庫時，所填制的入庫單據。產成品入庫單是以企業(yè)入庫單據的主要部分。 （ 4）銷售出庫單 銷售出庫單是指產成品銷售出庫時，所填制的出庫單據。銷售出庫單也是企業(yè)出庫單據的主要部分，因此在本系統中，銷售出庫單也是進行日常業(yè)務處理和記帳的主要原始單據之一。 （ 5）其他入庫單 企業(yè)的其他入庫單是指除采購入庫、產成品入庫之外的其他入庫業(yè)務，如調撥入庫、盤盈入庫、形態(tài)轉換入庫等業(yè)務形成的入庫單。 16 （ 6）其他出庫單 企業(yè)的其他出庫指除銷售出庫、材料出庫之外的其他出庫業(yè)務，如調撥出庫、盤虧出庫、形態(tài)轉換出庫等。 （ 7）調撥：管理倉庫間的實物轉移和分銷意義上的倉庫分配、調撥業(yè)務，屬轉移事務類型。 （ 8）形態(tài)轉換：某種物品在加工或存儲過程中，由于加工或環(huán)境的原因，使其形態(tài)和名稱發(fā)生變化，這時需處理形態(tài)轉換業(yè)務，調整庫存帳。 （ 9）反沖：對于生產環(huán)節(jié)在制品及不入庫半成品業(yè)務，系統按照產品結構管理實現原材料與在制品、半成品對沖處理功能，實現在制品、半成品管理。 （ 10）盤點單 在日常物品收發(fā)、保管過程中，由于計量錯誤、檢驗疏忽、管理不善、自然損耗、核算錯誤等原因，有時會發(fā)生物品的盤盈、盤虧和毀損現象，從而造成物品帳實不相符。為了保護企業(yè)流動資產的安全和完整，做到帳實相符，企業(yè)必須對物品進行 定期或不定期的清查。確定企業(yè)各種物品的實際庫存量，并與帳面記錄相核對，查明物品盤盈、盤虧和毀損的數量以及造成的原因，并據以編制物品盤點報告表，按規(guī)定程序，報有關部門審批。 物品盤盈、盤虧和毀損，在查明原因、分清責任、按規(guī)定程序報經有關部門批準后，應進行相應的帳務處理，調整物品帳的實存數，使物品的帳面記錄與庫存實物核對相符。 物品盤點報告表，是證明企業(yè)物品盤盈、盤虧和毀損，據以調整物品實存數的書面憑證，經企業(yè)領導批準后，即可作為原始憑證入帳。但是，物品的盤盈、盤虧和毀損必須在按規(guī)定程序報經有關部門批準后才能進 行處理。 庫存業(yè)務管理過程中的原始憑證 (原始數據 )有 ： 單 。 對 庫存 情況 分析 的幾種方式有 ： （ 1）安全庫存報警 通過對各種物品當前庫存量和安全庫存量的對比分析，對超過或低于安全庫存量的物品進行報警，并可查詢當前庫存量等于安全庫存量的物品。 安全庫存預警輸出的內容包括物品、物品的安全庫存量、當前庫存量及當前庫存量與安全庫存量的差。 各物品的安全庫存量取自物品檔案中各物品的安全庫存量，當前庫存量為各物品所有倉庫的現存量之和，差量 =當前庫存量 安全庫存量。 （ 2） 短缺物品查詢 通過對各種物品當前庫存量和最低庫存量對比分析，當前庫存量低于最低庫存量的物品表示短缺物品。短缺物品查詢輸出的內容包括物品、各物品的最低庫存量、當前庫存量及短缺量。 各物品的最低庫存量取自物品檔案中各物品的最低庫存量，當前庫存量為各物品所有倉庫的現存量之和，短缺量 =最低庫存量 當前庫存 17 量。 （ 3）呆滯積壓物品 系統提供呆滯積壓物品的分析方法是按物品周轉率分析的。當前庫存量與最高庫存量或安全庫存量比較，周轉率低于呆滯積壓標準且超過最高庫存量（或安全庫存量）的物品為積壓物品，周轉率低于呆滯積壓 標準且未超過最高庫存量（或安全庫存量）的物品為呆滯物品。呆滯積壓物品分析輸出的內容包括物品、各物品的最高庫存量（或安