【文章內(nèi)容簡介】 做了一個(gè)判斷，即如果該商品編號(hào)存在的話直接顯示該商品的其他屬性。另外，對于總金額文本框也是 16 由數(shù)量和進(jìn)貨價(jià)兩個(gè)文本框的 Change 事件計(jì)算入內(nèi)的。如果是新的進(jìn)貨商，可以將它的信息添加到進(jìn)貨商表。其過程和上面所說的添加到 buy 表基本相同，這里就不做介紹了。 （ 5） 銷貨登記窗體 本窗體主要 功能是對商品進(jìn)行銷售，首先對員工輸入的銷貨信息進(jìn)行完整條件的判斷，條件符合后進(jìn)行銷售。然后將銷售信息存入 sell表，并對 goods表的數(shù)量做相應(yīng)修改。 具體實(shí)現(xiàn)過程為：先在窗體集中定義兩個(gè)記錄集： rs_sell，rs_goods，用來控制兩個(gè)數(shù)據(jù)表： sell 表和 goods 表。在銷貨窗體中，如果用戶輸入的商品編號(hào)已經(jīng)存在，則該商品的其它屬性將隨著 text2(即商品編號(hào) )的 Change 事件出現(xiàn)在其對應(yīng)的位置上。而銷售日期和業(yè)務(wù)員編號(hào)已經(jīng)是程序默認(rèn)給出的系統(tǒng)時(shí)間和登陸員工的編號(hào)。在判斷沒有空缺屬性后該商品將順利添 加如庫，而且該商品在 goods表中的數(shù)量也將隨之做相應(yīng)的改變，使 goods 表和 sell 表的總和保持原來 goods 表中的數(shù)量值。 （ 6）退貨窗體 本窗體的功能是實(shí)現(xiàn)商品退貨功能，當(dāng)人為判斷某商品可以退貨時(shí)即可將該商品退貨。其數(shù)據(jù)庫實(shí)現(xiàn)為：先將該信息加入 retreat 表，然后從 sell 表中減掉，最后對 goods 表的數(shù)量做一下調(diào)整即可。其具體實(shí)現(xiàn)過程是：先在窗體集中定義三個(gè)記錄集： rs_sell， rs_goods， rs_retreat 用來控制三個(gè)數(shù)據(jù)表： sell 表、 goods和 retreat 表。在退貨窗體中，如果 用戶輸入的銷貨編號(hào)存在，則關(guān)于該商品的銷售信息將依次出現(xiàn)在相應(yīng)的對話框中。退貨成功后，該退貨信息先添加到退貨表，然后將其退貨數(shù)量從相應(yīng)的 sell 表中減掉，并添加到 goods 表中。 （ 7）進(jìn)貨統(tǒng)計(jì)菜單 進(jìn)貨統(tǒng)計(jì)菜單下有 4 個(gè)子菜單，分別是今日進(jìn)貨統(tǒng)計(jì)、本月進(jìn)貨統(tǒng)計(jì)、本季度進(jìn)貨統(tǒng)計(jì)、今年進(jìn)貨統(tǒng)計(jì)。由于他們的界面非常相似，本程序中使用了一個(gè) SSTab 控件以選項(xiàng)卡的形式在一個(gè)窗體中實(shí)現(xiàn)以上 4 個(gè)子菜單。這樣做使窗體顯得更加美觀。為 項(xiàng)目添加了必要的控件之后，開始進(jìn)行界面設(shè)計(jì)。先在窗體上添加一個(gè) SSTab 控件，單擊鼠標(biāo)右 鍵在快捷菜單中選擇 ” 屬性 ” 命令。將其選項(xiàng)卡的數(shù)目定為 4 個(gè)，標(biāo)題分別為：今日進(jìn)貨、本月進(jìn)貨、本季度進(jìn)貨、本年度進(jìn)貨。由于每個(gè)選項(xiàng)卡的界面都一樣，現(xiàn)以 ” 17 今日進(jìn)貨 ” 選項(xiàng)卡為例，加入兩個(gè) datagrid 控件，兩個(gè) Adodc 控件，一個(gè) Label 控件，一個(gè) textbox 控件和 8 個(gè) mand 控件。其中兩個(gè) Adodc 的數(shù)據(jù)源連接都是才用的相對路徑與 sellsystem 的 buy 表連接的，兩個(gè) Adodc 連接的 SQL 語句分別如下： select * from buy select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進(jìn)貨 總金額 from buy group by 生產(chǎn)廠商。 （ 8）銷貨統(tǒng)計(jì)窗體 銷售統(tǒng)計(jì)菜單下有 4 個(gè)子菜單，分別是今日銷貨、本月銷貨、本季度銷貨、今年銷貨。由于它們的界面非常相似，本程序中使用一個(gè) SSTab 控件以選項(xiàng)卡形式在一個(gè)窗體中實(shí)現(xiàn) 4 個(gè)子菜單。其界面設(shè)計(jì)和窗體說明與進(jìn)貨統(tǒng)計(jì)大同小異，也一樣一個(gè)選項(xiàng)卡為例進(jìn)行說明，現(xiàn)以 ” 今日銷貨 ” 為例：加入兩個(gè) datagrid 控件，兩個(gè) Adodc 控件，一個(gè) Label 控件，一個(gè) textbox 控件和 8 個(gè) mand 控件。其中兩個(gè)Adodc 的數(shù)據(jù)源連接都是采用的相對路徑與 sell 表連接的，兩個(gè) Adodc 連接的 SQL 語句分別如下： select * from sell select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商銷貨總金額 from sell group by 生產(chǎn)廠商。 （ 9）查看進(jìn)貨表 其界面的設(shè)計(jì)比較簡單，只是一個(gè) datagrid 控件，一個(gè) Adodc控件（已隱藏）和四個(gè) Command 控件。本窗體的主要設(shè)計(jì)在于其四個(gè)命令按紐在進(jìn)貨表為空時(shí)不可用。 （ 10）查看進(jìn)貨表 本窗體的主要設(shè)計(jì)目的是設(shè)置一個(gè)查詢商品庫存表的條件 。具體操作為：為查詢現(xiàn)存商品表設(shè)立了一個(gè)簡單的 查詢條件，一個(gè)是直接顯示現(xiàn)存的全部商品表，一個(gè)是按條件對現(xiàn)存商品進(jìn)行查詢，用戶可以根據(jù)自己需要按商品名稱或生產(chǎn)廠商分別進(jìn)行查找。該窗體的實(shí)現(xiàn)是要在窗體集的變量中設(shè)置一個(gè)記錄集 rs_goods，用來控制 goods 表，然后將記錄集在打開窗體時(shí)的 select 語句設(shè)為與本窗體的 text1和 text2 有關(guān)的 SQL 語句。然后讓現(xiàn)存商品表顯示出來。 （ 11）管理員工表 本窗體的制作目的在于方便對管理員用戶的管理， 本節(jié)前面曾 18 經(jīng)提過系統(tǒng)初始化的功能，但其初始化并不能對員工表進(jìn)行操作，當(dāng)管理員登陸本系統(tǒng)時(shí)，可以訪問此窗體，對 用戶表進(jìn)行維護(hù)。但不能對管理員進(jìn)行刪除操作，此操作已被本人屏蔽。 （ 12）更換用戶功能 在一個(gè)商場可能會(huì)存在員工交接班的現(xiàn)象，為了方便用戶交接班的操作順利進(jìn)行，在系統(tǒng)管理模塊中做了一個(gè)更換用戶子菜單，該子菜單便順利的實(shí)現(xiàn)了此功能，而且它也方便了管理員的登陸管理。 （ 13）修改密碼 為了方便用戶使用，在本模塊中還設(shè)置了一個(gè)修改密碼窗體，該窗體主要包括一個(gè)用戶名輸入、一個(gè)原密碼輸入和兩個(gè)新密碼輸入。此窗體實(shí)現(xiàn)的功能是顯而易見的，方便了用戶的操作，增加了系統(tǒng)使用的安全性。具體做法是：先要求用戶將四個(gè)必填項(xiàng) 填寫完整，然后對兩個(gè)新密碼進(jìn)行相同判斷，如果相同，則將記錄集rs_employee 打開，對用戶名和原密碼進(jìn)行核對，如果相同，就將老密碼替換為新密碼。 本節(jié)總結(jié)：對于本商場管理系統(tǒng)功能的實(shí)現(xiàn)，重點(diǎn)和難點(diǎn)有以下幾處：交易管理模塊：在本模塊中，對于商品的進(jìn)貨、銷貨和退貨操作時(shí)，都要注意其操作過程中商品數(shù)量及其它屬性的變化，本人在制做此模塊時(shí)，采用了指導(dǎo)教師的提供給我的思想：進(jìn)貨登記時(shí)，將進(jìn)貨信息添加到進(jìn)貨表中。然后對商品庫存表的編號(hào)進(jìn)行判斷，如果進(jìn)貨信息的商品編號(hào)存在，則將商品庫存表中相應(yīng)記錄的商品數(shù)量做對應(yīng)調(diào)整 ；如果商品編號(hào)不存在，則直接將進(jìn)貨信息添加到商品庫存表中。銷貨登記時(shí)，先將商品的銷貨信息添加到銷貨表中，然后將商品庫存表中響應(yīng)的商品的數(shù)量做相對調(diào)整，保證商品數(shù)量的一致性。退貨登記時(shí)將退貨信息添加到退貨表中，然后將退貨數(shù)量從銷售表中減掉，最后將退貨數(shù)量加到商品庫存表中。在本系統(tǒng)管理員登陸時(shí)，顯示給管理員的第一個(gè)界面：系統(tǒng)初 始化也是本系統(tǒng)的又一大功能特色，其實(shí)現(xiàn)過程中要嚴(yán)格控制每一個(gè)記錄集對相應(yīng)數(shù)據(jù)表的打開與關(guān)閉操作。 19 程序流程圖和 ER 圖設(shè)計(jì) 圖 31 系統(tǒng)流程圖 各模塊的 ER 圖設(shè)計(jì) ： 1． 交易管理模塊 ： 用于管理商品的進(jìn)貨，銷售，退貨登記的操作。實(shí)體 ER 圖如下： 圖 32 交易管理模塊 2． 進(jìn)貨統(tǒng)計(jì)管理 ：主要用于對商品每日 ,每月，第季度，每年的進(jìn)貨情況進(jìn)行統(tǒng)計(jì)管理，此功能只有以管理員的身份進(jìn)入時(shí)才為可用狀態(tài)。實(shí)體 ER 圖如下： 面界主 是 是 登錄界面 是否管理員 否 是 進(jìn)貨登記 銷售登記 退貨登記 進(jìn)貨統(tǒng)計(jì) 銷售統(tǒng)計(jì) 面界主 查看數(shù)據(jù)表 交易管理 退貨登記 銷售登記 進(jìn)貨登記 20 圖 33 進(jìn)貨統(tǒng)計(jì)管理模塊 3． 銷售統(tǒng)計(jì)管理 ： 主要用于對商品每日 ,每月，第季度 ，每年的銷售情況進(jìn)行統(tǒng)計(jì)管理，此功能只有以管理員的身份進(jìn)入時(shí)才為可用狀態(tài)。實(shí)體 ER 圖如下： 圖 34 銷售統(tǒng)計(jì)管理模塊 4． 查看數(shù)據(jù)表 ： 主要能查看進(jìn)貨表，商品信息表，銷售表，退貨表等進(jìn)行查看，以實(shí)現(xiàn)對商品信息的及時(shí)了解。實(shí)體 ER 圖如下： 圖 35 查看數(shù)據(jù)表模塊 進(jìn)貨統(tǒng)計(jì)管理 銷售統(tǒng)計(jì)管理 本季度銷售 本月銷售 今年銷售 今日銷售 查看數(shù)據(jù)表 銷售表 現(xiàn)存商品表 退貨表 進(jìn)貨表 本季度進(jìn)貨 本月進(jìn)貨 今年進(jìn)貨 今日進(jìn)貨 管理員工表 進(jìn)貨商表 21 系統(tǒng)演示 圖 36 管理員登陸 窗體 進(jìn)入系統(tǒng)初始化界面 圖 37 系統(tǒng)初始化窗體 22 圖 38 管理員主界面 管理員權(quán)限：進(jìn)貨統(tǒng)計(jì)、銷貨統(tǒng)計(jì)、查看數(shù)據(jù)表、系統(tǒng)管理。 代碼如下： Dim rs_sell As New Dim rs_goods As New Dim rs_buy As New Dim rs_retreat As New Dim rs_manufacturer As New Dim rs_employee As New Dim rs_fctotal As New Dim rs_total As New Dim strsell As String Dim strgoods As String Dim strbuy As String Dim strretreat As String 23 Dim strmanufacturer As String Dim stremployee As String Dim strfctotal As String Dim strtotal As String Dim inty As Integer Dim intm As Integer Dim intd As Integer Private Sub Form_Load() inty = Year(Date) intm = Month(Date) intd = Day(Date) = amp。 \ End Sub Private Sub Form_Resize() = = End Sub Private Sub mnabout_Click() End Sub Private Sub mnBuy_Click() End Sub Private Sub mnBuyMonth_Click() = False = 1 24 (0) = False (1) = True (2) = False (3) = False strbuy = select * from buy where 進(jìn)貨年 = amp。 inty amp。 and 進(jìn)貨月 = amp。 intm amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuy If = True Then = strbuy MsgBox 您本月沒有進(jìn)貨記錄！ , vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit Sub End If 25 strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進(jìn)貨總金額 from buy where 進(jìn)貨年 = amp。 inty amp。 and 進(jìn)貨月 = amp。 intm amp。 group by 生產(chǎn)廠商 strfctot