畢業(yè)設(shè)計----計算機(jī)庫存管理系統(tǒng)設(shè)計

1、<p>　　畢 業(yè) 設(shè) 計（論 文） </p><p><b>　　計算機(jī)庫存管理系統(tǒng)</b></p><p><b>　　摘要</b></p><p>　　庫存管理系統(tǒng)是企業(yè)物流管理中不可或缺的一部分。隨著現(xiàn)代工業(yè)的發(fā)展，計算機(jī)信息管理系統(tǒng)越來越受到企業(yè)重視。本文主要分析了庫存管理系統(tǒng)的一些基本功能和組成情況，

2、包括系統(tǒng)的需求分析、概念設(shè)計、邏輯設(shè)計、物理設(shè)計、加載測試、功能模塊劃分以及數(shù)據(jù)庫模式分析等，重點對應(yīng)用程序的實際開發(fā)實現(xiàn)作了介紹。</p><p>　　系統(tǒng)包括倉庫管理、入庫、出庫一些統(tǒng)計查詢和報表等部分，可以進(jìn)行數(shù)據(jù)庫的瀏覽、查詢、添加、刪除等操作，達(dá)到了數(shù)據(jù)的一致性和安全性，且應(yīng)用程序功能完備，符合了庫存管理系統(tǒng)作為典型的信息管理系統(tǒng)(MIS)的要求。</p><p>　　關(guān)鍵字:庫

3、存管理，數(shù)據(jù)庫，信息管理，VB，ERP.</p><p><b>　　Abstract</b></p><p>　　The administrative system of the stock is an indispensable part in enterprise's material flow management. With the developm

4、ent of modern industry, the information management system of the computer is being paid attention to by enterprises. This paper has mainly analyzed some basic functions and composition situation of the administrative sys

5、tem of the stock, including the systematic demand analysis, conception design, logical design and loading testing, dividing the function module and analysis </p><p>　　The system including manage of stuck and

6、 to be put in storage, out of storage, some statistical inquiries and report forms etc.. It can browse, inquiry, increase, delete, update etc. in this system, have reached the consistency and security of the data, and th

7、e application program function is complete, the administrative system of the stock has accorded with the request for the typical information management system (MIS).</p><p>　　Keywords Management of stock, da

8、tabase, information management, VB, ERP</p><p><b>　　目錄</b></p><p><b>　　1前言1</b></p><p>　　2設(shè)計思想及依據(jù)2</p><p><b>　　2.1開發(fā)背景2</b></p

9、><p>　　2.2管理信息系統(tǒng)的概述3</p><p>　　2.3庫存管理系統(tǒng)3</p><p>　　3數(shù)據(jù)庫理論基礎(chǔ)7</p><p>　　3.1數(shù)據(jù)庫系統(tǒng)設(shè)計7</p><p><b>　　4需求分析10</b></p><p><b>　　5總體設(shè)

10、計11</b></p><p>　　5.1系統(tǒng)目標(biāo)設(shè)計11</p><p>　　5.2開發(fā)設(shè)計思想11</p><p>　　5.3數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計12</p><p>　　5.4系統(tǒng)功能分析12</p><p>　　5.5數(shù)據(jù)庫具體設(shè)計12</p><p>　　5.6數(shù)

11、據(jù)庫的設(shè)計16</p><p><b>　　6設(shè)計總結(jié)21</b></p><p><b>　　致謝22</b></p><p><b>　　參考文獻(xiàn)23</b></p><p><b>　　附錄24</b></p><p&g

12、t;<b>　　1前言</b></p><p>　　庫存管理系統(tǒng)是一個企事業(yè)單位不可缺少的一部分,它的內(nèi)容對于企業(yè)的決策者和管理者來說都是至關(guān)重要的，因此，庫存管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段，但一直以來人們使用傳統(tǒng)的人工方式管理庫存，這種管理方式存在著許多缺點，諸如效率低，保密性差等，而且時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不少的困難。<

13、;/p><p>　　隨著科學(xué)技術(shù)的不斷提高，計算機(jī)科學(xué)不斷發(fā)展，其強(qiáng)大的功能已經(jīng)被人們深刻認(rèn)識，它已經(jīng)進(jìn)入了人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。大多數(shù)庫存管理理論認(rèn)為，庫存是物理上和邏輯上庫房庫位的所有有形和無形物料極其價值的總和，具體包括成品、原材料、在制品、在途品、生產(chǎn)前物料、備品備件等。雖然持有一些庫存是必要的，過量的庫存卻非但沒有用處而且占用了資金。占用的資金對于公司發(fā)展、新產(chǎn)品開發(fā)等都是非常需要的；

14、減少資金占用還可以大大減少來自銀行貸款的利息和風(fēng)險。對那些采購量特別大、采購件市場價格有波動的物料庫存，加強(qiáng)庫存管理效果更為明顯。因此，平衡公司庫存投資與其它資金需求至關(guān)重要。</p><p>　　作為計算機(jī)應(yīng)用的一部分，具有人工管理無法比擬的優(yōu)點，它檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等，可減少更多的人力物力，提高貨品庫存的管理效率，也是企業(yè)庫存管理科學(xué)化、正規(guī)化，與世界接軌的重要條

15、件。因此，開發(fā)一個庫存管理系統(tǒng)是很有必要的，具有其特有的技術(shù)意義和管理意義。</p><p><b>　　2設(shè)計思想及依據(jù)</b></p><p>　　管理信息系統(tǒng)（簡稱MIS）是在管理科學(xué)、系統(tǒng)科學(xué)、計算機(jī)科學(xué)等的基礎(chǔ)上發(fā)展起來的綜合性邊緣科學(xué)。在21世紀(jì)信息高速發(fā)展的時代中，管理信息系統(tǒng)具有很重要的作用，它的預(yù)測和輔助決策的功能，即利用現(xiàn)代管理的決策和支持。<

16、;/p><p>　　管理信息系統(tǒng)是一個由人、機(jī)（計算機(jī)）組成的能進(jìn)行管理信息的收集、傳遞、存儲、加工、維護(hù)和使用的系統(tǒng)。它能觀測企業(yè)或組織的各種運動情況，利用過去的數(shù)據(jù)預(yù)測未來；從全局出發(fā)輔助決策；利用信息控制企業(yè)或組織行為，幫助其實現(xiàn)長遠(yuǎn)的規(guī)劃目標(biāo)。簡言之，管理信息系統(tǒng)是一個以計算機(jī)為工具，具有數(shù)據(jù)處理、預(yù)測、控制和輔助決策功能的信息系統(tǒng)。</p><p>　　管理信息系統(tǒng)是一個人機(jī)系統(tǒng)，同

