Access應用管理進銷存

第12章Access在進銷存管理中的應用整理ppt本章學習要點了解進銷存系統(tǒng)的概念系統(tǒng)的功能設計系統(tǒng)的模塊設計表和表關(guān)系的設計查詢的設計窗體的創(chuàng)立報表的創(chuàng)立宏命令和VBA代碼的創(chuàng)立系統(tǒng)的運行與應用整理ppt12.1實例導航系統(tǒng)功能開發(fā)要點整理ppt12.1.1系統(tǒng)功能我們所設計的進銷存系統(tǒng)的主要功能包括如下。商品根本信息的管理：用來處理進出庫的商品信息，包括新建、修改、刪除和查詢等。訂單信息的處理：是整個系統(tǒng)的工作流程的起點，包括訂單的增減、查詢，以及訂單在處理過程中(如發(fā)貨確認等)狀態(tài)的改變。產(chǎn)品入庫出庫管理：完成記錄，修改商品入出庫信息，并有庫存報表功能。查詢功能：允許管理員可以按編號、日期對進貨商的銷售信息進行查詢；對入庫的產(chǎn)品信息進行詳細的查詢，包括編號、名稱、入庫時間等。整理ppt12.1.2開發(fā)要點理解數(shù)據(jù)表的結(jié)構(gòu)，掌握各表之間關(guān)系的建立原理，熟悉查詢和窗體的設計，對進銷存管理系統(tǒng)有比較清楚的了解，從而開發(fā)出完整的進銷存管理系統(tǒng)。整理ppt12.2系統(tǒng)需求分析設計需求分析模塊設計整理ppt12.2.1需求分析用戶的需求主要有以下內(nèi)容。將訂單、商品、供給商、客戶、商品、進貨、銷售等信息錄入管理系統(tǒng)，提供修改和查詢。能夠?qū)Ω黝愋畔⑻峁┎樵儭Ｄ軌蚪y(tǒng)計進出庫的各類信息，對進庫、銷售、庫存進行匯總，協(xié)調(diào)各部門的相互工作。整理ppt12.2.2模塊設計按照前面的需求分析，我們設計的進銷存系統(tǒng)分為以下幾個模塊。系統(tǒng)的根本配置模塊：包括產(chǎn)品、供給商、客戶的根本資料的錄入。產(chǎn)品進出庫處理模塊：主要包括對訂單信息的處理和采購單的處理，一般產(chǎn)品入出庫的處理。查詢模塊：對系統(tǒng)中的各類信息，如供給商資料、出入庫詳細資料等進行查詢，支持多個條件的復合查詢。報表顯示模塊：根據(jù)用戶的需要和查詢結(jié)果來生成報表。整理ppt12.3數(shù)據(jù)庫結(jié)構(gòu)的設計數(shù)據(jù)表結(jié)構(gòu)需求分析建立空數(shù)據(jù)庫系統(tǒng)創(chuàng)立數(shù)據(jù)表定義數(shù)據(jù)表之間的關(guān)系整理ppt12.3.1數(shù)據(jù)表結(jié)構(gòu)需求分析在本系統(tǒng)中，我們設計了10張數(shù)據(jù)表，各個表存儲的信息如下所示?！肮芾韱T〞表：存放系統(tǒng)管理人員信息，一般是企業(yè)管理人員的用戶名和密碼?！爱a(chǎn)品信息〞表：存儲產(chǎn)品的根本信息，如產(chǎn)品編號、產(chǎn)品名稱、規(guī)格型號、計量單位、供給商編號、產(chǎn)品類別等。“供給商〞表：存放產(chǎn)品供給商的相關(guān)信息，比方供給商編號、供給商名稱、聯(lián)系人姓名、聯(lián)系人職務、業(yè)務、電子郵件等。“客戶〞表：記錄客戶的根本信息，比方客戶編號、客戶姓名、客戶地址、聯(lián)系、電子郵件、備注等?！坝唵唯暠恚河涗浻唵蔚母拘畔?，如訂單編號、客戶編號、產(chǎn)品編號、供給商編號、銷售單價、訂購數(shù)量、訂單金額、預定時間、訂單時間等根本預訂信息?！坝唵翁幚砻骷毃暠恚撼擞唵胃拘畔⑼?，還要增加付款信息和發(fā)貨信息，如付款方式、付款時間、發(fā)貨地址、發(fā)貨時間、發(fā)貨人等?！叭霂煊涗洦暠恚捍娣女a(chǎn)品入庫的信息?！俺鰩煊涗洦暠恚捍娣女a(chǎn)品出庫的信息。“業(yè)務類別〞表：記錄進出庫的業(yè)務類型。“庫存〞表：記錄產(chǎn)品的庫存信息。整理ppt12.3.2建立空數(shù)據(jù)庫系統(tǒng)建立一個“進銷存管理系統(tǒng).accdb〞空白數(shù)據(jù)庫。第一步：翻開Access2007，單擊【開始使用MicrosoftOfficeAccess】頁中的【空白數(shù)據(jù)庫】按鈕，如以下圖所示。第二步：系統(tǒng)出現(xiàn)如以下圖所示的窗口，選擇適宜的路徑，輸入數(shù)據(jù)庫名稱為“進銷存系統(tǒng).accdb〞。整理ppt12.3.2建立空數(shù)據(jù)庫系統(tǒng)建立一個“進銷存管理系統(tǒng).accdb〞空白數(shù)據(jù)庫。第三步：單擊【創(chuàng)立】按鈕，完成該數(shù)據(jù)庫的創(chuàng)立。系統(tǒng)自動建立了一個名為“表1〞的數(shù)據(jù)表。整理ppt12.3.3創(chuàng)立數(shù)據(jù)表“管理員〞表“產(chǎn)品信息〞表整理ppt12.3.3創(chuàng)立數(shù)據(jù)表“供給商〞表整理ppt12.3.3創(chuàng)立數(shù)據(jù)表“客戶〞表整理ppt12.3.3創(chuàng)立數(shù)據(jù)表“訂單〞表整理ppt12.3.3創(chuàng)立數(shù)據(jù)表“訂單處理明細〞表整理ppt12.3.3創(chuàng)立數(shù)據(jù)表“入庫記錄〞表整理ppt12.3.3創(chuàng)立數(shù)據(jù)表“出庫記錄〞表整理ppt12.3.3創(chuàng)立數(shù)據(jù)表“業(yè)務類別〞表“庫存〞表整理ppt12.3.4定義數(shù)據(jù)表之間的關(guān)系建立“產(chǎn)品信息〞表和“出庫記錄〞表之間的表關(guān)系。第一步：啟動Access2007，翻開“進銷存管理系統(tǒng).accdb〞。第二步：切換到【數(shù)據(jù)庫工具】選項卡，單擊【關(guān)系】按鈕，如以下圖所示。第三步：單擊右鍵，在彈出的快捷菜單中選擇【顯示表】命令，按住Ctrl鍵，選擇所有的表，然后單擊【添加】按鈕，把所有的表都添加上去，如以下圖所示。整理ppt12.3.4定義數(shù)據(jù)表之間的關(guān)系建立“產(chǎn)品信息〞表和“出庫記錄〞表之間的表關(guān)系。第四步：設置表的參照完整性。我們以“產(chǎn)品信息〞表中的“產(chǎn)品編號〞字段與“出庫記錄〞表中的“產(chǎn)品編號〞字段為例。按下鼠標左鍵拖動“產(chǎn)品信息〞表中的“產(chǎn)品編號〞字段到“出庫記錄〞表中的“產(chǎn)品編號〞字段上，釋放鼠標左鍵，系統(tǒng)彈出【編輯關(guān)系】對話框，如以下圖所示。第五步：選中【實施參照完整性】復選框，這樣就建立了表之間的一對多關(guān)系，如以下圖所示。整理ppt12.3.4定義數(shù)據(jù)表之間的關(guān)系按照同樣的步驟，可以建立起其他表之間的關(guān)系。最終建立了下面的關(guān)系圖。我們設計的數(shù)據(jù)庫表中，各種表關(guān)系如下表所示。整理ppt12.4窗體的實現(xiàn)“登錄〞窗體“切換面板〞窗體“訂單處理〞窗體“發(fā)貨確認〞窗體“產(chǎn)品進庫〞窗體“供給商查詢編輯〞窗體“進貨資料查詢〞窗體“密碼管理〞窗體整理ppt12.4.1“登錄〞窗體運用“模式對話框〞窗體，設計本系統(tǒng)的“登錄〞窗體。第一步：啟動Access2007，翻開“進銷存管理系統(tǒng).accdb〞數(shù)據(jù)庫。第二步：切換到【創(chuàng)立】選項卡，選擇【窗體】組中【其他窗體】下拉菜單中的【模式對話框】選項，如以下圖所示。第三步：出現(xiàn)一張空白窗體，已有兩個按鈕：【確定】和【取消】，如以下圖所示。整理ppt12.4.1“登錄〞窗體運用“模式對話框〞窗體，設計本系統(tǒng)的“登錄〞窗體。第四步：調(diào)整窗體布局，在窗體上添加幾個控件，屬性值設置如下表所示。第五步：設置主體背景顏色。在主體區(qū)域中右擊，在彈出的快捷菜單中選擇【填充/背景色】選項，彈出如以下圖所示的菜單。整理ppt12.4.1“登錄〞窗體運用“模式對話框〞窗體，設計本系統(tǒng)的“登錄〞窗體。第六步:調(diào)整窗體布局，完成后的“登錄〞窗體如以下圖所示。整理ppt12.4.2“切換面板〞窗體運用窗體的【設計視圖】，設計本系統(tǒng)的“切換面板〞窗體。第一步：啟動Access2007，翻開“進銷存管理系統(tǒng).accdb〞數(shù)據(jù)庫。第二步：切換到【創(chuàng)立】選項卡，單擊【窗體】組中的【窗體設計】按鈕，出現(xiàn)一張空白窗體。第三步：調(diào)整窗體布局。添加一個“矩形〞控件，“背景〞屬性設為“#9DBB61〞。添加標題控件，并將標題設為“進銷存系統(tǒng)例如〞。添加一個徽標控件，圖片為“羅斯文.png〞，創(chuàng)立后的效果如以下圖所示。整理ppt12.4.2“切換面板〞窗體運用窗體的【設計視圖】，設計本系統(tǒng)的“切換面板〞窗體。第四步：利用命令按鈕控件和標簽控件，為窗體添加幾個按鈕和標簽，來處理管理員的操作。各個控件的屬性設置如下表所示。第五步：這樣就完成了“切換面板〞窗體的創(chuàng)立，完成后的結(jié)果如以下圖所示。整理ppt12.4.3“訂單處理〞窗體運用窗體向?qū)?，設計本系統(tǒng)的“訂單處理〞窗體。第一步：啟動Access2007，翻開“進銷存管理系統(tǒng).accdb〞數(shù)據(jù)庫。第二步：切換到【創(chuàng)立】選項卡，選擇【窗體】組中【其他窗體】下拉菜單中的【窗體向?qū)А窟x項。第三步：按照前面章節(jié)介紹的步驟，在【表/查詢】下拉列表框中選擇“表：訂單〞，將【可選字段】列表框中的所有字段參加右面【選定字段】列表框中，然后依次確定即可。系統(tǒng)自動生成的窗體如以下圖所示。整理ppt12.4.3“訂單處理〞窗體運用窗體向?qū)?，設計本系統(tǒng)的“訂單處理〞窗體。第四步：假設要加上按鈕控件，那么切換到【窗體設計工具】選項卡，單擊【使用控件向?qū)А堪粹o，那么所有添加控件都會在向?qū)Ｊ较逻M行。第五步：單擊【命令控件】按鈕，出現(xiàn)如以下圖所示的【命令按鈕向?qū)А繉υ捒?，我們以“保存記錄〞為例加以說明。整理ppt12.4.3“訂單處理〞窗體運用窗體向?qū)?，設計本系統(tǒng)的“訂單處理〞窗體。第六步：單擊【下一步】按鈕，為按鈕添加上適宜的圖標或者文字，如以下圖所示。第七步：單擊【下一步】按鈕，在彈出的指定按鈕名稱的對話框中輸入該按鈕的名稱，如以下圖所示。整理ppt12.4.3“訂單處理〞窗體運用窗體向?qū)ВO計本系統(tǒng)的“訂單處理〞窗體。第八步：修改如下表所示主要控件的屬性，設置窗體的頁眉和頁腳。第九步：這樣我們就完成了“訂單處理〞窗體的創(chuàng)立過程，完成后的界面如以下圖所示。整理ppt12.4.4“發(fā)貨確認〞窗體運用窗體的【設計視圖】，設計本系統(tǒng)的“發(fā)貨確認〞窗體。第一步：單擊右鍵，在彈出的快捷菜單中選擇【窗體頁眉/頁腳】選項，進行窗體頁眉設置。步驟和前面一樣，這里不再贅述。第二步：在窗體上添加控件，屬性見下表所示。第三步：完成后的“發(fā)貨確認〞窗體如以下圖所示。整理ppt12.4.5“產(chǎn)品進庫〞窗體運用窗體的【設計視圖】，設計本系統(tǒng)的“產(chǎn)品進庫〞窗體。第一步：單擊【創(chuàng)立】選項卡中【窗體】組中的【窗體設計】按鈕，會出現(xiàn)一個空白窗體。第二步：為窗體設計一個窗體頁眉，單擊右鍵，彈出如下快捷菜單。整理ppt12.4.5“產(chǎn)品進庫〞窗體運用窗體的【設計視圖】，設計本系統(tǒng)的“產(chǎn)品進庫〞窗體。第三步：選擇【窗體頁眉/頁腳】選項，窗體中出現(xiàn)【窗體頁眉】區(qū)域，如以下圖所示。第四步：為窗體添加一個標簽，設置標題為“產(chǎn)品進庫管理〞，再添加一個徽標控件，圖片設置為“羅斯文.png〞。第五步：為窗體添加表中的字段。單擊【主體】區(qū)域，單擊【設計】選項卡下的【添加現(xiàn)有字段】按鈕，彈出【字段列表】窗格，如以下圖所示。整理ppt12.4.5“產(chǎn)品進庫〞窗體運用窗體的【設計視圖】，設計本系統(tǒng)的“產(chǎn)品進庫〞窗體。第六步：將“入庫記錄〞表的所有字段添加到窗體上，并排列整齊。第七步：為窗體增加4個導航按鈕，分別為“第一個〞、“前一個〞、“后一個〞、“最后一個〞。添加的方法利用【命令按鈕向?qū)А繉υ捒?，如以下圖所示。第八步：用同樣的方法，為窗體加上幾個功能按鈕，標題分別為“添加記錄〞、“保存記錄〞、“刪除記錄〞、“進貨查詢〞、“庫存查詢〞和“返回〞。整理ppt12.4.5“產(chǎn)品進庫〞窗體運用窗體的【設計視圖】，設計本系統(tǒng)的“產(chǎn)品進庫〞窗體。第九步：如果要查看數(shù)據(jù)表格式的入庫記錄，我們可以在窗體上添加一個子窗體。第十步：單擊【控件】組中的【子窗體/子報表】按鈕，并拖放到窗體中，出現(xiàn)【子窗體向?qū)А繉υ捒颍缫韵聢D所示。第十一步：選中【使用現(xiàn)有的表和查詢】單項選擇按鈕，單擊【下一步】按鈕，彈出選擇字段的對話框。在對話框的【表/查詢】下拉列表框中選擇“表：入庫記錄〞，并把“入庫記錄〞表的全部字段參加到【選定字段】列表框中，如以下圖所示。整理ppt12.4.5“產(chǎn)品進庫〞窗體運用窗體的【設計視圖】，設計本系統(tǒng)的“產(chǎn)品進庫〞窗體。第十二步：單擊【下一步】按鈕，在彈出的對話框中選擇主/次字段的鏈接方式。我們選中【從列表中選擇】單項選擇按鈕，并在下面的列表框中選擇用“入庫編號〞顯示，如以下圖所示。第十三步：單擊【下一步】按鈕，在彈出的對話框中輸入子窗體的名稱，如以下圖所示。整理ppt12.4.5“產(chǎn)品進庫〞窗體運用窗體的【設計視圖】，設計本系統(tǒng)的“產(chǎn)品進庫〞窗體。第十四步：調(diào)整窗體的布局，這樣我們就完成了“產(chǎn)品進庫〞窗體的創(chuàng)立。最終的創(chuàng)立效果如以下圖所示。整理ppt12.4.6“供給商查詢編輯〞窗體運用窗體的窗體向?qū)?，設計本系統(tǒng)的“供給商查詢編輯〞窗體。第一步：切換到【創(chuàng)立】選項卡，選擇【其他窗體】下拉菜單中的【窗體向?qū)А窟x項，如以下圖所示。第二步：按照向?qū)У奶崾?，在【?查詢】下拉列表框中選擇“表：供給商〞，將【可選字段】列表框中的所有字段參加到右面【選定字段】列表框中。其他設置按照以前的介紹設置，最后生成的窗體如以下圖所示。整理ppt12.4.6“供給商查詢編輯〞窗體運用窗體的窗體向?qū)?，設計本系統(tǒng)的“供給商查詢編輯〞窗體。第三步：我們還要在這個窗體上加上“記錄導航〞按鈕和“記錄操作〞按鈕，注意在“使用控件向?qū)Ж曄绿砑印５谒牟剑哼€添加了另外幾個控件，屬性設置見下表所示。第五步：調(diào)整窗體布局，完成后的窗體如以下圖所示。整理ppt12.4.7“進貨資料查詢〞窗體設計本系統(tǒng)的“供給商查詢編輯〞窗體，在這里我們將用子窗口的方式來顯示查詢結(jié)果。第一步：切換到【創(chuàng)立】選項卡，單擊【窗體】組中的【窗體設計】按鈕。第二步：添加假設干控件，并設置它們的屬性值，具體情況如下表所示。整理ppt12.4.7“進貨資料查詢〞窗體設計本系統(tǒng)的“供給商查詢編輯〞窗體，在這里我們將用子窗口的方式來顯示查詢結(jié)果。第五步：調(diào)整窗體布局，完成了“進貨資料查詢〞窗體的創(chuàng)立，最終效果如以下圖所示。整理ppt12.4.8“密碼管理〞窗體“密碼管理〞窗體控件如下表所示。完成后的“密碼管理〞窗體如以下圖所示。整理ppt12.4.8“密碼管理〞窗體“新密碼〞窗體控件如下表所示。完成后的“新密碼〞窗體如以下圖所示。整理ppt12.5查詢的實現(xiàn)“訂單處理查詢〞的設計“供給商銷售查詢〞的設計“進貨資料查詢〞的設計“庫存查詢〞的設計整理ppt12.5.1“訂單處理查詢〞的設計使用“查詢向?qū)Ж晛韯?chuàng)立“訂單處理查詢〞第一步：切換到【創(chuàng)立】選項卡，然后單擊【其他】組中的【查詢設計】按鈕，如以下圖所示。第二步：系統(tǒng)彈出如以下圖所示的【顯示表】對話框，提示我們參加所需要的表，如以下圖所示。整理ppt12.5.1“訂單處理查詢〞的設計使用“查詢向?qū)Ж晛韯?chuàng)立“訂單處理查詢〞第三步：選擇“訂單說明細〞表，單擊【添加】按鈕，將該表添加到查詢的【設計視圖】中。第四步：依次選擇該表中的全部字段，將其添加到查詢的設計網(wǎng)格中，如以下圖所示。第五步：為字段添加查詢條件。右擊“訂單編號〞字段查詢網(wǎng)格的【條件】行，在彈出的快捷菜單中選擇【生成器】選項，如以下圖所示。整理ppt12.5.1“訂單處理查詢〞的設計使用“查詢向?qū)Ж晛韯?chuàng)立“訂單處理查詢〞第六步：系統(tǒng)彈出【表達式生成器】對話框。在【表達式生成器】對話框中，我們?yōu)椴樵兊淖侄卧O置條件，將它和窗體上的控件值聯(lián)系到一起，如以下圖所示。第七步：保存該查詢?yōu)椤坝唵翁幚聿樵儴?。這樣，我們就完成了“訂單處理查詢〞的創(chuàng)立。輸入的查詢條件如上圖所示，這樣把查詢中的“訂單編號〞和窗體上的“訂單編號〞關(guān)聯(lián)起來。整理ppt12.5.2“供給商銷售查詢〞的設計設計“供給商銷售查詢〞第一步：切換到【創(chuàng)立】選項卡，然后單擊【其他】組中的【查詢設計】按鈕。第二步：彈出的【顯示表】對話框中，依次把“供給商〞表、“訂單〞表和“產(chǎn)品信息〞表添加到查詢的【設計視圖】中，然后關(guān)閉該對話框，如以下圖所示。第三步：選擇要進行查詢的字段。雙擊選擇的字段，即可將字段參加到下面的查詢設計網(wǎng)格中，最終結(jié)果如以下圖所示。整理ppt12.5.2“供給商銷售查詢〞的設計設計“供給商銷售查詢〞第四步：為字段添加查詢條件。右擊“供給商編號〞字段查詢網(wǎng)格的【條件】行，在彈出的快捷菜單中選擇【生成器】選項，如以下圖所示。第五步：在彈出的【表達式生成器】對話框中，我們?yōu)椤肮┙o商編號〞字段設置查詢條件，如以下圖所示。整理ppt12.5.2“供給商銷售查詢〞的設計設計“供給商銷售查詢〞第六步：按照同樣的步驟，設置字段的查詢條件。整個查詢的條件設置如下表所示。第七步：保存該查詢?yōu)椤肮┙o商銷售查詢〞，這樣我們就完成了該查詢的創(chuàng)立。整理ppt12.5.3“進貨資料查詢〞的設計我們建立的字段的信息如下表所示。整理ppt12.5.3“進貨資料查詢〞的設計“進貨資料查詢〞查詢的【設計視圖】如以下圖所示。整理ppt12.5.4“庫存查詢〞的設計設計“庫存查詢〞。第一步：切換到【創(chuàng)立】選項卡，然后單擊【其他】組中的【查詢設計】按鈕，如以下圖所示。第二步：在彈出的【顯示表】對話框中，將“庫存〞表和“產(chǎn)品信息〞表添加到查詢【設計視圖】中，將該表中的所有字段添加到查詢設計網(wǎng)格中，如以下圖所示。整理ppt12.5.4“庫存查詢〞的設計設計“庫存查詢〞。第一步：為字段添加條件。右擊“產(chǎn)品編號〞字段的【條件】行，在彈出的快捷菜單中選擇【生成器】選項。第二步：系統(tǒng)彈出【表達式生成器】對話框，在該對話框中為查詢的字段設置條件，將它和窗體上的控件值聯(lián)系到一起。設置的查詢條件如以下圖所示。第三步：保存該查詢?yōu)椤皫齑娌樵儴?，這樣我們就完成了“庫存查詢〞的創(chuàng)立。整理ppt12.6報表的實現(xiàn)“訂單查詢〞報表“供給商銷售〞報表“庫存〞報表整理ppt12.6.1“訂單查詢〞報表“訂單查詢〞報表用來顯示訂單查詢的結(jié)果。第一步：切換到【創(chuàng)立】選項卡，單擊【報表】組中的【報表向?qū)А堪粹o，如以下圖所示。第二步：系統(tǒng)彈出【報表向?qū)А繉υ捒?，在【?查詢】下拉列表框中選擇“查詢：訂單查詢〞，然后把所有字段作為選定字段，如以下圖所示。整理ppt12.6.1“訂單查詢〞報表“訂單查詢〞報表用來顯示訂單查詢的結(jié)果。第三步：單擊【下一步】按鈕，彈出選擇數(shù)據(jù)查看方式的對話框。我們選擇“通過訂單〞選項，如以下圖所示。第四步：單擊【下一步】按鈕，彈出選擇分組級別的對話框。本報表中我們不添加分組級別，如以下圖所示。整理ppt12.6.1“訂單查詢〞報表“訂單查詢〞報表用來顯示訂單查詢的結(jié)果。第五步：單擊【下一步】按鈕，在彈出的對話框中選擇“產(chǎn)品編號〞為排序字段，按升序排序，如以下圖所示。第六步：單擊【下一步】按鈕，在彈出的對話框中選擇布局方式為“表格〞布局，布局方向為“縱向〞，如以下圖所示。整理ppt12.6.1“訂單查詢〞報表“訂單查詢〞報表用來顯示訂單查詢的結(jié)果。第七步：單擊【下一步】按鈕，在彈出的對話框中選擇報表樣式。我們選擇【辦公室】選項，如以下圖所示。第八步：單擊【下一步】按鈕，輸入該報表的名稱為“訂單查詢報表〞，如以下圖所示。整理ppt12.6.1“訂單查詢〞報表“訂單查詢〞報表用來顯示訂單查詢的結(jié)果。第九步：單擊【完成】按鈕，完成“訂單查詢報表〞的創(chuàng)立。此時該報表的【設計視圖】如以下圖所示。整理ppt12.6.2“供給商銷售〞報表建立“供給商銷售〞報表，作為供給商銷售查詢的輸出結(jié)果。第一步：切換到【創(chuàng)立】選項卡，單擊【報表】組中的【報表向?qū)А堪粹o，如以下圖所示。第二步：在彈出的【報表向?qū)А繉υ捒蛑?，選擇報表的數(shù)據(jù)源為“查詢：供給商查詢〞，然后把查詢中的所有字段作為選定字段，如以下圖所示。整理ppt12.6.2“供給商銷售〞報表建立“供給商銷售〞報表，作為供給商銷售查詢的輸出結(jié)果。第三步：單擊【下一步】按鈕，在彈出的對話框中選擇數(shù)據(jù)的查看方式。我們選擇“通過供給商〞選項，如以下圖所示。第四步：單擊【下一步】按鈕，在彈出的對話框中不選擇分組級別。第五步：單擊【下一步】按鈕，在排序方式中選擇通過“預定時間〞和“訂購數(shù)量〞進行排序，排序方式分別為“升序〞和“降序〞，如以下圖所示。整理ppt12.6.2“供給商銷售〞報表建立“供給商銷售〞報表，作為供給商銷售查詢的輸出結(jié)果。第六步：單擊【下一步】按鈕，在彈出的對話框中選擇報表的樣式為“辦公室〞。第七步：單擊【下一步】按鈕，輸入報表標題為“供給商銷售報表〞，選中【預覽報表】單項選擇按鈕。第八步：單擊【完成】按鈕，完成“供給商銷售報表〞的創(chuàng)立。此時報表的【設計視圖】如以下圖所示。整理ppt12.6.3“庫存〞報表在建立“庫存〞報表前，我們需要建立一個“庫存查詢〞，建立查詢的過程如下所示。第一步：切換到【創(chuàng)立】選項卡，單擊【報表】組中的【報表向?qū)А堪粹o，如以下圖所示。第二步：在彈出的【報表向?qū)А繉υ捒蛑?，選擇報表的數(shù)據(jù)源為“查詢：庫存查詢〞，然后把查詢中的所有字段作為選定字段，如以下圖所示。整理ppt12.6.3“庫存〞報表在建立“庫存〞報表前，我們需要建立一個“庫存查詢〞，建立查詢的過程如下所示。第三步：為報表添加分組級別“產(chǎn)品類別〞，這樣就把不同類別產(chǎn)品的信息分開了，如以下圖所示。第四步：系統(tǒng)彈出提示排序次序的對話框，我們用“產(chǎn)品編號〞作為排序的標準，單擊【下一步】按鈕。整理ppt12.6.3“庫存〞報表在建立“庫存〞報表前，我們需要建立一個“庫存查詢〞，建立查詢的過程如下所示。第五步：單擊【下一步】按鈕，在彈出的對話框中選擇報表的樣式為“辦公室〞。第六步：單擊【下一步】按鈕，輸入報表標題為“庫存查詢〞，選中【預覽報表】單項選擇按鈕。第七步：單擊【完成】按鈕，完成了報表的設計。此時，報表的【設計視圖】如以下圖所示。整理ppt12.7編碼的實現(xiàn)公用模塊“登錄〞窗體代碼“切換面板〞代碼“產(chǎn)品進庫〞窗體代碼“發(fā)貨確認〞窗體代碼“供給商〞窗體代碼“進貨資料查詢〞窗體代碼“密碼管理〞窗體代碼整理ppt12.7.1公用模塊建立公用模塊第一步：我們首先要新建一個“模塊〞。單擊【數(shù)據(jù)庫工具】選項卡下的VisualBasic按鈕，進入VBA編輯器，如以下圖所示。第二步：選擇【插入】菜單，選擇【模塊】命令，即可增加一個新模塊，如以下圖所示。整理ppt12.7.1公用模塊建立公用模塊第三步:新建模塊以后，VBA編輯器界面如以下圖所示。第四步：我們在新增加的模塊里，增加如下代碼。OptionCompareDatabaseOptionExplicit'txtSQL為執(zhí)行查詢時所需要的SQL語句PublicFunctionExeSQL(ByValtxtSQLAsString)AsADODB.RecordsetOnErrorGoToExeSQL_Error'錯誤處理DimrsAsNewADODB.Recordsetrs.OpentxtSQL,CurrentProject.Connection,adOpenKeyset,adLockOptimistic'返回記錄集對象SetExeSQL=rs'返回值為ExeSQLExeSQL_Exit:Setrs=NothingExitFunctionExeSQL_Error:DimmsgstringAsStringmsgstring="查詢錯誤"&Err.DescriptionMsgBoxmsgstring,vbCriticalResumeExeSQL_ExitEndFunction整理ppt12.7.1公用模塊為了正確地使用ADO方式來對數(shù)據(jù)庫查詢，我們要在VBA編輯器下參加兩個引用。選擇【工具】|【引用】命令，參加創(chuàng)立表有多種不同的方法，用戶可以根據(jù)自己的習慣和工作的難易程度選擇適宜的創(chuàng)立方法。直接輸入、表模板、表的【設計視圖】是最常用的創(chuàng)立表的方法。MicrosoftActiveXDataObjects2.8Library和MicrosoftActiveXDataObjectsRecordset2.8Library，如以下圖所示。整理ppt12.7.2“登錄〞窗體代碼我們設計的“登錄〞窗體如以下圖所示。整理ppt12.7.2“登錄〞窗體代碼編寫“登錄〞窗體代碼第一步：翻開“登錄〞窗體的【設計視圖】，右擊，在彈出的快捷菜單中選擇【屬性表】選項，彈出【屬性表】窗格，如以下圖所示。第二步：在【屬性表】窗格的【所選內(nèi)容的類型：窗體】下拉列表框中選擇“窗體〞選項。切換到【數(shù)據(jù)】選項卡，把【記錄源】屬性設置為“管理員〞表。第三步：單擊【確定】按鈕，并將【屬性表】切換到【事件】選項卡，在【單擊】屬性的下拉列表框中選擇【事件過程】選項，如以下圖所示。整理ppt12.7.2“登錄〞窗體代碼編寫“登錄〞窗體代碼第四步：單擊右邊的省略號按鈕，進入VBA編輯器，添加“確定〞按鈕的代碼，如下所示。OptionCompareDatabaseOptionExplicitDimmrcAsADODB.RecordsetDimtxtSQLAsStringDimiAsInteger'記錄錯誤次數(shù)'確定按鈕的代嗎PrivateSubbtn_ok_Click()OnErrorGoToErr_btn_ok_Click'錯誤處理'判斷用戶名是否為空IfIsNull(txt_name)ThenMsgBox"請輸入用戶名!",vbCritical,"提示"txt_name.SetFocusElsetxtSQL="SELECT*from管理員where用戶名='"&txt_name&"'"Setmrc=ExeSQL(txtSQL)Ifmrc.EOFThenMsgBox"沒有此用戶名稱!",vbCritical,"提示"ElseIf(mrc(1)=Txtpwd)Thenmrc.CloseSetmrc=NothingMe.Visible=False'翻開切換面板DoCmd.OpenForm"切換面板"Elsei=i+1If(i<3)ThenMsgBox"您輸入的密碼不正確",vbOKOnly+vbExclamation,"提示"ElseMsgBox"你已經(jīng)連續(xù)3次錯誤輸入密碼，系統(tǒng)馬上關(guān)閉！",vbOKOnly+vbExclamation,"警告"ExitSubDoCmd.CloseacForm,Me.NameDoCmd.QuitEndIfTxtpwd.SetFocusTxtpwd.Text=""EndIfEndIfEndIfExit_btn_ok_Click:'錯誤處理ExitSubErr_btn_ok_Click:MsgBox(Err.Description)ResumeExit_btn_ok_ClickEndSub整理ppt12.7.2“登錄〞窗體代碼編寫“登錄〞窗體代碼此時的【代碼】窗口如以下圖所示。用同樣的方法，為“取消〞按鈕添加如下所示的VBA代碼。'取消按鈕的代碼PrivateSubbtn_cancel_Click()If(MsgBox("確實要退出嗎？",vbQuestion+vbYesNo,"確認")=vbYes)ThenDoCmd.QuitacQuitSaveNoneEndIfEndSub此時的【代碼】窗口如以下圖所示。整理ppt12.7.3“切換面板〞代碼我們設計的“切換面板〞窗體如以下圖所示。整理ppt12.7.3“切換面板〞代碼為“切換面板〞窗體添加VBA代碼。第一步：翻開“切換面板〞窗體的【設計視圖】，單擊【工具】組中的【屬性表】按鈕，彈出該窗體的【屬性表】窗格，如以下圖所示。第二步：單擊Option1按鈕，并在【事件】選項卡下的【單擊】事件中選擇【事件過程】選項，如以下圖所示。整理ppt12.7.3“切換面板〞代碼為“切換面板〞窗體添加VBA代碼。第三步：單擊右邊的省略號按鈕，進入VBA編輯器，添加Option1按鈕的代碼，如下所示。PrivateSuboption1_Click()Me.Visible=FalseDoCmd.OpenForm"訂單"EndSub此時的【代碼】窗口如左圖所示。整理ppt12.7.3“切換面板〞代碼為“切換面板〞窗體添加VBA代碼。用同樣的方法，分別為剩余的按鈕添加代碼，各個按鈕的代碼如下所示。PrivateSuboption2_Click()Me.Visible=FalseDoCmd.OpenForm"產(chǎn)品進庫"EndSubPrivateSuboption3_Click()Me.Visible=FalseDoCmd.OpenForm"發(fā)貨確認"EndSubPrivateSuboption4_Click()Me.Visible=FalseDoCmd.OpenForm"供給商"EndSubPrivateSuboption5_Click()Me.Visible=FalseDoCmd.OpenForm"進貨資料查詢"EndSubPrivateSuboption6_Click()Me.Visible=FalseDoCmd.OpenForm"密碼管理"EndSub添加代碼完成以后的最終視圖如以下圖所示。整理ppt12.7.4“產(chǎn)品進庫〞窗體代碼設計的“產(chǎn)品進庫〞窗體如以下圖所示。整理ppt12.7.4“產(chǎn)品進庫〞窗體代碼編寫“產(chǎn)品進庫〞窗體代碼第一步：進入“產(chǎn)品進庫〞窗體的【設計視圖】，右擊“庫存〞按鈕，在彈出的快捷菜單中選擇【事件生成器】選項，如以下圖所示。第二步：在彈出的【選擇生成器】對話框中選擇【代碼生成器】選項，如以下圖所示。整理ppt12.7.4“產(chǎn)品進庫〞窗體代碼編寫“產(chǎn)品進庫〞窗體代碼第三步：單擊【確定】按鈕，進入VBA編輯器，在編輯器中為按鈕添加事件過程。該過程的代碼如下所示。'翻開庫存查詢報表PrivateSubbtn_house_Click()IfIsNull(產(chǎn)品編號)ThenMsgBox"您必須輸入產(chǎn)品編號",vbCritical,"提示"EndIfDoCmd.OpenReport"庫存報表",acViewPreview,,,acWindowNormalEndSub整理ppt12.7.4“產(chǎn)品進庫〞窗體代碼編寫“產(chǎn)品進庫〞窗體代碼用同樣的方法，為其他按鈕添加事件過程。各個按鈕的事件過程代碼如下所示。'保存記錄后，要更新庫存數(shù)量PrivateSubbtn_save_Click()DoCmd.RunCommandacCmdSaveRecordDimrsAsNewADODB.RecordsetDimstr_tempAsStringstr_temp="select*from庫存Where產(chǎn)品編號="&產(chǎn)品編號&""rs.Openstr_temp,CurrentProject.Connection,adOpenDynamic,adLockOptimisticIfNotIsNull(rs)Thenrs("庫存量")=rs("庫存量")-入庫數(shù)量Ifrs("庫存量")>0Thenrs.UpdateElseMsgBox"刪除記錄出錯",vbCriticalEndIfEndIfrs.CloseSetrs=NothingEndSub'刪除記錄后，要更新庫存數(shù)量PrivateSubbtn_del_Click()DimrsAsNewADODB.RecordsetDimstr_tempAsStringstr_temp="select*from庫存Where產(chǎn)品編號='"&產(chǎn)品編號&"'"rs.Openstr_temp,CurrentProject.Connection,adOpenDynamic,adLockOptimisticIfNotIsNull(rs)Thenrs("庫存量")=rs("庫存量")-入庫數(shù)量rs.UpdateEndIfrs.CloseSetrs=NothingDoCmd.RunCommandacCmdDeleteRecordEndSubPrivateSubbtn_query_Click()DoCmd.OpenForm"進貨資料查詢"Me.Visible=FalseEndSubPrivateSubbtn_return_Click()Me.Visible=FalseEndSub整理ppt12.7.4“產(chǎn)品進庫〞窗體代碼添加完事件過程以后的【代碼】窗口如以下圖所示。整理ppt12.7.5“發(fā)貨確認〞窗體代碼我們設計的“發(fā)貨確認〞窗體如以下圖所示。整理ppt12.7.5“發(fā)貨確認〞窗體代碼為“發(fā)貨確認〞窗體添加事件過程。第一步：翻開“發(fā)貨確認〞窗體的【設計視圖】，右擊“確認〞按鈕，在彈出的快捷菜單中選擇【事件生成器】選項，在彈出的【選擇生成器】對話框中選擇【代碼生成器】選項，單擊【確定】按鈕，翻開VBA程序編輯器，輸入“確認〞按鈕代碼。第二步：重復步驟1，對“返回〞按鈕關(guān)聯(lián)“單擊事件〞過程。相關(guān)代碼如下。OptionCompareDatabase'確認按鈕代碼PrivateSubbrn_ok_Click()OnErrorGoToErr_btn_ok_Click'用這個數(shù)組str(10)來保存訂單記錄中的數(shù)據(jù)Dimstr(10)AsStringDimmrcAsNewADODB.RecordsetIfIsNull(txt_no)ThenMsgBox"請輸入要確認的訂單編號!",vbCritical,"提示"txt_no.SetFocusEndIfIfIsNull(Combo1)ThenMsgBox"請輸入支付方式!",vbCritical,"提示"Combo1.SetFocusCombo1.DropdownEndIf整理ppt12.7.5“發(fā)貨確認〞窗體代碼IfIsNull(txt_paydate)ThenMsgBox"請輸入支付日期!",vbCritical,"提示"txt_paydate.SetFocusEndIfIfIsNull(txt_address)ThenMsgBox"請輸入送貨地址!",vbCritical,"提示"txt_address.SetFocusEndIfIfIsNull(txt_name)ThenMsgBox"請輸入送貨人!",vbCritical,"提示"txt_name.SetFocusEndIfIfIsNull(txt_date)ThenMsgBox"請輸入送貨日期!",vbCritical,"提示"txt_date.SetFocusEndIfDimstr_tempAsString'訂單編號是整形，不需要單引號str_temp="select*from訂單where訂單編號="&txt_no&""Setmrc=ExeSQL(str_temp)Ifmrc.EOFThenMsgBox"沒有該訂單!",vbCritical,"提示"Else'記錄查找到的訂單信息str(0)=mrc("訂單編號")str(1)=mrc("客戶編號")str(2)=mrc("產(chǎn)品編號")str(3)=mrc("供給商編號")

