【正文】 ............................................................................9 數(shù)據(jù)庫(kù)連接技術(shù) .........................................................................................9 第 三章 系統(tǒng)設(shè)計(jì) ........................................................................................................... 11 系統(tǒng)分析 ........................................................................................................... 11 數(shù)據(jù)庫(kù)設(shè)計(jì) ........................................................................................................ 12 第 4 章 系統(tǒng)實(shí)現(xiàn) ........................................................................................................... 14 系統(tǒng)界面實(shí)現(xiàn) ........................................................................................................... 14 具體設(shè)計(jì)實(shí)現(xiàn) .................................................................................................... 18 主要界面的實(shí)現(xiàn) ................................................................................................. 20 第 5 章 調(diào)試和優(yōu)化 ........................................................................................................ 29 結(jié)束語(yǔ) ........................................................................................................................... 32 主要參考文獻(xiàn) ................................................................................................................. 33 摘要 商品營(yíng)銷管理系統(tǒng)是 典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。系統(tǒng)有完整的用戶添加、刪除和密碼修改功能，系統(tǒng)采用 Microsoft Office 中的 Access 2020 來(lái)設(shè)計(jì)數(shù)據(jù)庫(kù)，并使用當(dāng)前優(yōu)秀的開發(fā)工具— VB ，它有著最為靈活的數(shù)據(jù)庫(kù)結(jié)構(gòu)，對(duì)數(shù)據(jù)庫(kù)應(yīng)用有著良好的支持。數(shù)據(jù)庫(kù)技術(shù)是數(shù)據(jù)管理的技術(shù)，它隨著數(shù)據(jù)管理任務(wù)的需要而產(chǎn)生于 20世紀(jì) 60年代中期。因此，本人結(jié)合已學(xué)過(guò)的知識(shí)及在指導(dǎo)老師的幫助下，運(yùn)用 Microsoft Visual 中文版，在Windows XP 中文版環(huán)境下開發(fā)成功本系統(tǒng)，經(jīng)過(guò)在實(shí)踐中的運(yùn)行驗(yàn)證，本系統(tǒng)能夠正常和穩(wěn)定地運(yùn)行，為企業(yè)創(chuàng)造了較大的商業(yè)機(jī)會(huì)，保證了公司對(duì)進(jìn)銷存的管理信息化工作的順利進(jìn)行。如今，世界已進(jìn)入在計(jì)算機(jī)信息管理領(lǐng)域中激烈競(jìng)爭(zhēng)的時(shí)代。因此，經(jīng)濟(jì)管理是計(jì)算機(jī)應(yīng)用的主要領(lǐng)域。 表現(xiàn)之三為：有的企業(yè)單位既有了微機(jī)同時(shí)也有了銷售管理軟件，但硬件上去了，軟件 上不去。實(shí)施先進(jìn)的辦公室自動(dòng)化系統(tǒng)，實(shí)現(xiàn)企業(yè)內(nèi)部信息管理、共享及交流，才能讓企業(yè)在競(jìng)爭(zhēng)激烈的 21世紀(jì)取得先機(jī)。例如查詢所有平均成績(jī)?cè)?80分以上的學(xué)生姓名，用戶必須一條一條地把滿足條件的學(xué)生記錄找出來(lái)（通常要說(shuō)明具體處理過(guò)程，即按照哪條路徑，如何循環(huán)等）。 可視化開發(fā)工具 Visual Basic 作為當(dāng)今社會(huì)功能強(qiáng)大的可視化開發(fā)工具具有以下幾大特點(diǎn)： （ 1）成功的簡(jiǎn)化了界面的設(shè)計(jì)過(guò)程。一方面，它可以使用第三方廠家提供的各種 Visual Basic 使用的控件；另一方面，開發(fā)者也可以使用其他編程語(yǔ)言編寫自己所需的控件，因此它是一種可以不斷擴(kuò)充功能的開發(fā)系統(tǒng)。它能操作其它來(lái)源的資料，包括許多流行的 PC 數(shù)據(jù)庫(kù)程序（如 dBASE， Paradox， Microsoft FoxPro）和服務(wù)器、小型積極大型機(jī)上的許多 SQL 數(shù)據(jù)庫(kù)。 ADO 最重要的三個(gè)對(duì)象 是 :Connection, Command, Recordset。 在 ADO 對(duì)象模型中 ,是在行中檢查和修改數(shù)據(jù)的最主要的方法 ,所有對(duì)數(shù)據(jù)的操作幾乎都是在 Recordset 對(duì)象中完成 的 。進(jìn)貨和進(jìn)銷存的主要交易都是在此進(jìn)行。 （ 3）銷貨統(tǒng)計(jì)：包括今日進(jìn)銷存統(tǒng)計(jì)、本月進(jìn)銷存統(tǒng)計(jì)、本季度進(jìn)銷存統(tǒng)計(jì)、本年度進(jìn)銷存統(tǒng)計(jì)等，其中每次進(jìn)銷存統(tǒng)計(jì)都是按生產(chǎn)廠商和進(jìn)銷存總金額統(tǒng)計(jì)顯示的。 (6) 其它窗體： 包括主窗體、登陸窗體、系統(tǒng)初始化窗體。開發(fā)本系統(tǒng)中使用的數(shù)據(jù)庫(kù)系統(tǒng)是 Windows Access 2020 。 表 31 buy表 字段名 數(shù)據(jù)類 型 說(shuō)明 進(jìn)貨編號(hào) 文本 字段大小為 20 商品名稱 文本 字段大小為 20 生產(chǎn)廠商 文本 字段大小為 20 型號(hào) 文本 字段大小為 20 數(shù)量 數(shù)字 長(zhǎng)整型 進(jìn)貨價(jià) 貨幣 貨幣 進(jìn)貨年 數(shù)字 整型 進(jìn)貨月 數(shù)字 整型 進(jìn)貨日 數(shù)字 整型 業(yè)務(wù)員編號(hào) 文本 字段大小為 20 總金額 貨幣 貨幣 goods 表（現(xiàn)存商品表）中包括有商品編號(hào)、生產(chǎn)廠商、商品名稱、型號(hào)、進(jìn)貨價(jià)、銷貨價(jià)、數(shù)量、進(jìn)貨年、進(jìn)貨月、進(jìn)貨日、業(yè)務(wù)員編號(hào)、總金額等字段。在通過(guò)登陸窗體中還要對(duì)用戶名做一下判斷：如果是管理員登陸，則進(jìn)入系統(tǒng)初始化窗體，如果是普通用戶登陸，則進(jìn)入主界面。其權(quán)限的設(shè)置使管理員 能夠方便的查看任何時(shí)間段內(nèi)的所有信息，還可以對(duì)員工表進(jìn)行管理。為此，進(jìn)貨編號(hào)、商品編號(hào)是 buy 表、 goods 表中不可重復(fù)的屬性。在銷貨窗體中，如果用戶輸入的商品編號(hào)已經(jīng)存在，則該商品的其它屬性將隨著 text2(即商品編號(hào) )的 Change 事件出現(xiàn)在其對(duì)應(yīng)的位置上。 （ 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ì)。 （ 8）銷貨統(tǒng)計(jì)窗體 進(jìn)銷存統(tǒng)計(jì)菜單下有 4個(gè)子菜單，分別是今日銷貨、本月銷貨、本季度銷貨、今年銷貨。該窗體的實(shí)現(xiàn)是要在窗體集的變量中設(shè)置一 個(gè)記錄集 rs_goods，用來(lái)控制 goods 表，然后將記錄集在打開窗體時(shí)的select 語(yǔ)句設(shè)為與本窗體的 text1 和 text2 有關(guān)的 SQL 語(yǔ)句。 本節(jié)總結(jié) ：對(duì)于本商品營(yíng)銷管理系統(tǒng)功能的實(shí)現(xiàn)，重點(diǎn)和難點(diǎn)有以下幾處：交易管理模塊：在本模塊中，對(duì)于商品的進(jìn)貨、銷貨和退貨操作時(shí)，都要注意其操作過(guò)程中商品數(shù)量及其它屬性的變化，本人在制做此模塊時(shí)，采用了指導(dǎo)教師的提供給我的思想：進(jìn)貨登記時(shí)，將進(jìn)貨信息添加到進(jìn)貨表中。實(shí)體 ER圖如下： 是否管理員 否 交易管理 退貨登記 銷售登記 進(jìn)貨登記 進(jìn)貨統(tǒng)計(jì)管理 銷售統(tǒng)計(jì)管理 本季度銷售 本月銷售 今年銷售 今日銷售 本季度進(jìn)貨 本月進(jìn)貨 今年進(jìn)貨 今日進(jìn)貨 4．查看數(shù)據(jù)表 ： 主要能查看進(jìn)貨表，商品信息表，進(jìn)銷存表，退貨表等進(jìn)行查看，以實(shí)現(xiàn)對(duì)商品信息的及時(shí)了解。 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。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進(jìn)貨總金額 ) End Sub 進(jìn)貨統(tǒng)計(jì)界面 圖 24 進(jìn)貨統(tǒng)計(jì)窗體 39。 打開進(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。具體測(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)有的。 str_buy, n, adOpenStatic, adLockOptimistic If = True Then (進(jìn)貨編號(hào) ) = …… ’ 將進(jìn)貨信息添加到 buy(進(jìn)貨表 )表中 39。 （ 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)。 intd amp。 對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。這些都有待進(jìn)一步改善。 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)行修改即可。其它三個(gè)子菜單的測(cè)試也產(chǎn)生了同樣的錯(cuò)誤，也需要對(duì) 3個(gè)子菜單中的 8個(gè) Command 命令按紐進(jìn)行相對(duì)屏蔽，在這里就不詳細(xì)介紹了。同時(shí)為了方便用戶的操作，在輸入商品編號(hào)的文本框 text2 的 Change 事件里設(shè)定了關(guān)于已存在商品編號(hào)的處理：將該商品的其它屬性自動(dòng)添加到該窗體的對(duì)應(yīng)文本框中。具體做法是：在窗體級(jí)變量中定義一個(gè)變量 rs_buy，作為對(duì) buy（進(jìn)貨表）表的記錄集。 關(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)貨表基本相同，表略。對(duì)入庫(kù)時(shí)做的一些屏蔽操作！ If = Then MsgBox 請(qǐng)?zhí)顚戇M(jìn)貨 編號(hào)！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐肪幪?hào)！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐访Q ！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮a(chǎn)廠商！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請(qǐng)?zhí)顚懮唐沸吞?hào)！ , vbOKOnly + vbInformation, 注意