17、時它又是一個一體化集成系統(tǒng)。管理信息系統(tǒng)是信息系統(tǒng)的一個子系統(tǒng)，它以計算機(jī)技術(shù)、通訊技術(shù)和軟件技術(shù)為技術(shù)基礎(chǔ)，同時將現(xiàn)代管理理論、現(xiàn)代管理方法及各級管理人員融為一體，最終為某個組織整體的管理與決策服務(wù)，是由人和計算機(jī)組成的能進(jìn)行管理信息的收集、傳遞、存儲、加工、維護(hù)和使用的系統(tǒng)。</p><p>　　管理信息系統(tǒng)的基本結(jié)構(gòu)可以概括為四大部件，即信息源、信息處理器、信息用戶和信息管理者。因此，一個成功的管理信息系統(tǒng)

18、應(yīng)該具有可靠的硬件、實用的軟件、強(qiáng)有力的現(xiàn)代化管理水平。具體講，管理信息系統(tǒng)的三大支柱是：計算機(jī)網(wǎng)絡(luò)、數(shù)據(jù)庫和現(xiàn)代化的管理，這三大支柱稱為管理信息系統(tǒng)的擴(kuò)展部件。</p><p><b>　　2.1開發(fā)背景</b></p><p>　　企業(yè)的庫存物資管理往往是很復(fù)雜、很繁瑣的。由于所掌握的物資種類眾多，訂貨、管理、發(fā)放的渠道各有差異，各個企業(yè)之間的管理體制不盡相同，各

19、類統(tǒng)計報表繁多，因此倉庫的庫存管理必須編制一套庫存管理信息系統(tǒng)，實現(xiàn)計算機(jī)化操作，而且必須根據(jù)企業(yè)的具體情況制定相應(yīng)的方案。根據(jù)當(dāng)前的企業(yè)管理體制，一般的庫存管理系統(tǒng)，總是根據(jù)所掌握的物資類別，相應(yīng)分成幾個科室來進(jìn)行物資的計劃，訂貨，核銷托收，驗收入庫，根據(jù)企業(yè)各個部門的需求來發(fā)送物資設(shè)備，并隨時按期進(jìn)行庫存盤點，作臺帳，根據(jù)企業(yè)領(lǐng)導(dǎo)和自身管理的需要按月、季度、年度進(jìn)行統(tǒng)計分析，產(chǎn)生相應(yīng)報表。為了加強(qiáng)關(guān)鍵物資、設(shè)備的管理，要定期掌握其儲

20、備，消耗情況，根據(jù)計劃定額和實際纖毫定額的比較，進(jìn)行定額管理，使得資金使用合理，物資設(shè)備的儲備最佳。</p><p>　　一個完整的企業(yè)物資供應(yīng)管理系統(tǒng)應(yīng)包括采購計劃管理，合同收托管理、倉庫庫存管理、定額管理、統(tǒng)計管理、財務(wù)管理等模塊。其中倉庫的庫存管理是整個物資供應(yīng)管理系統(tǒng)的核心。因此有必要開發(fā)一套獨立的庫存管理系統(tǒng)來提高企業(yè)工作效率,而所使用的這套庫存管理系統(tǒng)是企業(yè)生產(chǎn)經(jīng)營管理活動中的核心，此系統(tǒng)必須可以用來

21、控制合理的庫存費用、適時適量的庫存數(shù)量，使企業(yè)生產(chǎn)活動效率最大化。通過對這些情況的仔細(xì)調(diào)查，我開發(fā)了下面的倉庫庫存管理系統(tǒng)。</p><p>　　2.2管理信息系統(tǒng)的概述</p><p>　　管理信息系統(tǒng)（簡稱MIS）是在管理科學(xué)、系統(tǒng)科學(xué)、計算機(jī)科學(xué)等的基礎(chǔ)上發(fā)展起來的綜合性邊緣科學(xué)。在21世紀(jì)信息高速發(fā)展的時代中，管理信息系統(tǒng)具有很重要的作用，它的預(yù)測和輔助決策的功能，即利用現(xiàn)代管理的

22、決策和支持。</p><p>　　管理信息系統(tǒng)是一個由人、機(jī)（計算機(jī)）組成的能進(jìn)行管理信息的收集、傳遞、存儲、加工、維護(hù)和使用的系統(tǒng)。它能觀測企業(yè)或組織的各種運動情況，利用過去的數(shù)據(jù)預(yù)測未來；從全局出發(fā)輔助決策；利用信息控制企業(yè)或組織行為，幫助其實現(xiàn)長遠(yuǎn)的規(guī)劃目標(biāo)。簡言之，管理信息系統(tǒng)是一個以計算機(jī)為工具，具有數(shù)據(jù)處理、預(yù)測、控制和輔助決策功能的信息系統(tǒng)。</p><p><b>

23、;　　2.3庫存管理系統(tǒng)</b></p><p>　　2.3.1庫存管理的必要性</p><p>　　大多數(shù)庫存管理理論認(rèn)為，庫存是物理上和邏輯上庫房庫位的所有有形和無形物料極其價值的總和，具體包括成品、原材料、在制品、在途品、生產(chǎn)前物料、備品備件等。雖然持有一些庫存是必要的，過量的庫存卻非但沒有用處而且占用了資金。占用的資金對于公司發(fā)展、新產(chǎn)品開發(fā)等都是非常需要的；減少資金占

24、用還可以大大減少來自銀行貸款的利息和風(fēng)險。對那些采購量特別大、采購件市場價格有波動的物料庫存，加強(qiáng)庫存管理效果更為明顯。因此，平衡公司庫存投資與其它資金需求至關(guān)重要。</p><p>　　當(dāng)今時代是飛速發(fā)展的信息時代，在各行各業(yè)中離不開信息處理，這正是計算機(jī)被廣泛應(yīng)用于信息處理系統(tǒng)的環(huán)境。計算機(jī)最大的好處在于利用它能夠進(jìn)行信息管理，使用計算機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對復(fù)雜的

25、信息管理，計算機(jī)能夠充分發(fā)揮它的優(yōu)越性。計算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。</p><p>　　倉庫作為一總貨品資源的集散地，貨品的種類繁多，包含很多的信息數(shù)據(jù)的管理。據(jù)調(diào)查得知，以前倉庫進(jìn)行信息管理的方式主要是基于文本、表格等紙介質(zhì)的手工處理，對于貨品的出入庫情況的統(tǒng)計和核實等往往采用對賬本的人工檢查，對管理者的管理權(quán)限等不受約束，任何人都可查看，這樣容易引起資料外泄。

26、另外，數(shù)據(jù)信息處理工作量大，容易出錯，由于數(shù)據(jù)繁多，容易丟失，且不易查找。總的來說，缺乏系統(tǒng)、規(guī)范的信息管理手段。而且，一般的存儲情況是記錄在賬本上的，倉庫的工作人員和管理員也只是當(dāng)時記得比較清楚，時間一長，如果再要進(jìn)行查詢，就得在眾多的資料中翻閱查找了，這樣造成費時、費力，如要對很長時間以前的貨品進(jìn)行更改就更加困難了。因此，很有必要建立一個庫存管理系統(tǒng)，使貨品管理工作規(guī)范化，系統(tǒng)化，程序化。提高信息處理的速度和準(zhǔn)確性。</p&g