str(4)=mrc("銷售單價")str(5)=mrc("訂購數(shù)量")str(6)=mrc("訂單金額")str(7)=mrc("預定時間")str(8)=mrc("訂單時間")mrc.CloseSetmrc=NothingEndIfDimrsAsNewADODB.Recordsetrs.Open"訂單處理明細",CurrentProject.Connection,adOpenDynamic,adLockOptimisticrs.AddNewrs("訂單編號")=str(0)rs("客戶編號")=str(1)rs("產(chǎn)品編號")=str(2)rs("供給商編號")=str(3)rs("預定時間")=str(7)rs("發(fā)貨時間")=txt_daters("銷售單價")=str(4)rs("訂購數(shù)量")=str(5)rs("訂單金額")=str(6)rs("付款方式")=Combo1rs("付款時間")=txt_paydaters("發(fā)貨地址")=txt_addressrs("發(fā)貨人")=txt_namers("狀態(tài)")="已處理"rs.Updaters.CloseSetrs=NothingMsgBox"成功添加了該信息!"整理ppt12.7.5“發(fā)貨確認〞窗體代碼'更新庫存表中的數(shù)量Dimrs2AsNewADODB.Recordset'查找?guī)齑姹碇械挠涗泂tr_temp="select*from庫存Where產(chǎn)品編號="&str(2)&""rs2.Openstr_temp,CurrentProject.Connection,adOpenDynamic,adLockOptimisticIfNotrs2.EOFThenrs2("庫存量")=rs2("庫存量")-str(5)rs2.UpdateEndIfrs2.CloseSetrs2=NothingMsgBox"成功更新了庫存!"

