1、論文提綱論文題目庫存管理系統摘要4第一章 緒論41.1 管理信息系統的概述41.2 庫存管理系統5第二章 數據庫理論基礎6 2.1 數據庫系統設計6第三章 應用系統開發工具73.1 visual basic簡介及實現原理7第四章 庫存管理系統設計分析7 4.1 需求分析7 4.2 模塊劃分8 4.3 數據庫設計11第五章 應用程序設計135.1 程序結構135.2 程序源代碼13第六章 全文總結27第七章 致謝27參考文獻27主要參考書目或資料來源1 漢清計算機工作室, visual basic 6.0 數據庫開發實例 ,機械工業出版社 2000.32 何旭洪,visual basic 數據庫

2、開發實例導航,人民郵電出版社 20023 孫健鵬,vb數據庫開發實例解析,機械工業出版社4 王漢新,visual basic程序設計,科學出版社 20025 陳惟斌,visual basic 6.0開發指南,清華大學出版社 2001.16 張春葆,vb數據庫系統設計與開發,清華大學出版社7 buczek,access 2002數據庫開發即時應用,人民郵電出版社 20028 visual basic 6 harry m. deitel, paul j. deitel, tem r. nieto 電子工業出版社9 李曉黎,張巍,visual basic + sql server 數據庫應用系統開發

3、與實例,人民郵電出版社 2003.810瀟湘工作室 access2002中文版從入門到精通 人民郵電出版社 2001.10摘要：隨著現代工業的發展，計算機信息管理系統越來越受到企業重視。本文主要分析了庫存管理系統的一些基本功能和組成情況，包括系統的需求分析、系統結構，功能模塊劃分以及數據庫模式分析等，重點對應用程序的實際開發實現作了介紹。達到了數據的一致性和安全性，且應用程序功能完備，符合了庫存管理系統作為典型的信息管理系統(mis)的要求。同時簡單介紹了visual basic編程環境和access數據庫管理系統的功能特點，庫存管理系統是企業物流管理中不可或缺的一部分。關鍵詞：庫存管理，數據

4、庫，信息管理，vb第一章 緒論庫存管理系統是一個企事業單位不可缺少的一部分,它的內容對于企業的決策者和管理者來說都是至關重要的，因此，庫存管理系統應該能夠為用戶提供充足的信息和快捷的查詢手段，但一直以來人們使用傳統的人工方式管理庫存，這種管理方式存在著許多缺點，諸如效率低，保密性差等，而且時間一長，將產生大量的文件和數據，這對于查找、更新和維護都帶來了不少的困難。隨著科學技術的不斷提高，計算機科學不斷發展，其強大的功能已經被人們深刻認識，它已經進入了人類社會的各個領域并發揮著越來越重要的作用。作為計算機應用的一部分，使用計算機對產品庫存信息進行管理，具有著人工管理無法比擬的優點，它檢索迅速、查

5、找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等，可減少更多的人力物力，這些都能夠極大地提高貨品庫存的管理效率，也是企業庫存管理科學化、正規化，與世界接軌的重要條件。因此，開發一個庫存管理系統是很有必要的，具有其特有的技術意義和管理意義。1.1管理信息系統的概述管理信息系統（簡稱mis）是在管理科學、系統科學、計算機科學等的基礎上發展起來的綜合性邊緣科學。在21世紀信息高速發展的時代中，管理信息系統具有很重要的作用，它的預測和輔助決策的功能，即利用現代管理的決策和支持。管理信息系統是一個由人、機（計算機）組成的能進行管理信息的收集、傳遞、存儲、加工、維護和使用的系統。它能觀測企業或組織的

