【導(dǎo)讀】經(jīng)濟(jì)和科技等諸多因素進(jìn)行分析。對(duì)實(shí)現(xiàn)此系統(tǒng)的技術(shù)、經(jīng)濟(jì)和管理可行性做了。最后總體介紹了超市進(jìn)銷存管理所包括的基本功能模塊，并詳細(xì)闡述。超市進(jìn)銷存管理系統(tǒng)主要包括入庫(kù)、出庫(kù)、退貨、訂貨、超市統(tǒng)計(jì)查詢等等。貨計(jì)劃數(shù)、是否允許打折。還可以進(jìn)行打印報(bào)表，包括計(jì)劃進(jìn)貨表、本月本季本。年的銷售報(bào)表等功能。和工作效率，同時(shí)也可以最大限度地減少手工操作帶來(lái)的錯(cuò)誤。理信息系統(tǒng)便應(yīng)運(yùn)而生。在工廠中，產(chǎn)品的進(jìn)銷存涉及產(chǎn)品原料的采購(gòu)、庫(kù)存、在其他非生產(chǎn)性單位，如超市、商店等，則主要涉及到進(jìn)。貨、庫(kù)存、銷售和報(bào)損4個(gè)方面。的商品，圖書館超市的圖書，博物館超市的展品等等。在這里本文僅涉及工業(yè)企

　　