'錯誤處理Exit_btn_ok_Click:ExitSubErr_btn_ok_Click:ExitSubResumeExit_btn_ok_ClickEndSubPrivateSubbtn_cancel_Click()DimctlAsControlForEachctlInMe.ControlsSelectCasectl.ControlTypeCaseacTextBoxIfctl.Locked=FalseThenctl.Value=NullCaseacComboBoxctl.Value=NullEndSelectNextMe.txt_no.SetFocusEndSubPrivateSubbtn_return_Click()Me.Visible=FalseDoCmd.OpenForm"切換面板",acNormalEndSub添加完代碼后的【代碼】窗體如下所示。整理ppt12.7.6“供給商〞窗體代碼我們設計的“供給商〞窗體如以下圖所示。整理ppt12.7.6“供給商〞窗體代碼窗體中各個按鈕的代碼如下?！颁N售查詢〞按鈕代碼如下。PrivateSubbtn_query_Click()IfIsNull(供給商編號)OrIsNull(txt_date1)OrIsNull(txt_date2)ThenMsgBox"您必須輸入供給商編號、開始時間和截止時間。"txt_date1.SetFocusElseIf(txt_date1>txt_date2)ThenMsgBox"結(jié)束時間必須大于開始時間。"'焦點移到第一個時間上txt_date1.SetFocusElse'翻開供給商銷售的報表DoCmd.OpenReport"供給商報表",acViewPreview,,,acWindowNormalEndIfEndIfEndSub“返回〞按鈕代碼如下。PrivateSubbtn_return_Click()DoCmd.Closedocmd.OpenForm"切換面板"EndSub添加代碼以后的【代碼】窗體如以下圖所示。整理ppt12.7.7“進貨資料查詢〞窗體代碼我們設計的“進貨資料查詢〞窗體如以下圖所示。整理ppt12.7.7“進貨資料查詢〞窗體代碼“去除〞按鈕添加的代碼如下。OptionCompareDatabasePrivateSubbtn_clear_Click()OnErrorGoToErr_btn_clear_Click

