【正文】 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。初始化所有數據函數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。 菜單響應函數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。設置樹型控件焦點 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。 進貨管理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。 供應商操作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 大圖標 = lvwIcon Case 小圖標 = lvwSmallIcon Case 列表 = lvwList Case 詳細資料 = lvwReport End SelectEnd SubPrivate Sub tvTreeView_NodeClick(ByVal Node As ) lvMerch, GetID() lvBuy, GetID() lvSell, GetID() lvDispose, GetID()End Sub結束語本軟件的設計目的是為超市管理人員提高效率提供方便和幫助。通過這幾個月的畢業(yè)設計，我學到很多以前沒有學到的visual basic開發(fā)技術，在軟件工程學上更是取得了很大的進步。經過大量的測試和試用，作者深信本軟件達到了方便和實用的設計目的，并在軟件界面和易用實用等方面有著獨到之處。雖然軟件基本達到設計要求并且達到同行的先進水平，但由于作者水平有限，軟件存在bug也是在所難免的 ，您的意見和建議將極大的幫助我改進并完善軟件。真誠的希望你的參與。 致謝我首先感謝我的指導老師姜老師，在他嚴格的要求下我懂得了開發(fā)軟件要有一種極其認真負責的態(tài)度。無論做什么事都要大膽的去想去做，這樣會有好的創(chuàng)意，才能更有作為。 在這里我還要感謝和我一起實習的同學，在實習的這段時間里他們給我了很大的幫助。 參 考 文 獻1陳明 . 軟件工程學教程 .科技出版社，20022 薩師煊，王珊 . 數據庫系統(tǒng)概論 . 第三版 . 高等教育出版社，20003 飛思科技產品研發(fā)中心 . visual basic .電子工業(yè)出版社，20034 飛思科技產品研發(fā)中心 . visual basic . 電子工業(yè)出版社, 2002 5 申旻 . visual basic . 清華大學出版社，2002，3026 Steve Teixeira，Xaviver Pacheco著，龍勁松，王瑜，謝尚書譯 . visual basic . 機械工業(yè)出版社 .2003 7 喬林 .參透Delphi／Kylix . 中國鐵道出版社 .20038 李維 .Inside 深入核心 VCL 架構剖析 . 電子工業(yè)出版社 .2004 9 張立科編寫組 .Windows API 函數參考手冊 .人民郵電出版社 .2002 嚴蔚敏，吳偉民 .數據結構 .第二版 .清華大學出版社 .2001 10 王珍玲 。實用軟件工程教程 高等教育出版社 200411 （英）Ian Sommerville 機械工業(yè)出版社 200312 美Cantu,U. 王輝等譯visual basic 從入門到精通 16