1、公司倉庫管理系統第一章 公司介紹與系統的需求分析1.1 公司簡介佳雪公司是一個專銷電動機的公司，主要業務是進行電動機的進貨與分銷，作為一個銷售的中介公司，其要求有入庫與出庫的主要數據庫，可以簡單的記錄數據，并且可以進行多方面的查詢，使得公司有較詳細的數據統計與分析。其主要業務如以下圖所示：1. 廠商倉庫顧客圖 1.1.12.查詢功能1）按型號查詢有兩個結果：A 生成 入庫量、出庫量、節余量B 生成 兩個數據來源表，包括出庫來源與入庫來源；2）按單位查詢結果：生成型號、產品名稱、時間（入/出庫）、單價再生成出入庫的兩個基本情況表，包括供應商和顧客的基本情況，如型號、出 /入庫時間，單價，發票編號

2、、結帳情況；3 .本系統主要運用Visual Basic的內嵌數據庫Access來記錄數據；4 .產品信息：序號（自動生成）、型號（文本）、入庫時間（日期）、出庫時間（日期） 、數量（數字）、發票編號（文本）、單價（貨幣）、廠商名稱（文本）、供應商名稱（文本）、廠商與供應商的電話（數字）、結帳情況（是/否）是為0，否為-11. 2分析與描述一.根據1.1 章節的具體要求，總結出以下的數據流程：1.2.1 數據流程二 .根據以上情況，按要求設計了幾個相關的數據庫表：出庫、入庫查詢：查詢結余、出庫查詢、入庫查詢、型號出庫查詢、型號入庫查詢主要的出庫表屬性如以下表所示：字段名屬性字段大小序號自動生成

3、長整型型號文本50產品名稱文本50出庫數量數字長整型單價貨幣自動小數出庫時間日期年 -月 -日發票編號文本50顧客電話文本50結帳情況是 /否2表 1.2.1由于入庫表與出庫想類似，所以在此不做詳細介紹。為了方便查詢，因此在出庫與入庫的基礎上增加了幾個查詢表，具體字段如下：1 .查詢結余：型號、產品名稱、出庫數量、入庫數量2 .出庫查詢：顧客名稱、型號、出庫時間、單價、出庫數量OF SUM、發票編號、結帳情況3 .入庫查詢：供應商名稱、型號、入庫時間、單價、入庫數量OF SUM、發票編號、結帳情況4 .出庫型號查詢：型號、產品名稱、顧客名稱、單價、發票編號、結帳情況5 .入庫型號查詢：型號、產

4、品名稱、供應商名稱、單價、發票編號、結帳情況1.3 數據庫的主要特點數據庫中的每一個表都必須符合下面幾個特征：* 表中的每一個單元的內容只有一個值* 所有字段的名稱都不相同* 記錄的前后次序和字段的左右次序可以變化，不受限制* 數據庫中的表的上下次序不受限制* 表中不應有內容完全相同的記錄* 表中的每一個字段都必須有相同的數據類型使用 Visual Basic開發應用程序的兩個主要思想：* 可視設計* 事件驅動編程Visual Basic 應用程序不同于其他語言開發的單一性程序。使用Visual Basic編程時，必須首先確定應用程序如何與用戶交互，如鼠標單擊，用戶必須編寫代 碼控制這些事件的

5、響應方法。使用 Visual Basic開發數據庫應用程序的一般步驟如下所示：（ 1 ） 建 立數據庫（ 2） 建 立用戶界面（ 3） 編 寫代碼（ 4） 調 試運行（ 5） 編 譯應用程序（ 6） 發 布應用程序 界面設計（ 1 ） 控 件的位置（ 2） 界 面元素的一致性（ 3） 保 持界面的簡明（ 4） 使 用顏色和圖象：增加視覺的感染力（ 5） 圖 象和圖標：增加應用程序的視覺上的趣味（ 6） 選 取字體 Visual Basic應用程序的結構：由于 Visual Basic應用程序是基于對象的，所以應用程序的代碼結構就是該程序在屏幕上物理表示的模型。根據定義，對象包含數據和代碼。在屏

