frmcompact.frm

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

         Groups(1).ItemCount=   7
         Groups(1).ForeColor=   16711680
         Groups(1).PictureBackgroundStyle=   1
         Groups(1).Style =   1
         Groups(1).CurrentGroup=   -1  'True
         Groups(1).PictureBackground=   "frmCompact.frx":1D36
         Groups(1).Caption=   "One"
         Groups(1).ListItems(1).Text=   "全选(&A)"
         Groups(1).ListItems(1).IconSmall=   1
         Groups(1).ListItems(2).Index=   2
         Groups(1).ListItems(2).Text=   "反选(&U)"
         Groups(1).ListItems(2).IconSmall=   1
         Groups(1).ListItems(3).Index=   3
         Groups(1).ListItems(3).ForeColor=   16711680
         Groups(1).ListItems(3).Text=   "查询(&S)"
         Groups(1).ListItems(3).IconSmall=   1
         Groups(1).ListItems(4).Index=   4
         Groups(1).ListItems(4).ForeColor=   16711680
         Groups(1).ListItems(4).Text=   "分类汇总(&L)"
         Groups(1).ListItems(4).IconSmall=   1
         Groups(1).ListItems(5).Index=   5
         Groups(1).ListItems(5).ForeColor=   16711680
         Groups(1).ListItems(5).Text=   "导出EXCEL(&R)"
         Groups(1).ListItems(5).IconSmall=   1
         Groups(1).ListItems(6).Index=   6
         Groups(1).ListItems(6).ForeColor=   16711680
         Groups(1).ListItems(6).Text=   "打印(&P)"
         Groups(1).ListItems(6).IconSmall=   1
         Groups(1).ListItems(7).Index=   7
         Groups(1).ListItems(7).ForeColor=   16711680
         Groups(1).ListItems(7).Text=   "关闭(&C)"
         Groups(1).ListItems(7).IconSmall=   1
         Groups(2).Index =   2
         Groups(2).ItemCount=   3
         Groups(2).ForeColor=   16711680
         Groups(2).PictureBackgroundStyle=   1
         Groups(2).Style =   1
         Groups(2).PictureBackground=   "frmCompact.frx":4158
         Groups(2).Caption=   "Two"
         Groups(2).ListItems(1).Text=   "编辑(&E)"
         Groups(2).ListItems(1).IconSmall=   1
         Groups(2).ListItems(2).Index=   2
         Groups(2).ListItems(2).Text=   "增加(&I)"
         Groups(2).ListItems(2).IconSmall=   1
         Groups(2).ListItems(3).Index=   3
         Groups(2).ListItems(3).Text=   "删除(&D)"
         Groups(2).ListItems(3).IconSmall=   1
      End
   End
End
Attribute VB_Name = "frmCompact"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_ors4compact As New ADODB.Recordset
Private m_strSQL As String
Private m_l4search As Long
Private VSFlexGrid4Group As VSFlex7Ctl.VSFlexGrid

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        SendKeys "{tab}"
    End If
End Sub

Private Sub Form_Load()
    Set VSFlexGrid4Group = VSFlexGroup1.FlexGrid
    
    m_l4search = 0
    Me.Height = 5460
    Me.Width = 9540
    Me.Label4Unit.Visible = True
    Me.DTPicker4EndSignTime.Format = dtpCustom
    Me.DTPicker4EndSignTime.CustomFormat = "yyyy年MM月"
    Me.DTPicker4StartSignTime.Format = dtpCustom
    Me.DTPicker4StartSignTime.CustomFormat = "yyyy年MM月"
    Me.DTPicker4EndSignTime.Value = ""
    Me.DTPicker4StartSignTime.Value = ""
    Me.DTPicker4InureEndDate.Format = dtpCustom
    Me.DTPicker4InureEndDate.CustomFormat = "yyyy年MM月"
    Me.DTPicker4InureStartDate.Format = dtpCustom
    Me.DTPicker4InureStartDate.CustomFormat = "yyyy年MM月"
    Me.DTPicker4InureEndDate.Value = ""
    Me.DTPicker4InureStartDate.Value = ""
    With VSFlexGrid4This
        .Rows = 1
        .FixedCols = 1
        .FixedRows = 1
        .ColWidth(0) = .RowHeight(0)
        .Editable = flexEDNone
        .AllowUserResizing = flexResizeColumns
        .AllowBigSelection = False
        .AllowSelection = False
        .ExplorerBar = flexExSort
        .SelectionMode = flexSelectionByRow
        .ExtendLastCol = True
    End With
    PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).text = "查看"
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
        FillComboBox SSComboBoxEx4WriteOrgan, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=6  " & HaveOrganMark
    Else
        FillComboBox SSComboBoxEx4WriteOrgan, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & left(g_str4LoginUnit, C_FACTORY_LENGTH) & "'" & HaveOrganMark
        SSComboBoxEx4WriteOrgan.ListIndex = 0
        SSComboBoxEx4WriteOrgan.Enabled = False
    End If
    FillComboBox Me.SSComboBoxEx4CompactTime, "t_compact_limit", "compact_limit_no", "compact_limit_name"
    FillComboBox Me.SSComboBoxEx4UseWork, "t_usework_type", "useworke_type_no", "usework_type_name"
    FillComboBox Me.SSComboBoxEx4WorkerSort, "t_worker_sort", "worker_sort_no", "worker_sort_name"
    With Me.Combo4IsWrite
        .AddItem "否", 0
        .ItemData(0) = 0
        .AddItem "是", 1
        .ItemData(1) = 1
        .AddItem " ", 2
        .ItemData(2) = 2
    End With
    Call VSFlexGrid4This_AfterDataRefresh
    Unload frmSplash
    
    m_l4search = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MDIfrmMain.SSActiveToolBarsMain.Tools("ID_合同信息").Enabled = True
