【正文】 該子菜單便順利的實現(xiàn)了此功能，而且它也方便 了管理員的登陸管理。 本節(jié)總結(jié)：對于本商品進銷存管理系統(tǒng)功能的實現(xiàn)，重點和難點有以下幾處：交易管理模塊：在本模塊中，對于商 品的進貨、銷貨和退貨操作時，都要注意其操作過程中商品數(shù)量及其它屬性的變化，本人在制做此模塊時，采用了指導教師的提供給我的思想：進貨登記時，將進貨信息添加到進貨表中。在本系統(tǒng)管理員登陸時，顯示給管理員的第一個界面：系統(tǒng)初始化也是本系統(tǒng)的又一大功能特色，其實現(xiàn)過程中要嚴格控制每一個記錄集對相應(yīng)數(shù)據(jù)表的打開與關(guān)閉操作。如果用戶的密碼輸錯錯誤，則不能登錄到系統(tǒng)主窗體；如果用戶密碼正確，則進入系統(tǒng)的 MDI 主窗體。 and 進貨月 = amp。 and 進貨月 = amp。 and 進貨月 = amp。 amp。 打開進貨表 If = True Then (進貨編號 ) = (商品名稱 ) = (生產(chǎn)廠商 ) = (型號 ) = (數(shù)量 ) = Val() (進貨價 ) = Val() (進貨年 ) = (進貨月 ) = (進貨日 ) = (業(yè)務(wù)員編號 ) = (總金額 ) = Val() 關(guān)閉進貨表 Else MsgBox 此進貨編號已存在，請重添！ , vbOKOnly + vbInformation, 注意 = Exit Sub 39。 amp。 關(guān)閉庫存表 Else numgoods = (數(shù)量 ) (數(shù)量 ) = Val() + numgoods MsgBox 商品入庫成功 , vbOKOnly + vbExclamation, 關(guān)閉庫存表 39。 amp。 其部分實代碼如下： Private Sub Command1_Click() If = Then MsgBox 請?zhí)顚懲素浘幪枺?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戜N貨編號！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub End If 39。 39。 amp。 inty amp。 intd amp。 and 進貨月 = amp。Data Source= amp。 inty amp。 intd amp。 intm amp。 amp。 amp。 amp。 amp。其部分設(shè)計代碼如下： Private Sub Command1_Click() If = Then MsgBox 請?zhí)顚懹脩裘?, vbOKOnly + vbInformation, 注意 。 39。 39。 39。 39。當文本框為空時的屏蔽操作 If = And = Then MsgBox 請輸入查詢條件！ , vbOKOnly + vbInformation, Exit Sub End If 39。 inty amp。 intm amp。 \。 Set = Adodc2 4． 5 銷售統(tǒng)計模塊及界面設(shè)計 主要用于對商品每日 ,每月，第季度，每年的進銷存情況進行統(tǒng)計管理，此功能只有以管理員的身份進入時才為可用狀態(tài)。Adodc2的相對路徑連接 = str = adCmdText = select * from buy where 進貨年 = amp。 intm amp。 39。 其部分設(shè)計代碼如下： Private Sub Form_Load() inty = Year(Date) intm = Month(Date) intd = Day(Date) Dim str As String str = Provider=。 amp。 str_goods, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 對不起，此商品型號已無貨！請選擇其他型！ , vbOKOnly + vbInformation, 注意 Exit Sub 3． 退貨登記 ： 對退貨的相關(guān)信息進行記。其部分設(shè)計代碼如下： Private Sub Command1_Click() If = Then MsgBox 請?zhí)顚戜N貨編號！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐肪幪枺?, vbOKOnly + vbInformation, 注意 Exit Sub End If str_goods = select * from goods where 商品編號 =39。 sql, n, adOpenStatic, adLockOptimistic If = True Then str_goods = select * from goods str_goods, n, adOpenStatic, adLockOptimistic 39。下面是對商品庫存表進行入庫操作！ Dim sql As String sql = select * from goods where 商品編號 = 39。 39。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進貨總金額 ) End Sub 交易管理模塊及界面設(shè)計 1．進貨登記： 在些界面的操作中可以進行對所進的商品的信息及生產(chǎn)廠商的相關(guān)信息的添加，清空等操作。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 進貨總金額 from buy where 進貨年 = amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuy If = True Then = strbuy MsgBox 您本 月沒有進貨記錄！ , vbOKOnly + vbInformation, 注意 strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進貨總金額 from buy where 進貨年 = amp。 部分設(shè)計代碼如下： Private Sub mnBuyMonth_Click() = False = 1 (0) = False (1) = True (2) = False (3) = False strbuy = select * from buy where 進貨年 = amp。 用戶控制模塊及界面詳細設(shè)計 退出 Splash 窗體后就進入了登錄窗體。銷貨登記時，先將商品的銷貨信息添加到銷貨表中，然后將商品庫存表中響應(yīng)的商品的數(shù)量做相對調(diào)整，保證商品數(shù)量的一致性。此窗體實現(xiàn)的功能是顯而易見的，方便了用戶的操作，增加了系統(tǒng)使用的安全性。 （ 11） 管理員工表 本窗體的制作目的在于方便對管理員用戶的管理， 本節(jié)前面曾經(jīng)提過系統(tǒng)初始化的功能，但其初始化并不能對員工表進行操作，當管理員登陸本系統(tǒng)時，可以訪問此窗體，對用戶表進行維護。 （ 10） 查看進貨表 本窗體的主要設(shè)計目的是設(shè)置一個查詢商品庫存表的條件 。其界面設(shè)計和窗 體說明與進貨統(tǒng)計大同小異，也一樣一個選項卡為例進行說明，現(xiàn)以 ” 今日銷貨 ” 為例：加入兩個 datagrid控件，兩個 Adodc控件，一個 Label控件，一個 textbox控件和 8個 mand控件。由于每個選項卡的界面都一樣，現(xiàn)以 ” 今日進貨 ”選項卡為例，加入兩個 datagrid 控件，兩個 Adodc控件，一個 Label 控件，一個 textbox控件 和 8個 mand控件。這樣做使窗體顯得更加美觀。在退貨窗體中，如果用戶輸入的銷貨編號存在，則關(guān)于該商品的進銷存信息將依次出現(xiàn)在相應(yīng)的對話框中。在判斷沒有空缺屬性后該商品將順利添加如庫，而且該商品在 goods 表中的數(shù)量也將隨之做相應(yīng)的改變，使 goods 表和 sell 表的總和保持原來 goods 表中的數(shù)量值。然后將進銷存信息存入 sell 表，并對 goods 表的數(shù)量做相應(yīng)修改。另外，對于總金額文本框也是由數(shù)量和進貨價兩個文本框的 Change 事件計算入內(nèi)的。然后將商品添加到 buy 表中，再添加到 goods表。 （ 4）進貨登記窗體 本窗體用來實現(xiàn)商品進貨功能，將進貨信息添加到 buy表，再將該信息選擇性的加入 goods 表。 該窗體的運行過程為：用戶首先進入登陸窗體，如果是管理員登陸，則先進入初始化窗體，經(jīng)過判斷是否需要初始化后，進入主窗體。具體實現(xiàn)過程為：定義 5 個記錄集，其每一個記錄集控制一個數(shù)據(jù)表的打開與關(guān)閉操作，其記錄集的取名與數(shù)據(jù)表相近： rs_sell, rs_buy, rs_goods, rs_retreat,是標簽時，先出現(xiàn)一個消息框，問管理員是否真的要進行初始化。 具體做法是：先在窗體級中定義一個記錄集，用于打開 employee 表，打開后將該表中的字段： 員工姓名，依次加到 bo1 中。 （ 2） 進貨統(tǒng)計管理 ：主要用于對商品每日 ,每月，第季度，每年的進貨情況進行統(tǒng)計管理，此功能只有以管理員的身份進入時才為可用狀態(tài)。貨登記時，先將商品的銷貨信息添加到銷貨表中，然后將商品庫存表中響應(yīng)的商品的數(shù)量做相應(yīng)的調(diào)整，保證商品數(shù)量的一致性。 表 32 goods表 字段名 數(shù)據(jù)類型 說明 商品編號 文本 字段大小為 20 商品名稱 文本 字段大小為 20 生產(chǎn)廠商 文本 字段大小為 20 型號 文本 字段大小為 20 數(shù)量 數(shù)字 長整型 進貨價 貨幣 貨幣 銷貨價 貨幣 貨幣 retreat 表（退貨表）中包括有退貨編號、銷貨編號、生產(chǎn)廠商、商品名稱、型號、單價、數(shù)量、總金額、退貨年、退貨月、退貨日、業(yè)務(wù)員編號等。設(shè)計該數(shù)據(jù)表的主要目的是方便管理員的查看，使系統(tǒng)的數(shù)據(jù)管理能夠更加層次化。由于數(shù)據(jù)量比較小，所以這些數(shù)據(jù)表都存在一個數(shù)據(jù)庫下： 下面對各個數(shù)據(jù)表的結(jié)構(gòu)做一下簡單介紹： 在系統(tǒng)的數(shù)據(jù)庫設(shè)計中，進貨表、銷貨表、商品庫存表和退貨表涉及了交易管理三個子菜單的絕大部分數(shù)據(jù)，是本系統(tǒng)數(shù)據(jù)庫的核心，所以將對其部分表的設(shè)置列表顯示。 對本統(tǒng)主要界機的設(shè)計實現(xiàn)：在主界面中要實現(xiàn)五個彈出菜單；有交易管理菜單，進貨統(tǒng)計菜單，銷售統(tǒng)計菜單，查看數(shù)據(jù)表菜單，系統(tǒng)管理菜單。 (6) 系統(tǒng)用戶信息，包含的數(shù)據(jù)項有：用戶名、口令、級別。 (3) 系統(tǒng)管理 :包括更換用戶、修改密碼、退出系統(tǒng)、與關(guān)與。 (2) 進貨統(tǒng)計：包括今日進貨統(tǒng)計、本月進貨統(tǒng)計、本季度進貨統(tǒng)計、本季度進貨統(tǒng)計、本年度進貨統(tǒng)計等。進貨和進銷存的主要交易都是在此進行。需求 分析階段系統(tǒng)本人仔細研究超市管理系統(tǒng)應(yīng)實現(xiàn)的功能并將它們具體化。 首先應(yīng)該近一步地 分析和澄清問題定義，如果正確則進一步加以肯定，如果有錯則應(yīng)立刻改正，經(jīng)過仔細審查，然后從三方面分析它的可行性： 1） 技術(shù)可行性（即使用現(xiàn)有的技術(shù)能實現(xiàn)這個系統(tǒng)嗎）： 答案是肯定的， VB 功能強大，能用簡單的方法完成復雜的問題。我把任務(wù)超市又仔細地研究了一遍，充分明白了它的要求后，接下來作可行性研究，只有做好可行性研究才有可能把以后的工作做好。 （ 6）對數(shù)據(jù)庫中的數(shù)據(jù)進行分析，通過特定方式打印數(shù)據(jù)，制作報表。 （ 2）利用數(shù)據(jù)表存儲相應(yīng)的數(shù)據(jù)信息，為每一種實際對象的信息創(chuàng)建一個表，在表中對不同數(shù)據(jù)以 不同方式保存。表格的每一個字段都具有自己的格式和缺省的定義。它相對于其他數(shù)據(jù)庫產(chǎn)品來說開發(fā)時間比較晚，但由于它強大的功能和使用上的方便，使越來越多的用戶轉(zhuǎn)向 Access，成為當今最為通用的數(shù)據(jù)庫軟件。