frmcompactedit.frm

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

    Dim strNewOrganNo As String
    If Trim(Me.SSComboBoxEx4Organ.text) = "" And Trim(Me.SSComboBoxEx4Company.text) = "" And Trim(Me.SSComboBoxEx4Large.text) = "" And Trim(Me.SSComboBoxEx4Small.text) = "" Then MsgBox "工作单位不能为空，请输入工作单位!", vbOKOnly, "警告":  Exit Sub
    If Trim(Me.SSComboBoxEx4WriteOrgan.text) = "" Then MsgBox "签订单位不能为空，请输入签订单位!", vbOKOnly, "警告":   Exit Sub

    If Trim(SSComboBoxEx4Name.text) = "" Then
         MsgBox "职工姓名不能为空！", vbOKOnly, "警告"
         Exit Sub
    End If
    If Trim(Text4CompactNo.text) = "" Then
         MsgBox "合同编号不能为空！", vbOKOnly, "警告"
         Text4CompactNo.SetFocus
         Exit Sub
    End If
    If Trim(SSComboBoxEx4TimeLimit.text) = "" Then
         MsgBox "合同期限不能为空！", vbOKOnly, "警告"
         SSComboBoxEx4TimeLimit.SetFocus
         Exit Sub
    End If
    If Me.DTPicker4SignDate.Value = "" Then
        MsgBox "签订日期不能为空，请重新输入!", vbOKOnly, "警告"
        Me.DTPicker4SignDate.SetFocus
        Exit Sub
    End If
    If Me.DTPicker4InureDate.Value = "" Then
        MsgBox "生效日期不能为空，请重新输入!", vbOKOnly, "警告"
        Me.DTPicker4InureDate.SetFocus
        Exit Sub
    End If
    Me.SSComboBoxEx4Name.CheckList = True
    Me.SSComboBoxEx4Company.CheckList = True
    Me.SSComboBoxEx4Large.CheckList = True
    Me.SSComboBoxEx4Small.CheckList = True
    Me.SSComboBoxEx4Organ.CheckList = True
    Me.SSComboBoxEx4TimeLimit.CheckList = True
    Me.SSComboBoxEx4WriteOrgan.CheckList = True
    strNewOrganNo = HaveOrganNo(Me.SSComboBoxEx4Small, Me.SSComboBoxEx4Large, Me.SSComboBoxEx4Company, Me.SSComboBoxEx4Organ)
    If g_int4statuse = 0 Then
        m_strSQL = "insert into t_compact(COMPACT_NO,WORK_STATION,SIGN_EMP,COMPACT_UNDERWRITE_ORGAN,COMPACT_LIMIT_NO,COMPACT_NAME,COMPACT_DATE,COMPACT_VALIDATE_DATE,SIGN_MARK,COMPACT_CODE,COMPACT_NOTE) values( " _
            & GetMaxNo("t_compact", "compact_no") & ",'" & Me.SSComboBoxEx4WriteOrgan.ItemData(Me.SSComboBoxEx4WriteOrgan.ListIndex) & "'," _
            & "'" & Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) & "','" & strNewOrganNo & "'," & Me.SSComboBoxEx4TimeLimit.ItemData(Me.SSComboBoxEx4TimeLimit.ListIndex) & "," _
            & CSQL(Me.Text4CompactName.text) & ","
        If Not IsNull(Me.DTPicker4SignDate.Value) Then
            m_strSQL = m_strSQL & ConvertDate2Int(Me.DTPicker4SignDate.Value) & ","
        Else
            m_strSQL = m_strSQL & "null,"
        End If
        If Not IsNull(Me.DTPicker4InureDate.Value) Then
            m_strSQL = m_strSQL & ConvertDate2Int(Me.DTPicker4InureDate.Value) & ","
        Else
            m_strSQL = m_strSQL & "null,"
        End If
        If Me.Check4WhetherSign.Value = vbUnchecked Then
            m_strSQL = m_strSQL & "'0',"
        Else
            m_strSQL = m_strSQL & "'1',"
        End If
        m_strSQL = m_strSQL & CSQL(Me.Text4CompactNo.text) & "," & CSQL(Me.Text4Remark.text) & ")"
        If ExcuteSQL(m_strSQL) = 0 Then
            MsgBox "保存完毕!", vbOKOnly, "成功"
            ClearText
        End If
    Else
        m_strSQL = "update t_compact set "
        If Trim(Me.SSComboBoxEx4TimeLimit.text) <> "" Then
            m_strSQL = m_strSQL & "compact_limit_no='" & Me.SSComboBoxEx4TimeLimit.ItemData(Me.SSComboBoxEx4TimeLimit.ListIndex) & "',"
        Else
            m_strSQL = m_strSQL & "compact_limit_no=null,"
        End If
        m_strSQL = m_strSQL & "compact_name='" & Me.Text4CompactName.text & "',"
        If Not IsNull(Me.DTPicker4SignDate.Value) Then
            m_strSQL = m_strSQL & "compact_date=" & ConvertDate2Int(Me.DTPicker4SignDate.Value) & ","
        Else
            m_strSQL = m_strSQL & "compact_date=null,"
        End If
        If Not IsNull(Me.DTPicker4InureDate.Value) Then
            m_strSQL = m_strSQL & "compact_validate_date=" & ConvertDate2Int(Me.DTPicker4InureDate.Value) & ","
        Else
            m_strSQL = m_strSQL & "compact_validate_date=null,"
        End If
        m_strSQL = m_strSQL & "sign_mark=" & Me.Check4WhetherSign.Value & ","
        m_strSQL = m_strSQL & "compact_code=" & CSQL(Me.Text4CompactNo.text) & ",compact_note=" & CSQL(Me.Text4Remark.text)
        m_strSQL = m_strSQL & " where compact_no =" & g_array4WorkerType(1, Me.SSSpin4Compact.text) & " and work_station = '" & g_array4WorkerType(2, Me.SSSpin4Compact.text) & "'"
        If ExcuteSQL(m_strSQL) = 0 Then
            MsgBox "保存完毕!", vbOKOnly, "成功"
            If g_int4rowstate = 1 Then
                Unload Me
            Else
                g_array4WorkerType(2, Me.SSSpin4Compact.text) = strNewOrganNo
            End If
        End If
    End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        SendKeys "{Tab}"
    End If