27、t;<p>　　2.3.2國內(nèi)外同類管理軟件的研究現(xiàn)狀與發(fā)展趨勢</p><p>　　現(xiàn)在國內(nèi)外對此類系統(tǒng)的開發(fā)與研究也是很有實用性的，基本上能滿足各企業(yè)的自身特點，來進(jìn)行庫存方面的管理，同時，該類系統(tǒng)又都在不斷地深入與發(fā)展，來適用更多的企業(yè)，一般都能運用于各個企業(yè)的庫存管理，但是都沒有針對大眾的廣泛應(yīng)用，只能運用某個企業(yè)或單位，這一點還有待于今后的進(jìn)一步開發(fā)與實踐。</p><

28、p>　　今后此類軟件將會向條碼庫存管理系統(tǒng)發(fā)展，現(xiàn)階段，伴隨物流及管理信息化、網(wǎng)絡(luò)化的發(fā)展，應(yīng)用條碼技術(shù)進(jìn)行庫存管理、實現(xiàn)倉庫作業(yè)自動化，將是一個必然的發(fā)展趨勢，也是需要迫切解決的一個現(xiàn)實問題。隨著信息化技術(shù)的不斷提高和應(yīng)用的日漸普及，更多的商品擁有自己的條碼，而且，使用條碼化工作代替?zhèn)鹘y(tǒng)作業(yè)模式，減少了手工輸入，這樣不但提高了作業(yè)效率，還能確保資料正確，并減少因人為失誤所造成的損失。</p><p>　　

29、1.條碼技術(shù)應(yīng)用于庫存管理是實現(xiàn)倉庫管理自動化的有效途徑</p><p>　　庫存品種多，數(shù)量大。因此，要實現(xiàn)收發(fā)作業(yè)的快速、準(zhǔn)確、高效，倉儲管理自動化勢在必行。而實現(xiàn)管理自動化的“瓶頸”則是產(chǎn)品信息的采集、輸入。傳統(tǒng)手工作業(yè)方式，在信息采集量加大的情形下，又因信息不能及時的反饋，給收發(fā)作業(yè)造成一定的困難。利用條碼技術(shù)，在入庫及其包裝上加貼條碼，配之以倉庫信息管理系統(tǒng)進(jìn)行作業(yè)，不僅可提高效率，降低作業(yè)強(qiáng)度，也將大

30、大提高產(chǎn)品收發(fā)作業(yè)準(zhǔn)確率（如鍵盤輸入僅為百分之一），進(jìn)而實現(xiàn)倉庫管理的全面自動化。</p><p>　　2．條碼技術(shù)應(yīng)用于庫存管理對提高倉庫作業(yè)效率有重要作用</p><p>　　將條碼技術(shù)和倉庫管理信息系統(tǒng)結(jié)合起來，用于產(chǎn)品收、發(fā)、保管等全過程控制管理，不僅可改變信息采集的傳統(tǒng)手工作業(yè)方式，降低作業(yè)強(qiáng)度，還可避免由此造成的各種差錯，提高作業(yè)效率和科學(xué)管庫水平。比較發(fā)現(xiàn)，信息輸入時，條碼輸

31、入速度是鍵盤輸入的5倍。入庫時，通常保管員根據(jù)產(chǎn)品上的條碼所反映出的序列號、出廠日期、生產(chǎn)廠家、單價、封存（保管）期等信息，進(jìn)行實物點驗，同時將條碼信息錄入到管理信息系統(tǒng)；出庫時，保管員根據(jù)耗材發(fā)付單內(nèi)容，持條碼掃描裝置進(jìn)行器材揀選，并完成信息錄入；清庫盤點時，保管員可持掃描裝備進(jìn)行數(shù)質(zhì)量等內(nèi)容核對，并把采集的信息錄入管理系統(tǒng)中進(jìn)行自動盤點，生成清庫對帳單等，完成清庫盤點作業(yè)。</p><p>　　3．條碼技術(shù)應(yīng)

32、用于庫存管理是完善產(chǎn)品保障信息網(wǎng)絡(luò)的重要手段</p><p>　　儲存產(chǎn)品信息是產(chǎn)品保障信息網(wǎng)絡(luò)的重要組成部分，是做好產(chǎn)品供應(yīng)保障工作的基礎(chǔ)。產(chǎn)品保障信息網(wǎng)是實現(xiàn)物資儲運全過程可視化的前提。目前，有些倉庫內(nèi)部局域網(wǎng)已經(jīng)建成并投入使用，并與業(yè)務(wù)主管部門實現(xiàn)了信息溝通，庫存保障信息網(wǎng)在日常航材保障工作中實現(xiàn)了信息溝通，庫存保障信息網(wǎng)在日常產(chǎn)品保障工作中的作用日趨明顯。條碼技術(shù)在儲存管理中的應(yīng)用，可進(jìn)一步完善系統(tǒng)各倉庫

33、之間及各倉庫與作業(yè)主管部門之間的信息共享和交換功能，最終達(dá)到對產(chǎn)品的全程跟蹤管理，充分發(fā)揮條碼技術(shù)在整個流通中的作用。</p><p>　　同時，在軟件系統(tǒng)的研發(fā)過程中，將會融入一種EPR的企業(yè)管理思想。大量的研究與實踐已經(jīng)充分表明，ERP（企業(yè)資源計劃）作為一種現(xiàn)代企業(yè)管理的思想和方法，將其大力地推廣應(yīng)用就是有效的促使我國企業(yè)管理朝著更加科學(xué)化、合理化和規(guī)范化方向發(fā)展的一種具體方法和途徑。</p>

34、<p>　　另外，庫存管理的信息化和可視化，每個企業(yè)將會擁有兩個倉庫，一個是裝滿貨物的倉庫，還有一個就是管理系統(tǒng)里的數(shù)據(jù)庫，對上萬種貨物分別編碼，使其成為計算機(jī)可識別的語言，形象地說，貨架上的號碼就是貨物的地址，從而避免了貨物的分揀和提取時的翻箱倒柜式的查找。</p><p>　　2.3.3庫存管理系統(tǒng)研究背景與意義</p><p>　　隨著我國經(jīng)濟(jì)的飛速發(fā)展，各種類型規(guī)模的公

35、司企業(yè)迅速崛起，許多從事生產(chǎn)和經(jīng)營管理的企業(yè)都有自己生產(chǎn)和銷售的產(chǎn)品，而這些產(chǎn)品都需要儲存在倉庫中，對于每個企業(yè)來說，隨著企業(yè)規(guī)模的不斷擴(kuò)大，產(chǎn)品數(shù)量的急劇增加，所生產(chǎn)產(chǎn)品的種類也會不斷地更新與發(fā)展，有關(guān)產(chǎn)品的各種信息量也會成倍增長。面對龐大的產(chǎn)品信息量，如何有效地管理庫存產(chǎn)品，對這些企業(yè)來說是非常重要的，庫存管理的重點是銷售信息能否及時反饋，從而確保企業(yè)運行效益。而庫存管理又涉及入庫、出庫的產(chǎn)品、經(jīng)辦人員及客戶等方方面面的因素，如何管