6、各種運動情況，利用過去的數據預測未來；從全局出發輔助決策；利用信息控制企業或組織行為，幫助其實現長遠的規劃目標。簡言之，管理信息系統是一個以計算機為工具，具有數據處理、預測、控制和輔助決策功能的信息系統。管理信息系統是一個人機系統，同時它又是一個一體化集成系統。管理信息系統是信息系統的一個子系統，它以計算機技術、通訊技術和軟件技術為技術基礎，同時將現代管理理論、現代管理方法及各級管理人員融為一體，最終為某個組織整體的管理與決策服務，是由人和計算機組成的能進行管理信息的收集、傳遞、存儲、加工、維護和使用的系統。管理信息系統的基本結構可以概括為四大部件，即信息源、信息處理器、信息用戶和信息管理者。

7、因此，一個成功的管理信息系統應該具有可靠的硬件、實用的軟件、強有力的現代化管理水平。具體講，管理信息系統的三大支柱是：計算機網絡、數據庫和現代化的管理，這三打支柱稱為管理信息系統的擴展部件。1.2庫存管理系統當今時代是飛速發展的信息時代，在各行各業中離不開信息處理，這正是計算機被廣泛應用于信息處理系統的環境。計算機最大的好處在于利用它能夠進行信息管理，使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對復雜的信息管理，計算機能夠充分發揮它的優越性。計算機進行信息管理與信息管理系統的開發密切相關，系統的開發是系統管理的前提。倉庫作為一總貨品資源的集散地，貨品的種類繁多，包

8、含很多的信息數據的管理。據調查得知，以前倉庫進行信息管理的方式主要是基于文本、表格等紙介質的手工處理，對于貨品的出入庫情況的統計和核實等往往采用對賬本的人工檢查，對管理者的管理權限等不受約束，任何人都可查看，這樣容易引起資料外泄。另外，數據信息處理工作量大，容易出錯，由于數據繁多，容易丟失，且不易查找。總的來說，缺乏系統、規范的信息管理手段。而且，一般的存儲情況是記錄在賬本上的，倉庫的工作人員和管理員也只是當時記得比較清楚，時間一長，如果再要進行查詢，就得在眾多的資料中翻閱查找了，這樣造成費時、費力，如要對很長時間以前的貨品進行更改就更加困難了。因此，很有必要建立一個庫存管理系統，使貨品管理工

9、作規范化，系統化，程序化。提高信息處理的速度和準確性。現在國內外對此類系統的開發與研究也是很有實用性的，基本上能滿足各企業的自身特點，來進行庫存方面的管理，同時，改類系統又都在不斷地深入與發展，來適用更多的企業，一般都能運用于各個企業的庫存管理，但是都沒有針對大眾的廣泛應用，只能運用某個企業或單位，這一點還有待于今后的進一步開發與實踐。1、技術應用于庫存管理是實現倉庫管理自動化的有效途徑庫存品種多，數量大。因此，要實現收發作業的快速、準確、高效，倉儲管理自動化勢在必行。而實現管理自動化的“瓶頸”則是產品信息的采集、輸入。傳統手工作業方式，在信息采集量加大的情形下，半因信息不能及時的反饋，給收發

10、作業造成一定的困難。利用條碼技術，在入庫及其包裝上加貼條碼，配之以倉庫信息管理系統進行作業，不僅可提高效率，降低作業強度，也將大大提高產品收發作業準確率（如鍵盤輸入僅為百分之一），進而實現倉庫管理的全面自動化。2、技術應用于庫存管理對提高倉庫作業效率有重要作用將條碼技術和倉庫管理信息系統結合起來，用于產品收、發、保管等全過程控制管理，不僅可改變信息采集的傳統手工作業方式，降低作業強度，還可避免由此造成的各種差錯，提高作業效率和科學管庫水平。比較發現，信息輸入時，條碼輸入速度是鍵盤輸入的5倍。入庫時，通常保管員根據產品上的條碼所反映出的冊序號、出廠期、生產廠家、單價、封存（保管）期等信息，進行實