End Sub

Private Sub Form_Load()
    Me.Command4Close.Enabled = False
    Label4CompactNo.ForeColor = g_ForeColor4NotNullFields
    Label4ValidateTime.ForeColor = g_ForeColor4NotNullFields
    Label4SignUnit.ForeColor = g_ForeColor4NotNullFields
    Label4TimeLimit.ForeColor = g_ForeColor4NotNullFields
    Label4SignTime.ForeColor = g_ForeColor4NotNullFields
    Label4SignName.ForeColor = g_ForeColor4NotNullFields
    Me.Label4WorkUnit.ForeColor = g_ForeColor4NotNullFields
        
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        Me.Command4Save.Visible = False
    End If
    FillComboBox Me.SSComboBoxEx4TimeLimit, "t_COMPACT_LIMIT", "COMPACT_LIMIT_NO", "COMPACT_LIMIT_NAME"
    Me.DTPicker4InureDate.CheckBox = True
    Me.DTPicker4SignDate.CheckBox = True
    Me.DTPicker4InureDate.Value = ""
    Me.DTPicker4SignDate.Value = ""
    
    If g_int4statuse = 0 Then
        SSSpin4Compact.Visible = False
        If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
            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 '" & g_str4LoginUnit & "'" & HaveOrganMark
            SSComboBoxEx4WriteOrgan.ListIndex = 0
            Me.SSComboBoxEx4WriteOrgan.Enabled = False
        End If
        PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
    Else
        If g_int4rowstate = 1 Then
            Me.SSSpin4Compact.text = 1
            SSSpin4Compact.Visible = False
        Else
            SSSpin4Compact.Visible = True
            SSSpin4Compact.SpinDatatype = ssNumerics
            SSSpin4Compact.MaxValue = g_int4rowstate
            SSSpin4Compact.MinValue = 1
            SSSpin4Compact.Increment = 1
            SSSpin4Compact.text = 1
        End If
        ssspin4compact_Change
    End If
    Unload frmSplash
    Me.Command4Close.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Unload Me
