frmmain.frm

VB数据库设计的代码。需要根据自己的数据库再作调整

'***********************************************************************
Private Sub mnuDeleteShop_Click()
    RemoveShop Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuEditDayReport_Click
'* 功  能：修改连锁店日报菜单事件响应
'* 参  数：
'* 版  本：2006.01.01 颜志军 初版
'***********************************************************************
Private Sub mnuEditDayReport_Click()
    EditDayReport Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuEditInputApply_Click
'* 功  能：修改补货申请菜单事件响应
'* 参  数：
'* 版  本：2006.01.01 颜志军 初版
'***********************************************************************
Private Sub mnuEditInputApply_Click()
    EditApply Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuInput_Click
'* 功  能：补货管理菜单事件响应
'* 参  数：
'* 版  本：2006.01.04 颜志军 初版
'***********************************************************************
Private Sub mnuInput_Click()
    IniListViewInApply Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuKindList_Click
'* 功  能：商品类别列表菜单事件响应
'* 参  数：
'* 版  本：2006.01.06 颜志军 初版
'***********************************************************************
Private Sub mnuKindList_Click()
    IniListViewInMerchandiseKind Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuMemberShopList_Click
'* 功  能：成员店列表菜单事件响应
'* 参  数：
'* 版  本：2006.01.06 颜志军 初版
'***********************************************************************
Private Sub mnuMemberShopList_Click()
    IniListViewInMemberShop Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuMerchandise_Click
'* 功  能：商品管理菜单事件响应
'* 参  数：
'* 版  本：2006.01.01 颜志军 初版
'***********************************************************************
Private Sub mnuMerchandise_Click()
    
End Sub

'***********************************************************************
'* 过程名：mnuMerchandiseInfo_Click
'* 功  能：商品管理菜单事件响应
'* 参  数：
'* 版  本：2006.01.03 颜志军 初版
'***********************************************************************
Private Sub mnuMerchandiseInfo_Click()
    IniListViewInMerchandise Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuMerchandiseKind_Click
'* 功  能：商品类别管理菜单事件响应
'* 参  数：
'* 版  本：2006.01.01 颜志军 初版
'***********************************************************************
Private Sub mnuMerchandiseKind_Click()
    IniListViewInMerchandiseKind Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuMerchandiseList_Click
'* 功  能：商品列表菜单事件响应
'* 参  数：
'* 版  本：2006.01.06 颜志军 初版
'***********************************************************************
Private Sub mnuMerchandiseList_Click()
    IniListViewInMerchandise Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuModiMerchandise_Click
'* 功  能：修改商品信息菜单事件响应
'* 参  数：
'* 版  本：2006.01.03 颜志军 初版
'***********************************************************************
Private Sub mnuModiMerchandise_Click()
    EditMerchandise Me.lvListView
    IniTreeView Me.tvTreeView
End Sub

'***********************************************************************
'* 过程名：mnuModiMerchandiseKind_Click
'* 功  能：修改商品类别菜单事件响应
'* 参  数：
'* 版  本：2006.01.01 颜志军 初版
'***********************************************************************
Private Sub mnuModiMerchandiseKind_Click()
    EditMerchandiseKind Me.lvListView
    IniTreeView Me.tvTreeView
End Sub

'***********************************************************************
'* 过程名：mnuModiOpMan_Click
'* 功  能：修改操作员菜单事件响应
'* 参  数：
'* 版  本：2006.01.01 颜志军 初版
'***********************************************************************
Private Sub mnuModiOpMan_Click()
    EditOpUser Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuModiShop_Click
'* 功  能：修改连锁店信息菜单事件响应
'* 参  数：
'* 版  本：2006.01.02 颜志军 初版
'***********************************************************************
Private Sub mnuModiShop_Click()
    EditShop Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuDayReportQuery_Click
'* 功  能：月报统计查询菜单事件响应
'* 参  数：
'* 版  本：2006.01.06 颜志军 初版
'***********************************************************************
Private Sub mnuMonReportQuery_Click()
    Dim shopId As Integer
    Dim selDate As Date
    Dim buttonSel As UserClickButton
    
    frmQueryReport.Show vbModal
    shopId = frmQueryReport.g_ShopId
    selDate = frmQueryReport.g_QueryDate
    buttonSel = frmQueryReport.g_ButtonSel
    
    If buttonSel = QUERYBUTTON Then
        DspMonReport Me.lvListView, shopId, selDate
    ElseIf buttonSel = PREPRINTBUTTON Then
        PrePrintMonReport Me.lvListView, shopId, selDate
    ElseIf buttonSel = PRINTBUTTON Then
        PrintMonReport Me.lvListView, shopId, selDate
    End If
    
    Unload frmQueryReport
End Sub

'***********************************************************************
'* 过程名：mnuOpManManger_Click
'* 功  能：操作员管理菜单事件响应
'* 参  数：
'* 版  本：2006.01.01 颜志军 初版
'***********************************************************************
Private Sub mnuOpManManger_Click()
    mdlOpUser.IniListViewInOpUser Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuOpUserList_Click
'* 功  能：操作员列表菜单事件响应
'* 参  数：
'* 版  本：2006.01.06 颜志军 初版
'***********************************************************************
Private Sub mnuOpUserList_Click()
    IniListViewInOpUser Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuQuit_Click
