frmcadre.frm

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

         Groups(1).ListItems(7).Text=   "关闭(&C)"
         Groups(1).ListItems(7).IconSmall=   1
         Groups(1).ListItems(8).Index=   8
         Groups(1).ListItems(8).Text=   "干部简历卡"
         Groups(1).ListItems(8).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=   "frmCadre.frx":415B
         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 = "frmCadre"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_oRs4Cadre As New ADODB.Recordset
Private m_strSQL As String
Private m_l4Splash As Long
Private VSFlexGrid4Group As VSFlex7Ctl.VSFlexGrid

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

Private Sub Form_Load()
    Me.Height = 5460
    Me.Width = 9540
    
    Set VSFlexGrid4Group = VSFlexGroup1.FlexGrid
    m_l4Splash = 0
    
    Me.DTPicker4AppointedTimeEnd.Format = dtpCustom
    Me.DTPicker4AppointedTimeEnd.CustomFormat = "yyyy年MM月"
    Me.DTPicker4AppointedTimeStart.Format = dtpCustom
    Me.DTPicker4AppointedTimeStart.CustomFormat = "yyyy年MM月"
    Me.DTPicker4AppointedTimeEnd.Value = ""
    Me.DTPicker4AppointedTimeStart.Value = ""
    PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems.Remove C_INSERT_MEMBER
        SSListBar4This.Groups(C_SECOND_GROUP).ListItems(C_UPDATE_MEMBER).text = "查看"
    End If
    
    FillComboBox SSComboBoxEx4EngageSpecialty, "T_ENGAGE_SPECIALTY", "ENGAGE_SPECIALTY_NO", "ENGAGE_SPECIALTY_Name"
    FillComboBox SSComboBoxEx4DutyLevel, "T_DUTY_LEVEL", "DUTY_LEVEL_NO", "DUTY_LEVEL_NAME"
    FillComboBox SSComboBoxEx4TechnicalDuty, "T_TECHNICAL_DUTY", "TECHNICAL_DUTY_NO", "TECHNICAL_DUTY_NAME"
    FillComboBox Me.SSComboBoxEx4CadreSort, "T_CADRE_SORT", "CADRE_SORT_NO", "CADRE_SORT_NAME"
    FillComboBox SSComboBoxEx4WorkProperty, "T_WORK_PROPERTY", "WORK_PROPERTY_NO", "WORK_PROPERTY_NAME"
    FillComboBox SSComboBoxEx4AppointedType, "T_APPOINTED_TYPE", "APPOINTED_TYPE_NO", "APPOINTED_TYPE_NAME"
    FillComboBox Me.SSComboBoxEx4Duty, "T_DUTY", "DUTY_NO", "DUTY_NAME"
    FillComboBox SSComboBoxEx4DutySpecialty, "T_DUTY_SPECIALTY", "DUTY_SPECIALTY_NO", "DUTY_SPECIALTY_NAME"
    
    With VSFlexGrid4CadreMessage
        .FixedCols = 1
        .FixedRows = 1
        .Cols = 24
        .Rows = 1
        .ColWidth(0) = .RowHeight(0)
        .AllowUserResizing = flexResizeColumns
        .AllowBigSelection = False
        .AllowSelection = False
        .Editable = flexEDKbdMouse
        .ExplorerBar = flexExSort
        .SelectionMode = flexSelectionByRow
        .ExtendLastCol = True
    End With
    
    Call VSFlexGrid4CadreMessage_AfterDataRefresh
    m_l4Splash = 1
    Unload frmSplash
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MDIfrmMain.SSActiveToolBarsMain.Tools("ID_干部基本信息").Enabled = True
End Sub

Private Sub SSComboBoxEx4Company_Change()
    DisplayRelateItems SSComboBoxEx4Company
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 SSComboBoxEx4Company_LostFocus()
    CheckValidate Me.SSComboBoxEx4Company
    Me.SSComboBoxEx4Large.text = ""
    Me.SSComboBoxEx4Small.text = ""
End Sub

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

Private Sub SSComboBoxEx4Organ_Change()
    DisplayRelateItems SSComboBoxEx4Organ
End Sub

Private Sub SSComboBoxEx4large_Change()
    DisplayRelateItems SSComboBoxEx4Large
End Sub

Private Sub SSComboBoxEx4large_LostFocus()
    CheckValidate SSComboBoxEx4Large
    Me.SSComboBoxEx4Small.text = ""
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 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 Me.SSComboBoxEx4Small
End Sub

Private Sub SSComboBoxEx4Small_Change()
    DisplayRelateItems SSComboBoxEx4Small
End Sub

Private Sub SSComboBoxEx4EngageSpecialty_Change()
    DisplayRelateItems Me.SSComboBoxEx4EngageSpecialty
