【正文】 ，陸慰民. Visual Basic程序設(shè)計(jì)教程[M]. 北京：高等教育出版社，2008，5859.[12] 蔡敏，劉海英，汪杰. Visual Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)工程案例[M]. 北京：人民郵電出版社，2007，2730.[13] 羅斌. Visual Basic2005管理系統(tǒng)開(kāi)發(fā)經(jīng)典案例[M]. 北京：中國(guó)水利水電出版社，2007，2730.[14] 黃文劭，楊宗璟. Visual [M]. 北京：中國(guó)鐵道出版社，2004，2730.[15] 郭瑞軍，唐邦民，謝晗昕. Visual Basic數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例精粹[M]. 北京：電子工業(yè)出版社，2005，2730.致　　謝本次的畢業(yè)設(shè)計(jì)最主要的是感謝我的指導(dǎo)老師蔡羽老師，她為人師表、知識(shí)淵博，和藹可親，這一切都將使我在以后的日子里受益。所以本系統(tǒng)只適合與環(huán)境簡(jiǎn)單的中小企業(yè)使用。更重要的是，發(fā)現(xiàn)問(wèn)題、分析歸納、綜合比較的邏輯分析能力、處理問(wèn)題等能力也得到了提高。本次畢業(yè)設(shè)計(jì)使我獲益匪淺。該系統(tǒng)采用Visual Basic作為前臺(tái)開(kāi)發(fā)語(yǔ)言，它是一種面向?qū)ο缶幊陶Z(yǔ)言，簡(jiǎn)單易操作。在系統(tǒng)程序的編寫(xiě)過(guò)程中盡量考慮了各種可能出錯(cuò)的情況，界面簡(jiǎn)單大方，增強(qiáng)了系統(tǒng)的可視性和靈活性。結(jié)　　論本購(gòu)銷(xiāo)存管理信息系統(tǒng)比較成功地開(kāi)發(fā)了基本信息管理模塊、采購(gòu)模塊、銷(xiāo)售管理模塊、庫(kù)存管理模塊、系統(tǒng)管理模塊和幫助模塊。測(cè)試結(jié)果：進(jìn)行上述操作之后，數(shù)據(jù)庫(kù)里的商品信息可以根據(jù)需要隨時(shí)變動(dòng)，商品信息及商品銷(xiāo)售信息保存完整。預(yù)期結(jié)果：用戶(hù)登錄正確之后，點(diǎn)擊銷(xiāo)售按鈕，進(jìn)入銷(xiāo)售界面，輸入商品條碼，并點(diǎn)擊查詢(xún)按鈕，確認(rèn)數(shù)據(jù)庫(kù)里存在此商品信息后，點(diǎn)擊購(gòu)入，數(shù)據(jù)庫(kù)里此商品的數(shù)量會(huì)自動(dòng)減少。測(cè)試用例：用戶(hù)名=“admin”， 密碼=“2011”。測(cè)試結(jié)論：沒(méi)有發(fā)現(xiàn)系統(tǒng)運(yùn)行中的錯(cuò)誤。圖62商品入庫(kù)管理測(cè)試結(jié)果：進(jìn)行上述操作之后，可正常登記入庫(kù)商品。輸入供貨商名稱(chēng)時(shí)，可直接進(jìn)行選擇。執(zhí)行操作：供貨商名稱(chēng)輸入“李太藥業(yè)”，經(jīng)手人是“小黃”登記入庫(kù)商品為“果導(dǎo)片”。測(cè)試目的：測(cè)試能否正常進(jìn)貨并登記入庫(kù)。并可對(duì)此進(jìn)行相應(yīng)的操作，包括查看下一個(gè)、上一個(gè)、第一個(gè)和最后一個(gè)商品，添加商品，刪除商品等。執(zhí)行操作：登錄系統(tǒng)后，點(diǎn)擊菜單欄內(nèi)的“基礎(chǔ)信息管理”模塊，并點(diǎn)擊商品信息管理進(jìn)入頁(yè)面。測(cè)試目的：測(cè)試系統(tǒng)能否對(duì)商品信息進(jìn)行正確的管理。 With If .RecordCount 0 Then If .EOF = False Then .MoveLast.Fields(欠款記賬) = Val().Fields(累計(jì)余額) = Val() + al() .Update End If End WithEnd SubPrivate Sub Command1_Click() 39。 】等 Set rs4 = Nothing End If Next i Dim rs2 As New select * from tb_sell_main, n, adOpenKeyset, adLockOptimistic (銷(xiāo)售單據(jù)號(hào)) = (品種數(shù)) = lblBreed (數(shù)量) = lblCount (金額) = lblSum (折扣) = (稅率) = Val() / 100 (應(yīng)收) = Val(lblCharge) (實(shí)收) = Val(txtNet) (未收) = Val() (客戶(hù)編號(hào)) = ClientNumber (日期) = (收款方式) = cboPayee (經(jīng)手人) = txtHandle If Val() = 0 Then (是否結(jié)清) = 1 Else (是否結(jié)清) = 0 Set rs2 = Nothing = select * from tb_Client_Arrearage where 客戶(hù)名稱(chēng) = 39。 , amp。 【 amp。 amp。有記錄,更新庫(kù)存數(shù)量、庫(kù)存金額 (庫(kù)存數(shù)量) = (庫(kù)存數(shù)量) Trim(Val((i, 8))) End If Else MsgBox 庫(kù)存無(wú)此藥品！ End If Set rs3 = Nothing Dim rs4 As New 39。, n, adOpenKeyset, adLockOptimistic If 0 Then 39。 (i, 3) amp。and 批號(hào)= 39。 (i, 2) amp。添加新記錄到tb_sell_detailed表中 (藥品名稱(chēng)) = (i, 1) (藥品編號(hào)) = Val((i, 2)) (批號(hào)) = (i, 3) (規(guī)格) = (i, 4) (產(chǎn)地) = (i, 5) (單位) = (i, 6) (零售價(jià)) = Val((i, 7)) (數(shù)量) = Val((i, 8)) (金額) = Val((i, 9)) (客戶(hù)編號(hào)) = ClientNumber (客戶(hù)名稱(chēng)) = (銷(xiāo)售單據(jù)號(hào)) = Dim rs3 As New select * from tb_stock where 藥品編號(hào)=39。清空文本框內(nèi)容 = = = 0 lblCount = 0 lblSum = 0 txtNet = 0 = 0 = True39。 0001 End If For i = 1 To 10039。 Format(tmpNote, 0000) End If Else = Date amp。創(chuàng)建銷(xiāo)售單據(jù)號(hào) If Not Then If (銷(xiāo)售單據(jù)號(hào)) Then tmpNote = Val(Right(Trim((銷(xiāo)售單據(jù)號(hào))), 4)) + 1 = Date amp。圖512 tb_warehouse_main表結(jié)構(gòu)本程序使用Microsoft Visual ，代碼用Basic語(yǔ)言進(jìn)行編程，由于篇幅限制，僅將部分關(guān)鍵代碼展示如下，全部代碼詳見(jiàn)程序源代碼。圖510 tb_stock表結(jié)構(gòu)表tb_warehouse_detailed該表用于倉(cāng)庫(kù)中所有商品的詳細(xì)信息，如圖511所示。圖58 tb_sell_main表結(jié)構(gòu)表tb_sell_th_main該表用于退貨的基本信息，如圖59所示。圖56 tb_provider表結(jié)構(gòu)表tb_sell_detailed該表用于銷(xiāo)售的詳細(xì)信息，如圖57所示。圖54tb_medicine表結(jié)構(gòu)表tb_power該表用于儲(chǔ)存操作員登陸信息，如圖55所示。圖52 tb_client表結(jié)構(gòu)表tb_client_arrearage該表用于儲(chǔ)存有過(guò)銷(xiāo)售記錄的客戶(hù)信息，如圖53所示?？紤]到本系統(tǒng)的實(shí)際應(yīng)用情況，本系統(tǒng)的數(shù)據(jù)庫(kù)使用的是Microsoft SQL server，數(shù)據(jù)庫(kù)文件名稱(chēng)為yyjxc如圖51所示。adminstrator(id,name, mail)client(id,name,phone,adress,sellerid,mail)operator(id, name,phone,address,skill)goods(id,name,monname,pinyin,chandi,guige,danwei,youxiaoqi,pihao,shangbiaohao)tuihuo(sellrecordid,client,selldate,goodsid,quantity)provider(id, name,phone,address,goods,connectionperson) sellrecord(id,selldate,goodsid,clientid,quantity)第5章 系統(tǒng)實(shí)施數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的開(kāi)發(fā)過(guò)程中，數(shù)據(jù)庫(kù)的結(jié)構(gòu)設(shè)計(jì)是一個(gè)非常重要的環(huán)節(jié)。從類(lèi)圖可知，類(lèi)adminstrator、類(lèi)operator、類(lèi)客戶(hù)、類(lèi)供貨商分別與類(lèi)商品、類(lèi)銷(xiāo)售記錄、類(lèi)退貨存在關(guān)聯(lián)關(guān)系。采用的是關(guān)系數(shù)據(jù)庫(kù)為數(shù)據(jù)的存儲(chǔ)對(duì)象，主要的工作是將類(lèi)圖轉(zhuǎn)化為關(guān)系模型。其設(shè)計(jì)界面如圖48和圖49所示。其中，庫(kù)存查詢(xún)頁(yè)面用于查詢(xún)現(xiàn)有庫(kù)存，以便及時(shí)進(jìn)貨。其設(shè)計(jì)界面如圖46和圖47所示。其設(shè)計(jì)界面如圖45所示。圖43商品信息管理頁(yè)面商品入庫(kù)頁(yè)面的功能是實(shí)現(xiàn)采購(gòu)并登記入庫(kù)，其設(shè)計(jì)界面如圖44所示。圖42主界面（商品、客戶(hù)和供貨商）管理頁(yè)面設(shè)計(jì)基礎(chǔ)信息管理頁(yè)面來(lái)查詢(xún)、增加、刪除和更新商品、客戶(hù)和供應(yīng)商的信息各種操作員和系統(tǒng)管理員都可以登錄此界面，對(duì)系統(tǒng)進(jìn)行操作。通過(guò)主界面的設(shè)計(jì)，使他們對(duì)系統(tǒng)有更加全面的認(rèn)識(shí)[15]。本系統(tǒng)的開(kāi)發(fā)采用模塊化原理方式，結(jié)構(gòu)清晰，便于系統(tǒng)用戶(hù)的使用[14]。運(yùn)行平臺(tái)：Windows XP/ Windows 2000。系統(tǒng)開(kāi)發(fā)平臺(tái)：Visual Basic 。Visual ，提供可視化的編程工具，程序采用事件驅(qū)動(dòng)的方式，面向?qū)ο蟪绦蛟O(shè)計(jì)[12]。VB提供了學(xué)習(xí)版、專(zhuān)業(yè)版和企業(yè)版，用以滿(mǎn)足不同的開(kāi)發(fā)需要。對(duì)于開(kāi)發(fā)人員說(shuō)，VB提供了一整套的工具，可以使我們輕松方便地開(kāi)發(fā)應(yīng)用程序。由于Visual Basic采用可視化的編程工具，提供可視化的應(yīng)用開(kāi)發(fā)環(huán)境，因此利用Visual Basic可以方便、快捷地開(kāi)發(fā)出利用后臺(tái)服務(wù)器中的數(shù)據(jù)和數(shù)據(jù)庫(kù)管理系統(tǒng)的數(shù)據(jù)庫(kù)應(yīng)用程序。商品信息管理的時(shí)序圖圖32 商品信息管理的時(shí)序圖商品信息管理的協(xié)作圖圖33 商品信息管理的協(xié)作圖采購(gòu)的時(shí)序圖圖34采購(gòu)的時(shí)序圖采購(gòu)的協(xié)作圖圖35采購(gòu)的協(xié)作圖銷(xiāo)售的時(shí)序圖圖36銷(xiāo)售的時(shí)序圖銷(xiāo)售的協(xié)作圖圖37銷(xiāo)售的協(xié)作圖退貨的時(shí)序圖圖38退貨的時(shí)序圖退貨的協(xié)作圖圖39退貨的協(xié)作圖第4章 系統(tǒng)設(shè)計(jì)從系統(tǒng)的實(shí)現(xiàn)環(huán)境考慮，完善之前對(duì)系統(tǒng)類(lèi)圖的分析，并對(duì)人機(jī)界面和數(shù)據(jù)庫(kù)進(jìn)行設(shè)計(jì)，最終形成一個(gè)可實(shí)現(xiàn)的系統(tǒng)設(shè)計(jì)模型。時(shí)序圖用時(shí)間順序來(lái)表示對(duì)象之間的交互，描述一個(gè)用例完成某一功能時(shí)對(duì)象之間消息發(fā)送的順序，強(qiáng)調(diào)對(duì)象的消息流，通過(guò)畫(huà)時(shí)序圖可以發(fā)現(xiàn)類(lèi)圖中沒(méi)有明確或者遺漏的關(guān)系[10]。根據(jù)以上分析，建立如圖21所示的類(lèi)圖。類(lèi)圖用來(lái)表達(dá)系統(tǒng)的靜態(tài)結(jié)構(gòu)。Delete(sql:string)：根據(jù)sql語(yǔ)句刪除數(shù)據(jù)庫(kù)中的數(shù)據(jù)。Read(sql:string)：根據(jù)sql語(yǔ)句讀出數(shù)據(jù)庫(kù)中的數(shù)據(jù)。類(lèi)data類(lèi)Data為數(shù)據(jù)庫(kù)訪問(wèn)類(lèi)，用于將相關(guān)數(shù)據(jù)從數(shù)據(jù)庫(kù)中讀出來(lái)，或?qū)懭霐?shù)據(jù)庫(kù)中。buy：購(gòu)買(mǎi)商品。供貨商編號(hào)。商品名稱(chēng) 。商品編號(hào)。（2）操作：search：查詢(xún)銷(xiāo)售記錄。date：date。clientid：integer。price：double。count：integer。gondsid：integer。（1）屬性id：integer。delete：刪除供貨商。search：查詢(xún)供貨商。供貨商供應(yīng)商品代碼mail：string。供貨商聯(lián)系方式。供貨商地址。供貨商姓名。 供貨商編號(hào)。modify：修改客戶(hù)信息delete：刪除客戶(hù)。（2）操作：add：增加客戶(hù)。adress：string。phone：string。name：string。（1）屬性：id：integer。quit：退出系統(tǒng)。search：查詢(xún)各類(lèi)信息。類(lèi)administrator類(lèi)administrator用于描述系統(tǒng)管理員的信息。sell：銷(xiāo)售商品。buy：采購(gòu)商品。操作員工作技能（用以區(qū)分采購(gòu)員、銷(xiāo)售員和倉(cāng)庫(kù)管理員）。密碼。操作員姓名。 操作員編號(hào)。類(lèi)operator類(lèi)operator用于描述系統(tǒng)操作員的信息。通過(guò)對(duì)系統(tǒng)需求的分析，發(fā)現(xiàn)系統(tǒng)中的類(lèi)有：系統(tǒng)管理員（administrator）、操作員（operator）、商品、銷(xiāo)售記錄、客戶(hù)、供貨商。對(duì)于除了系統(tǒng)管理者以外的工作人員來(lái)說(shuō)，系統(tǒng)操作應(yīng)簡(jiǎn)單，易于使用。在此系統(tǒng)中，管理者不直接參與日常的經(jīng)營(yíng)事務(wù)，管理者通過(guò)查詢(xún)本系統(tǒng)，便可了解到商品的基本情況，采購(gòu)情況、銷(xiāo)售情況和庫(kù)存狀況等，這些信息可以幫助管理者做出合理、科學(xué)的決策。本進(jìn)銷(xiāo)存系統(tǒng)力求做到對(duì)整個(gè)企業(yè)基本信息的管理實(shí)現(xiàn)系統(tǒng)化、規(guī)范化，標(biāo)準(zhǔn)化[7]。系統(tǒng)分析在用戶(hù)模型的基礎(chǔ)上，建立適應(yīng)性強(qiáng)的獨(dú)立于系統(tǒng)實(shí)現(xiàn)環(huán)境的邏輯結(jié)構(gòu)。它側(cè)重于從業(yè)務(wù)全過(guò)程的角度進(jìn)行分析，系統(tǒng)分析從系統(tǒng)需求入手，從用戶(hù)觀點(diǎn)出發(fā)建立系統(tǒng)用戶(hù)模型?？蛇x操作流程如果沒(méi)有相應(yīng)記錄，則應(yīng)作出相應(yīng)提示?？蛇x操作流程如果沒(méi)有查詢(xún)到商品銷(xiāo)售信息，則給予提示并要求重新查詢(xún)報(bào)表處理的用例描述采用表格形式描述該用例，如表16所示：表16報(bào)表處理用例用例名稱(chēng)報(bào)表處理參與者銷(xiāo)售員前置條件銷(xiāo)售員已經(jīng)成功登錄系統(tǒng)，進(jìn)入報(bào)表處理模塊后置條件查詢(xún)打印報(bào)表基本操作流程，查詢(xún)某一天的銷(xiāo)售日?qǐng)?bào)表?？蛇x操作流程對(duì)數(shù)據(jù)進(jìn)行保存時(shí)，系統(tǒng)應(yīng)加以提示?？蛇x操作流程如果沒(méi)有查詢(xún)到商品信息，則給予提示并要求重新查詢(xún)退貨處理的