11、物點驗，同時將條碼信息錄入到管理信息系統；出庫時，保管員根據航材發付單內容，持條碼掃描裝置進行器材揀選，并完成信息錄入；清庫盤點時，保管員可持掃描裝備進行數質量等內容核對，并半采集的信息錄入管理系統中進行自動盤點，生成清庫對帳單等，完成清庫盤點作業。3、技術應用于庫存管理是完善產品保障信息網絡的重要手段儲存產品信息是產品保障信息網絡的重要組成部分，是做好產品供應保障工作的基礎。產品保障信息網是實現物資儲運全過程可視化的前提。目前，有些倉庫內部局域網已經建成并投入使用，并與業務主管部門實現了信息溝通，庫存保障信息網在日常航材保障工作中實現了信息溝通，庫存保障信息網在日常產品保障工作中的作用日趨明

12、顯。條碼技術在儲存管理中的應用，可進一步完善系統各倉庫之間及各倉庫與作業主管部門之間的信息共享和交換功能，最終達到對產品的全程跟蹤管理，充分發揮條碼技術在整個流通中的作用。同時，在軟件系統的研發過程中，將會融入一種epr的企業管理思想。大量的研究與實踐已經充分表明，erp作為一種現代企業管理的思想和方法，將其大力地推廣應用就是有效的促使我國企業管理朝著更加科學化、合理化和規范化方向發展的一種具體方法和途徑。另外，庫存管理的信息化和可視化，每個企業將會擁有兩個倉庫，一個是裝滿貨物的倉庫，還有一個就是管理系統里的數據庫，對上萬種貨物分別編碼，使其成為計算機可識別的語言，形象地說，貨架上的號碼就是貨

13、物的地址，從而避免了貨物的分揀和提取時的翻箱倒柜式的查找。隨著我國經濟的飛速發展，各種類型規模的公司企業迅速崛起，許多從事生產和經營管理的企業都有自己生產和銷售的產品，而這些產品都需要儲存在倉庫中，對于每個企業來說，隨著企業規模的不斷擴大，產品數量的急劇增加，所生產產品的種類也會不斷地更新與發展，有關產品的各種信息量也會成倍增長。面對龐大的產品信息量，如何有效地管理庫存產品，對這些企業來說是非常重要的，庫存管理的重點是銷售信息能否及時反饋，從而確保企業運行效益。而庫存管理又涉及入庫、出庫的產品、經辦人員及客戶等方方面面的因素，如何管理這些信息數據，是一項復雜的系統工程，充分考驗著倉庫管理員的工

14、作能力，工作量的繁重是可想而知的，所以這就需要由庫存管理系統來提高庫存管理工作的效率，這對信息的規范管理、科學統計和快速查詢，減少管理方面的工作量，同時對于調動廣大員工的工作積極性，提高企業的生產效率，都具有十分重要的現實意義。第二章數據庫理論基礎2.1數據庫系統設計一個成功的信息管理系統，是建立在許多條件之上的，而數據庫是其中一個非常重要的條件和關鍵技術。信息管理系統所涉及的數據庫設計分五個步驟：數據庫需求分析、概念設計、邏輯設計、物理設計與加載測試。（1）數據庫需求分析的任務是將業務管理單證流化為數據流，劃分主題之間的邊界，繪制出dfd圖，并完成相應的數據字典。（2）概念設計的任務是從df

15、d出發，繪制出本主題的實體關系圖，并列出各個實體與關系的綱要表。（3）邏輯設計的任務是從e-r圖與對應的綱要表出發，確定各個實體及關系的表名屬性。（4）物理設計的任務是確定所有屬性的類型、寬度與取值范圍，設計出基本表的主鍵，將所有的表名與字段名英文化（現在很多軟件能支持中文字段，如access 2000），實現物理建庫，完成數據庫物理設計字典。（5）加載測試工作貫穿于程序測試工作的全過程，整個錄入、修改、查詢、處理工作均可視為對數據庫的加載測試工作。數據庫設計主要是進行數據庫的邏輯設計，即將數據按一定的分類、分組系統和邏輯層次組織起來，是面向用戶的。數據庫設計時需要綜合企業各個部門的存檔數據和