【正文】 第 28頁(yè) 圖 主界面效果圖 其他代碼 Private Sub Form_Load() LoadResStrings Me = GetSetting(, Settings, MainLeft, 1000) = GetSetting(, Settings, MainTop, 1000) = GetSetting(, Settings, MainWidth, 6500) = GetSetting(, Settings, MainHeight, 6500) = Val(GetSetting(, Settings, ViewMode, 0)) 39。初始化數(shù)據(jù) Call InitMain End Sub 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院論文（設(shè)計(jì)） 第 29頁(yè) Private Sub Form_Unload(Cancel As Integer) Dim i As Integer 39。close all sub forms For i = 1 To 1 Step 1 Unload Forms(i) Next If vbMinimized Then SaveSetting , Settings, MainLeft, SaveSetting , Settings, MainTop, SaveSetting , Settings, MainWidth, SaveSetting , Settings, MainHeight, End If SaveSetting , Settings, ViewMode, End Sub Private Sub Form_Resize() On Error Resume Next If 3000 Then = 3000 SizeControls End Sub 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院論文（設(shè)計(jì)） 第 30頁(yè) 用戶管理模塊 圖 用戶管理對(duì)話框代碼設(shè)計(jì) Option Explicit Dim opAdmin As New clsOpAdmin Private Sub CancelButton_Click() Unload Me End Sub Private Sub cmdAdd_Click() lvAdmin End Sub Private Sub cmdDel_Click() lvAdmin End Sub 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院論文（設(shè)計(jì)） 第 31頁(yè) Private Sub cmdModify_Click() lvAdmin End Sub Private Sub Form_Load() lvAdmin End Sub 經(jīng)營(yíng)分析模塊 經(jīng)營(yíng)分析模塊用來(lái)對(duì)超市的運(yùn)作情況進(jìn)行 分析 ， 具有以下功能 ： 庫(kù)存量排行。進(jìn)貨總量與登記次數(shù)排行。銷售總量與登記次數(shù)排行。報(bào)損總量與登記次數(shù)排行。 表 控件名稱 屬性 屬性取消 功能 FrmAnalysis（ Form） Caption 經(jīng)營(yíng)分析 經(jīng)營(yíng)分析對(duì)話框 List 庫(kù)存分析 進(jìn)貨分析 銷售分析 報(bào)損分析 CboOrder（ ComboBox） Style 2DropDownList 前↓：降序排列，取前若干項(xiàng)；↑后：降序排列，取后若干項(xiàng)。然后再按由小到大顯示 List 前 ↓ ↑ 后 TxtCount（ TextBox） MaxLength 3 顯示數(shù)量 CmdSearch（ CommandButtom） Caption 查看 [查看 ]按鈕 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院論文（設(shè)計(jì)） 第 32頁(yè) CmdClose（ CommandButtom） Caption 關(guān)閉 [關(guān)閉 ]按鈕 LvAna（ ListView） GridLines True 顯示數(shù)據(jù)容器 View lvwRiport 界面設(shè)計(jì) 銷售分析模塊可以清楚的看出各類產(chǎn)品的銷售情況如圖 圖 界面設(shè)計(jì)圖 代碼分析 Option Explicit Private Sub cmdClose_Click() End Sub Private Sub cmdSearch_Click() Dim nCount As Integer Dim IsDesc As Boolean 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院論文（設(shè)計(jì)） 第 33頁(yè) Dim opMerch As New clsOpMerch Dim opBuy As New clsOpBuy Dim opSell As New clsOpSell Dim opDispose As New clsOpDispose nCount = Val() If nCount = 0 Then nCount = 10 IsDesc = IIf( = 0, True, False) Select Case Case 0 39。庫(kù)存分析 lvAna, IsDesc, nCount Case 1 39。進(jìn)貨分析 lvAna, IsDesc, nCount Case 2: 39。銷售分析 lvAna, IsDesc, nCount Case 3 39。報(bào)損分析 lvAna, IsDesc, nCount Case Else End Select End Sub Private Sub Form_Load() = 0 = 0 = 10 End Sub 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院論文（設(shè)計(jì)） 第 34頁(yè) 6 測(cè)試分析 強(qiáng)制變量聲明 選擇菜單 [工具 ]— [選項(xiàng) ]命令，打開(kāi)“選項(xiàng)“對(duì)話框”，在“編輯器”屬性頁(yè)中，把“要求變量聲明”復(fù)選框選上，或者手工在每個(gè)文件的開(kāi)頭加上關(guān)鍵字： option Explicit 這樣在編譯時(shí)會(huì)對(duì)沒(méi)有聲明的變量報(bào)錯(cuò)，從而減少很多不必要的調(diào)試。 常見(jiàn)錯(cuò)誤的避免 數(shù)據(jù)類型不匹配 數(shù)據(jù)類型的判斷錯(cuò)誤，比如一個(gè)功能模塊，接受傳入的數(shù)據(jù)為 id，要求其值必須是正 數(shù)。如果寫程序時(shí)傳入的是小數(shù)，或者是非數(shù)字的字符串，那么程序?qū)?huì)出現(xiàn)錯(cuò)誤。又如查詢數(shù)據(jù)表時(shí)，使用了 WHERE子句，但是數(shù)據(jù)類型不匹配，數(shù)據(jù)庫(kù)中字段類型為數(shù)字的值，卻使用了字符串去查詢，就會(huì)出現(xiàn)錯(cuò)誤。 數(shù)據(jù)與數(shù)據(jù)庫(kù)限制相沖突 數(shù)據(jù)與數(shù)據(jù)庫(kù)限制相沖突，可能是其值超過(guò)了數(shù)據(jù)庫(kù)的上限和下限。比如在數(shù)據(jù)庫(kù)中，用戶名稱字符數(shù)量上限是 20個(gè)字符，而在程序中沒(méi)有對(duì)此進(jìn)行判別，如果一個(gè)添加新商品時(shí)名字有 21個(gè)字符，那么在使用 SQL語(yǔ)句插入數(shù)據(jù)與記錄的時(shí)候就會(huì)出錯(cuò)。 變量聲明錯(cuò)誤 最后是一些常識(shí)性錯(cuò)誤，比如在 If? Else? End If過(guò)程中，認(rèn)為判斷只會(huì)執(zhí)行其中的一段代碼，于是在兩段中都使用了 Dim obj as clsMerch，事實(shí)上，編譯器在語(yǔ)法分析階段，是首先將一個(gè)函數(shù)內(nèi)聲明的全部變量都放符號(hào)表中，而不管這個(gè)變量的聲明是在這個(gè)函數(shù)的什么位置。 又如在 Select Case中， Case的條件是字符串，但是沒(méi)有加引號(hào)，就變成了 Case一個(gè)空變量。 資源的建立與釋放 在將類實(shí)例化時(shí)，必須使用 New關(guān)鍵字，未實(shí)例化類無(wú)法使用，例： 誤： 浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院論文（設(shè)計(jì)） 第 35頁(yè) Dim obj as clsMerch 正 ： Dim obj as clsMerch Set obj=New clsMerch 同理，在調(diào)用 Set obj=Nothing后，資源已經(jīng)釋放，無(wú)法再調(diào)用類內(nèi)的方法。 系統(tǒng)的編譯和發(fā)行 3個(gè)工程的項(xiàng)目屬性在前面創(chuàng)建項(xiàng)目時(shí)均已設(shè)置完畢，由于在本系統(tǒng)中生成了名為 ，當(dāng) 移植到其他機(jī)器使用時(shí)，需要先注冊(cè)此組件。另外系統(tǒng)中默認(rèn)的數(shù)據(jù)庫(kù)的路徑是與 DB文件夾，因此當(dāng)移植到其他機(jī)器時(shí)，這個(gè)路徑關(guān)系依然不能改變。 總結(jié) 本系統(tǒng)是針對(duì)超市進(jìn)行供銷管理而設(shè)計(jì)的，在這個(gè)系統(tǒng)中， 超市進(jìn)銷存管理系統(tǒng) 研究的內(nèi)容涉及超市進(jìn)銷存管理的全過(guò)程，包括入庫(kù)、出庫(kù)、退貨、訂貨、超市 統(tǒng)計(jì)查詢等等。雖然，此系統(tǒng)還有許多方面還不夠完善，還存在一些不足，還需改進(jìn) ,但設(shè)計(jì)界面簡(jiǎn)潔 ,美觀大方 ,基本功能比較完善 . 通過(guò)本系統(tǒng)的開(kāi)發(fā)，我對(duì)軟件開(kāi)發(fā)過(guò)程有了更清晰的了解，首先是問(wèn)題定義、需求分析，然后是功能設(shè)計(jì)、詳細(xì)設(shè)計(jì)等，并對(duì)軟件測(cè)試的方法、手段有了較深的理解，同時(shí)對(duì)超市進(jìn)銷存管理 系統(tǒng)的流程有了一個(gè)系統(tǒng)的認(rèn)識(shí)。在開(kāi)發(fā)過(guò)程還認(rèn)真學(xué)習(xí)了與系統(tǒng)相關(guān)的知識(shí)，極大地拓寬了我的知識(shí)面 ,我感到收獲不小。 在系統(tǒng)的開(kāi)發(fā)初期，必須要熟悉超市進(jìn)銷存管理系統(tǒng)的整個(gè)流程，初步了解了超市進(jìn)銷存管理系統(tǒng)的相關(guān)知識(shí)，這樣才能進(jìn)入到設(shè)計(jì)的過(guò)程中去。從開(kāi)始熟悉這些知識(shí)到對(duì)整體設(shè)計(jì)有了解，再?gòu)母乓O(shè)計(jì)、詳細(xì)設(shè)計(jì)到開(kāi)始編碼，以及最后的測(cè)試，整個(gè)過(guò)程感覺(jué)很充實(shí)，雖然遇到了不少困難，但當(dāng)我通過(guò)自己查資料、浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院論文（設(shè)計(jì)） 第 36頁(yè) 或是向指導(dǎo)老師請(qǐng)教以及向同學(xué)請(qǐng)教，而設(shè)計(jì)出解決方案并成功實(shí)現(xiàn)時(shí)，那種成就感和滿足感足以鼓勵(lì)自己加班加點(diǎn)的辛苦。 因?yàn)橐郧坝?過(guò)使用 vb 設(shè)計(jì)管理軟件的經(jīng)驗(yàn)，在這次設(shè)計(jì)的過(guò)程中，我遇到專業(yè)知識(shí)方面的困難不是非常多，主要困難集中在管理知識(shí)、業(yè)務(wù)流程上等方面的不足。在實(shí)際的開(kāi)發(fā)中我深刻的體會(huì)到了自己做課程設(shè)計(jì)和實(shí)際客戶的要求之間的距離，不能憑空想象來(lái)開(kāi)發(fā)軟件，而是需要與客戶不斷的溝通交流，把客戶真正的需求反映到你的軟件當(dāng)中。 經(jīng)過(guò)以上詳細(xì)的設(shè)計(jì)與構(gòu)架，終于完成了畢業(yè)論文選題系統(tǒng)的開(kāi)發(fā)。在本次開(kāi)發(fā)過(guò)程中，遇到了很多的困難。也有指導(dǎo)老師李迎輝的細(xì)心幫助 ,包括數(shù)據(jù)庫(kù)設(shè)計(jì)方面，技術(shù)實(shí)現(xiàn)方面以及系統(tǒng)測(cè)試方面。同時(shí)，我也受到了很大的啟發(fā)，希望通過(guò)今 后的學(xué)習(xí)，能夠?qū)Ρ鞠到y(tǒng)在安全性方面進(jìn)行進(jìn)一步的完善 。 參考文獻(xiàn) [1] 陸惠恩；陸陪恩，軟件工程 [M]，電子工業(yè)出版社 ,2021年 1月 . [2] 王春森，程序員教程 [M]，清華大學(xué)出版社 ,2021年 5月 . [3] 蔣加伏；張林峰， Visual Basic程序設(shè)計(jì)教程 [M]，北京郵電大學(xué)出版社 , 2021年 . [4] 趙瑋， Visual Basic中文版快捷編程實(shí)戰(zhàn)訓(xùn)練 [M],人民郵電出版社 ,2021年 9月 . [5] 孟小峰， WEB數(shù)據(jù)管理研究綜述 [M]，清華大學(xué)出版社， 2021年 . [6] 黃吻，現(xiàn)代遠(yuǎn)程 教育結(jié)教育發(fā)展啟示 [N]，浙江大學(xué)學(xué)報(bào)， 1995年 5月 . [7] 吳競(jìng)?cè)A；陳根才，基于三層模式的檔案管理系統(tǒng)的設(shè)計(jì)與實(shí)浙江經(jīng)貿(mào)職業(yè)技術(shù)學(xué)院論文（設(shè)計(jì)） 第 37頁(yè) 現(xiàn) [M]，北京，機(jī)械工業(yè)出版社， 2021年 . [8] 金漢均，數(shù)據(jù)庫(kù)實(shí)現(xiàn)的方法 [N]，華中師范大學(xué)學(xué)報(bào)， 1999專輯 . [9] 楊漢平；王小蕾等，數(shù)據(jù)庫(kù)中間件技術(shù)在三層操作系統(tǒng)模型中的實(shí)現(xiàn) [N]，華中師范大學(xué)學(xué)報(bào)， 2021年 4月 . [10]廖信彥， Visual Basic應(yīng)用大全 [M]，清華大學(xué)出版社， 2021年 . [11]康博， Visual Basic應(yīng)用程序開(kāi)發(fā)新技術(shù) [M]，人民郵電出 版社， 2021年 . [12]陳子俠，基于 B/S結(jié)構(gòu)的在線商店技術(shù)開(kāi)發(fā) [N]，浙江大學(xué)學(xué)報(bào)， 2021. [13]清源計(jì)算機(jī)工作室， Visual Basic設(shè)計(jì)與制作 [M]，機(jī)械工業(yè)出版社， 2021年 . [14]周佩德，數(shù)據(jù)庫(kù)原理及應(yīng)用 [M]，電子工業(yè)出版社 ,2021年 . [15]劉炳文等， VISUAL BASIC程序設(shè)計(jì) 數(shù)據(jù)庫(kù)篇 [M]，人民郵電出版社 ,1999年 3月 . [16]李光明， Visual Basic [M]，冶金工業(yè)出版社 ,2021年 8月 . [17]劉炳文，精通 VISUAL BASIC [M]，人民郵電出版社 ,2021年 . [18]黃淼云， [M],國(guó)防工業(yè)出版社 ,2021年 . [19]王要武，信息管理系統(tǒng) [M]，電子工業(yè)出版社， 2021年 . [20]李紅等編著，管理信息系統(tǒng)開(kāi)發(fā)與應(yīng)用 [M]，電子工業(yè)出版社，2021年 .