End Sub

Private Sub SSComboBoxEx4Company_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    SSComboBoxEx4Organ.CheckList = True
    FillComboBox SSComboBoxEx4Company, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "' and organ_level=2 " & HaveOrganMark
End Sub

Private Sub SSComboBoxEx4large_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Large
End Sub

Private Sub SSComboBoxEx4Large_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If Trim(Me.SSComboBoxEx4Company.text) <> "" Then
        SSComboBoxEx4Company.CheckList = True
        FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "' and organ_level=1 " & HaveOrganMark
    Else
        SSComboBoxEx4Organ.CheckList = True
        FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "' and organ_level=1 " & HaveOrganMark
    End If
End Sub

Private Sub SSComboBoxEx4large_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate SSComboBoxEx4Large
    Me.SSComboBoxEx4Small.text = ""
    Me.SSComboBoxEx4Name.text = ""
End Sub

Private Sub SSComboBoxEx4Name_Change()
    DisplayRelateItems Me.SSComboBoxEx4Name
End Sub

Private Sub SSComboBoxEx4Name_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If Trim(Me.SSComboBoxEx4Small.text) <> "" Then
        SSComboBoxEx4Small.CheckList = True
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , "   where worker_sort_no=0 and organ_no like '" & Me.SSComboBoxEx4Small.ItemData(Me.SSComboBoxEx4Small.ListIndex) & "'" & HaveEmpMark & " and emp_no not in( select t_emp_basic.emp_no from t_cadre,t_emp_basic where t_cadre.organ_no=t_emp_basic.organ_no and t_emp_basic.emp_no=t_cadre.emp_no and t_emp_basic.organ_no='" & Me.SSComboBoxEx4Small.ItemData(Me.SSComboBoxEx4Small.ListIndex) & "')"
    ElseIf Trim(Me.SSComboBoxEx4Large.text) <> "" Then
        SSComboBoxEx4Large.CheckList = True
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where worker_sort_no=0 and organ_no like '" & Me.SSComboBoxEx4Large.ItemData(Me.SSComboBoxEx4Large.ListIndex) & "' " & HaveEmpMark & "and emp_no not in( select t_emp_basic.emp_no from t_cadre,t_emp_basic where t_cadre.organ_no=t_emp_basic.organ_no and t_emp_basic.emp_no=t_cadre.emp_no and t_emp_basic.organ_no='" & Me.SSComboBoxEx4Large.ItemData(Me.SSComboBoxEx4Large.ListIndex) & "')"
    ElseIf Trim(Me.SSComboBoxEx4Company.text) <> "" Then
        SSComboBoxEx4Company.CheckList = True
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where worker_sort_no=0 and organ_no like '" & Me.SSComboBoxEx4Company.ItemData(Me.SSComboBoxEx4Company.ListIndex) & "' " & HaveEmpMark & " and emp_no not in( select t_emp_basic.emp_no from t_cadre,t_emp_basic where t_cadre.organ_no=t_emp_basic.organ_no and t_emp_basic.emp_no=t_cadre.emp_no and t_emp_basic.organ_no='" & Me.SSComboBoxEx4Company.ItemData(Me.SSComboBoxEx4Company.ListIndex) & "')"
    ElseIf Trim(Me.SSComboBoxEx4Organ.text) <> "" Then
        SSComboBoxEx4Organ.CheckList = True
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where worker_sort_no=0 and organ_no like '" & Me.SSComboBoxEx4Organ.ItemData(Me.SSComboBoxEx4Organ.ListIndex) & "' " & HaveEmpMark & " and emp_no not in( select t_emp_basic.emp_no from t_cadre,t_emp_basic where t_cadre.organ_no=t_emp_basic.organ_no and t_emp_basic.emp_no=t_cadre.emp_no and t_emp_basic.organ_no='" & Me.SSComboBoxEx4Organ.ItemData(Me.SSComboBoxEx4Organ.ListIndex) & "')"
    Else
        Me.SSComboBoxEx4Name.Clear
    End If
