frmtaxpersonlist.frm

金算盘软件代码

'
'响应主控对象事件
'

'编辑卡片
Private Sub mclsMainControl_EditEdit()
    Me.Enabled = False
    Select Case sstTypAct.Tab
        Case 0
            If ListID(sstTypAct.Tab) > 0 Then frmItemTaxListCard.EditCard ListID(sstTypAct.Tab)
        Case 1
            If ListID(sstTypAct.Tab) > 0 Then frmPersonTaxListCard.EditCard ListID(sstTypAct.Tab)
    End Select
    Me.Enabled = True
End Sub

'新增卡片
Private Sub mclsMainControl_EditNew()
    Select Case sstTypAct.Tab
        Case 0
            frmItemTaxListCard.AddCard
        Case 1
            frmPersonTaxListCard.AddCard
    End Select
End Sub

'删除记录
Private Sub mclsMainControl_EditDel()

    Dim blnSucess As Boolean
    Dim lngID As Long
    lngID = ListID(sstTypAct.Tab)
    blnSucess = False
    'If lngID = 1 Then Exit Sub
    Select Case sstTypAct.Tab
        Case 0
            If mIsShowCard(0) Then
               If lngID = frmItemTaxListCard.getID Then
                    MsgBox "不能删除当前编辑的商品税率", vbExclamation
                    frmItemTax.Show
                    Exit Sub
                End If
            End If
            If frmItemTaxListCard.DelCard(ListID(sstTypAct.Tab)) Then
                blnSucess = True
                gclsSys.SendMessage CStr(Me.hwnd), Message.msgTax
            End If
            'If Not frmItemTaxListCard.Visible Then
            Unload frmItemTaxListCard
        Case 1
            If mIsShowCard(1) Then
'                If lngID = frmPersonTaxlistcard.getID Then
'                    MsgBox "不能删除当前编辑的个人所得税", vbExclamation
'                    frmPersonTaxlistcard.SetFocus
'                    Exit Sub
'                End If
            End If
            If frmPersonTaxListCard.DelCard(ListID(sstTypAct.Tab)) Then
                blnSucess = True
                gclsSys.SendMessage CStr(Me.hwnd), Message.msgPersonTax
            End If
            'If Not frmPersonTaxListCard.Visible Then
            Unload frmPersonTaxListCard
    End Select
    If blnSucess Then
        With mclsList(sstTypAct.Tab).FlexGrid
            .RowHeight(.Row) = 0
            .RowData(.Row) = 1
        End With
        mclsList(sstTypAct.Tab).SetFlexRow
    End If
    UpdateMenuStatus
End Sub

'停用/启用记录
Private Sub mclsMainControl_EditInActive()

    With sstTypAct
         If .Tab = 0 And ListID(.Tab) = 1 Then
            MsgBox "零税率不能停用", vbExclamation, Me.Caption
            Exit Sub
        End If
         If UpdateListInActive(.Tab, ListID(.Tab), Not ListIsInActive(.Tab)) Then
            With mclsList(.Tab).FlexGrid
            ' If .Row > 1 Then
                 If chkShowAll.Value Then
                  
                    If .TextMatrix(.Row, 1) = "" Then
                        .TextMatrix(.Row, 1) = "√"
                    Else
                        .TextMatrix(.Row, 1) = ""
                    End If
                 Else
                    .TextMatrix(.Row, 1) = "√"
                    .RowHeight(.Row) = 0
                    mclsList(sstTypAct.Tab).SetFlexRow
                 End If
            'End If
            End With
            If .Tab = 0 Then
                gclsSys.SendMessage CStr(Me.hwnd), Message.msgTax
            Else
                gclsSys.SendMessage CStr(Me.hwnd), Message.msgPersonTax
            End If
        End If
        UpdateMenuStatus
    End With
End Sub

'全部显示/显示未停用记录
Private Sub mclsMainControl_EditShowAll()
    frmMain.mnuEditShowAll.Checked = Not frmMain.mnuEditShowAll.Checked
    If chkShowAll.Value = 0 Then
        chkShowAll.Value = 1
    Else
        chkShowAll.Value = 0
    End If
End Sub

'引用编码
Private Sub mclsMainControl_EditUse()
     Select Case sstTypAct.Tab
        Case 0
            UseCode Message.msgTax, ListID(0)
        Case 1
            UseCode Message.msgPersonTax, ListID(1)
    End Select
    Me.ZOrder 1
