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