End Sub

Private Sub SSComboBoxEx4Name_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate Me.SSComboBoxEx4Name
End Sub

Private Sub SSComboBoxEx4Organ_Change()
    DisplayRelateItems Me.SSComboBoxEx4Organ
End Sub

Private Sub SSComboBoxEx4Company_Change()
    DisplayRelateItems Me.SSComboBoxEx4Company
End Sub

Private Sub SSComboBoxEx4Small_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Small
End Sub

Private Sub SSComboBoxEx4Small_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If Trim(Me.SSComboBoxEx4Company.text) <> "" Then
        If Trim(SSComboBoxEx4Large.text) <> "" Then
            SSComboBoxEx4Large.CheckList = True
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=15 and   left(ORGAN_NO,12) like '" & SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        Else
            SSComboBoxEx4Company.CheckList = True
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        End If
    Else
        If Trim(SSComboBoxEx4Large.text) <> "" Then
            SSComboBoxEx4Large.CheckList = True
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        Else
            SSComboBoxEx4Organ.CheckList = True
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        End If
    End If
End Sub

Private Sub SSComboBoxEx4Small_LostFocus()
    CheckValidate Me.SSComboBoxEx4Small
    Me.SSComboBoxEx4Name.text = ""
End Sub

Private Sub SSComboBoxEx4TimeLimit_Change()
    DisplayRelateItems Me.SSComboBoxEx4TimeLimit
End Sub

Private Sub SSComboBoxEx4TimeLimit_LostFocus()
    CheckValidate Me.SSComboBoxEx4TimeLimit
End Sub

Private Sub ssspin4compact_Change()
    MousePointer = 11
    Me.SSSpin4Compact.EnableContextMenu = False
    LoadData (SSSpin4Compact.text)
    Me.SSSpin4Compact.EnableContextMenu = True
    MousePointer = 1
End Sub

Private Sub ClearText()
   SSComboBoxEx4Name.text = ""
   SSComboBoxEx4TimeLimit.ListIndex = 7
   DTPicker4SignDate.Value = ""
   DTPicker4InureDate.Value = ""
   Text4CompactName.text = ""
   Text4CompactNo.text = ""
   Text4Remark.text = ""
   Me.Check4WhetherSign.Value = vbUnchecked
End Sub