End Sub

Private Sub SSComboBoxEx4CompactTime_Change()
    DisplayRelateItems SSComboBoxEx4CompactTime
End Sub

Private Sub SSComboBoxEx4CompactTime_LostFocus()
    CheckValidate SSComboBoxEx4CompactTime
End Sub

Private Sub SSComboBoxEx4UseWork_Change()
    DisplayRelateItems SSComboBoxEx4UseWork
End Sub

Private Sub SSComboBoxEx4Company_GotFocus()
    If Trim(Me.SSComboBoxEx4Organ.text) <> "" Then
        FillComboBox SSComboBoxEx4Company, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=" & C_COMPANY_LENGTH & "and   left(ORGAN_NO," & C_FACTORY_LENGTH & ") like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "%' and organ_level=" & C_COMPANY_LEVEL & HaveOrganMark
    Else
        SSComboBoxEx4Company.Clear
    End If
End Sub

Private Sub SSComboBoxEx4Large_GotFocus()
    If Trim(Me.SSComboBoxEx4Organ.text) <> "" Then
        If Trim(Me.SSComboBoxEx4Company.text) <> "" Then
            FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=" & C_LARGE_LENGTH & " and   left(ORGAN_NO," & C_COMPANY_LENGTH & ") like '" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "%' and organ_level=" & C_LARGE_LEVEL & HaveOrganMark
        Else
            FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=" & C_COMPANY_LENGTH & " and   left(ORGAN_NO," & C_FACTORY_LENGTH & ") like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "%' and organ_level=" & C_LARGE_LEVEL & HaveOrganMark
        End If
    Else
        SSComboBoxEx4Large.Clear
    End If
End Sub

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

Private Sub SSComboBoxEx4Small_GotFocus()
    If Trim(Me.SSComboBoxEx4Organ.text) <> "" Then
        If Trim(Me.SSComboBoxEx4Company.text) <> "" Then
            If Trim(SSComboBoxEx4Large.text) <> "" Then
                FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=" & C_SMALL_LENGTH & " and   left(ORGAN_NO," & C_LARGE_LENGTH & ") like '" & SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex) & "%' and organ_level=" & C_SMALL_LEVEL & HaveOrganMark
            Else
                FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=" & C_LARGE_LENGTH & " and   left(ORGAN_NO," & C_COMPANY_LENGTH & ") like '" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "%' and organ_level=" & C_SMALL_LEVEL & HaveOrganMark
            End If
        Else
            If Trim(SSComboBoxEx4Large.text) <> "" Then
                FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=" & C_LARGE_LENGTH & " and   left(ORGAN_NO," & C_COMPANY_LENGTH & ") like '" & SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex) & "%' and organ_level=" & C_SMALL_LEVEL & HaveOrganMark
            Else
                FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=" & C_COMPANY_LENGTH & " and   left(ORGAN_NO," & C_FACTORY_LENGTH & ") like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "%' and organ_level=" & C_SMALL_LEVEL & HaveOrganMark
            End If
        End If
    Else
        SSComboBoxEx4Small.Clear
    End If
End Sub

Private Sub SSComboBoxEx4Small_LostFocus()
    CheckValidate SSComboBoxEx4Small
End Sub

