【導讀】括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。后者則要求應用程序功能完備,易使用等特點。經(jīng)過分析,我們使用MICROSOFT公司的VISUALBASIC開發(fā)工具,而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應用原型,滿意的可行系統(tǒng)。管理，庫存管理和員工管理四個方面。系統(tǒng)的核心是銷售、庫存查詢和進貨管理三者之間的聯(lián)系，貨操作時系統(tǒng)會自動地完成相對應信息的修改。找到各個物料和產(chǎn)品品質(zhì)的基本信息。系統(tǒng)有完整的用戶添。有著良好的支持。重點的說明了系統(tǒng)設計的重點、設計思想、難點技

　　

【正文】 = False (1) = True (2) = False (3) = False strbuy = select * from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuy If = True Then = strbuy MsgBox 您本月沒有進貨記錄！ , vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit Sub End If strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進貨總金額 from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 進貨總金額 from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進貨總金額 ) End Sub 進貨統(tǒng)計界面 圖 24 進貨統(tǒng)計窗體 39。 在通用中定義的有關連接數(shù)據(jù)表的記錄集 Dim rs_goods As New Dim rs_buy As New Dim rs_manufacturer As New Dim str_goods As String Dim str_buy As String Dim str_manufacturer As String Dim Numgooods As Integer Private Sub Command1_Click() 39。對入庫時做的一些屏蔽操作！ If = Then MsgBox 請?zhí)顚戇M貨 編號！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐肪幪枺?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q ！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮a(chǎn)廠商！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺?, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐愤M貨價格！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐蜂N貨價格！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戇M貨總金額 ！ , vbOKOnly + vbInformation, 注意 Exit Sub End If 39。下面是對進貨表進行添加記錄操作！ str_buy = select * from buy where 進貨編號 =39。 amp。 amp。 39。 str_buy, n, adOpenStatic, adLockOptimistic 39。 打開進貨表 If = True Then (進貨編號 ) = (商品名稱 ) = (生產(chǎn)廠商 ) = (型號 ) = (數(shù)量 ) = Val() (進貨價 ) = Val() (進貨年 ) = (進貨月 ) = (進貨日 ) = (業(yè)務員編號 ) = (總金額 ) = Val() 39。 關閉進貨表 Else MsgBox 此進貨編號已存在，請重添！ , vbOKOnly + vbInformation, 注意 = Exit Sub 39。 關閉進貨表 End If 銷貨統(tǒng)計界面 圖 25 銷貨統(tǒng)計界面 進貨表界面 圖 26 進貨表窗體 進銷存表、退貨表、商品庫存表、進貨商表與進貨表基本相同，表略。 查詢庫存表界面 修改密碼界面 圖 27 查詢現(xiàn)存商品窗體 圖 28 修改密碼窗體 管理員工表界面 圖 29 管理員工表窗體 關于界面 圖 210 關于窗體 當普通用戶登陸本系統(tǒng)時，其權限只有 主界面的交易管理和系統(tǒng)管理。下面列出交易管理模塊中的三個窗體。 圖 213 添加進貨信息窗體 第 5 章 調(diào)試和優(yōu)化 本章是對商品營銷管理系統(tǒng)進行全面測試，目的在于屏蔽掉系統(tǒng)無法識別的多種非法操作。已防止在用戶對本系統(tǒng)進行使用時錯誤操作造成系統(tǒng)出錯。 在本商品營銷管理系統(tǒng)所有界面和功能都已設計完畢后，需要對其進行一下測試，以屏蔽掉許多的非法操作，進一步完善本商品營銷管理系統(tǒng)。具體測試結果如下 : （ 1）對交易管理模塊進行測試： 在進貨登記窗體中，發(fā)現(xiàn)對于進貨編號系統(tǒng)需要對其進行唯一設定，即入庫登記時進貨編號應 是 buy（進貨表）表中所沒有的。所以需要先屏蔽掉該處的非法操作。具體做法是：在窗體級變量中定義一個變量 rs_buy，作為對 buy（進貨表）表的記錄集。讓記錄集連接到一個指定進貨編號為進貨登記窗體中文本框text2 的 text 屬性的值的進貨表記錄中，如果該記錄的編號與正在添加的進貨信息中的進貨編號一致，則提示用戶該編號已無法使用。如圖 51所示： 圖 51 其實現(xiàn)主要代碼如下所示： Dim rs_buy As New ‘ 定義連接 buy 表的記錄集 Dim str_buy As String ‘ 定義連接 SQL 的連接字符串 Private Sub Command1_Click() ‘ 單擊商品入庫按鈕事件 str_buy = select * from buy where 進貨編號 =39。 amp。 amp。 39。 str_buy, n, adOpenStatic, adLockOptimistic If = True Then (進貨編號 ) = …… ’ 將進貨信息添加到 buy(進貨表 )表中 39。 關閉進貨表 Else MsgBox 此進貨編號已存在 ,請重添！ , vbOKOnly + vbInformation, 注意 = Exit Sub End If End Sub 對于進貨信息入庫操作中，需要對商品編號進行核對，如果新輸入的商品編號為 goods 表所有，則直接將該添加信息的數(shù)量添加到 goods 表相對應的記錄上即可。同時為了方便用戶的操作，在輸入商品編號的文本框 text2 的 Change 事件里設定了關于已存在商品編號的處理：將該商品的其它屬性自動添加到該窗體的對應文本框中。進貨商信息的添加一樣需要屏蔽掉相同的廠商編號。 在銷貨登記窗體中，銷貨編號也要保持其唯一性，具體做法與上面所說的屏蔽進貨編號大體一致，這里 就不在說明了。同時為了方便用戶的操作，在輸入商品編號的文本框 text2 的 Change 事件里設定了關于已存在商品編號的處理：將該商品的其它屬性自動添加到該窗體的對應文本框中。進貨商信息的添加一樣需要屏蔽掉相同的廠商編號。 在退貨登記窗體中，先對退貨編號的唯一性進行一下設定，具體做法同進貨編號唯一性的設定一致，這里也不在詳細說明了。 （ 2）對進貨統(tǒng)計模塊的測試： 由于本模塊中四個字菜單的窗體界面大體一致，所以我只對其一個界面的測試進行一下介紹：在今日進貨子菜單中，首先發(fā)現(xiàn)在 buy 表為空的時候， 8個命令按紐的點擊 將產(chǎn)生非法操作，也就是記錄集無法實現(xiàn)上下移動。具體修改操作如下：先定義一個窗體集的變量 rs_buy，用來對進貨表進行操作，將該記錄集要打開的 SQL語句中添加一個 buy表的打開操作，如果打開該窗體發(fā)現(xiàn)沒有記錄，則將 8 個 Command 命令按紐的 Enable 屬性設為 False。其它三個子菜單的測試也產(chǎn)生了同樣的錯誤，也需要對 3個子菜單中的 8個 Command 命令按紐進行相對屏蔽，在這里就不詳細介紹了。其相關代碼如下所示 : Dim rs_buy As New ‘ 定義連接 buy 表的 記錄集 Dim str_buy As String ‘ 定義連接 SQL 的連接字符串 Private Sub mnBuyToday_Click() ‘ 單擊今日進貨統(tǒng)計菜單事件 strbuy = select * from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 and 進貨日 = amp。 intd amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuy If = True Then = strbuy MsgBox 您今日沒有進貨記錄！ , vbOKOnly + vbInformation, 注意 = False …… 將 8個命令按紐 Command 的 Enable 屬性設為 False …… 其它功能代碼略。 Exit Sub End If （ 3）對銷貨統(tǒng)計模塊的測試： 在銷貨統(tǒng)計的測試中，其非法操作與進貨統(tǒng)計時一樣，只需要對各個子菜單中的 8個 Command 命令按紐的 Enable 屬性進行修改即可。具體屏蔽操作與進貨統(tǒng)計相似，就不詳細介紹了。 （ 4）查看數(shù)據(jù)表模塊的測試： 在對本模塊的測試中，需要對所有和 DataGrid 相關的命令按紐 Command 的Enable 進行 修改，即當 DataGrid連接的數(shù)據(jù)表的記錄為空時命令按紐 Command的 Enable 屬性設為 False。 （ 5）對系統(tǒng)管理模塊的測試： 對于本模塊的制作非常簡單，所以其測試也相對容易，完整測試后本模塊并沒有出現(xiàn)非法操作。 結束語 經(jīng)過一個多月的設計和開發(fā)，商品營銷管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠 實現(xiàn)商品的基本信息的錄入、更新、進銷存等基本功能，從而實現(xiàn)商品銷售的管理。 對于數(shù)據(jù)的一致性的問題也通過程序進 行了有效的解決。但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待進一步改善。 致謝 在本次畢業(yè)設計中，我從指導老師身上學到了很多東西。老師認真負責的工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。他無論在理論上還