frmcompactalert.frm

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

            _ExtentY        =   556
            _Version        =   65536
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
         Begin VB.Label lbl4ExpireTime 
            Caption         =   "距截止日期(天)"
            Height          =   315
            Left            =   4860
            TabIndex        =   9
            Top             =   675
            Width           =   1800
         End
         Begin VB.Label Label4Record 
            Caption         =   "合同预警(总计0条记录)"
            Height          =   315
            Left            =   90
            TabIndex        =   7
            Top             =   675
            Width           =   2865
         End
         Begin VB.Label lbl4Organ 
            Caption         =   "工作单位"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   285
            Left            =   90
            TabIndex        =   6
            Top             =   330
            Width           =   1080
         End
      End
   End
End
Attribute VB_Name = "frmCompactAlert"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim strsql As String
Dim ors4Compact As New ADODB.Recordset
Dim VSFlexGrid4Group As VSFlex7Ctl.VSFlexGrid
Dim m_l4Len_Organ_no As Long

Private Sub Command4change_Click()
    If VSFlexGrid4This.Visible = True Then
        VSFlexGroup1.Visible = True
        VSFlexGrid4This.Visible = False
        Command4Change.Caption = "表格(&L)"
        cmd4query.Enabled = False
    Else
        VSFlexGroup1.Visible = False
        VSFlexGrid4This.Visible = True
        Command4Change.Caption = "分类汇总(&L)"
        cmd4query.Enabled = True
    End If
End Sub
Private Sub cmd4Cancel_Click()
    Unload Me
End Sub

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

Private Sub SSComboBoxEx4OrganName_LostFocus()
    CheckValidate SSComboBoxEx4OrganName
    SSComboBoxEx4OrganName.CheckList = True
    Me.SSComboBoxEx4Large.text = ""
    Me.SSComboBoxEx4Company.text = ""
    Me.SSComboBoxEx4Small.text = ""
End Sub

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

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

Private Sub cmd4query_Click()
    frmSplash.Show
    DoEvents
    Me.SSComboBoxEx4Company.CheckList = True
    Me.SSComboBoxEx4Large.CheckList = True
    Me.SSComboBoxEx4OrganName.CheckList = True
    Me.SSComboBoxEx4Small.CheckList = True
    
    strsql = "select emp_name,case sex when '1' then '男' when '2' then '女' end as sex,t_emp_basic.worker_sort_no,t_emp_basic.USEWORKE_TYPE_NO," _
            & "compact_underwrite_organ,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_limit_name,(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))+'日') , " _
            & " case when compact_limit_name like '一年' then datediff(d ,getdate(),dateadd(year,1,(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))))) " _
            & "  when compact_limit_name like '三年' then datediff(d ,getdate(),dateadd(year,3,(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))))) " _
            & "  when compact_limit_name like '五年' then datediff(d ,getdate(),dateadd(year,5,(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))))) " _
            & "  when compact_limit_name like '八年' then datediff(d ,getdate(),dateadd(year,8,(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))))) " _
            & "  when compact_limit_name like '十年' then datediff(d ,getdate(),dateadd(year,10,(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))))) " _
            & "  when compact_limit_name like '十五年' then datediff(d ,getdate(),dateadd(year,15,(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 days from t_emp_basic,t_compact,t_compact_limit,T_ORGAN,T_TEMP_ORGAN_BREAK" _
            & " where t_emp_basic.emp_no=t_compact.sign_emp and t_emp_basic.organ_no=t_compact.work_station and t_organ.organ_no=t_compact.compact_underwrite_organ and t_compact.work_station=T_TEMP_ORGAN_BREAK.ORGAN_NO" _
            & HaveOrganMark & "and t_compact.compact_limit_no=t_compact_limit.compact_limit_no "
    If Trim(SSComboBoxEx4Small.text) <> "" Then
        m_l4Len_Organ_no = Len(Me.SSComboBoxEx4Small.ItemData(Me.SSComboBoxEx4Small.ListIndex))
        strsql = strsql & " and substring(compact_underwrite_organ,1," & m_l4Len_Organ_no & ") like '" & Me.SSComboBoxEx4Small.ItemData(Me.SSComboBoxEx4Small.ListIndex) & "'"
    Else
        If Trim(SSComboBoxEx4Large.text) <> "" Then
        m_l4Len_Organ_no = Len(Me.SSComboBoxEx4Large.ItemData(Me.SSComboBoxEx4Large.ListIndex))
            strsql = strsql & " and substring(compact_underwrite_organ,1," & m_l4Len_Organ_no & ") like '" & Me.SSComboBoxEx4Large.ItemData(Me.SSComboBoxEx4Large.ListIndex) & "'"
        Else
            If Trim(SSComboBoxEx4Company.text) <> "" Then
            m_l4Len_Organ_no = Len(Me.SSComboBoxEx4Company.ItemData(Me.SSComboBoxEx4Company.ListIndex))
                strsql = strsql & " and substring(compact_underwrite_organ,1," & m_l4Len_Organ_no & ") like '" & Me.SSComboBoxEx4Company.ItemData(Me.SSComboBoxEx4Company.ListIndex) & "'"
            Else
            m_l4Len_Organ_no = Len(g_str4LoginUnit)
                strsql = strsql & " and substring(compact_underwrite_organ,1," & m_l4Len_Organ_no & ") like '" & g_str4LoginUnit & "'"
            End If
                
        End If
    End If
    If Trim(Me.text4Time.text) <> "" Then
        strsql = strsql & " and ((compact_limit_name like '一年' and datediff(day,getdate(),dateadd(year,1,(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))))) <=" & Me.text4Time.text _
                & ") or (compact_limit_name like '三年' and datediff(day,getdate(),dateadd(year,3,(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))))) <=" & Me.text4Time.text _
                & ") or (compact_limit_name like '五年' and datediff(day,getdate(),dateadd(year,5,(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))))) <=" & Me.text4Time.text _
                & ") or (compact_limit_name like '八年' and datediff(day,getdate(),dateadd(year,8,(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))))) <=" & Me.text4Time.text _
                & ") or (compact_limit_name like '十年' and datediff(day,getdate(),dateadd(year,10,(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))))) <=" & Me.text4Time.text _
                & ") or (compact_limit_name like '十五年' and datediff(day,getdate(),dateadd(year,15,(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))))) <=" & Me.text4Time.text & "))"
    End If
    If ors4Compact.State = adStateOpen Then ors4Compact.Close
    ors4Compact.CursorLocation = adUseClient
    ors4Compact.Open strsql, g_oConnection4This
    Set VSFlexGrid4Group.DataSource = ors4Compact
    Set Me.VSFlexGrid4This.DataSource = ors4Compact
        
    If VSFlexGrid4This.Rows > 1 Then
        Command4Change.Enabled = True
    Else
        Command4Change.Enabled = False
    End If
        
    Unload frmSplash