Private Sub VSFlexGrid4This_AfterDataRefresh()
    Dim lfor As Long
    With VSFlexGrid4This
        .FixedCols = 0
        .Cols = 19
        .TextMatrix(0, 1) = "合同编号"
        .TextMatrix(0, 2) = "合同ID"
        .TextMatrix(0, 3) = "签订人员"
        .TextMatrix(0, 4) = "身份证号"
        .TextMatrix(0, 5) = "职工类别"
        .TextMatrix(0, 6) = "用工形式"
        .TextMatrix(0, 7) = "工作单位-厂处级单位"
        .TextMatrix(0, 8) = "工作单位-公司级单位"
        .TextMatrix(0, 9) = "工作单位-大队级单位"
        .TextMatrix(0, 10) = "工作单位-小队级单位"
        .TextMatrix(0, 11) = "签订单位"
        .TextMatrix(0, 12) = "合同期限"
        .TextMatrix(0, 13) = "合同名称"
        .TextMatrix(0, 14) = "签订日期"
        .TextMatrix(0, 15) = "生效日期"
        .TextMatrix(0, 16) = "是否签订"
        .TextMatrix(0, 17) = "备注"
        .ColHidden(18) = True
        .ColDataType(14) = flexDTDate
        .ColFormat(14) = "yyyy年m月d日"
        .ColDataType(15) = flexDTDate
        .ColFormat(15) = "yyyy年m月d日"
        .ColWidth(0) = .RowHeight(0)
        .ColDataType(0) = flexDTBoolean
        .ColHidden(2) = True
        For lfor = 1 To .Cols - 1
            .ColAlignment(lfor) = flexAlignCenterCenter
        Next
        .ColComboList(16) = "#0;否|#1;是"
        .ColComboList(7) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(8) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(9) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(10) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(5) = g_strArray4ColComboList(C_T_WORKER_SORT)
        .ColComboList(6) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
        .ColComboList(12) = g_strArray4ColComboList(C_T_COMPACT_LIMIT)
        .ColComboList(11) = MakeComboListString4VSFlex(VSFlexGrid4This, "t_organ", "organ_name", "organ_no")
        If .Rows - 1 < 1 Then
            Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_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_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_UNUSE_COLOR
            Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_UNUSE_COLOR
        Else
            .Row = 1
            Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_LUMP_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_FIRST_GROUP).ListItems(C_ALL_MEMBER).ForeColor = C_USE_COLOR
            Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_UNALL_MEMBER).ForeColor = C_USE_COLOR
        End If
    End With
    InitForm
    '分类汇总用
    With VSFlexGrid4Group
        .Cols = 19
        .TextMatrix(0, 1) = "合同编号"
        .TextMatrix(0, 2) = "合同ID"
        .TextMatrix(0, 3) = "签订人员"
        .TextMatrix(0, 4) = "身份证号"
        .TextMatrix(0, 5) = "职工类别"
        .TextMatrix(0, 6) = "用工形式"
        .TextMatrix(0, 7) = "工作单位-厂处级单位"
        .TextMatrix(0, 8) = "工作单位-公司级单位"
        .TextMatrix(0, 9) = "工作单位-大队级单位"
        .TextMatrix(0, 10) = "工作单位-小队级单位"
        .TextMatrix(0, 11) = "签订单位"
        .TextMatrix(0, 12) = "合同期限"
        .TextMatrix(0, 13) = "合同名称"
        .TextMatrix(0, 14) = "签订日期"
        .TextMatrix(0, 15) = "生效日期"
        .TextMatrix(0, 16) = "是否签订"
        .TextMatrix(0, 17) = "备注"
        .ColHidden(18) = True
        .ColDataType(14) = flexDTDate
        .ColFormat(14) = "yyyy年m月d日"
        .ColDataType(15) = flexDTDate
        .ColFormat(15) = "yyyy年m月d日"
        .ColWidth(0) = .RowHeight(0)
        .ColDataType(0) = flexDTBoolean
        .ColHidden(2) = True
        .ColHidden(0) = True
        For lfor = 1 To .Cols - 1
            .ColAlignment(lfor) = flexAlignCenterCenter
        Next
        .ColComboList(16) = "#0;否|#1;是"
        .ColComboList(5) = g_strArray4ColComboList(C_T_WORKER_SORT)
        .ColComboList(6) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
        .ColComboList(12) = g_strArray4ColComboList(C_T_COMPACT_LIMIT)
        .ColComboList(7) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(8) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(9) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(10) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(11) = MakeComboListString4VSFlex(VSFlexGrid4This, "t_organ", "organ_name", "organ_no")
    End With
    vsElastic2.Caption = "合同信息(总计" & VSFlexGrid4This.Rows - 1 & "条记录)"
End Sub

Private Sub VSFlexGrid4This_BeforeDataRefresh(Cancel As Boolean)
    VSFlexGrid4This.FixedCols = 1
End Sub