36、理這些信息數(shù)據(jù)，是一項復(fù)雜的系統(tǒng)工程，充分考驗著倉庫管理員的工作能力，工作量的繁重是可想而知的，所以這就需要由庫存管理系統(tǒng)來提高庫存管理工作的效率，這對信息的規(guī)范管理、科學(xué)統(tǒng)計和快速查詢，減少管理方面的工作量，同時對于調(diào)動廣大員工的工作積極性，提高企業(yè)的生產(chǎn)效率，都具有十分重要的現(xiàn)實意義。</p><p><b>　　3數(shù)據(jù)庫理論基礎(chǔ)</b></p><p>　　3.

37、1數(shù)據(jù)庫系統(tǒng)設(shè)計</p><p>　　一個成功的信息管理系統(tǒng)，是建立在許多條件之上的，而數(shù)據(jù)庫是其中一個非常重要的條件和關(guān)鍵技術(shù)。信息管理系統(tǒng)所涉及的數(shù)據(jù)庫設(shè)計分五個步驟：數(shù)據(jù)庫需求分析、概念設(shè)計、邏輯設(shè)計、物理設(shè)計與加載測試。</p><p>　　數(shù)據(jù)庫需求分析的任務(wù)是將業(yè)務(wù)管理單證流化為數(shù)據(jù)流，劃分主題之間的邊界，繪制出DFD圖，并完成相應(yīng)的數(shù)據(jù)字典。</p><p

38、>　　概念設(shè)計的任務(wù)是從DFD出發(fā)，繪制出本主題的實體--關(guān)系圖，并列出各個實體與關(guān)系的綱要表。</p><p>　　邏輯設(shè)計的任務(wù)是從E-R圖與對應(yīng)的綱要表出發(fā)，確定各個實體及關(guān)系的表名屬性。</p><p>　　物理設(shè)計的任務(wù)是確定所有屬性的類型、寬度與取值范圍，設(shè)計出基本表的主鍵，將所有的表名與字段名英文化（現(xiàn)在很多軟件能支持中文字段，如Access2000），實現(xiàn)物理建庫，完

39、成數(shù)據(jù)庫物理設(shè)計字典。</p><p>　　加載測試工作貫穿于程序測試工作的全過程，整個錄入、修改、查詢、處理工作均可視為對數(shù)據(jù)庫的加載測試工作。</p><p>　　數(shù)據(jù)庫設(shè)計主要是進(jìn)行數(shù)據(jù)庫的邏輯設(shè)計，即將數(shù)據(jù)按一定的分類、分組系統(tǒng)和邏輯層次組織起來，是面向用戶的。數(shù)據(jù)庫設(shè)計時需要綜合企業(yè)各個部門的存檔數(shù)據(jù)和數(shù)據(jù)需求，分析各個數(shù)據(jù)之間的關(guān)系，按照DBMS提供的功能和描述工具，設(shè)計出規(guī)模

40、適當(dāng)、正確反映數(shù)據(jù)關(guān)系、數(shù)據(jù)冗余少、存取效率高、能滿足多種查詢要求的數(shù)據(jù)模型。</p><p>　　3.2SQL語言在VB中的應(yīng)用</p><p>　　3.2.1SQL提供的實用函數(shù)</p><p>　　為實現(xiàn)使用VB程序調(diào)用SQL語言訪問Access數(shù)據(jù)庫多個記錄的目的，我們利用SQL提供的函數(shù)。</p><p>　　●DavgFuncti

41、on（求平均值）</p><p>　　●DcountFunction（計算滿足條件的記錄數(shù)）</p><p>　　●DfirstFunction（返回記錄集的第一個記錄的某個域值）</p><p>　　●DlastFunction（返回記錄集的最后一個記錄的某個域值）</p><p>　　●DlookupFunction（返回記錄集中滿足待定

42、條件的記錄的域值）</p><p>　　●DsumFunction（求和計算）</p><p>　　●DmaxFunction（求最大值）</p><p>　　●DminFunction（求最小值）</p><p>　　利用以上的SQL函數(shù)能夠方便地進(jìn)行數(shù)據(jù)庫文件記錄地查詢和統(tǒng)計工作，以Dsum為例，語法如下：</p><

43、p>　　Dsum(expr,clomain[,criteria])</p><p>　　例：計算目的港為英國的所有訂單的運費總和。</p><p>　　假定“Orders”是數(shù)據(jù)庫文件中的一張表格，則x=Dsum(“[Feight]”,”O(jiān)rder”.”[shipcountry]=’UK’”)</p><p>　　3.2.2利用SQL訪問多個記錄的方法<

44、/p><p>　　在進(jìn)信息查詢和統(tǒng)計的過程中，我們往往需要從記錄集中根據(jù)待定的條件提取其中的一部分記錄信息。這種改變基于數(shù)據(jù)庫關(guān)系視圖的記錄集，這里我們介紹提取記錄信息的有效方法。</p><p>　　1.建立一個新的查詢</p><p>　　setmydb=OpenDatabase(“c:\DIR1\manage.mdb”)</p><p>　

45、?。ù蜷_數(shù)據(jù)庫文件c:\DIR1\manage.mdb）</p><p>　　setmyquery=mydb.creatQueryDef(“monthquery”)(創(chuàng)建查詢名為monthquery的查詢)</p><p>　　Myquery.SQL=”select*fromOPNRPT</p><p>　　wheremid$(year,7,2)=’”&ye

46、artext.text&”’…”</p><p>　　(利用查詢的SQL屬性，建立查詢依據(jù)，即查詢的條件。這里用到了SetectStatement)</p><p>　　以后如果需要這樣的查詢，只需要引用查詢名”monthquery”即可。需要說明的兩點是：①使用前先定義DimmydbASDatabase及myqueryASquerydef.②查詢”monthquery”沒有使用D

47、ata控件，也就不直接顯示信息。</p><p>　　2.如何設(shè)置Data控件的Recordsource屬性</p><p>　　設(shè)置Datasource屬性的命令為：</p><p>　　Data.Recordsource=”SelectVss_code,voyage,Sum(weight)</p><p>　　ASWeight20from

48、monthquerywherectn_size=’20’</p><p>　　groupbyVss_code,Voyage”</p><p>　　在這個命令中字段名Vss_code為船名代碼，Voyage為航次，ctn_size為集裝箱號，weight為集裝箱重量。</p><p>　　計算機(jī)通過增加了條件的monthquery查詢組成了新的記錄集。AS為關(guān)鍵字表示

