frmworkersort.frm

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

         Caption         =   "技术等级"
         Height          =   285
         Left            =   3000
         TabIndex        =   19
         Top             =   990
         Width           =   1815
      End
      Begin VB.Label Label4WorkTime 
         Caption         =   "从事工种时间"
         Height          =   270
         Left            =   3000
         TabIndex        =   18
         Top             =   1695
         Width           =   1815
      End
      Begin VB.Label Label4Employ 
         Caption         =   "资格是否在聘"
         Height          =   300
         Left            =   90
         TabIndex        =   17
         Top             =   1335
         Width           =   1140
      End
      Begin VB.Label Label4WorkSortProperty 
         Caption         =   "工种性质"
         Height          =   285
         Left            =   6645
         TabIndex        =   16
         Top             =   990
         Width           =   825
      End
      Begin VB.Label Label4CertificateCode 
         Caption         =   "资格证书编码"
         Height          =   300
         Left            =   3000
         TabIndex        =   15
         Top             =   1335
         Width           =   1815
      End
      Begin VB.Label Label2 
         Caption         =   "介于"
         Height          =   270
         Left            =   6645
         TabIndex        =   14
         Top             =   1695
         Width           =   825
      End
   End
End
Attribute VB_Name = "frmWorkerSort"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_oRs4frmWorkerSort As New ADODB.Recordset
Private m_strSQL As String
Dim m_int4search As Long
Dim 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()
    m_int4search = 0
    
    Set VSFlexGrid4Group = VSFlexGroup1.FlexGrid

    Me.Height = 5460
    Me.Width = 9540
    Me.DTPicker4EndWorkTime.Format = dtpCustom
    Me.DTPicker4EndWorkTime.CustomFormat = "yyyy年MM月"
    Me.DTPicker4StartWorkTime.Format = dtpCustom
    Me.DTPicker4StartWorkTime.CustomFormat = "yyyy年MM月"
    Me.DTPicker4EndWorkTime.Value = ""
    Me.DTPicker4StartWorkTime.Value = ""
    With VSFlexGrid4WorkerSort
        .Rows = 1
        .FixedCols = 1
        .FixedRows = 1
        .ColWidth(0) = .RowHeight(0)
        .ExplorerBar = flexExSort
        .Editable = flexEDNone
        .AllowBigSelection = False
        .AllowSelection = False
        .SelectionMode = flexSelectionByRow
        .ExtendLastCol = True
        .AllowUserResizing = flexResizeColumns
    End With
    PrcessSSComboxExFormLoad Me.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
    End If
    
    FillComboBox Me.SSComboBoxEx4TechnicalGrade, "t_technical_grade", "technical_grade_no", "technical_grade_name"
    FillComboBox Me.SSComboBoxEx4WorkerType, "t_worker_type", "worker_type_no", "worker_type_name"
    FillComboBox Me.SSComboBoxEx4Useworktype, "T_USEWORK_TYPE", "USEWORKE_TYPE_NO", "USEWORK_TYPE_NAME"
    With Me.SSComboBoxEx4Sex
        .AddItem ""
        .AddItem "男"
        .ItemData(1) = 1
        .AddItem "女"
        .ItemData(2) = 2
    End With
    
    With Me.SSComboBoxEx4Employ
        .AddItem ""
        .AddItem "是"
        .ItemData(1) = 1
        .AddItem "否"
        .ItemData(2) = 2
    End With
    With Me.SSComboBoxEx4WorkSortProperty
        .AddItem ""
        .AddItem "技术"
        .ItemData(1) = 1
        .AddItem "非技术"
        .ItemData(2) = 2
    End With
   Call VSFlexGrid4WorkerSort_AfterDataRefresh
    Unload frmSplash
    m_int4search = 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MDIfrmMain.SSActiveToolBarsMain.Tools("ID_工人工种信息").Enabled = True
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 SSComboBoxEx4Company
    Me.SSComboBoxEx4Large.text = ""
    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 SSComboBoxEx4Sex_Change()
    DisplayRelateItems Me.SSComboBoxEx4Sex