End Sub

'搜索
Private Sub mclsMainControl_EditSearch()
    frmTreeFind.ShowFind
End Sub

'刷新
Private Sub mclsMainControl_ToolRefresh()
    Me.MousePointer = vbHourglass
    ToolRefresh sstTypAct.Tab
    Me.MousePointer = vbDefault
End Sub

Private Sub mclsMainControl_FilePrint()
    Dim myPrintclass As PrintClass
    Set myPrintclass = New PrintClass
    Select Case sstTypAct.Tab
        Case 0
            myPrintclass.PrintList gclsBase.BaseDB, mclsList(sstTypAct.Tab).FlexGrid, 54, Me.Caption & "," & gclsBase.BaseName & "," & gclsBase.OperatorName
        Case 1
            myPrintclass.PrintList gclsBase.BaseDB, mclsList(sstTypAct.Tab).FlexGrid, 16, Me.Caption & "," & gclsBase.BaseName & "," & gclsBase.OperatorName
    End Select
End Sub

Private Sub mclsMainControl_ListEditMenu(ByVal intIndex As Integer)
    Select Case intIndex
    Case 0:
        mclsMainControl_EditEdit
    Case 1:
        mclsMainControl_EditNew
    Case 2:
        mclsMainControl_EditDel
    Case 4:
        mclsMainControl_EditInActive
    Case 5:
        mclsMainControl_EditShowAll
    Case 7:
        mclsMainControl_EditUse
    Case 8:
        mclsMainControl_EditSearch
    
    Case 10:
        mclsMainControl_EditFilter
    Case 11:
        mclsMainControl_EditColumn
    Case 13:
        mclsMainControl_ToolRefresh
    Case 14:
        mclsMainControl_FilePrint
    
    End Select
End Sub

'
' 编辑菜单
'
Private Sub MakeListEditMenu()
    Dim intCnt As Integer
    
    With frmMain
        For intCnt = .mnuListEditMenu.Count - 1 To 1 Step -1
            Unload .mnuListEditMenu(intCnt)
        Next
        
        Utility.CloneMenu .mnuEditEdit, .mnuListEditMenu(0)
        
        Load .mnuListEditMenu(1)
        Utility.CloneMenu .mnuEditNew, .mnuListEditMenu(1)
        
        Load .mnuListEditMenu(2)
        Utility.CloneMenu .mnuEditDel, .mnuListEditMenu(2)
        .mnuListEditMenu(2).Caption = "删除(&D)"
        Load .mnuListEditMenu(3)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(3)
        
        Load .mnuListEditMenu(4)
        Utility.CloneMenu .mnuEditInActive, .mnuListEditMenu(4)
        .mnuListEditMenu(4).Caption = "停用(&H)"
        Load .mnuListEditMenu(5)
        Utility.CloneMenu .mnuEditShowAll, .mnuListEditMenu(5)
        
        Load .mnuListEditMenu(6)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(6)
        
        Load .mnuListEditMenu(7)
        Utility.CloneMenu .mnuEditUse, .mnuListEditMenu(7)
        Load .mnuListEditMenu(8)
        Utility.CloneMenu .mnuEditSearch, .mnuListEditMenu(8)
        
        
        Load .mnuListEditMenu(9)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(9)
        
        Load .mnuListEditMenu(10)
        Utility.CloneMenu .mnuEditFilter, .mnuListEditMenu(10)
        Load .mnuListEditMenu(11)
        Utility.CloneMenu .mnuEditColumn, .mnuListEditMenu(11)
        
        Load .mnuListEditMenu(12)
        Utility.CloneMenu .mnuEditBar2, .mnuListEditMenu(12)
        
        Load .mnuListEditMenu(13)
        Utility.CloneMenu .mnuToolRefresh, .mnuListEditMenu(13)
        Load .mnuListEditMenu(14)
        Utility.CloneMenu .mnuFilePrint, .mnuListEditMenu(14)
    End With
End Sub








'
' 报表菜单
'
Private Sub MakeListReportMenu(Optional ByVal EditObject As String = "")
    Dim intCnt As Integer
    
    With frmMain
        For intCnt = .mnuListReportMenu.Count - 1 To 1 Step -1
            Unload .mnuListReportMenu(intCnt)
        Next
        
