clslistitem.cls

金算盘软件代码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsListItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private WithEvents mfrmItem As frmAListTemplate '模版窗体
Attribute mfrmItem.VB_VarHelpID = -1
Private clsListType As String
Public Function SetListType(ByVal strList As String)
    mfrmItem.strListType = strList
    clsListType = strList
End Function
Private Sub Class_Initialize()
    Set mfrmItem = New frmAListTemplate
    
    mfrmItem.blnReceptionList = False
    mfrmItem.mTitle = "商品劳务"
    mfrmItem.mHelpID = 30018
    mfrmItem.blnIsDealMenu = True
    mfrmItem.blnIsItem = True
    
    #If conQuanDisc = -1 Then
        mfrmItem.Tabs = 6
    #Else
        #If conVersionType <> 16 Then
            mfrmItem.Tabs = 5
        #Else
            mfrmItem.Tabs = 4
        #End If
    #End If
    mfrmItem.SpTabCaption(0) = "商品类型(&O)"
    mfrmItem.SpViewID(0) = 54
    mfrmItem.SpTabCaption(1) = "商品性质(&P)"
    mfrmItem.SpViewID(1) = 368
    mfrmItem.SpTabCaption(2) = "商品劳务(&T)"
    mfrmItem.SpViewID(2) = 55
    mfrmItem.SpTabCaption(3) = "商品税率(&L)"
    mfrmItem.SpViewID(3) = 61
#If conVersionType <> 16 Then
    mfrmItem.SpTabCaption(4) = "商品货位(&M)"
    mfrmItem.SpViewID(4) = 53
#End If
#If conQuanDisc = -1 Then
    mfrmItem.SpTabCaption(5) = "商品库存(&N)"
    mfrmItem.SpViewID(5) = 1031
#End If
    mfrmItem.SpSelect(0) = "ItemType.lngItemTypeID As id,decode(ItemType.blnIsInActive,1,'√',' ') As ""停用"" "
    mfrmItem.ShowAll(0) = " ItemType.blnIsInActive=0"
    mfrmItem.SpSelect(1) = " ItemNature.lngItemNatureID As id,''As 停用 "
    mfrmItem.SpSelect(2) = " Item.lngItemID As id,decode(Item.blnIsInActive,1,'√',' ') As ""停用"" "
    mfrmItem.ShowAll(2) = " Item.blnIsInActive=0"
    mfrmItem.SpSelect(3) = " Tax.lngTaxID As id,decode(Tax.blnIsInActive,1,'√','') As ""停用"""
    mfrmItem.ShowAll(3) = " Tax.blnIsInActive=0"
#If conVersionType <> 16 Then
    mfrmItem.SpSelect(4) = " Position.lngPositionID As id,decode(Position.blnIsInActive,1,'√',' ') As ""停用"" "
    mfrmItem.ShowAll(4) = " Position.blnIsInActive=0"
#End If
#If conQuanDisc = -1 Then
    mfrmItem.SpSelect(5) = " Item.lngItemID As id ,''As ""停用"""
    mfrmItem.ShowAll(5) = " Item.blnIsInActive=0"
#End If
    mfrmItem.blnEditByRight(0) = IsCanDo(16, gclsBase.OperatorID)
    mfrmItem.blnEditByRight(1) = IsCanDo(16, gclsBase.OperatorID)
    mfrmItem.blnEditByRight(2) = IsCanDo(16, gclsBase.OperatorID)
    mfrmItem.blnEditByRight(3) = IsCanDo(19, gclsBase.OperatorID)
#If conVersionType <> 16 Then
    mfrmItem.blnEditByRight(4) = IsCanDo(18, gclsBase.OperatorID)
#End If
#If conQuanDisc = -1 Then
    mfrmItem.blnEditByRight(5) = False 'IsCanDo(10, gclsBase.OperatorID)
#End If
    mfrmItem.SpPrintID(0) = 22
    mfrmItem.SpPrintID(1) = 66
    mfrmItem.SpPrintID(2) = 61
    mfrmItem.SpPrintID(3) = 91
