clslistemployee.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 = "clsListEmployee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private WithEvents mfrmEmployee As frmAListTemplate '模版窗体
Attribute mfrmEmployee.VB_VarHelpID = -1
Private clsListType As String
Public Function SetListType(ByVal strList As String)
    mfrmEmployee.strListType = strList
    clsListType = strList
End Function
Private Sub Class_Initialize()
    Set mfrmEmployee = New frmAListTemplate
    
    mfrmEmployee.blnReceptionList = False
#If conVersionType <> 16 Then
    '2000-01-05 ht speak it as following
    'Change true to false
    '************************************
    mfrmEmployee.blnIsEmployee = False
    '************************************
#End If
    mfrmEmployee.mTitle = "部门职员"
    mfrmEmployee.mHelpID = 30008
    
    mfrmEmployee.Tabs = 4
    mfrmEmployee.SpTabCaption(0) = "部门(&O)"
    mfrmEmployee.SpViewID(0) = 9
    mfrmEmployee.SpTabCaption(1) = "职员(&P)"
    mfrmEmployee.SpViewID(1) = 10
    mfrmEmployee.SpTabCaption(2) = "个人所得税率(&T)"
    mfrmEmployee.SpViewID(2) = 60
    mfrmEmployee.SpTabCaption(3) = "扣税标准(&L)"
    mfrmEmployee.SpViewID(3) = 753
    
   
    mfrmEmployee.SpSelect(0) = "Department.lngDepartmentID As id,decode(Department.blnIsInActive,1,'√',' ') As ""停用"""
    mfrmEmployee.SpSelect(1) = "Employee.lngEmployeeID As id,decode(Employee.blnIsInActive,1,'√',' ') As ""停用"""
    mfrmEmployee.SpSelect(2) = "PersonTax.lngPersonTaxID As id ,' 'As ""停用"""
    mfrmEmployee.SpSelect(3) = "PersonTaxType.lngPersonTaxTypeID As id,' 'As ""停用"""
    mfrmEmployee.ShowAll(0) = " Department.blnIsInActive=0"
    mfrmEmployee.ShowAll(1) = " Employee.blnIsInActive=0"
    
    
    mfrmEmployee.blnEditByRight(0) = IsCanDo(12, gclsBase.OperatorID)
    mfrmEmployee.blnEditByRight(1) = IsCanDo(12, gclsBase.OperatorID)
    mfrmEmployee.blnEditByRight(2) = IsCanDo(12, gclsBase.OperatorID)
    mfrmEmployee.blnEditByRight(3) = IsCanDo(12, gclsBase.OperatorID)
    
    mfrmEmployee.SpPrintID(0) = 17
    mfrmEmployee.SpPrintID(1) = 18
    mfrmEmployee.SpPrintID(2) = 16
    mfrmEmployee.SpPrintID(3) = 90
    mfrmEmployee.SpPrintTitle(0) = "部门列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmEmployee.SpPrintTitle(1) = "职员列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmEmployee.SpPrintTitle(2) = "个人所得税率列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    mfrmEmployee.SpPrintTitle(3) = "扣税标准列表" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
    
    mfrmEmployee.MenuEnbaleOnPage(0) = 3
    mfrmEmployee.MenuEnbaleOnPage(1) = 3
    mfrmEmployee.MenuEnbaleOnPage(2) = 15
    mfrmEmployee.MenuEnbaleOnPage(3) = 15
    mfrmEmployee.MenuEnbaleOnPage(4) = 15
    mfrmEmployee.MenuEnbaleOnPage(5) = 15
    mfrmEmployee.MenuEnbaleOnPage(6) = 15
    mfrmEmployee.MenuEnbaleOnPage(7) = 15
    
End Sub

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

Private Sub mfrmEmployee_cmdMessage(ByVal Index As Integer)
#If conVersionType <> 16 Then
    On Error Resume Next
    If Index = 3 Then
        frmVisitClientCard.Employee = IIf(IsNull(mfrmEmployee.ListID), 0, mfrmEmployee.ListID)
        frmVisitClientCard.Show vbModal
        Unload frmVisitClientCard
        Set frmVisitClientCard = Nothing
    End If
#End If
End Sub