16、數據需求，分析各個數據之間的關系，按照dbms提供的功能和描述工具，設計出規模適當、正確反映數據關系、數據冗余少、存取效率高、能滿足多種查詢要求的數據模型。數據庫設計的步驟主要是：（1）數據庫結構定義：目前的數據庫管理系統（dbms）有的是支持聯機事務處理cltp（負責對事務數據進行采集、處理、存儲）的操作型dbms，有的可支持數據倉庫、有聯機分析處理clap（指為支持決策的制定對數據的一種加工操作）功能的大型dbms，有的數據庫是關系型的、有的可支持面向對象數據庫。針對選擇的dbms，進行數據庫結構定義。（2）數據表定義：數據表定義指定義數據庫中數據表的結構，數據表的邏輯結構包括：屬性名稱、

17、類型、表示形式、缺省值、校驗規則、是否關鍵字、可否為空等。關系型數據庫要盡量按關系規范化要求進行數據庫設計，但為使效率高，規范化程度應根據應用環境和條件來決定。數據表設計不僅要滿足數據存儲的要求，還要增加一些如反映有關信息、操作責任、中間數據的字段或臨時數據表。（3）存儲設備和存儲空間組織：確定數據的存放地點、存儲路徑、存儲設備等，備份方案，對多版本如何保證一致性和數據的完整性。（4）數據使用權限設置：針對用戶的不同使用要求，確定數據的用戶使用權限，確保數據安全。（5）數據字典設計：用數據字典描述數據庫的設計，便于維護和修改。第三章應用系統開發工具3.1 visual basic簡介及實現原理

18、visual basic（簡稱vb）是美國微軟公司（microsoft）于1990年推出的一套完整的windows系統軟件開發工具，可用于開發windows環境下的各類應用程序，是一種可視化、面向對象、用事件驅動方式的結構化高級程序設計語言和工具，是目前使用最廣泛的編程語言之一。至今以升級到了6.0版。vb的重要特點之一是可視性。系統引進了窗體和控件的機制，用于設計應用程序界面。用戶通過在屏幕上生成窗體，在窗體中繪制所需要的控件和按鈕，設計菜單和對話框，vb會自動生成相應的代碼。vb的另一重要特點是事件驅動。當窗體或控件上發生一個事件時，vb立即把控制權交給程序員。程序員不必擔心如何判斷事件是

19、否已發生，只需要編寫一段代碼告訴計算機在事件發生以后應該做什么工作就可以了。這樣，設計一個windows應用程序簡化為用鼠標在屏幕上點擊、拖拽并添加少量的代碼就可以完成了，大大降低了對程序設計的要求，提高了應用程序的開發效率。利用vb的可視性特點，可方便的設計了程序的窗體界面，并在各個窗體中的合適位置繪制所需的每種控件。如要修改窗體或控件的某項屬性，只需在相應的窗體或控件的屬性窗口修改相應的參數便可達到需要的設計效果。利用vb的事件驅動性特點，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達到告訴當在相應的窗體或控件上發生某一事件時，它們在事件發生后應該做什么工作的目的。例如幾個窗體上的添

20、加、刪除、返回按鈕的作用，就是通過在各個相應按鈕的代碼窗口中輸入相應的代碼，來達到當在幾個按鈕上出現單擊（click）事件后，相應按鈕實現添加、刪除、返回的功能的。第四章 庫存管理系統設計分析4.1需求分析本套應用程序名稱為“庫存管理系統”，主要用于倉庫貨品信息的管理，系統包括倉庫管理、入庫、出庫、一些統計查詢和報表等幾部分組成。庫存管理系統需滿足倉庫管理員及工作人員的需求，他們具有登陸應用系統的權限，所以需要對工作人員的登陸本模塊進行更多的考慮，設計不同用戶的操作權限和登陸方法。對于一個倉庫來說，最大的功能就是存儲貨品，所以倉庫管理就是對貨品信息，倉庫信息，短線貨品及超儲貨品的管理，用戶可以

