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

　　

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