#If conVersionType <> 16 Then
    mfrmItem.SpPrintID(4) = 24
#End If
#If conQuanDisc = -1 Then
    mfrmItem.SpPrintID(5) = 88
#End If
    mfrmItem.SpPrintTitle(0) = "商品类型列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmItem.SpPrintTitle(1) = "商品性质列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmItem.SpPrintTitle(2) = "商品劳务列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmItem.SpPrintTitle(3) = "商品税率列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
#If conVersionType <> 16 Then
    mfrmItem.SpPrintTitle(4) = "商品货位列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
#End If
#If conQuanDisc = -1 Then
    mfrmItem.SpPrintTitle(5) = "商品库存列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
#End If
    
#If conVersionType <> 16 Then
    '#If conTest = 1 Then
        mfrmItem.SpMenuCount = 1
'    #Else
'        mfrmItem.SpMenuCount = 1
'    #End If
    mfrmItem.SpPosition = 7
    mfrmItem.SpEnableOnPageNo(0) = 4
    mfrmItem.blnConstant(0) = False
    mfrmItem.SpMenuName(0) = "商品调价(&C)"
    '#If conTest = 1 Then
'        mfrmItem.SpMenuName(1) = "折扣管理(&G)"
'        mfrmItem.SpEnableOnPageNo(1) = 63
'        mfrmItem.blnConstant(1) = True
    '#End If
#Else
    If gclsBase.ControlAccount Then
        mfrmItem.SpMenuCount = 1
        mfrmItem.SpPosition = 7
        mfrmItem.SpEnableOnPageNo(0) = 4
        mfrmItem.blnConstant(0) = False
        mfrmItem.SpMenuName(0) = "商品调价(&C)"
    End If
#End If
    mfrmItem.MenuEnbaleOnPage(0) = 29
    mfrmItem.MenuEnbaleOnPage(1) = 29
    mfrmItem.MenuEnbaleOnPage(2) = 31
    mfrmItem.MenuEnbaleOnPage(3) = 31
    mfrmItem.MenuEnbaleOnPage(4) = 63
    mfrmItem.MenuEnbaleOnPage(5) = 63
    mfrmItem.MenuEnbaleOnPage(6) = 63
    mfrmItem.MenuEnbaleOnPage(7) = 63
    
End Sub

Public Function Showlist()
    mfrmItem.Show
    mfrmItem.ZOrder 0
End Function

Private Sub Class_Terminate()
    mfrmItem.blnIsDealMenu = False
End Sub

Private Sub mfrmItem_cmdMessage(ByVal Index As Integer)
  On Error GoTo Hander1
    If Index = 2 Then
        With frmItemDiscListCard
            .Show vbModal
        End With
        Unload frmItemDiscListCard
        Set frmItemDiscListCard = Nothing
    End If
    Exit Sub
Hander1:
    
End Sub

Private Sub mfrmItem_ListChildActive()
    Dim vntMessage As Variant
    '响应消息
    For Each vntMessage In mfrmItem.mclsMainControl.Messages
        Select Case vntMessage
            Case Message.msgItemType
                '接收到部门雇员改变消息
                  If mfrmItem.sstPages.Tab = 0 Then
                  mfrmItem.ToolRefresh
                  mfrmItem.mclsMainControl.Messages.Remove CStr(vntMessage) '清除部门雇员改变消息
                  End If
            Case Message.msgItem
                    If mfrmItem.sstPages.Tab = 2 Then
                    mfrmItem.ToolRefresh
                    mfrmItem.mclsMainControl.Messages.Remove CStr(vntMessage)
                    End If
            Case Message.msgItemNature
                    If mfrmItem.sstPages.Tab = 1 Then
                    mfrmItem.ToolRefresh
                    mfrmItem.mclsMainControl.Messages.Remove CStr(vntMessage)
                    End If
            Case Message.msgTax    '接收到部门雇员改变消息
                   If mfrmItem.sstPages.Tab = 3 Then
                   mfrmItem.ToolRefresh
                    mfrmItem.mclsMainControl.Messages.Remove CStr(vntMessage) '
                    End If
            Case Message.msgPosition    '接收到部门雇员改变消息
                If mfrmItem.sstPages.Tab = 4 Then
                    mfrmItem.ToolRefresh
                    mfrmItem.mclsMainControl.Messages.Remove CStr(vntMessage) '
                End If
        End Select
    Next
    'mfrmItem.mclsMainControl.Messages.Clear