21、根據實際情況對各種貨品信息進行分類管理，包括添加，刪除更新數據庫等。當然，倉庫中貨品入庫也是常有的事，入庫管理操作就是對于貨品入庫情況的管理，用戶可以方便地輸入一些貨品的信息。有了貨品的入庫，自然也就有貨品的出庫，這部分提供的功能與入庫操作流程差不多，有所區別的只是對一些出庫貨品的管理，也很方便數據的輸入。倉庫貨品的信息量大，數據安全性和保密性要求高。本系統實現對貨品信息的管理和總體的統計等，倉庫信息，供貨單位和經辦人員信息的查看及維護。倉庫管理人員可以瀏覽、查詢、添加、刪除等貨品的基本信息以及統計等，并可以對一些基本的信息生成報表形式，并打印輸出的功能。報表是一個數據庫中最重要的功能之一，有

22、了報表才能清楚地知道貨品的出入庫情況，在數據報表功能中包括出庫報表，庫存報表及經辦人員報表等一些基本信息的打印，方便簡潔。本系統基本涵蓋了庫存管理的主要需求，具有完善細致的功能、友好的用戶界面、強大的數據處理功能和完備的安全機制；隨心所欲的查詢和所見即所得的打印功能，并全面支持分析和決策的功能。 系統特色： 1.設置系統用戶登陸功能，即時對系統數據進行安全設置與保護。 2.友好的用戶界面，業務操作簡單，進入系統即能使用。3.成熟先進的技術和系統構架，采用先進的數據庫訪問方式，數據更安全，性能更穩定。4.強大的數據處理能力和開放的數據接口，選用具有大型數據庫安全機制的數據庫系統，提供各種級別的數

23、據保護和權限控制方式，確保數據的安全可靠。5.系統每種操作都可以通過菜單來進行。操作快捷、方便。易懂易會。系統集輸入、維護、查詢、統計和各種處理為一體，信息導入導出方便共享。庫存管理系統倉庫管理入庫管理出庫管理盤存管理綜合管理附項分類歷史數據管理打印、查詢系統貨品信息管理貨品庫存管理短線貨品管理超儲貨品管理出庫登記管理貨品出庫年度統計收貨單位年度收貨金額統計盤存錄入貨品出入庫期間匯總表倉庫信息管理供貨單位管理收貨單位管理經辦人員管理4.2模塊劃分基本模塊與功能：1.系統包括用戶管理，密碼管理，關閉系統，以及數據的備份與恢復，可以根據需要對整個數據庫進行備份，以確保數據的安全性。幫助：本系統的幫

24、助信息，包括應用程序的版本信息；2.庫存管理貨品信息管理：對倉庫里的貨品進行登記；貨品庫存管理：管理倉庫的庫存情況；短線貨品管理：對倉庫里短線的貨品進行登記，以便及時采購補貨；超儲貨品管理：對倉庫里超儲的貨品進行登記，控制庫存量，減少進貨；3.入庫管理入庫登記管理：能對貨品的入庫登記，刪除，更改等；入庫期間統計：貨品入庫期間年度的統計；供貨單位期間供貨金額統計：對貨品供應的金額進行統計；4.出庫管理對貨品出庫期間的年度統計，出庫登記，及收獲單位金額統計等；5.盤存管理對盤存貨品信息的盤存錄入；6.綜合管理可根據同一貨品的出入庫情況，對庫存情況的匯總；7.附項管理對供貨單位情況，經辦人員，收貨單