'        Utility.CloneMenu .mnuReportQuick, .mnuListReportMenu(0)
'        .mnuListReportMenu(0).Caption = .mnuListReportMenu(0).Caption & EditObject
'
'         Load .mnuListReportMenu(1)
'         Utility.CloneMenu .mnuEditBar2, .mnuListReportMenu(1)
        #If conVersionType = 8 Then
           ' Load .mnuListReportMenu(2)
             .mnuListReportMenu(0).Caption = "商品税率一览表"
             .mnuListReportMenu(0).Enabled = True
             .mnuListReportMenu(0).Visible = True
        #Else
             'Load .mnuListReportMenu(0)
             .mnuListReportMenu(0).Caption = "商品税率一览表"
             .mnuListReportMenu(0).Enabled = False
             .mnuListReportMenu(0).Visible = True
            
             Load .mnuListReportMenu(1)
            .mnuListReportMenu(1).Caption = "个人所得税税率表"
            .mnuListReportMenu(1).Enabled = False
            .mnuListReportMenu(1).Visible = True
            If sstTypAct.Tab = 0 Then
                .mnuListReportMenu(0).Enabled = True
                .mnuListReportMenu(1).Enabled = False
            Else
                .mnuListReportMenu(0).Enabled = False
                .mnuListReportMenu(1).Enabled = True
            End If
        
        #End If
    End With
End Sub




Private Sub ToolRefresh(intTab As Integer)
     Dim i As Integer
    Dim strOldText As String
    Dim strOldSort As String
    
    
   
        '保存当前排序列
        strOldSort = cboFindKind.Text
        strOldText = mclsList(intTab).FlexGrid.TextMatrix(mclsList(intTab).FlexGrid.Row, mclsList(intTab).SortCol)
        mclsList(intTab).FlexGrid.Redraw = False
        mclsList(intTab).SaveListColWidth
        '刷新列表记录
        mclsList(intTab).FlexGrid.Cols = 0
        Set datItem(intTab).Resultset = GetList(intTab)
        If Not datItem(intTab).Resultset.EOF Then datItem(intTab).Resultset.MoveLast
       ' datItem(intTab).Resultset.Close
        Set datItem(intTab).Resultset = Nothing
      
        '设置FlexGrid列表
        mclsList(intTab).SetFlexGrid
        
        '恢复以前排序列
        cboFindKind.Text = strOldSort
        mclsList(intTab).FlexGrid.Redraw = False
        If mclsList(intTab).FlexGrid.Rows > 1 Then
            txtFind.Text = strOldText
        End If
        If chkShowAll.Value = 0 Then mclsList(intTab).DoShowAll False
        '更新菜单状态
        UpdateMenuStatus
        mclsList(intTab).FlexGrid.Redraw = True
End Sub

Private Sub txtFind_KeyDown(KeyCode As Integer, Shift As Integer)
    Dim intSelLen As Integer
    If KeyCode = 8 Then
        intSelLen = txtFind.SelLength
        If txtFind.SelStart > 0 Then txtFind.SelStart = txtFind.SelStart - 1
        txtFind.SelLength = intSelLen + 1
    End If
End Sub
Private Function CurrCodeName(ByVal intTab As Integer) As String
    
    Dim strName As String
    Dim i As Integer
    With mclsList(intTab).FlexGrid
        If .Row > 0 Then
            Select Case intTab
                Case 0
                    For i = 0 To mclsList(intTab).ListSet.FixColumns - 1
                        If .TextMatrix(0, i + 2) = "税率名称" Then
                            strName = .TextMatrix(.Row, 2 + i)
                        End If
                    Next
                Case 1
                    For i = 0 To mclsList(intTab).ListSet.FixColumns - 1
                        If .TextMatrix(0, i + 2) = "个人所得税级次" Then
                            strName = .TextMatrix(.Row, 2 + i)
                        End If
                    Next
            End Select
        End If
    End With
    CurrCodeName = Trim(strName)
End Function
Public Sub BindingResultset()
    Me.Hide
    If sstTypAct.Tab = 0 Then
        sstTypAct_Click 0
    Else
        sstTypAct.Tab = 0
    End If
    Me.Show
    Me.ZOrder 0
End Sub