'* 功  能：退出菜单事件响应
'* 参  数：
'* 版  本：2006.01.01 颜志军 初版
'***********************************************************************
Private Sub mnuQuit_Click()
    Unload Me
End Sub

'***********************************************************************
'* 过程名：mnuShopDayReport_Click
'* 功  能：连锁店销售日报菜单事件响应
'* 参  数：
'* 版  本：2006.01.05 颜志军 初版
'***********************************************************************
Private Sub mnuShopDayReport_Click()
    IniListViewInDayReport Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuShopManage_Click
'* 功  能：连锁店管理菜单事件响应
'* 参  数：
'* 版  本：2006.01.02 颜志军 初版
'***********************************************************************
Private Sub mnuShopManage_Click()
    IniListViewInMemberShop Me.lvListView
End Sub

'***********************************************************************
'* 过程名：mnuSubmitDayReport_Click
'* 功  能：连锁店日报提交菜单响应
'* 参  数：
'* 版  本：2006.01.05 颜志军 初版
'***********************************************************************
Private Sub mnuSubmitDayReport_Click()
    AppendNewDayReport Me.lvListView
End Sub

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
    On Error Resume Next
    Select Case Button.key
        Case "大图标"
            lvListView.View = lvwIcon
        Case "小图标"
            lvListView.View = lvwSmallIcon
        Case "列表"
            lvListView.View = lvwList
        Case "详细资料"
            lvListView.View = lvwReport
    End Select
End Sub

Private Sub mnuHelpAbout_Click()
    MsgBox "版本 " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

Private Sub mnuVAIByDate_Click()
    'ToDo: 添加 'mnuVAIByDate_Click' 代码
'  lvListView.SortKey = DATE_COLUMN
End Sub


Private Sub mnuVAIByName_Click()
    'ToDo: 添加 'mnuVAIByName_Click' 代码
'  lvListView.SortKey = NAME_COLUMN
End Sub


Private Sub mnuVAIBySize_Click()
    'ToDo: 添加 'mnuVAIBySize_Click' 代码
'  lvListView.SortKey = SIZE_COLUMN
End Sub


Private Sub mnuVAIByType_Click()
    'ToDo: 添加 'mnuVAIByType_Click' 代码
'  lvListView.SortKey = TYPE_COLUMN
End Sub

Private Sub mnuViewStatusBar_Click()
    mnuViewStatusBar.Checked = Not mnuViewStatusBar.Checked
    sbStatusBar.Visible = mnuViewStatusBar.Checked
    SizeControls imgSplitter.Left
End Sub


Private Sub mnuViewToolbar_Click()
    mnuViewToolbar.Checked = Not mnuViewToolbar.Checked
    tbToolBar.Visible = mnuViewToolbar.Checked
    SizeControls imgSplitter.Left
End Sub

'***********************************************************************
'* 过程名：SetMenuEnable
'* 功  能：设定菜单可用状态
'* 参  数：
'* 版  本：2006.01.02 颜志军 初版
'***********************************************************************
Private Sub SetMenuEnable()
    Select Case g_currentUser.userRank
    Case 1  '总经理
        mnuAppendInputApply.Enabled = False         '提交补货申请
        mnuEditInputApply.Enabled = False           '修改补货申请
        mnuDeleteInputApply.Enabled = False         '删除补货申请
        mnuShopDayReport.Enabled = False            '连锁店销售日报
    Case 2  '管理层
        mnuAppendNewShop.Enabled = False            '追加新店
        mnuDeleteShop.Enabled = False               '删除连锁店
        mnuAppendInputApply.Enabled = False         '提交补货申请
        mnuEditInputApply.Enabled = False           '修改补货申请
        mnuDeleteInputApply.Enabled = False         '删除补货申请
        mnuShopDayReport.Enabled = False            '连锁店销售日报
    Case 3  '库管
        mnuAppendNewShop.Enabled = False            '追加新店
        mnuModiShop.Enabled = False                 '修改连锁店信息
        mnuDeleteShop.Enabled = False               '删除连锁店
        mnuAppendNewOpMan.Enabled = False           '追加操作员
        mnuDeleteOpMan.Enabled = False              '删除操作员
        mnuAppendInputApply.Enabled = False         '提交补货申请
        mnuEditInputApply.Enabled = False           '修改补货申请
        mnuDeleteInputApply.Enabled = False         '删除补货申请
        mnuShopDayReport.Enabled = False            '连锁店销售日报
        mnuDayReportQuery.Enabled = False           '日报统计查询
        mnuMonReportQuery.Enabled = False           '月报统计查询
    Case 4  '店操作员
        mnuShopManage.Enabled = False               '连锁店管理
        mnuAppendNewShop.Enabled = False            '追加新店
        mnuModiShop.Enabled = False                 '修改连锁店信息
        mnuDeleteShop.Enabled = False               '删除连锁店
        mnuAppendNewOpMan.Enabled = False           '追加操作员
        mnuDeleteOpMan.Enabled = False              '删除操作员
        mnuAllowInput.Enabled = False               '核准补货
    End Select
End Sub

'***********************************************************************
'* 过程名：tvTreeView_Click
'* 功  能：TreeView控件CLICK事件响应
'* 参  数：
'* 版  本：2006.01.02 颜志军 初版
'***********************************************************************
Private Sub tvTreeView_Click()
    UpdateSelectInList Me.lvListView, Me.tvTreeView
End Sub