25、位情況，倉庫信息進行登記管理，可進行添加，刪除等操作；8.歷史數據管理對歷史庫存，歷史出庫，歷史出庫情況進行管理；9.打印與查詢可根據輸入的條件，對貨品的入庫信息，庫存信息等進行簡單查詢和組合查詢。據流程圖：登陸庫存管理系統驗證用戶信息系統主窗體倉庫管理入庫管理出庫管理盤存管理綜合管理附項分類歷史數據管理打印、查詢系統貨品入庫單經辦人員報表貨品出庫單數據備份備份輸出庫存匯總圖41 庫存管理系統數據流程圖貨品登記基本信息錄入貨品基本信息管理貨品調配匯總出庫貨品信息管理入庫貨品信息管理貨品其他信息管理圖42 貨品信息管理數據流程圖貨品信息管理數據流程圖： 4.3數據庫設計本庫存管理系統是應用在單機

26、系統上的，所以只需建立起一個數據庫，在此數據庫基礎上建立起表格，現將部分數據結構表描述如下：貨品信息表字段名數據類型字段長度是否為空貨品編碼文本5貨品名稱文本10類別文本8型號文本4單位文本2倉庫編碼文本5存放倉庫文本12入庫計劃單價貨幣出庫計劃單價貨幣原始庫存數字長整型默認貨位文本5警戒底線庫存數字長整型警戒高線庫存數字長整型表1貨品信息表入庫登記表字段名數據類型字段長度是否為空入庫日期日期/時間入庫單號文本10貨物編碼文本5數量數字長整型進貨價貨幣總額貨幣已付貨款貨幣供貨單位編碼文本5供貨單位文本20經辦人編碼文本5經辦人文本8增值稅率數字單精度型備注備注表2入庫登記表出庫登記表字段名數據

27、類型字段長度是否為空出庫日期日期/時間出庫單號文本10貨物編碼文本5貨物名稱文本10數量數字長整型單價貨幣出貨價貨幣總額貨幣已收獲款貨幣收貨單位編碼文本5收貨單位文本20經辦人編碼文本5經辦人文本8增值稅率數字單精度型備注備注表3貨品出庫表倉庫信息表字段名數據類型字段長度是否為空倉庫編號文本5倉庫名稱文本12存貨種類文本2存貨價值貨幣表4倉庫信息表供貨單位信息表（收貨單位表）字段名數據類型字段長度是否為空單位編號文本5單位名稱文本50單位地址文本50電話文本15聯系人文本8表5供貨單位信息表經辦人員表字段名數據類型字段長度是否為空編號文本5姓名文本8家庭住址文本50辦公電話文本15家庭電話文本

28、15表6經辦人員表用戶表字段名數據類型字段長度是否為空userid文本10userpwd文本6表7用戶表第五章應用程序設計5.1程序結構本應用程序由33個窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫窗體，出庫窗體，庫存匯總，打印及查詢等窗體組成。通過運行程序首先進入歡迎界面和登陸窗體，通過輸入密碼，驗證身份后進入主窗體，在主窗體上有10個菜單項，分別對應各自的功能模塊窗體，包括系統，庫存管理，入庫管理，出庫管理，盤存管理，綜合管理，附項管理，歷史數據管理，打印和查詢。需要哪個功能的時候就點哪個菜單，相對應的窗體會自動彈出。5.2 程序源代碼程序實現的部分代碼如下：主窗體的程序代碼圖

29、51 主窗體界面private sub a1_click()form1.showend subprivate sub a2_click()dim fadd as new frmadduser fadd.show fadd.zorder 0end subprivate sub a3_click()dim fchangepwd as new frmchangepwd fchangepwd.showend subprivate sub a4_click()frmabout.showend subprivate sub a5_click() 調入數據備份 load main_sjbf main_sjb

30、f.show main.enabled = falseend subprivate sub a6_click() 調入數據恢復 load main_sjhf main_sjhf.show main.hideend subprivate sub b1_click()frm貨品信息.showend subprivate sub b12_click() sql = select * from 貨品信息 order by 貨品編碼 frmproinfo.createlist (sql) frmproinfo.showend subprivate sub b2_click()frm貨品庫存.showen