End Sub

Private Sub SSComboBoxEx4EngageSpecialty_LostFocus()
    CheckValidate Me.SSComboBoxEx4EngageSpecialty
End Sub

Private Sub SSComboBoxEx4DutyLevel_Change()
    DisplayRelateItems Me.SSComboBoxEx4DutyLevel
End Sub

Private Sub SSComboBoxEx4DutyLevel_LostFocus()
    CheckValidate Me.SSComboBoxEx4DutyLevel
End Sub
Private Sub SSComboBoxEx4TechnicalDuty_Change()
    DisplayRelateItems Me.SSComboBoxEx4TechnicalDuty
End Sub

Private Sub SSComboBoxEx4TechnicalDuty_LostFocus()
    CheckValidate Me.SSComboBoxEx4TechnicalDuty
End Sub
Private Sub SSComboBoxEx4CadreSort_Change()
    DisplayRelateItems Me.SSComboBoxEx4CadreSort
End Sub

Private Sub SSComboBoxEx4CadreSort_LostFocus()
    CheckValidate Me.SSComboBoxEx4CadreSort
End Sub
Private Sub SSComboBoxEx4WorkProperty_Change()
    DisplayRelateItems Me.SSComboBoxEx4WorkProperty
End Sub

Private Sub SSComboBoxEx4WorkProperty_LostFocus()
    CheckValidate Me.SSComboBoxEx4WorkProperty
End Sub
Private Sub SSComboBoxEx4AppointedType_Change()
    DisplayRelateItems Me.SSComboBoxEx4AppointedType
End Sub

Private Sub SSComboBoxEx4AppointedType_LostFocus()
    CheckValidate Me.SSComboBoxEx4AppointedType
End Sub
Private Sub SSComboBoxEx4Duty_Change()
    DisplayRelateItems Me.SSComboBoxEx4Duty
End Sub

Private Sub SSComboBoxEx4Duty_LostFocus()
    CheckValidate Me.SSComboBoxEx4Duty
End Sub
Private Sub SSComboBoxEx4DutySpecialty_Change()
    DisplayRelateItems Me.SSComboBoxEx4DutySpecialty
End Sub

Private Sub SSComboBoxEx4DutySpecialty_LostFocus()
    CheckValidate Me.SSComboBoxEx4DutySpecialty
End Sub

Private Sub Text4EmpID_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii
End Sub

Private Sub VSFlexGrid4CadreMessage_AfterDataRefresh()
    Dim lfor As Long
    With VSFlexGrid4CadreMessage
        .FixedCols = 0
        .ColDataType(0) = flexDTBoolean
        .TextMatrix(0, 1) = "干部姓名"
        .TextMatrix(0, 2) = "工作单位级别"
        .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) = "技术专业"
        .TextMatrix(0, 18) = "任干时间"
        .TextMatrix(0, 19) = "聘任情况"
        .TextMatrix(0, 20) = "聘任时间"
        .TextMatrix(0, 21) = "兼职"

        .ColHidden(15) = True
        .ColHidden(22) = True
        .ColHidden(23) = True
                
        .ColComboList(3) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(4) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(5) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(6) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(7) = g_strArray4ColComboList(C_T_ENGAGE_SPECIALTY)
        .ColComboList(8) = g_strArray4ColComboList(C_T_DUTY_SPECIALTY)
        .ColComboList(9) = g_strArray4ColComboList(C_T_APPOINTED_TYPE)
        .ColComboList(10) = g_strArray4ColComboList(C_T_DUTY)
        .ColComboList(11) = g_strArray4ColComboList(C_T_CADRE_SORT)
        .ColComboList(12) = g_strArray4ColComboList(C_T_OCCUPATION_SORT)
        .ColComboList(13) = g_strArray4ColComboList(C_T_WORK_PROPERTY)
        .ColComboList(14) = g_strArray4ColComboList(C_T_DUTY_LEVEL)
        .ColWidth(0) = .RowHeight(0)
        For lfor = 1 To .Cols - 1
            .ColWidth(lfor) = 1200
            .ColAlignment(lfor) = flexAlignCenterCenter
        Next
        For lfor = 1 To .Rows - 1
            If .TextMatrix(lfor, 0) = "True" Then .TextMatrix(lfor, 0) = "False"
        Next
        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
            Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_OTHER_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
            Me.SSListBar4This.Groups(C_FIRST_GROUP).ListItems(C_OTHER_MEMBER).ForeColor = C_USE_COLOR
        End If
        InitForm
    End With
    
    '分类汇总用
    With VSFlexGrid4Group
        .Cols = 24
        .TextMatrix(0, 1) = "干部姓名"
        .TextMatrix(0, 2) = "工作单位级别"