End Sub

Private Sub Form_Load()
    Me.Height = 5460
    Me.Width = 9540
    Set VSFlexGrid4Group = VSFlexGroup1.FlexGrid
    PrcessSSComboxExFormLoad Me.SSComboBoxEx4OrganName, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
    With Me.VSFlexGrid4This
        .Editable = flexEDNone
        .ColWidth(0) = .RowHeight(0)
        .AllowBigSelection = False
        .AllowSelection = False
        .ExplorerBar = flexExSort
        .ExtendLastCol = True
        .Rows = 1
        .Cols = 13
        .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) = "距合同到期天数"
        .AutoSize 1, .Cols - 1
        
    End With
    
    If VSFlexGrid4This.Rows > 1 Then
        Command4Change.Enabled = True
    Else
        Command4Change.Enabled = False
    End If
    Call cmd4query_Click
End Sub

Private Sub SSComboBoxEx4OrganName_Change()
    DisplayRelateItems Me.SSComboBoxEx4OrganName
End Sub

Private Sub SSComboBoxEx4Small_Change()
    DisplayRelateItems Me.SSComboBoxEx4Small
End Sub

Private Sub SSComboBoxEx4Small_LostFocus()
    CheckValidate Me.SSComboBoxEx4Small
End Sub

Private Sub text4Time_KeyPress(KeyAscii As Integer)
    CheckText KeyAscii, Me.text4Time.text, text4Time.SelStart
End Sub

Private Sub VSFlexGrid4This_AfterDataRefresh()
    Dim i As Long
    Dim int4Temp As Long
    With Me.VSFlexGrid4This
        .Cols = 13
        .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) = "距合同到期天数"
        .AutoSize 1, .Cols - 1
        .ColComboList(3) = g_strArray4ColComboList(C_T_WORKER_SORT)
        .ColComboList(4) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
        .ColComboList(5) = MakeComboListString4VSFlex(VSFlexGrid4This, "t_organ", "organ_name", "organ_no")
        .ColComboList(6) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(7) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(8) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(9) = g_strArray4ColComboList(C_T_ORGAN)
        
        For i = 1 To .Rows - 1
            If .TextMatrix(i, 9) = "" Then
                int4Temp = 0
            Else
                int4Temp = CLng(.TextMatrix(i, 9))
            End If
            If int4Temp < 0 Then
                .Cell(flexcpForeColor, i, 1, i, 9) = vbRed
                .Cell(flexcpFontBold, i, 1, i, 9) = True
            End If
        Next
    End With
    
    '分类汇总用
    With VSFlexGrid4Group
        .Cols = 13
        .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) = "距合同到期天数"
        .AutoSize 1, .Cols - 1
        .ColComboList(3) = g_strArray4ColComboList(C_T_WORKER_SORT)
        .ColComboList(4) = g_strArray4ColComboList(C_T_USEWORK_TYPE)
        .ColComboList(5) = MakeComboListString4VSFlex(VSFlexGrid4This, "t_organ", "organ_name", "organ_no")
        .ColComboList(6) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(7) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(8) = g_strArray4ColComboList(C_T_ORGAN)
        .ColComboList(9) = g_strArray4ColComboList(C_T_ORGAN)
        
    End With
    
    Label4Record.Caption = "合同预警(总计" & VSFlexGrid4This.Rows - 1 & "条记录)"
End Sub

Private Sub SSComboBoxEx4Large_GotFocus()
    If Trim(Me.SSComboBoxEx4OrganName.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 '" & SSComboBoxEx4OrganName.ItemData(SSComboBoxEx4OrganName.ListIndex) & "%' and organ_level=" & C_LARGE_LEVEL & HaveOrganMark
        End If
    Else
        SSComboBoxEx4Large.Clear
    End If
End Sub

Private Sub SSComboBoxEx4Small_GotFocus()
    If Trim(Me.SSComboBoxEx4OrganName.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 '" & SSComboBoxEx4OrganName.ItemData(SSComboBoxEx4OrganName.ListIndex) & "%' and organ_level=" & C_SMALL_LEVEL & HaveOrganMark
            End If
        End If
    Else
        SSComboBoxEx4Small.Clear
    End If
End Sub

Private Sub SSComboBoxEx4Company_GotFocus()
    If Trim(Me.SSComboBoxEx4OrganName.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 '" & SSComboBoxEx4OrganName.ItemData(SSComboBoxEx4OrganName.ListIndex) & "%' and organ_level=" & C_COMPANY_LEVEL & HaveOrganMark
    Else
        SSComboBoxEx4Company.Clear
    End If
End Sub