31、d subprivate sub b3_click()frm超儲貨品.showend subprivate sub b4_click()frm短線貨品.showend subprivate sub c1_click()frm入庫登記.showend subprivate sub c2_click()frm貨品入庫年度統計.showend subprivate sub c3_click()frm供貨單位供貨分類金額統計.showend subprivate sub c4_click()frm供貨單位年度供貨金額統計.showend subprivate sub command1_click()d

32、ate1 = text1.text & / & text3.text & / & text2.text.date2 = text6.text & / & text4.text & / & text5.texttext7.text = date1end subprivate sub d1_click()frm出庫登記.showend subprivate sub d2_click()frm貨品出庫年度統計.showend subprivate sub d3_click()frm收貨單位期間收貨統計.showend subprivate sub d4_click()frm收貨單位年度收貨金額統計.

33、showend subprivate sub e1_click()frm盤存錄入.showend subprivate sub e2_click()frm盤存表.showend subprivate sub f1_click()frm貨品出入匯總表.showend subprivate sub g1_click()frm經辦人員.showend subprivate sub g2_click()frm供貨單位.showend subprivate sub g3_click()frm倉庫信息.showend subprivate sub g5_click()form6.showend subpr

34、ivate sub h1_click()frm歷史庫存.showend subprivate sub h2_click()frm歷史入庫.showend subprivate sub h3_click()frm歷史出庫.showend subprivate sub i1_click()datareport1.showend subprivate sub i2_click()datareport2.showend subprivate sub i3_click()datareport3.showend subprivate sub j1_click()form2.showend subpriva

35、te sub j2_click()form3.showend subprivate sub j3_click()form4.showend subprivate sub j4_click()form5.showend subprivate sub toolbar1_buttonclick(byval button as comctllib.button)select case button.keycase is = rk 調入入庫登記c1_clickcase is = ck 調入出庫登記d1_clickcase is = kchz 調入庫存匯總f1_clickcase is = zhcx 調入

36、組合查詢j4_clickcase is = sjbf 調入數據備份a5_clickend selectend subprivate sub x_click()endend sub登陸模塊的實現private sub cmdlogin_click()denlu_name = txtusername.textdenlu_pass = txtpassword.textdim mycn as new adodb.connectiondim myrs as new adodb.recordsetset myrs = new adodb.recordsetmycn.open provider=micros

37、oft.jet.oledb.4.0;data source=kucun.mdb;myrs.open select * from 用戶 where userid= + denlu_name + ;, mycn, adopenkeyset, adlockoptimisticif myrs.bof = true and myrs.eof = true thenmsgbox 查無此人, , 登陸信息else if myrs(userpwd) = denlu_pass then msgbox 身份正確, , 登陸信息 main.show unload me else msgbox 密碼不正確, , 登陸

38、信息 end if end if end sub添加用戶模塊的實現option explicitprivate sub command1_click() dim sql as string dim rs as adodb.recordset if trim(username.text) = then 判斷用戶名稱是否為空 msgbox 請輸入用戶名稱!, vbokonly + vbexclamation, 警告 exit sub username.setfocus else sql = select * from 用戶 where userid= & username & set rs = t

39、ransactsql(sql) if rs.eof = false then 判斷是否已經存在用戶 msgbox 這個用戶已經存在！請重新輸入用戶名稱！, vbokonly + vbexclamation, 警告 username.setfocus username.text = password.text = confirmpwd.text = exit sub else if trim(password.text) trim(confirmpwd.text) then 判斷兩次密碼是否相同 msgbox 兩次輸入的密碼不一致，請重新輸入密碼！, vbokonly + vbexclamati

40、on, 警告 password.text = confirmpwd.text = password.setfocus exit sub elseif trim(password.text) = then 判斷密碼是否為空 msgbox 密碼不能為空！, vbokonly + vbexclamation, 警告 password.text = confirmpwd = password.setfocus else 添加用戶 sql = insert into 用戶 (userid,userpwd) values( & username sql = sql & , & password & ) t

