employeelist.frm

金算盘软件代码

    End With
    
End Sub

'
'查找条件类型 ComboBox 控件
'
Private Sub cboFindKind_Click()
    Dim i As Integer
    Dim intWidth As Integer
    Dim strFind As String
    Dim intSortCol As Integer
    
    If mblnComboxNoClick Then
        Select Case mclsList(sstDepEmp.Tab).ListSet.ColumnOrderType(mclsList(sstDepEmp.Tab).SortCol - 1)
            Case 1
                mclsList(sstDepEmp.Tab).ListSet.ColumnOrderType(mclsList(sstDepEmp.Tab).SortCol - 1) = 2
            Case 2
                mclsList(sstDepEmp.Tab).ListSet.ColumnOrderType(mclsList(sstDepEmp.Tab).SortCol - 1) = 1
        End Select
        Exit Sub
    End If
    mclsList(sstDepEmp.Tab).ReGetColCaption
    With mclsList(sstDepEmp.Tab).FlexGrid
        .Redraw = False
        For i = 1 To .Cols - 1
            If .TextMatrix(0, i) = cboFindKind.Text Then
                If .RowHeight(.Row) > 0 Then strFind = .TextMatrix(.Row, i)
                mclsList(sstDepEmp.Tab).FixrowSortBold i
                Exit For
            End If
       Next
    End With
    
    If mclsList(sstDepEmp.Tab).FlexGrid.Rows > 1 Then
       If txtfind.Text = strFind Then
          txtFind_Change
       Else
          txtfind.Text = strFind
       End If
    End If
    mclsList(sstDepEmp.Tab).FlexGrid.Redraw = True
  '  mclsList(sstDepEmp.Tab).FlexGrid.SetFocus
End Sub


 '响应消息
Private Sub mclsMainControl_ChildActive()
   
    Dim vntMessage As Variant
    
    SetHelpID Me.HelpContextID
    gclsSys.CurrFormName = Me.hwnd
    For Each vntMessage In mclsMainControl.Messages
        Select Case vntMessage
               Case Message.msgDepartment '接收到部门改变消息
                    ToolRefresh 0
                    mclsMainControl.Messages.Remove CStr(vntMessage) '清除部门改变消息
               Case Message.msgEmployee  '接收到雇员改变消息
                    ToolRefresh 1
                    mclsMainControl.Messages.Remove CStr(vntMessage) '清除雇员改变消息
                Case Message.msgPersonTax
                    ToolRefresh 2
                    mclsMainControl.Messages.Remove CStr(vntMessage)
                Case Message.msgTaxType
                    ToolRefresh 3
                    mclsMainControl.Messages.Remove CStr(vntMessage)
        End Select
    Next
    mclsMainControl.Messages.Clear
    UpdateMenuStatus
End Sub

Private Sub mclsMainControl_EditColumn()
    With sstDepEmp
        If mclsList(.Tab).ListSet.ShowListSet(intViewID(.Tab)) Then
            blnIsLoad(.Tab) = False
            sstDepEmp_Click .Tab
        End If
    End With
End Sub

Private Sub mclsMainControl_EditFilter()
    '筛选
    Dim blnFlage(3) As Boolean
    With sstDepEmp
'        If Not mblnIsSaveListset(.Tab) Then
'            If Not FindlngViewID(intViewID(.Tab)) Then mclsList(.Tab).ListSet.SaveList
'            mblnIsSaveListset(.Tab) = True
'        End If
        If mclsList(.Tab).ListSet.ListID < 1 Then mclsList(.Tab).ListSet.SaveList
        Filter.ShowFilter mclsList(.Tab).ListSet.ListID, 1, , , , , blnFlage(.Tab)
        If Not blnFlage(.Tab) Then Exit Sub
        mclsList(.Tab).ListSet.ViewId = intViewID(.Tab)
        mclsList(.Tab).FlexGrid.Cols = 0
        Set datEmployee(.Tab).Resultset = GetList(.Tab)
        If datEmployee(.Tab).Resultset.RowCount > 0 Then
           datEmployee(.Tab).Resultset.MoveLast
        End If
        datEmployee(.Tab).Resultset.Close
    '    Set datEmployee(sstDepEmp.Tab).Recordset = Nothing
        mclsList(.Tab).SetFlexGrid
        UpdateMenuStatus
        '初始化查找复合列表框
        mclsList(.Tab).InitcboFindKind
        If chkShowAll.Value = 0 Then mclsList(.Tab).DoShowAll 0
    End With
    