6、幕上看到的窗體代表屬性，這些屬性定義了窗體的外觀和內在特性。本設計主要是運用Data控件。Data 控件主要是打開、訪問并操作已有的數據庫，它是 Visual Basic 訪問數據庫的最常用的工具之一。由于Data控件使用Microsoft 的 Jet引擎來實現數據訪問(與 Microsoft Access 所用的數據庫引擎相同)，使用戶可以無縫地訪問很多標準的數據庫格式，而且無需編寫任何代碼就可以創建數據應用程序，因此這種VisualBasic 內部的 Data控件最合適小的(桌面)數據庫，諸如Access和 ISAM 數據庫等。由于 Data控件是 Visual Basic 的內部控件，因

7、此可以直接在標準工具箱中找到該控件。在程序運行過程中，只要用鼠標單擊控件上的箭頭按鈕，系統將自動修改Data控件指向的記錄和顯示在約束控件中的數據，而不需要編寫任何代碼。可以將多個Data控件同時添加到一個工程甚至是同一個窗體中。另外，每個控件可以連接到不同的數據庫或同一個數據庫的不同表上，還可以和代碼一起查詢滿足的語句的表的記錄集。使用 Data控件可以顯示、編輯和更新來字各種已有的數據庫信息。此外，還可以訪問和操作遠程的開放式數據庫連接。除了使用Data控件之外，還運用的Visual Basic 6.0的新增控件功能，Dblistbox它不象標準的列表框或組合框那樣需要使用AddItem

8、方法添加列表項。另外，它們還可以有選擇地把某個選定的字段傳遞給另一個Data控件，使得它對于“查找表”應用程序很理想。與其他的約束控件不同，這些控件可以同時顯示多個記錄。約束數據列表控件類似于普通的列表框控件，可以顯示記錄集中的數據，網格中的每一行代表記錄集中的一個記錄。第二章 管理系統的設計與分析2.1 進入界面由于系統的的界面比較單一，因此在設計過程中運用了許多網上下載的圖片來增添界面的可觀性。在考慮到操作員的技術水平有限，因此在控件方面只運用了COMMAND ，這樣不僅能是界面清楚，更能是操作者很快學會，簡單易懂。圖 2.1.1 是進入本系統的狀態圖，單擊“確定”可以進入界面，如按“系統

9、信息”的話，將顯示本系統的具體軟硬件情況。2.1.1當圖 2.1.1 中的“確定”按鈕被激活時，將進入圖 2.1.3 的屏幕，界面的圖片是圖片引入的，接著將進入正式的編輯或查詢狀態。具體的系統情況如圖2.1.2所示：2.1.2圖 2.1.32. 2 入庫界面當激活入庫按鈕時將出現以下的界面(圖2.2.1)2.2.1入庫窗體(圖2.2.1)及其各個控件的主要屬性控件 類型控件名主要屬性FormFrmrsg1Caption=“入庫情況”DataData1Databasename=“ Adb2.mdb”Recordsettype=1 DynasetCaption=“入庫情況”CommandDialo

10、gCommand1Caption=“上一個”Command2Caption=“下一個”Command3Caption=“確定”Command4Caption=“取消”Command5Caption=“退出”Command6Caption=“增加”Command7Caption=“修改”Command8Caption=“刪除”LableLable1Caption=“序號”Lable2Caption=“型號”Lable3Caption=“產品名稱”Lable4Caption=“數量”Lable5Caption=“單價”Lable6Caption=“入庫時間”Lable7Caption=“發票名稱”

11、Lable8Caption=“供應商名稱”Lable9Caption=“電話”Lable10Caption=“結帳情況”TextText1Caption=“序號”Datasource=“ data1 ”Text2Caption=“型號”Datasource=“ data1 ”Text3Caption=“產品名稱”Datasource=“ data1 ”Text4Caption=“數量”Datasource=“ data1 ”Text5Caption=“單價”Datasource=“ data1 ”Text6Caption=“入庫時間”Datasource=“ data1 ”Text7Capti

12、on=“發票名稱”Datasource=“ data1 ”Text8Caption=“ 供應商名稱”Datasource“= data1 ”Text9Caption=“電話”Datasource=“ data1 ”Text10Caption=“結帳情況”Datasource=“ data1 ”表 2.2.1控件說明 ? 增加新記錄當單擊“確定”按鈕后， “確定”和“取消”兩個按鈕顯示，同時使其他的按鈕不可見，這樣做是為了防止用戶的誤操作。其主要程序如下：Private Sub Command5_Click()xg = True顯示“確定”和“取消”兩個按鈕精品資料網()25 萬份精華管理資料，