Private Sub mfrmEmployee_ListChildActive()
    Dim vntMessage As Variant
    '响应消息
    For Each vntMessage In mfrmEmployee.mclsMainControl.Messages
        Select Case vntMessage
            Case Message.msgDepartment
                '接收到部门雇员改变消息
                  If mfrmEmployee.sstPages.Tab = 0 Then
                  mfrmEmployee.ToolRefresh
                  mfrmEmployee.mclsMainControl.Messages.Remove CStr(vntMessage) '清除部门雇员改变消息
                  End If
            Case Message.msgEmployee
                    If mfrmEmployee.sstPages.Tab = 1 Then
                    mfrmEmployee.ToolRefresh
                    mfrmEmployee.mclsMainControl.Messages.Remove CStr(vntMessage)
                    End If
            Case Message.msgPersonTax
                    If mfrmEmployee.sstPages.Tab = 2 Then
                    mfrmEmployee.ToolRefresh
                    mfrmEmployee.mclsMainControl.Messages.Remove CStr(vntMessage)
                    End If
            Case Message.msgTaxType    '接收到部门雇员改变消息
                    If mfrmEmployee.sstPages.Tab = 3 Then
                    mfrmEmployee.ToolRefresh
                    mfrmEmployee.mclsMainControl.Messages.Remove CStr(vntMessage) '
                    End If
        End Select
    Next
    'mfrmEmployee.mclsMainControl.Messages.Clear
End Sub

Private Sub mfrmEmployee_ListDel()
    Dim lngID As Long
    Dim blnSucess As Boolean
    lngID = mfrmEmployee.ListID
    If lngID = 0 Then Exit Sub
    blnSucess = False
    Select Case mfrmEmployee.sstPages.Tab
        Case 0
            If frmDepartmentCard.DelCard(lngID) Then
                'UpDatePreFlage
                blnSucess = True
                gclsSys.SendMessage CStr(mfrmEmployee.hwnd), Message.msgDepartment
            End If
            Unload frmDepartmentCard
            Set frmDepartmentCard = Nothing
        Case 1
            If frmEmployeeCard.DelCard(lngID) Then
                blnSucess = True
                gclsSys.SendMessage CStr(mfrmEmployee.hwnd), Message.msgEmployee
            End If
            Unload frmEmployeeCard
            Set frmEmployeeCard = Nothing
        Case 2
            If frmPersonTax.DelCard(lngID, mfrmEmployee.hwnd, True) Then
                blnSucess = True
                gclsSys.SendMessage CStr(mfrmEmployee.hwnd), Message.msgPersonTax
            End If
            Unload frmPersonTax
            Set frmPersonTax = Nothing
        Case 3
            If frmTax.DelCard(lngID, , True) Then
                blnSucess = True
                gclsSys.SendMessage CStr(mfrmEmployee.hwnd), Message.msgTaxType
            End If
            Unload frmTax
            Set frmTax = Nothing
    End Select
    If blnSucess Then
        With mfrmEmployee
           .ToolRefresh
        End With
    End If
End Sub

Private Sub mfrmEmployee_ListEdite()
    Dim lngID As Long
    lngID = mfrmEmployee.ListID
    mfrmEmployee.Enabled = False
    mfrmEmployee.MousePointer = vbHourglass
    Select Case mfrmEmployee.sstPages.Tab
        Case 0
            If lngID > 0 Then
                If CheckIDUsed("Department", "lngDepartmentID", lngID) Then
                    frmDepartmentCard.EditCard lngID, vbModal
                    Set frmDepartmentCard = Nothing
                Else
                    ShowMsg 0, "该部门不存在,不能进行修改！", _
                            vbExclamation + MB_TASKMODAL, "修改部门"
                    mfrmEmployee.ToolRefresh
                End If
            End If
            
        Case 1
            If lngID > 0 Then
                If CheckIDUsed("Employee", "lngEmployeeID", lngID) Then
                    frmEmployeeCard.EditCard lngID, vbModal
                    Set frmEmployeeCard = Nothing
                Else
                    ShowMsg 0, "该职员不存在,不能进行修改！", _
                            vbExclamation + MB_TASKMODAL, "修改职员"
                    mfrmEmployee.ToolRefresh
                End If
            End If
        Case 2
            If lngID > 0 Then
                If CheckIDUsed("PersonTax", "lngPersonTaxID", lngID) Then
                    frmPersonTax.EditCard lngID, vbModal