DimctlAsControlForEachctlInMe.Controls

SelectCasectl.ControlTypeCaseacTextBoxIfctl.Locked=FalseThenctl.Value=NullCaseacComboBoxctl.Value=NullEndSelectNext

'取消子窗體查詢和統(tǒng)計總數(shù)Me.進貨資料查詢子窗體.Form.Filter=""Me.進貨資料查詢子窗體.Form.FilterOn=FalseExit_btn_clear_Click:ExitSubErr_btn_clear_Click:ExitSubResumeExit_btn_clear_ClickEndSub“查詢〞按鈕的代碼如下所示。PrivateSubbtn_query_Click()OnErrorGoToErr_btn_query_ClickDimstrAsString'判斷是否為空,建立查詢條件IfNotIsNull(Me.Combo1)Thenstr=str&"([供給商名稱]like'*"&Me.Combo1&"*')AND"EndIfIfNotIsNull(Me.txt_wuzi)Thenstr=str&"([產(chǎn)品名稱]like'*"&Me.txt_wuzi&"*')AND"EndIfIfNotIsNull(Me.txt_jinbanren)Thenstr=str&"([經(jīng)辦人]like'*"&Me.txt_jinbanren&"*')AND"EndIfIfNotIsNull(Me.date1)Thenstr=str&"[入庫日期]>=#"&Format(Me.date1,"yyyy-mm-dd")&"#)AND"EndIfIfNotIsNull(Me.date2)Thenstr=str&"[入庫日期]<=#"&Format(Me.date2,"yyyy-mm-dd")&"#)AND"EndIf