Private Sub LoadData(ByVal int4sspin As Long)
    m_strSQL = "select organ_level, COMPACT_NO,emp_no,compact_underwrite_organ,work_station,t_compact.COMPACT_LIMIT_NO,COMPACT_NAME,COMPACT_DATE,COMPACT_VALIDATE_DATE,SIGN_MARK,COMPACT_NOTE,COMPACT_CODE" _
              & " from T_EMP_BASIC,t_organ,T_COMPACT,T_COMPACT_LIMIT" _
              & " where t_compact.WORK_STATION=t_organ.organ_no " _
              & " and T_COMPACT.COMPACT_UNDERWRITE_ORGAN=T_EMP_BASIC.ORGAN_NO" _
              & " AND T_COMPACT.SIGN_EMP=T_EMP_BASIC.EMP_NO " & HaveOrganMark & HaveEmpMark _
              & " and t_compact.compact_no like '" & g_array4WorkerType(1, int4sspin) & "' " _
              & " and t_compact.COMPACT_UNDERWRITE_ORGAN like '" & g_array4WorkerType(2, int4sspin) & "'"
    If m_oRs4CompactDetail.State = adStateOpen Then m_oRs4CompactDetail.Close
    m_oRs4CompactDetail.CursorLocation = adUseClient
    m_oRs4CompactDetail.Open m_strSQL, g_oConnection4This
    If m_oRs4CompactDetail.EOF = False Then
        Me.Command4Close.Enabled = False
        PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_array4WorkerType(2, int4sspin), m_oRs4CompactDetail.Fields("organ_level").Value
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where emp_no='" & m_oRs4CompactDetail.Fields("emp_no").Value & "' and organ_no='" & g_array4WorkerType(2, int4sspin) & "'"
        SSComboBoxEx4Name.ListIndex = 0
        SSComboBoxEx4Name.Enabled = False
        FillComboBox SSComboBoxEx4WriteOrgan, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & left(m_oRs4CompactDetail.Fields("work_station").Value, C_FACTORY_LENGTH) & "'" & HaveOrganMark
        SSComboBoxEx4WriteOrgan.ListIndex = 0
        SSComboBoxEx4WriteOrgan.Enabled = False
        SSComboBoxEx4Organ.Enabled = False
        SSComboBoxEx4Company.Enabled = False
        SSComboBoxEx4Large.Enabled = False
        SSComboBoxEx4Small.Enabled = False
        Me.Command4Close.Enabled = True
        
        If IsNull(m_oRs4CompactDetail.Fields("compact_name").Value) Then
            Me.Text4CompactName.text = ""
        Else
            Me.Text4CompactName.text = CheckVariant(m_oRs4CompactDetail.Fields("compact_name").Value)
        End If
        
        If m_oRs4CompactDetail.Fields("sign_mark").Value = 1 Then
            Me.Check4WhetherSign.Value = vbChecked
        Else
            Me.Check4WhetherSign.Value = vbUnchecked
        End If
        
        If IsNull(m_oRs4CompactDetail.Fields("compact_validate_date").Value) Then
            Me.DTPicker4InureDate.Value = ""
        Else
            Me.DTPicker4InureDate.Value = ConvertInt2Date(m_oRs4CompactDetail.Fields("compact_validate_date").Value)
        End If
        
        If IsNull(m_oRs4CompactDetail.Fields("compact_date").Value) Then
            Me.DTPicker4SignDate.Value = ""
        Else
            Me.DTPicker4SignDate.Value = ConvertInt2Date(m_oRs4CompactDetail.Fields("compact_date").Value)
        End If
        
        Me.SSComboBoxEx4TimeLimit.ListIndex = FindIndex(m_oRs4CompactDetail.Fields("compact_limit_no").Value, SSComboBoxEx4TimeLimit)
        Me.Text4CompactNo.text = CheckVariant(m_oRs4CompactDetail.Fields("compact_code").Value)
        Me.Text4Remark.text = CheckVariant(m_oRs4CompactDetail.Fields("compact_note").Value)
    End If
End Sub

Private Sub SSComboBoxEx4Company_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate Me.SSComboBoxEx4Company
    Me.SSComboBoxEx4Large.text = ""
    Me.SSComboBoxEx4Small.text = ""
    Me.SSComboBoxEx4Name.text = ""
End Sub

Private Sub SSComboBoxEx4Organ_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate SSComboBoxEx4Organ
    Me.SSComboBoxEx4Large.text = ""
    Me.SSComboBoxEx4Company.text = ""
    Me.SSComboBoxEx4Small.text = ""
    Me.SSComboBoxEx4Name.text = ""
End Sub

Private Sub SSComboBoxEx4WriteOrgan_Change()
    DisplayRelateItems Me.SSComboBoxEx4WriteOrgan
End Sub