49、，并定義了別名。通過這一個方法定義的記錄集可以使用move和Find方法逐條記錄的進(jìn)行操作。</p><p><b>　　4需求分析</b></p><p>　　本套應(yīng)用程序名稱為“庫存管理系統(tǒng)”，主要用于倉庫貨品信息的管理，系統(tǒng)包括倉庫管理、入庫、出庫、一些統(tǒng)計查詢和報表等幾部分組成。</p><p>　　庫存管理系統(tǒng)需滿足倉庫管理員及工作人

50、員的需求，他們具有登陸應(yīng)用系統(tǒng)的權(quán)限，所以需要對工作人員的登陸本模塊進(jìn)行更多的考慮，設(shè)計不同用戶的操作權(quán)限和登陸方法。</p><p>　　對于一個倉庫來說，最大的功能就是存儲貨品，所以倉庫管理就是對貨品信息，倉庫信息，短線貨品及超儲貨品的管理，用戶可以根據(jù)實際情況對各種貨品信息進(jìn)行分類管理，包括添加，刪除更新數(shù)據(jù)庫等。</p><p>　　當(dāng)然，倉庫中貨品入庫也是常有的事，入庫管理操作就

51、是對于貨品入庫情況的管理，用戶可以方便地輸入一些貨品的信息。</p><p>　　有了貨品的入庫，自然也就有貨品的出庫，這部分提供的功能與入庫操作流程差不多，有所區(qū)別的只是對一些出庫貨品的管理，也很方便數(shù)據(jù)的輸入。</p><p>　　倉庫貨品的信息量大，數(shù)據(jù)安全性和保密性要求高。庫存管理系統(tǒng)需要實現(xiàn)對貨品信息的管理和總體的統(tǒng)計等，倉庫信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。倉庫管理人員

52、可以瀏覽、查詢、添加、刪除等貨品的基本信息以及統(tǒng)計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。</p><p>　　報表是一個數(shù)據(jù)庫中最重要的功能之一，有了報表才能清楚地知道貨品的出入庫情況，在數(shù)據(jù)報表功能中包括出庫報表，庫存報表及經(jīng)辦人員報表等一些基本信息的打印，方便簡潔。</p><p>　　用戶還需要庫存管理系統(tǒng)，具有完善細(xì)致的功能、友好的用戶界面、強(qiáng)大的數(shù)據(jù)處理功能和

53、完備的安全機(jī)制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決策的功能。</p><p><b>　　5總體設(shè)計</b></p><p><b>　　5.1系統(tǒng)目標(biāo)設(shè)計</b></p><p>　　系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)企業(yè)物資設(shè)備管理的系統(tǒng)化、規(guī)范化和自動化，從而達(dá)到企業(yè)倉庫庫存管理效率的目的。</p&

54、gt;<p><b>　　5.2開發(fā)設(shè)計思想</b></p><p>　　庫存管理的物資主要是企業(yè)生產(chǎn)中所需要的各種設(shè)備、原材料及零部件。進(jìn)貨時經(jīng)檢查合同確認(rèn)為有效托收后，進(jìn)行驗收入庫，填寫入庫單，進(jìn)行入庫登記。企業(yè)各個部門根據(jù)所需要的物資設(shè)備總額和部門生產(chǎn)活動需要提出物資需求申請。計劃員根據(jù)整個企業(yè)的需求開出物資設(shè)備出庫單，倉庫管理員根據(jù)出庫單核對發(fā)放設(shè)備、原材料及零部件。有

55、些設(shè)備使用完畢需要及時歸還入庫，填寫還庫單。根據(jù)需要按照月、季、年進(jìn)行統(tǒng)計分析，產(chǎn)生相應(yīng)報表。</p><p>　　倉庫庫存管理的特點是信息處理量比較大。所管理的物資設(shè)備、原材料及零部件種類繁多，而且由于入庫單、出庫單、需求單等單據(jù)發(fā)生量特別大，關(guān)聯(lián)信息多，查詢和統(tǒng)計的方式各不相同，因此在管理上實現(xiàn)起來有一定的困難。在管理的過程中經(jīng)常會出現(xiàn)信息的重復(fù)傳遞；單據(jù)、報表種類繁多，各個部門規(guī)格不統(tǒng)等問題。</p&

56、gt;<p>　　入庫單是入庫單位在把相應(yīng)的零部件送人倉庫時必須填寫的單據(jù)；領(lǐng)料單是領(lǐng)料人員從倉庫中領(lǐng)取零部件時必須填寫的單據(jù)（即出庫）；零部件臺賬（相當(dāng)于本系統(tǒng)中的操作日志）實際是一個流水賬，用于記錄每天發(fā)生的入庫、出庫信息；物料卡（在本系統(tǒng)中用現(xiàn)有庫存信息來表示）的作用是記錄某一種零部件的數(shù)量變化，以便庫管員盤查；報表是倉庫向有關(guān)領(lǐng)導(dǎo)和部門定期提交的零部件庫存匯總信息。收集到的入庫單、領(lǐng)料單、零部件庫存臺賬、零部件物料

57、卡等單據(jù)和報表的實物樣式在此略去，有興趣者請參考有關(guān)類似企業(yè)的樣本即可。</p><p>　　在本系統(tǒng)的設(shè)計過程中，為了克服這些困難，滿足計算機(jī)管理的需要，我們采取了下面的一些原則：</p><p>　　統(tǒng)一各種原始單據(jù)的格式，統(tǒng)一帳目和報表的格式。</p><p>　　刪除不必要的管理冗余，實現(xiàn)管理規(guī)范化、科學(xué)化。</p><p>　　程序

58、代碼標(biāo)準(zhǔn)化，軟件統(tǒng)一化，確保軟件的可維護(hù)性和實用性。界面盡量簡單化，做到實用方便,盡量滿足企業(yè)中不同層次員工的需要，建立操作日志，系統(tǒng)自動記錄所進(jìn)行的各種操作。</p><p>　　5.3數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計</p><p>　　這一設(shè)計階段是在需求分析的基礎(chǔ)上，設(shè)計出能夠滿足用戶需求的各種實體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。根據(jù)上面的設(shè)計規(guī)劃出的實體有庫存實體、出庫實體

59、、入庫實體、采購實體、還庫實體、需求實體。</p><p><b>　　系統(tǒng)特色：</b></p><p>　　1.設(shè)置系統(tǒng)用戶登陸功能，即時對系統(tǒng)數(shù)據(jù)進(jìn)行安全設(shè)置與保護(hù)。</p><p>　　2.友好的用戶界面，業(yè)務(wù)操作簡單，進(jìn)入系統(tǒng)即能使用。</p><p>　　3.成熟先進(jìn)的技術(shù)和系統(tǒng)構(gòu)架，采用先進(jìn)的數(shù)據(jù)庫訪問方式