IfLen(str)>0Thenstr=Left(str,Len(str)-5)EndIf'子窗體查詢和統(tǒng)計，設置過濾條件Me.進貨資料查詢子窗體.Form.Filter=strMe.進貨資料查詢子窗體.Form.FilterOn=True‘錯誤處理Exit_btn_query_Click:ExitSubErr_btn_query_Click:ExitSubResumeExit_btn_query_ClickEndSub整理ppt12.7.7“進貨資料查詢〞窗體代碼“返回〞按鈕的代碼如下所示。PrivateSubbtn_return_Click()Me.Visible=FalseDoCmd.OpenForm"產(chǎn)品進庫"EndSub添加代碼完成以后，【代碼】窗體如以下圖所示。整理ppt12.7.8“密碼管理〞窗體代碼我們設計的“密碼管理〞窗體如以下圖所示。整理ppt12.7.8“密碼管理〞窗體代碼“密碼管理〞窗體代碼如下所示。'聲明變量OptionCompareDatabaseDimrsAsNewADODB.RecordsetDimflagAsBoolean'公用的判斷為空的函數(shù)Subcommon()IfIsNull(txt_name)ThenMsgBox"請輸入用戶名!",vbCritical,"提示"txt_name.SetFocusflag=FalseEndIfIfIsNull(txt_pwd1)ThenMsgBox"請輸入密碼!",vbCritical,"提示"txt_pwd1.SetFocusflag=FalseEndIfIfIsNull(txt_pwd2)ThenMsgBox"請輸入確認密碼!",vbCritical,"提示"txt_pwd2.SetFocusflag=FalseEndIf

