frmcompact.frm

本公司开发得大请油田人事管理系统c/s结构

Private Sub VSFlexGrid4This_Click()
    With VSFlexGrid4This
        If .Row > 0 And .Col = 0 Then
            If .TextMatrix(.Row, 0) = "True" Then
                .TextMatrix(.Row, 0) = "False"
            Else
                .TextMatrix(.Row, 0) = "True"
            End If
        End If
    End With
End Sub

Private Sub InitForm()
    '1位查询，2位增加，3位修改，4位删除，5位导出到excel，6位打印,7位其他
    Dim str4CheckPermission As String
    str4CheckPermission = CheckPermission("合同信息")
    With SSListBar4This
        If Mid(str4CheckPermission, 1, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 2, 1) = 0 Then .Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 3, 1) = 0 Then .Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 4, 1) = 0 Then .Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 5, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_UNUSE_COLOR
        If Mid(str4CheckPermission, 6, 1) = 0 Then .Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_UNUSE_COLOR
    End With
End Sub

Private Sub SSComboBoxEx4Company_LostFocus()
    CheckValidate SSComboBoxEx4Company
    Me.SSComboBoxEx4Large.text = ""
    Me.SSComboBoxEx4Small.text = ""
End Sub

Private Sub SSComboBoxEx4WriteOrgan_Change()
    DisplayRelateItems Me.SSComboBoxEx4WriteOrgan
End Sub

Private Sub SSComboBoxEx4Company_Change()
    DisplayRelateItems Me.SSComboBoxEx4Company
End Sub

Private Sub SSComboBoxEx4Small_Change()
    DisplayRelateItems Me.SSComboBoxEx4Small
End Sub

Private Sub SSComboBoxEx4Organ_Change()
    DisplayRelateItems Me.SSComboBoxEx4Organ
End Sub

Private Sub SSComboBoxEx4Organ_LostFocus()
    CheckValidate SSComboBoxEx4Organ
    Me.SSComboBoxEx4Company.text = ""
    Me.SSComboBoxEx4Large.text = ""
    Me.SSComboBoxEx4Small.text = ""
End Sub

Private Sub SSComboBoxEx4UseWork_LostFocus()
    CheckValidate Me.SSComboBoxEx4UseWork
    Me.SSComboBoxEx4UseWork.CheckList = True
End Sub

Private Sub SSComboBoxEx4WorkerSort_Change()
    DisplayRelateItems Me.SSComboBoxEx4WorkerSort
End Sub

Private Sub SSComboBoxEx4WorkerSort_LostFocus()
    CheckValidate Me.SSComboBoxEx4WorkerSort
    Me.SSComboBoxEx4WorkerSort.CheckList = True
End Sub