60、，數(shù)據(jù)更安全，性能更穩(wěn)定。</p><p>　　4.強(qiáng)大的數(shù)據(jù)處理能力和開放的數(shù)據(jù)接口，選用具有大型數(shù)據(jù)庫安全機(jī)制的數(shù)據(jù)庫系統(tǒng)，提供各種級別的數(shù)據(jù)保護(hù)和權(quán)限控制方式，確保數(shù)據(jù)的安全，可靠。</p><p>　　5.系統(tǒng)每種操作都可以通過菜單來進(jìn)行。操作快捷、方便。易懂易會。系統(tǒng)集輸入、維護(hù)、查詢、統(tǒng)計和各種處理為一體，信息導(dǎo)入導(dǎo)出方便共享。</p><p><

61、b>　　5.4系統(tǒng)功能分析</b></p><p>　　本系統(tǒng)需要完成的功能主要有以下幾點：</p><p>　　庫存管理的各種信息的輸入，包括入庫、出庫、還庫、需求信息的輸入等。設(shè)備采購報表的生成。在材料庫存中加入所允許的最大庫存和最小庫存字段，對所有庫存物資實現(xiàn)監(jiān)控和報警。</p><p>　　企業(yè)各個部門的物資需求管理。</p>

62、<p><b>　　操作日志的管理</b></p><p>　　庫存管理系統(tǒng)的使用幫助。</p><p>　　5.5數(shù)據(jù)庫具體設(shè)計</p><p><b>　　數(shù)據(jù)庫需求分析</b></p><p>　　設(shè)備代碼信息包括的數(shù)據(jù)項有設(shè)備號和設(shè)備名稱。</p><p>

63、;　　現(xiàn)有庫存信息包括的數(shù)據(jù)項有現(xiàn)有設(shè)備、現(xiàn)有數(shù)目、最大庫存、最小庫等。</p><p>　　設(shè)備使用住處包括的數(shù)據(jù)項有使用的設(shè)備、使用部門、數(shù)目、使用時間、出庫時狀態(tài)等。</p><p>　　設(shè)備采購信息包括的數(shù)據(jù)項有采購的設(shè)備、采購員、供應(yīng)商、采購數(shù)目、采購時間等。</p><p>　　設(shè)備歸還信息包括的數(shù)據(jù)項有歸還設(shè)備、歸還部門、歸還數(shù)目、歸還時間、經(jīng)手人等。

64、設(shè)備需求信息：包括的數(shù)據(jù)項有需求的部門、需求設(shè)備、需求數(shù)目、需求時間等。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項和數(shù)據(jù)流程，就可以進(jìn)行下面數(shù)據(jù)庫設(shè)計。</p><p><b>　　5.5.1模塊劃分</b></p><p>　　在仔細(xì)調(diào)查庫存物資材料管理過程的基礎(chǔ)上，將系統(tǒng)劃分為多個模塊，如圖5-1所示，并設(shè)計出本系統(tǒng)所處理的數(shù)據(jù)流程圖。如下頁圖5-2所示。</p>

65、<p>　　圖5-1 庫存管理模塊劃分</p><p>　　5.5.2基本模塊與功能</p><p>　　1.系統(tǒng)模塊包括報表的打印及設(shè)置，操作日志的管理。管理員可以通過管理界面添加或刪除用戶，添加新管理員或刪除原有管理員,驗證用戶的合法性，阻止非法用戶登錄,管理員或其他用戶可以修改自己的密碼。該系統(tǒng)包括用戶管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對整個數(shù)據(jù)庫

66、進(jìn)行備份，以確保數(shù)據(jù)的安全性。</p><p>　　圖5-2 庫存管理系統(tǒng)數(shù)據(jù)流程圖</p><p><b>　　2.庫存管理</b></p><p>　　貨品信息管理：對倉庫里的貨品進(jìn)行登記；</p><p>　　貨品庫存管理：管理倉庫的庫存情況；</p><p>　　短線貨品管理：對倉庫里短線

67、的貨品進(jìn)行登記，以便及時采購補(bǔ)貨；</p><p>　　超儲貨品管理：對倉庫里超儲的貨品進(jìn)行登記，控制庫存量，減少進(jìn)貨；</p><p><b>　　3.入庫管理</b></p><p>　　入庫模塊包括填寫入庫單，更新﹑刪除入庫記錄，查看現(xiàn)有庫存信息，入庫記錄的查詢及打印。</p><p>　　入庫登記管理：能對貨品的

68、入庫登記、刪除、更改等；</p><p>　　入庫期間統(tǒng)計：貨品入庫期間年度的統(tǒng)計；</p><p>　　供貨單位年度供貨金額統(tǒng)計：對貨品供應(yīng)的金額進(jìn)行統(tǒng)計。</p><p><b>　　4.出庫管理</b></p><p>　　出庫模塊包括填寫出庫單，更新，刪除出庫記錄，查看現(xiàn)有庫存信息，出庫記錄的查詢及打印。<

69、/p><p>　　出庫登記管理：能對貨品的出庫登記、刪除、更改等；</p><p>　　入庫期間統(tǒng)計：貨品入庫期間年度統(tǒng)計；</p><p>　　收貨單位年度收貨金額統(tǒng)計：對收貨單位的金額進(jìn)行統(tǒng)計。</p><p><b>　　5.盤存管理</b></p><p>　　對盤存貨品信息的盤存錄入.<

70、;/p><p><b>　　6.綜合管理</b></p><p>　　可根據(jù)同一貨品的出入庫情況，對庫存情況的匯總.</p><p><b>　　7.附項管理</b></p><p>　　對供貨單位情況，經(jīng)辦人員，收貨單位情況，倉庫信息進(jìn)行登記管理，可進(jìn)行添加，刪除等操作.</p><

71、;p><b>　　8.歷史數(shù)據(jù)管理</b></p><p>　　對歷史庫存，歷史出庫，歷史出庫情況進(jìn)行管理；</p><p><b>　　9.打印與查詢</b></p><p>　　可根據(jù)輸入的條件，對貨品的入庫信息，庫存信息等進(jìn)行簡單查詢和組合查詢。</p><p>　　貨品信息管理數(shù)據(jù)流程

72、圖如圖5-3所示：</p><p><b>　　.</b></p><p>　　圖5-3貨品信息管理數(shù)據(jù)流程圖</p><p><b>　　5.6數(shù)據(jù)庫的設(shè)計</b></p><p>　　本庫存管理系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上的，所以只需建立起一個數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎(chǔ)上建立起表格，現(xiàn)將部分?jǐn)?shù)據(jù)結(jié)構(gòu)描述如

