【正文】 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 InitMainEnd SubPrivate 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 SubPrivate Sub Form_Resize() On Error Resume Next If 3000 Then = 3000 SizeControls End Sub 用戶管理模塊用戶管理對話框代碼設(shè)計(jì)Option ExplicitDim opAdmin As New clsOpAdminPrivate Sub CancelButton_Click() Unload MeEnd SubPrivate Sub cmdAdd_Click() lvAdminEnd SubPrivate Sub cmdDel_Click() lvAdminEnd SubPrivate Sub cmdModify_Click() lvAdminEnd SubPrivate Sub Form_Load() lvAdminEnd Sub經(jīng)營分析模塊用來對超市的運(yùn)作情況進(jìn)行分析，具有以下功能：庫存量排行。進(jìn)貨總量與登記次數(shù)排行。銷售總量與登記次數(shù)排行。報(bào)損總量與登記次數(shù)排行。控件名稱屬性屬性取消功能FrmAnalysis（Form）Caption經(jīng)營分析經(jīng)營分析對話框List庫存分析進(jìn)貨分析銷售分析報(bào)損分析CboOrder（ComboBox）Style2DropDownList前↓：降序排列，取前若干項(xiàng)；↑后：降序排列，取后若干項(xiàng)。然后再按由小到大顯示List前↓↑后TxtCount（TextBox）MaxLength3顯示數(shù)量CmdSearch（CommandButtom）Caption查看[查看]按鈕CmdClose（CommandButtom）Caption關(guān)閉[關(guān)閉]按鈕LvAna（ListView）GridLinesTrue顯示數(shù)據(jù)容器ViewlvwRiport界面設(shè)計(jì) 銷售分析模塊可以清楚的看出各類產(chǎn)品的銷售情況如圖 界面設(shè)計(jì)圖代碼分析Option ExplicitPrivate Sub cmdClose_Click() End SubPrivate Sub cmdSearch_Click() Dim nCount As Integer Dim IsDesc As Boolean 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。庫存分析 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 SubPrivate Sub Form_Load() = 0 = 0 = 10End Sub第五章：測試分析 強(qiáng)制變量聲明選擇菜單[工具]—[選項(xiàng)]命令，打開“選項(xiàng)“對話框”，在“編輯器”屬性頁中，把“要求變量聲明”復(fù)選框選上，或者手工在每個(gè)文件的開頭加上關(guān)鍵字：option Explicit這樣在編譯時(shí)會對沒有聲明的變量報(bào)錯(cuò)，從而減少很多不必要的調(diào)試。 常見錯(cuò)誤的避免數(shù)據(jù)類型不匹配 數(shù)據(jù)類型的判斷錯(cuò)誤，比如一個(gè)功能模塊，接受傳入的數(shù)據(jù)為id，要求其值必須是正數(shù)。如果寫程序時(shí)傳入的是小數(shù)，或者是非數(shù)字的字符串，那么程序?qū)霈F(xiàn)錯(cuò)誤。又如查詢數(shù)據(jù)表時(shí)，使用了WHERE子句，但是數(shù)據(jù)類型不匹配，數(shù)據(jù)庫中字段類型為數(shù)字的值，卻使用了字符串去查詢，就會出現(xiàn)錯(cuò)誤。數(shù)據(jù)與數(shù)據(jù)庫限制相沖突數(shù)據(jù)與數(shù)據(jù)庫限制相沖突，可能是其值超過了數(shù)據(jù)庫的上限和下限。比如在數(shù)據(jù)庫中，用戶名稱字符數(shù)量上限是20個(gè)字符，而在程序中沒有對此進(jìn)行判別，如果一個(gè)添加新商品時(shí)名字有21個(gè)字符，那么在使用SQL語句插入數(shù)據(jù)與記錄的時(shí)候就會出錯(cuò)。變量聲明錯(cuò)誤最后是一些常識性錯(cuò)誤，比如在If…Else…End If過程中，認(rèn)為判斷只會執(zhí)行其中的一段代碼，于是在兩段中都使用了Dim obj as clsMerch，事實(shí)上，編譯器在語法分析階段，是首先將一個(gè)函數(shù)內(nèi)聲明的全部變量都放符號表中，而不管這個(gè)變量的聲明是在這個(gè)函數(shù)的什么位置。又如在Select Case中，Case的條件是字符串，但是沒有加引號，就變成了Case一個(gè)空變量。資源的建立與釋放在將類實(shí)例化時(shí)，必須使用New關(guān)鍵字，未實(shí)例化類無法使用，例：誤： Dim obj as clsMerch正： Dim obj as clsMerch Set obj=New clsMerch 同理，在調(diào)用Set obj=Nothing后，資源已經(jīng)釋放，無法再調(diào)用類內(nèi)的方法。結(jié)束語本軟件的設(shè)計(jì)目的是為超市管理人員提高效率提供方便和幫助。通過這幾個(gè)月的畢業(yè)設(shè)計(jì)，我學(xué)到很多以前沒有學(xué)到的visual basic開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。經(jīng)過大量的測試和試用，本軟件基本達(dá)到了方便和實(shí)用的設(shè)計(jì)目的。雖然軟件基本達(dá)到設(shè)計(jì)要求，但由于作者水平有限，軟件存在bug也是在所難免的，您的意見和建議將極大的幫助我改進(jìn)并完善軟件。真誠的希望你的參與。致 謝我首先感謝我的指導(dǎo)老師王俊老師，還有我的班主任桑道松老師，在他們嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。參考文獻(xiàn)1。陳明 。 軟件工程學(xué)教程 ?？萍汲霭嫔纾?0022。 薩師煊，王珊 。 數(shù)據(jù)庫系統(tǒng)概論 。 第三版 。 高等教育出版社，20003。 飛思科技產(chǎn)品研發(fā)中心 。 visual basic 6。0數(shù)據(jù)庫應(yīng)用開發(fā) 。電子工業(yè)出版社，20034。 飛思科技產(chǎn)品研發(fā)中心 。 visual basic 6。0開發(fā)者手冊 。 電子工業(yè)出版社， 2002 5。 申旻 。 visual basic 6。0高手突破 。 清華大學(xué)出版社，2002，3026 。Steve Teixeira，Xaviver Pacheco著，龍勁松，王瑜，謝尚書譯 。 visual basic 6。0開發(fā)人員指南 。 機(jī)械工業(yè)出版社 。2003 7。李維 。Inside 深入核心 VCL 架構(gòu)剖析 。 電子工業(yè)出版社 。2004 8。 張立科編寫組 。Windows API 函數(shù)參考手冊 。人民郵電出版社 。2002 嚴(yán)蔚敏，吳偉民 。數(shù)據(jù)結(jié)構(gòu) 。第二版 。清華大學(xué)出版社 。2001 9。 李維 面向?qū)ο箝_發(fā)實(shí)踐之路（visual basic 6。0版）(BORLAND資深顧問著名visual basic 6。0專家李維最新力作) 電子工業(yè)出版社 2005。410。 秦斌 等 visual basic 6。0數(shù)據(jù)庫系統(tǒng)開發(fā)與應(yīng)用 中國水利水電出版社 2006 。111。劉藝 visual basic 6。0面向?qū)ο缶幊趟枷?機(jī)械工業(yè)出版社 200312。visual basic 程序設(shè)計(jì)第二版 譚浩強(qiáng) 清華大學(xué)出版社 200313。 visual basic6。0 程序設(shè)計(jì)教程。 胡同森 趙劍鋒等。 浙江科學(xué)技術(shù)出版社，2002。114。Visual Basic 6。0 程序設(shè)計(jì)與開發(fā)技術(shù) 求是科技 人民郵電出版社 2004