End Sub

Private Sub mclsMainControl_EditNotepad()
    Dim strCode As String
    Dim strName As String
    Dim recCurre As rdoResultset
    Dim i As Integer
    Dim strResult As String
    Dim strSql As String
    Set recCurre = GetbyListID(sstDepEmp.Tab, ListID(sstDepEmp.Tab))
    With mclsList(sstDepEmp.Tab).FlexGrid
    Select Case sstDepEmp.Tab
            Case 0
                If .Row > 0 Then
                        For i = 0 To mclsList(sstDepEmp.Tab).ListSet.FixColumns - 1
                            If .TextMatrix(0, i + 2) = "部门编号" Or .TextMatrix(0, i + 2) = "部门编号↑" Or .TextMatrix(0, i + 2) = "部门编号↓" Then
                                strCode = .TextMatrix(.Row, i + 2)
                            ElseIf .TextMatrix(0, i + 2) = "部门名称" Or .TextMatrix(0, i + 2) = "部门名称↑" Or .TextMatrix(0, i + 2) = "部门名称↓" Then
                                strName = .TextMatrix(.Row, i + 2)
                            End If
                        Next i
                    End If
        
                strResult = frmNotePad.EditCard("部门", strCode, strName, recCurre!strNotes)
                If strResult = "" Then Exit Sub
                strSql = "Update Department Set strNotes='" & strResult & "' Where lngDepartmentID=" & ListID(sstDepEmp.Tab)
                gclsBase.ExecSQL (strSql)
            Case 1
                If .Row > 0 Then
                        For i = 0 To mclsList(sstDepEmp.Tab).ListSet.FixColumns - 1
                            If .TextMatrix(0, i + 2) = "职员编号" Or .TextMatrix(0, i + 2) = "职员编号↑" Or .TextMatrix(0, i + 2) = "职员编号↓" Then
                                strCode = .TextMatrix(.Row, i + 2)
                            ElseIf .TextMatrix(0, i + 2) = "职员姓名" Or .TextMatrix(0, i + 2) = "职员姓名↑" Or .TextMatrix(0, i + 2) = "职员姓名↓" Then
                                strName = .TextMatrix(.Row, i + 2)
                            End If
                        Next i
                    End If
                strResult = frmNotePad.EditCard("职员", strCode, strName, recCurre!strNotes)
                If strResult = "" Then Exit Sub
                strSql = "Update Employee Set strNotes='" & strResult & "' Where lngEmployeeID=" & ListID(sstDepEmp.Tab)
                gclsBase.ExecSQL (strSql)
        End Select
    End With
 recCurre.Close
End Sub

Private Sub mclsMainControl_FilePrintSetup()
    Dim MyPrintSet As PrintClass
    Set MyPrintSet = New PrintClass
    With sstDepEmp
        Select Case .Tab
            Case 0
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 17, "部门" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
            Case 1
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 18, "职员" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
            Case 2
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 16, "个人所得税率" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
            Case 3
                MyPrintSet.PrintSetUp gclsBase.BaseDB, mclsList(.Tab).FlexGrid, , , , 90, "扣税标准" & Chr(1) & gclsBase.BaseName & Chr(1) & gclsBase.OperatorName
        End Select
    End With
    Set MyPrintSet = Nothing
End Sub

Private Sub mclsMainControl_ListReportMenu(ByVal intIndex As Integer)
    Select Case intIndex
           Case 0
               ' mclsMainControl_ReportQuick
         '  Case 2
                DepartTable
           Case 1
                EmployeeTable
           Case 2
                Report.ShowListReport 314, 354
           'Case 3
           
    End Select
    
End Sub

'职员一览表
Private Sub DepartTable()
    Report.ShowListReport 81, 135
End Sub

'部门一览表
Private Sub EmployeeTable()
    Report.ShowListReport 82, 136
End Sub