73、以下各表所示：</p><p>　　表5-1貨品信息表</p><p>　　注意表的基本信息關(guān)鍵字的設(shè)置,可以幫助用戶快速檢索,查詢相關(guān)的信息,在VB中的關(guān)鍵字的設(shè)置不能為空.警戒底線庫存是為了保證企業(yè)業(yè)務(wù)的順利進(jìn)行,一個公司如果業(yè)務(wù)很廣泛,那為了開展新業(yè)務(wù)或應(yīng)對可能出現(xiàn)的意外事故，需要有一個最少的庫存限制，而關(guān)于警戒高線庫存是根據(jù)市場情況以及生產(chǎn)銷售情況來決定庫存最大數(shù)量，倘若客戶退單

74、或發(fā)生其他意外情況，企業(yè)對于庫存有足夠的緩沖能力，而不至于造成不可挽回的損失。</p><p>　　表5-2入庫登記表</p><p>　　將基本信息登記入庫以便于填寫入庫單，更新，刪除入庫記錄，查看現(xiàn)有庫存信息，入庫記錄的查詢及打印。關(guān)于庫存中的物品都有增殖和貶值的可能，因此，要注意庫存中物品價格的變化，該拋出時趕緊拋出，該價格調(diào)整要及時進(jìn)行。</p><p>

75、<b>　　表5-3出庫登記表</b></p><p>　　將出庫有關(guān)基本信息登記以便于填寫出庫單，更新，刪除出庫記錄，查看現(xiàn)有庫存信息，出庫記錄的查詢及打印。有關(guān)貨物出庫后要及時更新，從出庫及入庫中刪除有</p><p><b>　　表5-4倉庫信息表</b></p><p>　　關(guān)的記錄，對庫進(jìn)行及時更新，這也是計算機(jī)

76、庫存管理優(yōu)于過去的很重要的一點。</p><p>　　通過倉庫信息表可以查看倉庫中存貨，將出庫信息刪除的同時相關(guān)入庫信息也要刪除，通過查看庫存信息了解還有多少貨物剩余，那種缺貨，并有相關(guān)的提示。</p><p>　　供貨單位信息表（收貨單位表）包括單位編號、單位名稱、單位地址、電話聯(lián)系人的數(shù)據(jù)類型、字段長度、字段長度。</p><p>　　經(jīng)辦人員表包括經(jīng)辦人編號、

77、姓名家庭、住址辦公電話的數(shù)據(jù)類型和字段長度。</p><p>　　用戶表包括UserIDuserPWD的數(shù)據(jù)類型字段長度以及是否為空</p><p>　　另外，我們還建立了幾張查詢表，用以存放部分用于計算的統(tǒng)計信息，以便查詢。</p><p>　　●入庫登記統(tǒng)計表入庫登記_合計</p><p>　　●貨品入庫年度統(tǒng)計表入

78、庫登記_n</p><p>　　●供貨單位年度供貨金額統(tǒng)計表入庫登記_w</p><p>　　●庫存匯總表庫存</p><p>　　●出庫登記統(tǒng)計表出庫登記_合計</p><p>　　●貨品出庫年度統(tǒng)計表出庫登記_h</p><p>　　●收貨單位年度收貨金額統(tǒng)計表出庫登記

79、_d</p><p>　　入庫登記_合計表與出庫登記_合計分別是以入庫登記表和出庫登記表為基礎(chǔ)的，所以此處不再描述；庫存匯總表主要由出庫表和入庫表建立關(guān)系獲得。</p><p>　　入庫登記_n包括貨物名稱、入庫日期、年度數(shù)量的字段長度、數(shù)據(jù)類型</p><p>　　入庫登記_w包括供貨單位、入庫日期、年度供貨總額的數(shù)據(jù)類型、字段長度。</p><

80、;p><b>　　表5-5庫存匯總</b></p><p>　　表5-6出庫登記_h</p><p>　　表5-7出庫登記_d</p><p><b>　　6設(shè)計總結(jié)</b></p><p>　　由于以前對VisualBasic6.0的接觸并不是很多，對它的開發(fā)環(huán)境不是非常了解，所以在程序的開

81、發(fā)過程中遇到了很多的困難，但經(jīng)過同學(xué)和指導(dǎo)老師的幫助，一一化解了困難，并從中學(xué)到了很多編程方面的知識。但是由于經(jīng)驗方面的原因，以及對庫存方面的操作流程了解不足，該系統(tǒng)還有許多不盡如人意的地方和功能上的缺陷，這些都有待于進(jìn)一步改善。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1]漢清計算機(jī)工作室.VisualBasic6.0數(shù)據(jù)庫開發(fā)實例[M]

82、．北京：機(jī)械工業(yè)出版社. 2000.3</p><p>　　[2] 李春葆 張植民. VisualBasic數(shù)據(jù)庫系統(tǒng)設(shè)計與開發(fā)[M]．北京：清華大學(xué)出版社.2003.8</p><p>　　[3]Buczek.Access2002數(shù)據(jù)庫開發(fā)即時應(yīng)用[M]．北京：人民郵電出版社. 2002</p><p>　　[4] 求是科技.Visual Basic 6.0程序設(shè)

83、計與開發(fā)技術(shù)大全[M]．北京：人民郵電出版社. 2004.9</p><p>　　[5] 夏邦貴.Visual Basic6.0數(shù)據(jù)庫開發(fā)經(jīng)典實例精解[M]．北京：機(jī)械工業(yè)出版社. 2006.1</p><p>　　[6] 李春葆，張植民.VisualBasic數(shù)據(jù)庫系統(tǒng)設(shè)計與開發(fā)[M]．北京：清華大學(xué)出版社. 2003.8月</p><p>　　[7] [美]布奇

84、科 著，王小娟，陳代川 譯.Access2002數(shù)據(jù)庫開發(fā)即時應(yīng)用[M]．北京：人民郵電出版社. 2002.1</p><p>　　[8] 季海娟.VisualBasic6.0基礎(chǔ)教程[M]．北京：清華大學(xué)出版社. 2005.1</p><p>　　[9] 恒揚科導(dǎo).VisualBasic6.0程序設(shè)計學(xué)與用教程[M]．北京：機(jī)械工業(yè)出版社. 2003.5</p><p

85、>　　[10] 康諾利（Connolly,T.M.） 等著，何玉潔 等譯.數(shù)據(jù)庫設(shè)計教程第二版[M]．北京：機(jī)械工業(yè)出版社. 2005.1</p><p>　　[11] (美)埃文,(美)卡拉漢著技橋工作室譯.跟我學(xué)用VBA開發(fā)Access2002應(yīng)用[M]．北京：科學(xué)出版社.2002.6</p><p>　　[12] 王寧.Access2002范例入門與應(yīng)用[M]．北京：人民郵電出

86、版社. 2004.5</p><p>　　[13] 梁書斌.精通中文版Access2002數(shù)據(jù)庫開發(fā)與應(yīng)用[M]．北京：清華大學(xué)出版社. 2002.5</p><p>　　[14] 美Forte,S. ;譯者： 張冕洲等譯.Access2002開發(fā)實用全書/實用全書叢書[M]．北京：電子工業(yè)出版社. 2002.4</p><p>　　[15] 陳艷華.深入淺出Acc