13、2 萬多集管理視頻講座Command3.Visible = TrueCommand4.Visible = True取消其他按鈕功能Command5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseData1.Recordset.AddNew 添加一個新記錄Text1.SetFocus 光標在TEXT1 處end sub? 修改記錄在調用 EDIT 方法之前，約束控件中的數據是

14、只讀的，用戶無法對其進行修改。調用了 EDIT 方法后， 用戶可以在約束控件中修改記錄的值。如果在對當前記錄進行修改之前修改，未使用EDIT 方法，將發生運行時錯誤。其主要程序如下：Private Sub Command6_Click()xg = TrueCommand3.Enabled = TrueCommand4.Enabled = True取消其他按鈕功能Command5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand1.Enabled = Fal

15、seCommand2.Enabled = False對記錄進行編輯Data1.Recordset.EditText1.SetFocusEnd Sub? 刪除記錄當用戶單擊“刪除”命令按鈕時，為了防止用戶誤刪除數據，程序將調用 Msgbox()函數以彈出對話框，詢問用戶是否真的要刪除該記錄。如果用戶單擊對話框上的“確定”按鈕，程序調用記錄集的 Delete 方法，將記錄集的當前記錄設置為空，并從原始的表中刪掉當前記錄。但是刪除的記錄仍然是當前記錄，只是將其變為了無效的記錄，任何對其的引用都會產生錯誤。其主要程序如下：Private Sub Command6_Click()xg = TrueCom

16、mand3.Enabled = TrueCommand4.Enabled = True取消其他按鈕功能Command5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = FalseCommand8.Enabled = FalseCommand1.Enabled = FalseCommand2.Enabled = False對記錄進行編輯Data1.Recordset.EditText1.SetFocusEnd SubPrivate Sub Command7_Click()ss = MsgBox( 真的要刪除嗎？, vbYesNo

17、 + vbInformation, 刪除記錄)如果要刪除If (ss = vbYes) ThenData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastCommand2.Enabled = FalseEnd IfEnd IfEnd Sub? 移動數據當用戶單擊“上一個”和“下一個”按鈕是，系統將自動轉換數據，但注意，當移至第一個記錄時， “下一個”按鈕將失效；移至最后一個記錄是， “上一個”按鈕也將失效。其中在設計程序時，為了防止“NO Current Re

18、cord”這樣的錯誤，在移動記錄指針時測試記錄集的BOF 和 EOF 屬性。如果單擊“上一個”和“下一個”命令按鈕將導致記錄指針指向空指針，則分別調用Movefirst 和 Movelast方法， 這是防止 “ NOCurrent Record”錯誤出現的最簡單和最有效的方法。與此同時，如果記錄集的BOF屬性為True,則置“上一個”命令按鈕為非激活狀態，是用戶無法再單擊該按鈕。同樣，當記錄集的BOF 屬性為 True時，置“下一個”命令按鈕為非激活狀態。其主要程序如下：Private Sub Command1_Click()xg = FalseData1.Recordset.MovePrev

19、ious如果是第一個記錄，BOF 屬性為 TRUEIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirstCommand1.Enabled = FalseElseCommand2.Enabled = TrueCommand1.Enabled = TrueEnd IfEnd SubPrivate Sub Command2_Click()xg = FalseData1.Recordset.MovePrevious如果當前記錄是記錄集中最后一個記錄，EOF 屬性為 TRUEIf Data1.Recordset.BOF ThenData1.Records

20、et.MoveLastCommand2.Enabled = FalseElseCommand2.Enabled = TrueCommand1.Enabled = TrueEnd IfEnd Sub? 用Updata方法確認增加和修改當用戶修改和增加完一個記錄的數據后，需要將數據保存到數據庫中。可以通過調用記錄集的Updata方法把數據保存到數據庫中。單擊“確定”按鈕時，記錄將被記如數據庫。其主要程序如下：Private Sub Command3_Click()On Error GoTo error1xg = TrueData1.Recordset.UpdateCommand3.Enabled