Private Sub SSListBar4This_ListItemClick(ByVal ItemClicked As Listbar.SSListItem)
    Dim lfor As Long
    If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).text = "分类汇总(&L)" Then Me.VSFlexGrid4This.SetFocus
    Select Case Me.SSListBar4This.CurrentGroup.Index
    Case C_FIRST_GROUP
        Select Case ItemClicked.Index
        Case C_ALL_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            With VSFlexGrid4This
                'AfterDataRefresh中设置 .row=1
                If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).text = "全选(&A)" Then
                    Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).text = "清空(&C)"
                    For lfor = 1 To .Rows - 1
                        If lfor < .Row Then
                            .TextMatrix(lfor, 0) = "False"
                        Else
                            If lfor - .Row >= 1000 Then MsgBox "最大只能选择1000条记录。", vbOKOnly, "确定": Exit Sub
                            .TextMatrix(lfor, 0) = "True"
                        End If
                    Next
                Else
                    Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).text = "全选(&A)"
                    For lfor = .Row To .Rows - 1
                        .TextMatrix(lfor, 0) = "False"
                    Next
                End If
            End With
        Case C_UNALL_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            With VSFlexGrid4This
                For lfor = .Row To .Rows - 1
                    If .TextMatrix(lfor, 0) = "True" Then
                        .TextMatrix(lfor, 0) = "False"
                    Else
                        If lfor - .Row >= 1000 Then MsgBox "最大只能选择1000条记录。", vbOKOnly, "确定": Exit Sub
                        .TextMatrix(lfor, 0) = "True"
                    End If
                Next
            End With
        Case C_SELECT_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            Me.SSComboBoxEx4CompactTime.CheckList = True
            Me.SSComboBoxEx4Company.CheckList = True
            Me.SSComboBoxEx4Large.CheckList = True
            Me.SSComboBoxEx4Organ.CheckList = True
            Me.SSComboBoxEx4Small.CheckList = True
            Me.SSComboBoxEx4UseWork.CheckList = True
            Me.SSComboBoxEx4WorkerSort.CheckList = True
            Me.SSComboBoxEx4Company.CheckList = True
            Me.SSComboBoxEx4Large.CheckList = True
            Me.SSComboBoxEx4WriteOrgan.CheckList = True
            Me.SSComboBoxEx4Small.CheckList = True
            If m_l4search = 1 Then
                frmSplash.Show
                DoEvents
            End If
            If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
                m_strSQL = "select compact_code,compact_no,emp_name,t_emp_basic.id_code,t_emp_basic.WORKER_SORT_NO,t_emp_basic.USEWORKE_TYPE_NO,T_TEMP_ORGAN_BREAK.FACTORY_ORGAN_NO,T_TEMP_ORGAN_BREAK.COMPANY_ORGAN_NO,T_TEMP_ORGAN_BREAK.LARGE_ORGAN_NO,T_TEMP_ORGAN_BREAK.SAMLL_ORGAN_NO,compact_underwrite_organ,compact_limit_no,compact_name,case compact_date " _
                        & " when null then null else cast(compact_date/10000 as varchar(4))+'年'+cast(compact_date%10000/100 as varchar(2))+'月'+cast(compact_date%100 as varchar(2))+'日' end as compact_date,case compact_validate_date " _
                        & " when null then null else cast(compact_validate_date/10000 as varchar(4))+'年'+cast(compact_validate_date%10000/100 as varchar(2))+'月'+cast(compact_validate_date%100 as varchar(2))+'日' end as compact_validate_date," _
                        & " sign_mark ,compact_note,WORK_STATION from t_compact,t_emp_basic,t_organ,T_TEMP_ORGAN_BREAK where t_compact.sign_emp=t_emp_basic.emp_no and t_emp_basic.organ_no=t_compact.COMPACT_UNDERWRITE_ORGAN and t_compact.WORK_STATION = T_ORGAN.ORGAN_NO and t_compact.COMPACT_UNDERWRITE_ORGAN=T_TEMP_ORGAN_BREAK.ORGAN_NO " & HaveOrganMark & HaveEmpMark
            Else
                m_strSQL = "select compact_code,compact_no,emp_name,t_emp_basic.id_code,t_emp_basic.WORKER_SORT_NO,t_emp_basic.USEWORKE_TYPE_NO,T_TEMP_ORGAN_BREAK.FACTORY_ORGAN_NO,T_TEMP_ORGAN_BREAK.COMPANY_ORGAN_NO,T_TEMP_ORGAN_BREAK.LARGE_ORGAN_NO,T_TEMP_ORGAN_BREAK.SAMLL_ORGAN_NO,compact_underwrite_organ,compact_limit_no,compact_name, " _
                        & " case compact_date when null then null else cast(compact_date/10000 as varchar(4))+'年'+cast(compact_date%10000/100 as varchar(2))+'月'+cast(compact_date%100 as varchar(2))+'日' end as compact_date,case compact_validate_date when null then null else " _
                        & " cast(compact_validate_date/10000 as varchar(4))+'年'+cast(compact_validate_date%10000/100 as varchar(2))+'月'+cast(compact_validate_date%100 as varchar(2))+'日' end as compact_validate_date,sign_mark ,compact_note,WORK_STATION from t_compact,t_emp_basic,t_organ,T_TEMP_ORGAN_BREAK where " _
                        & " t_compact.sign_emp=t_emp_basic.emp_no and t_emp_basic.organ_no=t_compact.COMPACT_UNDERWRITE_ORGAN and t_compact.WORK_STATION = T_ORGAN.ORGAN_NO and t_compact.COMPACT_UNDERWRITE_ORGAN=T_TEMP_ORGAN_BREAK.ORGAN_NO " & HaveOrganMark & HaveEmpMark
            End If
        
            If Trim(Text4Code.text) <> "" Then
               m_strSQL = m_strSQL & " and compact_code=" & CSQL(Text4Code.text)
            End If
            If Trim(SSComboBoxEx4Small.text) <> "" Then
                SSComboBoxEx4Small.CheckList = True
                m_strSQL = m_strSQL & " and COMPACT_UNDERWRITE_ORGAN like '" & Me.SSComboBoxEx4Small.ItemData(Me.SSComboBoxEx4Small.ListIndex) & "%'"
            Else
                If Trim(SSComboBoxEx4Large.text) <> "" Then
                    SSComboBoxEx4Large.CheckList = True
                    m_strSQL = m_strSQL & " and COMPACT_UNDERWRITE_ORGAN like '" & Me.SSComboBoxEx4Large.ItemData(Me.SSComboBoxEx4Large.ListIndex) & "%'"
                Else
                    If Trim(SSComboBoxEx4Company.text) <> "" Then
                        SSComboBoxEx4Company.CheckList = True
                        m_strSQL = m_strSQL & " and COMPACT_UNDERWRITE_ORGAN like '" & Me.SSComboBoxEx4Company.ItemData(Me.SSComboBoxEx4Company.ListIndex) & "%'"
                    Else
                        SSComboBoxEx4Organ.CheckList = True
                        If Trim(SSComboBoxEx4Organ.text) <> "" Then m_strSQL = m_strSQL & " and COMPACT_UNDERWRITE_ORGAN like '" & Me.SSComboBoxEx4Organ.ItemData(Me.SSComboBoxEx4Organ.ListIndex) & "%'"
                    End If
                End If
            End If
            If Trim(SSComboBoxEx4WriteOrgan.text) <> "" Then
                m_strSQL = m_strSQL & " and work_station like '" & Me.SSComboBoxEx4WriteOrgan.ItemData(Me.SSComboBoxEx4WriteOrgan.ListIndex) & "%'"
            End If
            
            If Trim(Me.Text4EmpName.text) <> "" Then
               m_strSQL = m_strSQL & " and t_emp_basic.emp_name='" & Trim(Text4EmpName.text) & "'"
            End If
            If Trim(Me.SSComboBoxEx4CompactTime.text) <> "" Then
               m_strSQL = m_strSQL & " and compact_limit_no='" & Me.SSComboBoxEx4CompactTime.ItemData(Me.SSComboBoxEx4CompactTime.ListIndex) & "'"
            End If
            If Not IsNull(DTPicker4InureStartDate.Value) And IsNull(DTPicker4InureEndDate.Value) Then
                m_strSQL = m_strSQL & " and T_COMPACT.compact_validate_date>'" & ConvertDate2Int(DTPicker4InureStartDate.Value) & "'"
            End If
            If IsNull(DTPicker4InureStartDate.Value) And Not IsNull(DTPicker4InureEndDate.Value) Then
                m_strSQL = m_strSQL & " and T_COMPACT.compact_validate_date<'" & ConvertDate2Int(DTPicker4InureEndDate.Value) & "'"
            End If
            
            If Not IsNull(DTPicker4InureStartDate.Value) And Not IsNull(DTPicker4InureEndDate.Value) Then
                m_strSQL = m_strSQL & " and T_COMPACT.compact_validate_date>'" & ConvertDate2Int(DTPicker4InureStartDate.Value) & "' and T_COMPACT.compact_validate_date<'" & ConvertDate2Int(DTPicker4InureEndDate.Value) & "'"
            End If
            If Not IsNull(DTPicker4StartSignTime.Value) And IsNull(DTPicker4EndSignTime.Value) Then
                m_strSQL = m_strSQL & " and T_COMPACT.compact_date>'" & ConvertDate2Int(DTPicker4StartSignTime.Value) & "'"
            End If
            If IsNull(DTPicker4StartSignTime.Value) And Not IsNull(DTPicker4EndSignTime.Value) Then
                m_strSQL = m_strSQL & " and T_COMPACT.compact_date<'" & ConvertDate2Int(DTPicker4EndSignTime.Value) & "'"
            End If
            
            If Not IsNull(DTPicker4StartSignTime.Value) And Not IsNull(DTPicker4EndSignTime.Value) Then
                m_strSQL = m_strSQL & " and T_COMPACT.compact_date>'" & ConvertDate2Int(DTPicker4StartSignTime.Value) & "' and T_COMPACT.compact_validate_date<'" & ConvertDate2Int(DTPicker4EndSignTime.Value) & "'"
            End If
            If Trim(Me.Text4EmpID.text) <> "" Then
               m_strSQL = m_strSQL & " and t_emp_basic.id_code=" & CSQL(Me.Text4EmpID.text, 0)
            End If
            If Trim(SSComboBoxEx4UseWork.text) <> "" Then
                m_strSQL = m_strSQL & " and t_emp_basic.USEWORKE_TYPE_NO=" & Me.SSComboBoxEx4UseWork.ItemData(Me.SSComboBoxEx4UseWork.ListIndex)
            End If
            If Trim(Me.SSComboBoxEx4WorkerSort.text) <> "" Then
                m_strSQL = m_strSQL & " and t_emp_basic.WORKER_SORT_NO=" & Me.SSComboBoxEx4WorkerSort.ItemData(Me.SSComboBoxEx4WorkerSort.ListIndex)
            End If
            If Trim(Me.Combo4IsWrite.text) <> "" Then
                m_strSQL = m_strSQL & " and sign_mark=" & Me.Combo4IsWrite.ItemData(Me.Combo4IsWrite.ListIndex)
            End If
            If m_ors4compact.State = adStateOpen Then m_ors4compact.Close
            m_ors4compact.CursorLocation = adUseClient
            m_ors4compact.Open m_strSQL, g_oConnection4This
            Set VSFlexGrid4Group.DataSource = m_ors4compact
            Set VSFlexGrid4This.DataSource = m_ors4compact
            If m_l4search = 1 Then Unload frmSplash
        Case C_LUMP_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            If VSFlexGrid4This.Visible = True Then
                VSFlexGroup1.Visible = True
                VSFlexGrid4This.Visible = False
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).text = "表格(&L)"
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_UNUSE_COLOR
                Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_UNUSE_COLOR
                If Len(g_str4LoginUnit) <> C_BUREAUE_LENGTH Then
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_UNUSE_COLOR
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_UNUSE_COLOR
                End If
            Else
                VSFlexGroup1.Visible = False
                VSFlexGrid4This.Visible = True
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_MEMBER).text = "分类汇总(&L)"
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_SELECT_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_USE_COLOR
                Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_USE_COLOR
                If Len(g_str4LoginUnit) <> C_BUREAUE_LENGTH Then
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_USE_COLOR
                    Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_USE_COLOR
                End If
            End If
        Case C_CLOSE_MEMBER
            Unload Me
        Case C_TO_EXCEL_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_EXCEL_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            MousePointer = 11
            ExportExcel m_strSQL, Me.VSFlexGrid4This
            MousePointer = 1
        Case C_TO_PRN_MEMBER
            If Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_TO_PRN_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            frmPrint.g_str4MainPrint = "合同信息"
            Me.VSFlexGrid4This.ColHidden(0) = True
            Me.VSFlexGrid4This.SaveGrid App.Path & "\2000.txt", flexFileAll
            Me.VSFlexGrid4This.ColHidden(0) = False
            frmPrint.Show 1
        End Select
    Case C_SECOND_GROUP
        Select Case ItemClicked.Index
        Case C_DELETE_MEMBER
            If Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_DELETE_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            With Me.VSFlexGrid4This
                If .Row <= 0 Then Exit Sub
                If vbYes = MsgBox("确认删除该记录吗?", vbYesNo + vbDefaultButton2, "警告") Then
                    m_strSQL = "delete from t_compact where compact_no =" & .TextMatrix(.Row, 2) & " and work_station like '" & .TextMatrix(.Row, 11) & "'"
                    If ExcuteSQL(m_strSQL) <> 0 Then Exit Sub
                    .RemoveItem .Row
                End If
            End With
            vsElastic2.Caption = "合同信息(总计" & VSFlexGrid4This.Rows - 1 & "条记录)"
        Case C_INSERT_MEMBER
            If Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_INSERT_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            g_int4statuse = 0
            frmCompactEdit.Show 1
            If m_ors4compact.State = adStateOpen Then m_ors4compact.Requery
        Case C_UPDATE_MEMBER
            If Me.SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).ForeColor = C_UNUSE_COLOR Then Exit Sub
            With Me.VSFlexGrid4This
                g_int4rowstate = 0
                For lfor = 1 To .Rows - 1
                    If .TextMatrix(lfor, 0) = "True" Then
                        g_int4rowstate = g_int4rowstate + 1
                        g_array4WorkerType(1, g_int4rowstate) = .TextMatrix(lfor, 2)
                        g_array4WorkerType(2, g_int4rowstate) = .TextMatrix(lfor, 18)
                    End If
                Next
                If g_int4rowstate = 0 Then
                    MsgBox "请选择至少一条记录!", vbOKOnly, "提示"
                    Exit Sub
                Else
                    frmSplash.Show
                    DoEvents
                    g_int4statuse = 1
                    frmCompactEdit.Show 1
                    If m_ors4compact.State = adStateOpen Then m_ors4compact.Requery
                End If
            End With
        End Select
    End Select
End Sub