Iftxt_pwd1<>txt_pwd2ThenMsgBox"密碼確認不正確!",vbCritical,"提示"txt_pwd1.SetFocustxt_pwd1=""txt_pwd2=""flag=FalseEndIfEndSub“增加〞按鈕的代碼如下所示。PrivateSubbtn_add_Click()flag=Truecommon'調(diào)用公用函數(shù)commonIfflag=TrueThenrs.Open"管理員",CurrentProject.Connection,adOpenDynamic,adLockOptimisticrs.AddNewrs("用戶名")=txt_namers("密碼")=txt_pwd1rs.Updaters.CloseSetrs=NothingMsgBox"您成功地添加了新用戶!"EndIfEndSub整理ppt12.7.8“密碼管理〞窗體代碼“刪除〞按鈕的代碼如下所示。PrivateSubbtn_del_Click()flag=TruecommonIfflag=TrueThenDimstrAsStringDimrsAsNewADODB.Recordsetstr="deletefrom管理員where用戶名='"&txt_name&"'and密碼='"&txt_pwd1&"'"DoCmd.RunSQLstrMsgBox"您成功地刪除了該用戶!"EndIfEndSub“返回〞按鈕的代碼如下所示。PrivateSubbtn_return_Click()Me.Visible=FalseDoCmd.OpenForm"切換面板"EndSub“修改〞按鈕的代碼如下所示。PrivateSubbtn_xiugai_Click()flag=TruecommonIfflag=TrueThenDimstrAsStringstr="select*from管理員where用戶名='"&txt_name&"'and密碼='"&txt_pwd1&"'"Setrs=ExeSQL(str)IfNotrs.EOFThenuser=txt_nameDoCmd.OpenForm"新密碼"ElseMsgBox"找不到該用戶!"EndIfEndIfEndSub整理ppt12.7.8“密碼管理〞窗體代碼“新密碼〞窗體的局部代碼如下所示。PrivateSubCommand1_Click()IfIsNull(new_pwd1)ThenMsgBox"請輸入新密碼",vbCritical,"提示"EndIfIfIsNull(new_pwd2)ThenMsgBox"請再次輸入新密碼",vbCritical,"提示"EndIfIfnew_pwd1<>new_pwd2ThenMsgBox"兩次輸入不一致",vbCrit