【正文】 uVAIByName_Click() 39。ToDo: 添加 39。mnuVAIByName_Click39。 代碼39。 = NAME_COLUMNEnd SubPrivate Sub mnuVAIBySize_Click() 39。ToDo: 添加 39。mnuVAIBySize_Click39。 代碼39。 = SIZE_COLUMNEnd SubPrivate Sub mnuVAIByType_Click() 39。ToDo: 添加 39。mnuVAIByType_Click39。 代碼39。 = TYPE_COLUMNEnd SubPrivate Sub mnuViewStatusBar_Click() = Not = SizeControls End SubPrivate Sub mnuViewToolbar_Click() = Not = SizeControls End Sub39。初始化所有數(shù)據(jù)函數(shù)Private Sub InitMain()39。 InitMerchListview lvMerch 39。初始化列表39。 ListAllMerchs lvMerch TypeToTreeview tvTreeView 39。將客戶類型顯示到樹型圖中 lvProvider lvMerch lvBuy lvSell lvDisposeEnd Sub39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 菜單響應(yīng)函數(shù)39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。===============================================39。 商品類型操作39。===============================================Private Sub mnuMType_Click() 39。設(shè)置樹型控件焦點 End Sub39。添加Private Sub mnuMTypeAdd_Click() tvTreeViewEnd Sub39。刪除Private Sub mnuMTypeDel_Click() tvTreeViewEnd Sub39。修改Private Sub mnuMTypeModify_Click() tvTreeViewEnd Sub39。===============================================39。 人員管理操作39。===============================================Private Sub mnuSystemUser_Click() vbModalEnd Sub39。===============================================39。 商品操作39。===============================================Private Sub mnuMerch_Click() 39。切換選項卡 = 0End SubPrivate Sub mnuMerchAdd_Click() = 0 lvMerch, GetID()End SubPrivate Sub mnuMerchDel_Click() = 0 lvMerchEnd SubPrivate Sub mnuMerchModify_Click() = 0 lvMerchEnd Sub39。===============================================39。 進(jìn)貨管理39。===============================================Private Sub mnuBuy_Click() 39。切換選項卡 = 1End SubPrivate Sub mnuBuyAdd_Click() lvBuy, g_Account 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。, vbInformationEnd SubPrivate Sub mnuBuyDel_Click() lvBuy 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。, vbInformationEnd SubPrivate Sub mnuBuyModify_Click() lvBuy, g_Account 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。, vbInformationEnd Sub39。===============================================39。 銷售管理39。===============================================Private Sub mnuSell_Click() 39。切換選項卡 = 2End SubPrivate Sub mnuSellAdd_Click() lvSell, g_Account 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。, vbInformationEnd SubPrivate Sub mnuSellDel_Click() lvSell 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。, vbInformationEnd SubPrivate Sub mnuSellModify_Click() lvSell, g_Account 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。, vbInformationEnd Sub39。===============================================39。 報損管理39。===============================================Private Sub mnuDispose_Click() 39。切換選項卡 = 3End SubPrivate Sub mnuDisposeAdd_Click() lvDispose, g_Account 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。, vbInformationEnd SubPrivate Sub mnuDisposeDel_Click() lvDispose 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。, vbInformationEnd SubPrivate Sub mnuDisposeModify_Click() lvDispose, g_Account 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。, vbInformationEnd Sub39。===============================================39。 供應(yīng)商操作39。===============================================Private Sub mnuProvider_Click() 39。切換選項卡 = 4End SubPrivate Sub mnuProviderAdd_Click() lvProviderEnd SubPrivate Sub mnuProviderDel_Click() lvProviderEnd SubPrivate Sub mnuProviderModify_Click() lvProviderEnd SubPrivate Sub tbToolBar_ButtonMenuClick(ByVal ButtonMenu As ) Select Case Case tbnAddClientType 39。mnuAddClientType_Click Case tbnModifyClientType 39。mnuModifyClientType_Click Case tbnDelClientType 39。mnuDelClientType_Click Case 大圖標(biāo) = lvwIcon Case 小圖標(biāo) = lvwSmallIcon Case 列表 = lvwList Case 詳細(xì)資料 = lvwReport End SelectEnd SubPrivate Sub tvTreeView_NodeClick(ByVal Node As ) lvMerch, GetID() lvBuy, GetID() lvSell, GetID() lvDispose, GetID()End Sub結(jié)束語本軟件的設(shè)計目的是為超市管理人員提高效率提供方便和幫助。通過這幾個月的畢業(yè)設(shè)計，我學(xué)到很多以前沒有學(xué)到的visual basic開發(fā)技術(shù)，在軟件工程學(xué)上更是取得了很大的進(jìn)步。經(jīng)過大量的測試和試用，作者深信本軟件達(dá)到了方便和實用的設(shè)計目的，并在軟件界面和易用實用等方面有著獨到之處。雖然軟件基本達(dá)到設(shè)計要求并且達(dá)到同行的先進(jìn)水平，但由于作者水平有限，軟件存在bug也是在所難免的 ，您的意見和建議將極大的幫助我改進(jìn)并完善軟件。真誠的希望你的參與。 致謝我首先感謝我的指導(dǎo)老師姜老師，在他嚴(yán)格的要求下我懂得了開發(fā)軟件要有一種極其認(rèn)真負(fù)責(zé)的態(tài)度。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。 在這里我還要感謝和我一起實習(xí)的同學(xué)，在實習(xí)的這段時間里他們給我了很大的幫助。 參 考 文 獻(xiàn)1陳明 . 軟件工程學(xué)教程 .科技出版社，20022 薩師煊，王珊 . 數(shù)據(jù)庫系統(tǒng)概論 . 第三版 . 高等教育出版社，20003 飛思科技產(chǎn)品研發(fā)中心 . visual basic .電子工業(yè)出版社，20034 飛思科技產(chǎn)品研發(fā)中心 . visual basic . 電子工業(yè)出版社, 2002 5 申旻 . visual basic . 清華大學(xué)出版社，2002，3026 Steve Teixeira，Xaviver Pacheco著，龍勁松，王瑜，謝尚書譯 . visual basic . 機(jī)械工業(yè)出版社 .2003 7 喬林 .參透Delphi／Kylix . 中國鐵道出版社 .20038 李維 .Inside 深入核心 VCL 架構(gòu)剖析 . 電子工業(yè)出版社 .2004 9 張立科編寫組 .Windows API 函數(shù)參考手冊 .人民郵電出版社 .2002 嚴(yán)蔚敏，吳偉民 .數(shù)據(jù)結(jié)構(gòu) .第二版 .清華大學(xué)出版社 .2001 10 王珍玲 。實用軟件工程教程 高等教育出版社 200411 （英）Ian Sommerville 機(jī)械工業(yè)出版社 200312 美Cantu,U. 王輝等譯visual basic 從入門到精通 16