'快捷报表
Private Sub mclsMainControl_ReportQuick()

End Sub

Private Sub mclsSubClass_WndProc(Msg As Long, wParam As Long, lParam As Long, Result As Long)
    mclsList(sstDepEmp.Tab).HookProc Msg, wParam, lParam, mclsSubClass
End Sub

Private Sub mclsSubClassForm_WndProc(Msg As Long, wParam As Long, lParam As Long, Result As Long)
    Dim MinMax As MINMAXINFO

    If Msg = WM_GETMINMAXINFO Then
        CopyMemory MinMax, ByVal lParam, Len(MinMax)
        
        MinMax.ptMinTrackSize.x = 430
        MinMax.ptMinTrackSize.y = 250
        
        CopyMemory ByVal lParam, MinMax, Len(MinMax)
        Result = 0
    End If
End Sub

Private Sub msgDepartment_DblClick()
       With msgDepartment
            If .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 And frmMain.mnuEditEdit.Enabled Then
               mclsMainControl_EditEdit
            End If
       End With
       
End Sub

'单击FLEXGRID停用列,停用或启用当前记录
Private Sub msgDepartment_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim blnCancel As Boolean
    
    With msgDepartment
        If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
        End If
    End With
End Sub

Private Sub msgEmployee_DblClick()
   With msgEmployee
        If .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 And frmMain.mnuEditEdit.Enabled Then
           mclsMainControl_EditEdit
        End If
   End With
   
End Sub

Private Sub msgEmployee_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgEmployee
        If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
        End If
    End With
End Sub

Private Sub msgEmployee_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgEmployee
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub

Private Sub msgPersonTax_DblClick()
    With msgPersonTax
        If .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 And frmMain.mnuEditEdit.Enabled Then
           mclsMainControl_EditEdit
        End If
   End With
End Sub

Private Sub msgPersonTax_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgPersonTax
        If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
        End If
    End With
End Sub

Private Sub msgPersonTax_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgPersonTax
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub

Private Sub msgTaxType_DblClick()
    With msgTaxType
        If .MouseRow > 0 And .ColSel > 0 And .MouseCol > 1 And frmMain.mnuEditEdit.Enabled Then
           mclsMainControl_EditEdit
        End If
   End With
End Sub

Private Sub msgTaxType_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgTaxType
        If Button = vbRightButton Then
            Form_MouseDown Button, Shift, x, y
        End If
    End With
End Sub

Private Sub msgTaxType_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    With msgTaxType
        If Button = vbLeftButton Then
            If chkShowAll.Value = 1 And .ColSel > 0 And .MouseRow > 0 And .Row > 0 Then
                If x > .ColPos(1) And x < .ColPos(2) Then
                    .MousePointer = flexHourglass
                    mclsMainControl_EditInActive
                    .MousePointer = flexDefault
                End If
            End If
            UpdateMenuStatus
        End If
    End With
End Sub

Private Sub sstDepEmp_Click(PreviousTab As Integer)
    Dim blnOldShowAll As Boolean
    Dim i As Integer
    
    With sstDepEmp
        For i = 0 To 3
            Set mclsList(i).Again = Nothing
            mclsList(i).FlexGrid.TabStop = False
        Next
'        Set mclsList(1).Again = Nothing
'        Set mclsList(2).Again = Nothing
'        Set mclsList(3).Again = Nothing
        mclsList(.Tab).FlexGrid.TabStop = True
        Set mclsList(.Tab).Again = cmdAgain
        If .Tab = 2 Or .Tab = 3 Then
            chkShowAll.Enabled = False
        Else
            chkShowAll.Enabled = True
        End If
        mclsList(.Tab).FlexNoChange = True
        mclsList(.Tab).FindNoChange = True
        blnOldShowAll = mclsList(.Tab).ShowAll
         '改变钩子对象的作用窗体
        mclsSubClass.hwnd = mclsList(.Tab).FlexGrid.hwnd
        
        If Not blnIsLoad(.Tab) Then
            mclsList(sstDepEmp.Tab).FlexGrid.Redraw = False
            '得到列表记录集
            mclsList(.Tab).ListSet.ViewId = intViewID(.Tab)