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