End Sub

Private Sub SSComboBoxEx4Sex_LostFocus()
    CheckValidate Me.SSComboBoxEx4Useworktype
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 SSComboBoxEx4Useworktype_Change()
    DisplayRelateItems Me.SSComboBoxEx4Employ
End Sub

Private Sub SSComboBoxEx4Useworktype_LostFocus()
    CheckValidate Me.SSComboBoxEx4Useworktype
End Sub

Private Sub SSComboBoxEx4employ_LostFocus()
    CheckValidate Me.SSComboBoxEx4Employ
End Sub
Private Sub SSComboBoxEx4employ_Change()
    DisplayRelateItems Me.SSComboBoxEx4Employ
End Sub

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

Private Sub SSComboBoxEx4Organ_Change()
    DisplayRelateItems Me.SSComboBoxEx4Organ
End Sub

Private Sub SSComboBoxEx4Organ_LostFocus()
    CheckValidate SSComboBoxEx4Organ
    SSComboBoxEx4Organ.CheckList = True
    If Trim(Me.SSComboBoxEx4Organ.text) = "" Then
       Me.SSComboBoxEx4Company.Clear
       Me.SSComboBoxEx4Large.Clear
       Me.SSComboBoxEx4Small.Clear
    Else
        FillComboBox SSComboBoxEx4Company, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and substring(ORGAN_NO,1,6) like '" & g_str4LoginUnit & "%' and organ_level = 2 " & HaveOrganMark
        FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and substring(ORGAN_NO,1,6) like '" & g_str4LoginUnit & "%' and organ_level = 1 " & HaveOrganMark
        FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and substring(ORGAN_NO,1,6) like '" & g_str4LoginUnit & "%' and organ_level = 0 " & HaveOrganMark
    End If
End Sub

Private Sub SSComboBoxEx4technicalGrade_Change()
    DisplayRelateItems Me.SSComboBoxEx4TechnicalGrade
End Sub

Private Sub SSComboBoxEx4technicalGrade_LostFocus()
    CheckValidate Me.SSComboBoxEx4TechnicalGrade
End Sub

Private Sub SSComboBoxEx4workertype_LostFocus()
    CheckValidate Me.SSComboBoxEx4WorkerType
End Sub

Private Sub SSComboBoxEx4workertype_Change()
    DisplayRelateItems Me.SSComboBoxEx4WorkerType
End Sub

Private Sub SSComboBoxEx4WorkSortProperty_LostFocus()
    CheckValidate Me.SSComboBoxEx4WorkSortProperty
End Sub

Private Sub SSComboBoxEx4WorkSortProperty_Change()
    DisplayRelateItems Me.SSComboBoxEx4WorkSortProperty
End Sub

Private Sub SSComboBoxEx4Small_LostFocus()
    CheckValidate Me.SSComboBoxEx4Small
End Sub

Private Sub VSFlexGrid4WorkerSort_AfterDataRefresh()
    Dim lfor As Long
    With VSFlexGrid4WorkerSort
        .FixedCols = 0
        .Cols = 18
        .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) = "资格是否在聘"
        .ColHidden(16) = True
        .ColHidden(17) = True
        .ColDataType(13) = flexDTDate
        .ColFormat(13) = "yyyy年mm月dd日"
        .ColWidth(0) = .RowHeight(0)
        For lfor = 1 To .Cols - 1
            .ColAlignment(lfor) = flexAlignCenterCenter
        Next
        .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_ORGAN)
        .ColComboList(11) = g_strArray4ColComboList(C_T_TECHNICAL_GRADE)
        .ColComboList(10) = g_strArray4ColComboList(C_T_WORKER_TYPE)
        .ColComboList(9) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
        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