41、ransactsql (sql) msgbox 添加成功！, vbokonly + vbexclamation, 添加結果 重新設置初始化為空 username.text = password.text = confirmpwd.text = username.setfocus end if end if end ifend subprivate sub command2_click()unload meend subprivate sub form_load()username.text = password.text = confirmpwd.text = end sub對于貨品信息的瀏覽

42、，主要采用了msflexgrid控件，它是一種active控件，該控件提供了表格式界面，處理數據相當靈活，具有只讀數據綁定、對表格數據進行顯示和操作、數據分組排序、data控件賦值、文本自動換行等功能。但它無法對數據進行動態輸入，只能提供瀏覽功能。圖52 貨品信息界面具體代碼如下：option explicitprivate sub command1_click()rsgrid.refreshend subprivate sub form_load() dim sql as string sql = select * from 貨品信息 order by 貨品編碼 createlist (sq

43、l)end subpublic sub createlist(sql as string) dim rs as new adodb.recordset dim i as integer dim rsgird as msflexgrid 設置表頭 rsgrid.textmatrix(0, 0) = 貨品編碼 rsgrid.textmatrix(0, 1) = 貨品名稱 rsgrid.textmatrix(0, 2) = 類別 rsgrid.textmatrix(0, 3) = 型號 rsgrid.textmatrix(0, 4) = 單位 rsgrid.textmatrix(0, 5) = 倉庫

44、編碼 rsgrid.textmatrix(0, 6) = 存放倉庫 rsgrid.textmatrix(0, 7) = 入庫計劃單價 rsgrid.textmatrix(0, 8) = 出庫計劃單價 rsgrid.textmatrix(0, 9) = 原始庫存 rsgrid.textmatrix(0, 10) = 默認貨位 rsgrid.textmatrix(0, 11) = 警戒底線庫存 rsgrid.textmatrix(0, 12) = 警戒高線庫存 for i = 0 to 12 設置所有表格對齊方式 rsgrid.colalignment(i) = 4 next i for i =

45、0 to 11 設置每列寬度 rsgrid.colwidth(i) = 1400 next i rsgrid.colwidth(12) = 2000 set rs = transactsql(sql) if rs.eof = false then 顯示信息內容 rsgrid.rows = 1 while not rs.eof rsgrid.rows = rsgrid.rows + 1 rsgrid.textmatrix(rsgrid.rows - 1, 0) = rs(0) rsgrid.textmatrix(rsgrid.rows - 1, 1) = rs(1) rsgrid.textmat

46、rix(rsgrid.rows - 1, 2) = rs(2) rsgrid.textmatrix(rsgrid.rows - 1, 3) = rs(3) rsgrid.textmatrix(rsgrid.rows - 1, 4) = rs(4) rsgrid.textmatrix(rsgrid.rows - 1, 5) = rs(5) rsgrid.textmatrix(rsgrid.rows - 1, 6) = rs(6) rsgrid.textmatrix(rsgrid.rows - 1, 7) = rs(7) rsgrid.textmatrix(rsgrid.rows - 1, 8)

47、= rs(8) rsgrid.textmatrix(rsgrid.rows - 1, 9) = rs(9) rsgrid.textmatrix(rsgrid.rows - 1, 10) = rs(10) rsgrid.textmatrix(rsgrid.rows - 1, 11) = rs(11) rsgrid.textmatrix(rsgrid.rows - 1, 12) = rs(12) rs.movenext wend rs.close end ifend sub貨品入庫登記模塊的實現圖53 入庫登記窗口private sub form_unload(cancel as integer)

48、 screen.mousepointer = vbdefaultend subprivate sub datprimaryrs_error(byval errornumber as long, description as string, byval scode as long, byval source as string, byval helpfile as string, byval helpcontext as long, fcanceldisplay as boolean) 錯誤處理程序代碼置于此處 想要忽略錯誤，注釋掉下一行 想要捕獲它們，在此添加代碼以處理它們 msgbox data error event hit err: & descriptionend subprivate sub datprimaryrs_movecomplete(byval adreason as adodb.eventreasonen