87、ess2002數(shù)據(jù)庫實例開發(fā)[M]．北京：中國青年出版社. 2003.4</p><p>　　[16] 羅鴻.ERP原理、設(shè)計、實施》第三版[M]．北京：電子工業(yè)出版社. 2005.4</p><p><b>　　附錄</b></p><p>　　本應(yīng)用程序由33個窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫窗體，出庫窗體，庫存匯總

88、，打印及查詢等窗體組成。</p><p>　　通過運行程序首先進(jìn)入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進(jìn)入主窗體，在主窗體上有10個菜單項，分別對應(yīng)各自的功能模塊窗體，包括系統(tǒng)，庫存管理，入庫管理，出庫管理，盤存管理，綜合管理，附項管理，歷史數(shù)據(jù)管理，打印和查詢。需要哪個功能的時候就點哪個菜單，相對應(yīng)的窗體會自動彈出。</p><p>　　程序?qū)崿F(xiàn)的部分代碼如下：</p>

89、;<p><b>　　●公共模塊</b></p><p>　　Public date1 As String</p><p>　　Public date2 As String</p><p>　　Public gUserName As String '保存用戶名</p><p>　　'

90、添加執(zhí)行SQL語句的函數(shù)</p><p>　　Public Function transactSQL(ByVal sql As String) As ADODB.Recordset</p><p>　　Dim con As ADODB.Connection</p><p>　　Dim rs As ADODB.Recordset</p><p>

91、;　　Dim strConnection As String</p><p>　　Dim strArray() As String</p><p>　　Set con = New ADODB.Connection '創(chuàng)建連接</p><p>　　Set rs = New ADODB.Recordset '創(chuàng)建記錄集</p&g

92、t;<p>　　On Error GoTo TransactSQL_Error</p><p>　　strConnection = "Provider=Microsoft.jet.oledb.4.0;</p><p>　　Data Source=E:\庫存管理\kucun.mdb"</p><p>　　strArray = Spli

93、t(sql)</p><p>　　con.Open strConnection '打開連接</p><p>　　If StrComp(UCase$(strArray(0)), </p><p>　　"select", vbTextCompare) = 0 Then</p><p>

94、;　　rs.Open Trim$(sql), con, </p><p>　　adOpenKeyset, adLockOptimistic</p><p>　　Set transactSQL = rs '返回記錄集</p><p><b>　　iflag = 1</b></p><p

95、><b>　　Else</b></p><p>　　con.Execute sql '執(zhí)行命令</p><p><b>　　iflag = 1</b></p><p><b>　　End If</b></p><p>　

96、　TransactSQL_Exit:</p><p>　　Set rs = Nothing</p><p>　　Set con = Nothing</p><p>　　Exit Function</p><p>　　TransactSQL_Error:</p><p>　　MsgBox "查詢錯誤："

97、; & Err.Description</p><p><b>　　iflag = 2</b></p><p>　　Resume TransactSQL_Exit</p><p>　　End Function</p><p><b>　　●主窗體的程序代碼</b></p>&l

98、t;p>　　Private Sub a1_Click()</p><p>　　Form1.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub a2_Click()</p><p>　　Dim fAdd As New frmAddUser</p>&

99、lt;p><b>　　fAdd.Show</b></p><p>　　fAdd.ZOrder 0</p><p><b>　　End Sub</b></p><p>　　Private Sub a3_Click()</p><p>　　Dim fChangePWD As New frmChan

100、gePWD</p><p>　　fChangePWD.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub a4_Click()</p><p>　　frmAbout.Show</p><p><b>　　End Sub</b&g

101、t;</p><p>　　Private Sub a5_Click() '調(diào)入數(shù)據(jù)備份</p><p>　　Load main_sjbf</p><p>　　main_sjbf.Show</p><p>　　main.Enabled = False</p><p><b>　　End Sub&l

102、t;/b></p><p>　　Private Sub a6_Click() '調(diào)入數(shù)據(jù)恢復(fù)</p><p>　　Load main_sjhf</p><p>　　main_sjhf.Show</p><p><b>　　main.Hide</b></p><p><b>

103、;　　End Sub</b></p><p>　　Private Sub b1_Click()</p><p>　　frm貨品信息.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub b12_Click()</p><p>　　sq

104、l = "select * from 貨品信息 order by 貨品編碼"</p><p>　　frmProInfo.createList (sql)</p><p>　　frmProInfo.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub

105、b2_Click()</p><p>　　frm貨品庫存.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub B3_Click()</p><p>　　frm超儲貨品.Show</p><p><b>　　End Sub</b&

106、gt;</p><p>　　Private Sub b4_Click()</p><p>　　frm短線貨品.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub c1_Click()</p><p>　　frm入庫登記.Show</p&g

107、t;<p><b>　　End Sub</b></p><p>　　Private Sub c2_Click()</p><p>　　frm貨品入庫年度統(tǒng)計.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub c3_Click()&

108、lt;/p><p>　　frm供貨單位供貨分類金額統(tǒng)計.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub c4_Click()</p><p>　　frm供貨單位年度供貨金額統(tǒng)計.Show</p><p><b>　　End Sub&l

109、t;/b></p><p>　　Private Sub Command1_Click()</p><p>　　date1 = Text1.Text & "/" & Text3.Text & "/" & Text2.Text</p><p>　　date2 = Text6.Text &

110、; "/" & Text4.Text & "/" & Text5.Text</p><p>　　Text7.Text = date1</p><p><b>　　End Sub</b></p><p>　　Private Sub d1_Click()</p><

111、p>　　frm出庫登記.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub d2_Click()</p><p>　　frm貨品出庫年度統(tǒng)計.Show</p><p><b>　　End Sub</b></p><p&g

112、t;　　Private Sub d3_Click()</p><p>　　frm收貨單位期間收貨統(tǒng)計.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub d4_Click()</p><p>　　frm收貨單位年度收貨金額統(tǒng)計.Show</p><

113、p><b>　　End Sub</b></p><p>　　Private Sub e1_Click()</p><p>　　frm盤存錄入.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub e2_Click()</p>&

114、lt;p>　　frm盤存表.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub f1_Click()</p><p>　　frm貨品出入?yún)R總表.Show</p><p><b>　　End Sub</b></p><p&

115、gt;　　Private Sub g1_Click()</p><p>　　frm經(jīng)辦人員.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub g2_Click()</p><p>　　frm供貨單位.Show</p><p><b>

116、;　　End Sub</b></p><p>　　Private Sub g3_Click()</p><p>　　frm倉庫信息.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub g5_Click()</p><p>　　For

117、m6.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub h1_Click()</p><p>　　frm歷史庫存.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub

118、h2_Click()</p><p>　　frm歷史入庫.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub h3_Click()</p><p>　　frm歷史出庫.Show</p><p><b>　　End Sub</b&