【導讀】工作學習及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息。管理、輔助設(shè)計、圖形圖像處理、教育培訓以及游戲娛樂等。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它。以前開發(fā)Windows應(yīng)用軟件是專業(yè)人員的工作，需要。掌握許多專業(yè)知識和經(jīng)過特殊的培訓才能勝任。發(fā)出功能強大、適合自己特殊需求的應(yīng)用程序了。理員進行更有效的超市庫存管理工作。超市進銷存管理系統(tǒng)是典型的。前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完。整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,經(jīng)過分析,我們使用MICROSOFT公司的VISUALBASIC開發(fā)工具,而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,滿意的可行系統(tǒng)。都有待于我在以后的工作學習中進一步改進。

　　

【正文】 Private Sub lvDispose_DblClick() mnuDisposeModify_Click End Sub Private Sub lvMerch_DblClick() mnuMerchModify_Click End Sub Private Sub lvProvider_DblClick() mnuProviderModify_Click End Sub Private Sub lvSell_DblClick() mnuSellModify_Click End Sub Private Sub mnuAnaBuy_Click() vbModal End Sub Private Sub mnuAnalysis_Click() vbModal End Sub 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。 屬性頁控件切換響應(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。 Private Sub sstabView_Click(PreviousTab As Integer) Select Case PreviousTab Case 0 = False Case 1 = False Case 2 = False Case 3 = False Case 4 = False End Select Select Case Case 0 = True Case 1 = True Case 2 = True Case 3 = True Case 4 = True End Select End Sub Private Sub tbToolBar_ButtonClick(ByVal Button As ) On Error Resume Next Select Case Case 返回 39。應(yīng)做 :添加 39。返回 39。 按鈕代碼。 MsgBox 添加 39。返回 39。 按鈕代碼。 Case 向前 39。應(yīng)做 :添加 39。向前 39。 按鈕代碼。 MsgBox 添加 39。向前 39。 按鈕代碼。 Case 剪切 39。應(yīng)做 :添加 39。剪切 39。 按鈕代碼。 MsgBox 添加 39。剪切 39。 按鈕代碼。 Case 復制 39。應(yīng)做 :添加 39。復制 39。 按鈕代碼。 MsgBox 添加 39。復制 39。 按鈕代碼。 Case 粘貼 39。應(yīng)做 :添加 39。粘貼 39。 按鈕代碼。 MsgBox 添加 39。粘貼 39。 按鈕代碼。 Case 刪除 39。應(yīng)做 :添加 39。刪除 39。 按鈕代碼。 MsgBox 添 加 39。刪除 39。 按鈕代碼。 Case 屬性 39。應(yīng)做 :添加 39。屬性 39。 按鈕代碼。 MsgBox 添加 39。屬性 39。 按鈕代碼。 Case 大圖標 = lvwIcon Case 小圖標 = lvwSmallIcon Case 列表 = lvwList Case 詳細資料 = lvwReport End Select End Sub Private Sub mnuHelpAbout_Click() vbModal, Me End Sub Private Sub mnuViewRefresh_Click() 39。應(yīng)做 :添加 39。mnuViewRefresh_Click39。 代碼。 MsgBox 添加 39。mnuViewRefresh_Click39。 代碼。 End Sub Private Sub mnuVAIByDate_Click() 39。ToDo: 添加 39。mnuVAIByDate_Click39。 代碼 39。 = DATE_COLUMN End Sub Private Sub mnuVAIByName_Click() 39。ToDo: 添加 39。mnuVAIByName_Click39。 代碼 39。 = NAME_COLUMN End Sub Private Sub mnuVAIBySize_Click() 39。ToDo: 添加 39。mnuVAIBySize_Click39。 代碼 39。 = SIZE_COLUMN End Sub Private Sub mnuVAIByType_Click() 39。ToDo: 添加 39。mnuVAIByType_Click39。 代碼 39。 = TYPE_COLUMN End Sub Private Sub mnuViewStatusBar_Click() = Not = SizeControls End Sub Private Sub mnuViewToolbar_Click() = Not = SizeControls End Sub 39。初始化所有數(shù)據(jù)函數(shù) Private Sub InitMain() 39。 InitMerchListview lvMerch 39。初始化列表 39。 ListAllMerchs lvMerch TypeToTreeview tvTreeView 39。將客戶類型顯示到樹型圖中 lvProvider lvMerch lvBuy lvSell lvDispose End Sub 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。 菜單響應(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 Sub 39。添加 Private Sub mnuMTypeAdd_Click() tvTreeView End Sub 39。刪除 Private Sub mnuMTypeDel_Click() tvTreeView End Sub 39。修改 Private Sub mnuMTypeModify_Click() tvTreeView End Sub 39。=============================================== 39。 人員管理操作 39。=============================================== Private Sub mnuSystemUser_Click() vbModal End Sub 39。=============================================== 39。 商品操作 39。=============================================== Private Sub mnuMerch_Click() 39。切換選項卡 = 0 End Sub Private Sub mnuMerchAdd_Click() = 0 lvMerch, GetID() End Sub Private Sub mnuMerchDel_Click() = 0 lvMerch End Sub Private Sub mnuMerchModify_Click() = 0 lvMerch End Sub 39。=============================================== 39。 進貨管理 39。=============================================== Private Sub mnuBuy_Click() 39。切換選項卡 = 1 End Sub Private Sub mnuBuyAdd_Click() lvBuy, g_Account 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。 , vbInformation End Sub Private Sub mnuBuyDel_Click() lvBuy 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到 【商品管理】查看核實庫存變化。 , vbInformation End Sub Private Sub mnuBuyModify_Click() lvBuy, g_Account 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。 , vbInformation End Sub 39。=============================================== 39。 銷售管理 39。=============================================== Private Sub mnuSell_Click() 39。切換選項卡 = 2 End Sub Private Sub mnuSellAdd_Click() lvSell, g_Account 39。由于同時更新了庫存 ，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫存量自動更新，請切換到【商品管理】查看核實庫存變化。 , vbInformation End Sub Private Sub mnuSellDel_Click() lvSell 39。由于同時更新了庫存，需要重新加載商品列表 lvMerch, GetID() MsgBox 操作成功，同時庫