End Sub

Private Sub mfrmItem_ListDel()
    Dim lngID As Long
    Dim blnSucess As Boolean
    lngID = mfrmItem.ListID
    If lngID = 0 Then Exit Sub
    blnSucess = False
    Select Case mfrmItem.sstPages.Tab
        Case 0
            If frmItemTypeCard.DelCard(lngID) Then
               ' UpDatePreFlage 0
                blnSucess = True
                gclsSys.SendMessage CStr(mfrmItem.hWnd), Message.msgItemType
            End If
            Unload frmItemTypeCard
            Set frmItemTypeCard = Nothing
        Case 1
            If frmItemNatureCard.DelCard(lngID) Then
                blnSucess = True
                gclsSys.SendMessage mfrmItem.hWnd, Message.msgItemNature
            End If
            Unload frmItemNatureCard
            Set frmItemNatureCard = Nothing
        Case 2
            If frmItemCard.DelCard(lngID) Then
                blnSucess = True
                gclsSys.SendMessage mfrmItem.hWnd, Message.msgItem
            End If
            Unload frmItemCard
            Set frmItemCard = Nothing
        Case 3
            If frmItemTax.DelCard(lngID, , , True) Then
                blnSucess = True
                gclsSys.SendMessage CStr(mfrmItem.hWnd), Message.msgTax
            End If
            Unload frmItemTax
            Set frmItemTax = Nothing
        Case 4
            If frmPositionCard.DelCard(lngID) Then
'                UpDatePreFlage 4
                blnSucess = True
                gclsSys.SendMessage CStr(mfrmItem.hWnd), Message.msgPosition
            End If
            Unload frmPositionCard
            Set frmPositionCard = Nothing
    End Select
    If blnSucess Then
        With mfrmItem
           .ToolRefresh
        End With
    End If
End Sub

Private Sub mfrmItem_ListEdite()
    Dim lngID As Long
    lngID = mfrmItem.ListID
    mfrmItem.Enabled = False
    mfrmItem.MousePointer = vbHourglass
    Select Case mfrmItem.sstPages.Tab
        Case 0
            If lngID > 0 Then
                If CheckIDUsed("ItemType", "lngItemTypeID", lngID) Then
                    frmItemTypeCard.EditCard lngID, vbModal
                    Set frmItemTypeCard = Nothing
                Else
                    ShowMsg 0, "该商品类型不存在,不能进行修改!", vbExclamation + MB_TASKMODAL, "修改商品类型"
                    mfrmItem.ToolRefresh
                End If
            End If
        Case 1
            If lngID > 0 Then
                If CheckIDUsed("ItemNature", "lngItemNatureID", lngID) Then
                    frmItemNatureCard.EditCard lngID, vbModal
                    Set frmItemNatureCard = Nothing
                Else
                    ShowMsg 0, "该商品性质不存在,不能进行编辑!", _
                            vbExclamation + MB_TASKMODAL, "修改商品性质"
                    mfrmItem.ToolRefresh
                End If
            End If
        Case 2
            If lngID > 0 Then
                If CheckIDUsed("Item", "lngItemID", lngID) Then
                    frmItemCard.EditCard lngID, vbModal
                    Set frmItemCard = Nothing
                Else
                    ShowMsg 0, "该商品不存在,不能进行修改！", _
                            vbExclamation + MB_TASKMODAL, "修改商品劳务"
                    mfrmItem.ToolRefresh
                End If
            End If
        Case 3
            If lngID > 0 Then
                If CheckIDUsed("Tax", "lngTaxID", lngID) Then
                    frmItemTax.EditCard lngID, vbModal
                    Set frmItemTax = Nothing
                Else
                    ShowMsg 0, "该商品税率不存在,不能进行修改！", _