21、= FalseCommand4.Enabled = FalseCommand2.Enabled = TrueCommand1.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueCommand8.Enabled = TrueExit Suberror1: MsgBox Err.Description, vbOKOnly, 錯誤提示End Sub? 用CancelUpdata方法放棄增加和修改如果用戶修改了約束控件里的數據后，在沒有單擊“

22、確定”命令按鈕之前，想放棄剛才的增加或修改，則可以單擊“取消”命令。由于其程序與Updata方法相似，因此不做重復解釋。? 定義Data_Validata事件過程對于一個新記錄或編輯的記錄，如果不能維護引用完整性或不能反映該舊路的實體原型，那么它就是無效的，并且破壞了數據庫的完整性。為了在“入庫情況”表中建立一個有效的記錄，就必須要有主關鍵字段“型號”的值。因此，對已經存在和新增加的舊路都要先測試其“型號”字段之后才可以執行更新操作。其主要程序如下：當約束控件中內容改變時If Text2.DataChanged ThenSave = TrueIf Data1.Recordset.RecordC

23、ount 1 ThenCommand1.Enabled = TrueCommand2.Enabled = TrueEnd IfElseIf Text2.Text = And xg = True Thenss = MsgBox（ 必須要有型號！ , vbOKOnly + vbInformation, 提示 ）Action = FalseCommand3.Visible = TrueCommand4.Visible = TrueCommand1.Visible = TrueCommand2.Visible = TrueCommand7.Visible = TrueCommand8.Visible

24、= TrueCommand5.Visible = TrueCommand6.Visible = TrueEnd IfEnd IfIf Action = data_actionunload Or Action = data_actionclose ThenSave = TrueEnd IfEnd Sub2.3 出庫界面當單擊“出庫”按鈕的時候，系統將進入出庫信息輸入界面，如(圖 2.3.1)所示，其基本情況與入庫相類似，依次不做具體介紹。圖 2.3.12.4 查詢界面當用戶單擊 “查詢” 按鈕時， 系統將出現密碼登陸框，因為查詢的是內部資料，因此，需身份驗證，如圖2.4.1圖 2.4.12.4.

25、2圖 2.4.2用戶可根據不同需要進行“按型號”和“按單位”的查詢。? 單擊“按型號”，系統將進入以型號為關鍵字段的查詢，如圖2.4.3。其中根據SQL 語句的查詢，選出出庫型號與入庫型號相同的記錄，統計出入庫與出庫的總數量，然后可按“上一個”和“下一個”進行查詢，也可按出庫與入庫分別查詢記錄。圖 2.4.3? 當用戶單擊“查詢出庫”按鈕是，系統進入界面，如圖 2.4.4圖 2.4.42.4.4窗體及其上面控件的屬性設置控件類型控件名主要屬性FormfrmdblistCaption=“查詢出庫”DataData1DatabaseName“=db2.mdb”RecordsetType=1Reco

26、rdSource=“出庫型號”FrameFrame1Caption=“具體情況”LableLable1Cqption=“產品名稱”Lable2Cqption=“單價”Lable3Cqption=“發票編號”Lable4Cqption=“顧客名稱”Lable5Cqption=“結帳情況”TextText1Datafield= “具體情況”Datasource=“ Data1”Text2Datafield= “具體情況”Datasource=“ Data1”Text3Datafield= “具體情況”Datasource=“ Data1”Text4Datafield= “具體情況”Datasour

27、ce=“ Data1”Text5Datafield= “具體情況”Datasource=“ Data1”DBlistDblist1Listfield= “型號”Rowsource=“ Data1”表 2.4.1? 單擊 Dblist 框中的型號，Frame中將自動顯示記錄，以供用戶查詢。2.4.5的界面。再回到查詢界面，單擊“按單位”按鈕，此時系統將進入按單位查詢的截面，如圖 2.4.6圖 2.4.6? 分別按 “顧客” 和 “供應商”按鈕， 系統將分別進入不同的查詢界面，如圖 2.4.7和圖 2.4.84.3，因此也不做詳細介紹。2.4.72.4.82.5 退出程序再回到登陸主窗口，(圖2.1.3) ，單擊“退出”按鈕，系統將退出程序，顯示以下窗口(圖2.5.1) ，單擊圖中的“再見”，此程序也將結束。2.5.1第三章 系統運行與調試測試本身的目的是