【文章內(nèi)容簡介】 ) On Error Resume Next 39。設(shè)置 Width 屬性 If x 1500 Then x = 1500 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 22 If x ( 1500) Then x = 1500 = x = x = x + 40 = ( + 140) lblTitle(0).Width = 39。 lblTitle(1).Left = + 20 39。 lblTitle(1).Width = 40 39。設(shè)置 Top 屬性 If Then = + Else = End If = 39。設(shè)置 height 屬性 If Then = ( + 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 23 + ) Else = ( + ) End If = + = = 39。修改 ListView 控件尺寸 Dim ctl As Control For Each ctl In Controls If TypeOf ctl Is ListView Then = 0 = = 40 = = False End If Next sstabView_Click 0 End Sub 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 24 Private Sub lvBuy_DblClick() mnuBuyModify_Click End Sub 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() 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 25 vbModal End Sub Private Sub mnuAnalysis_Click() vbModal End Sub 39。 屬性頁控件切換響應(yīng)函數(shù) 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 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 26 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 ) 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 27 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 復(fù)制 39。應(yīng)做 :添加 39。復(fù)制 39。 按鈕代碼。 MsgBox 添加 39。復(fù)制 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。 按鈕代碼。 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 28 MsgBox 添加 39。屬性 39。 按鈕代碼。 Case 大圖標(biāo) = lvwIcon Case 小圖標(biāo) = lvwSmallIcon Case 列表 = lvwList Case 詳細(xì)資料 = 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 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 29 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 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 30 = 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 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 31 lvMerch lvBuy lvSell lvDispose End Sub 39。 菜單響應(yīng)函數(shù) 39。 39。=============================================== 39。 商品類型操作 39。=============================================== Private Sub mnuMType_Click() 39。設(shè)置樹型控件焦點 End Sub 39。添加 Private Sub mnuMTypeAdd_Click() 超市進(jìn)銷存管理系統(tǒng) 計算機(jī) 信息管理數(shù)據(jù)庫應(yīng)用 課程設(shè)計 32 tvTreeView End Sub 39。刪除 Private Sub mnuMTypeDel_Click() tvTreeView End Sub 39。修改 Private Sub mnuMTypeModify_Click() tvTreeView End Sub 39。=============================================== 39。 人員管理操作 39。=============================================== Private Sub mnuSystemUse