frmcadreedit.frm

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

            m_strSQL = m_strSQL & ConvertDate2Int(DTPicker4EmployedTime.Value)
        End If
        m_strSQL = m_strSQL & ",PLURALITY= '" & Text4Pluralty.text & "' where EMP_NO=" & g_array4WorkerType(1, Me.SSSpin4CadreCount.text) & " and organ_no='" & g_array4WorkerType(2, Me.SSSpin4CadreCount.text) & "'"
        
        If ExcuteSQL(m_strSQL) = 0 Then
            MsgBox "保存完毕!", vbOKOnly, "成功"
            If g_int4rowstate = 1 Then
                Unload Me
            Else
                g_array4WorkerType(2, SSSpin4CadreCount.text) = strNewOrganNo
                g_array4WorkerType(1, SSSpin4CadreCount.text) = lNewEmpNo
            End If
        End If
    End If
End Sub

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

Private Sub SSComboBoxEx4Company_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Company
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 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 SSComboBoxEx4Organ_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Organ
End Sub

Private Sub SSComboBoxEx4large_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Large
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 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 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 SSComboBoxEx4Small_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Small
End Sub

Private Sub Form_Load()
    Me.Command4Close.Enabled = False
    Me.Label4Name.ForeColor = vbBlue
    Me.Label4FactoryOrgan.ForeColor = vbBlue
    Me.Label4CadreSort.ForeColor = vbBlue
    Me.Label4AppointedTime.ForeColor = vbBlue
    
    Me.DTPicker4AppointedTime.Format = dtpCustom
    Me.DTPicker4AppointedTime.CustomFormat = "yyyy年MM月"
    Me.DTPicker4EmployedTime.Format = dtpCustom
    Me.DTPicker4EmployedTime.CustomFormat = "yyyy年MM月"
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        Me.Command4Save.Visible = False
    End If
    
    
    FillComboBox Combo4Duty, "t_duty", "Duty_no", "Duty_name"
    FillComboBox Combo4EngageSpecialty, "t_ENGAGE_SPECIALTY", "ENGAGE_SPECIALTY_NO", "ENGAGE_SPECIALTY_NAME"
    FillComboBox Combo4DutySpecialty, "t_DUTY_SPECIALTY", "DUTY_SPECIALTY_NO", "DUTY_SPECIALTY_Name"
    FillComboBox Combo4AppointedType, "T_APPOINTED_TYPE", "APPOINTED_TYPE_NO", "APPOINTED_TYPE_NAME"
    FillComboBox Combo4CadreSort, "T_CADRE_SORT", "CADRE_SORT_NO", "CADRE_SORT_NAME"
    FillComboBox Combo4WorkProperty, "T_WORK_PROPERTY", "WORK_PROPERTY_NO", "WORK_PROPERTY_NAME"
    FillComboBox Combo4DutyLevel, "T_DUTY_LEVEL", "DUTY_LEVEL_NO", "DUTY_LEVEL_NAME"
    FillComboBox Combo4OccupationSort, "T_OCCUPATION_SORT", "OCCUPATION_SORT_NO", "OCCUPATION_SORT_NAME"
    FillComboBox Combo4TechnicalDuty, "t_technical_DUTY", "technical_DUTY_NO", "technical_DUTY_Name"
    
    If g_int4statuse = 0 Then
        SSSpin4CadreCount.Visible = False
        PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
    Else
        If g_int4rowstate = 1 Then
            SSSpin4CadreCount.text = 1
            SSSpin4CadreCount.Visible = False
            DTPicker4AppointedTime.Value = Date
        Else
            SSSpin4CadreCount.Visible = True
            SSSpin4CadreCount.SpinDatatype = ssNumerics
            SSSpin4CadreCount.MaxValue = g_int4rowstate
            SSSpin4CadreCount.MinValue = 1
            SSSpin4CadreCount.Increment = 1
            SSSpin4CadreCount.text = 1
        End If
        SSSpin4CadreCount_Change
    End If
    Unload frmSplash
    Me.Command4Close.Enabled = True
End Sub

Private Sub LoadData(ByVal Cadrecount As Integer)
    Dim str4Factory As String
    m_strSQL = "select emp_no,t_cadre.organ_no as organ_no,organ_level,ENGAGE_SPECIALTY_NO,DUTY_SPECIALTY_NO,APPOINTED_TYPE_NO,DUTY_NO,CADRE_SORT_NO," _
            & "OCCUPATION_SORT_NO,WORK_PROPERTY_NO,DUTY_LEVEL_NO,TECHNICAL_DUTY_NO,STATION_NAME,TECHNICAL_SPECIALTY,APPOINTED_TIME,APPOINTER_INSTANCE,EMPLOYED_TIME,PLURALITY" _
            & " from T_CADRE,t_organ  where emp_no=" & g_array4WorkerType(1, Cadrecount) & " and t_cadre.organ_no='" & g_array4WorkerType(2, Cadrecount) & "' and t_organ.organ_no=T_CADRE.organ_no "
            
    If m_oRs4CadreEdit.State = adStateOpen Then m_oRs4CadreEdit.Close
    m_oRs4CadreEdit.CursorLocation = adUseClient
    m_oRs4CadreEdit.Open m_strSQL, g_oConnection4This
    If m_oRs4CadreEdit.EOF = False Then
        Me.Command4Close.Enabled = False
        PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_array4WorkerType(2, Cadrecount), m_oRs4CadreEdit.Fields("organ_level").Value
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where emp_no='" & g_array4WorkerType(1, Cadrecount) & "' and organ_no='" & g_array4WorkerType(2, Cadrecount) & "'"
        SSComboBoxEx4Name.ListIndex = 0
        SSComboBoxEx4Name.Enabled = False
        SSComboBoxEx4Organ.Enabled = False
        SSComboBoxEx4Company.Enabled = False
        SSComboBoxEx4Large.Enabled = False
        SSComboBoxEx4Small.Enabled = False
        Me.Command4Close.Enabled = True
        If Not IsNull(m_oRs4CadreEdit.Fields("ENGAGE_SPECIALTY_NO").Value) Then
            Combo4EngageSpecialty.ListIndex = FindIndex(m_oRs4CadreEdit.Fields("ENGAGE_SPECIALTY_NO").Value, Combo4EngageSpecialty)
        Else
            Combo4EngageSpecialty.ListIndex = -1
        End If
        If Not IsNull(m_oRs4CadreEdit.Fields("DUTY_SPECIALTY_NO").Value) Then
            Combo4DutySpecialty.ListIndex = FindIndex(m_oRs4CadreEdit.Fields("DUTY_SPECIALTY_NO").Value, Combo4DutySpecialty)
        Else
            Combo4DutySpecialty.ListIndex = -1
        End If
        If IsNull(m_oRs4CadreEdit.Fields("APPOINTED_TYPE_NO").Value) Then
            Combo4AppointedType.ListIndex = -1
        Else
            Combo4AppointedType.ListIndex = FindIndex(m_oRs4CadreEdit.Fields("APPOINTED_TYPE_NO").Value, Combo4AppointedType)
        End If
        If Not IsNull(m_oRs4CadreEdit.Fields("DUTY_NO").Value) Then
            Combo4Duty.ListIndex = FindIndex(m_oRs4CadreEdit.Fields("DUTY_NO").Value, Combo4Duty)
        Else
            Combo4Duty.ListIndex = -1
        End If
        Combo4CadreSort.ListIndex = FindIndex(m_oRs4CadreEdit("CADRE_SORT_No").Value, Me.Combo4CadreSort)
        If IsNull(m_oRs4CadreEdit.Fields("OCCUPATION_SORT_NO").Value) Then
            Combo4OccupationSort.ListIndex = -1
        Else
            Combo4OccupationSort.ListIndex = FindIndex(m_oRs4CadreEdit.Fields("OCCUPATION_SORT_NO").Value, Combo4OccupationSort)
        End If
        
        If IsNull(m_oRs4CadreEdit.Fields("WORK_PROPERTY_NO").Value) Then
            Combo4WorkProperty.ListIndex = -1
        Else
            Combo4WorkProperty.ListIndex = FindIndex(m_oRs4CadreEdit.Fields("WORK_PROPERTY_NO").Value, Combo4WorkProperty)
        End If
        If IsNull(m_oRs4CadreEdit.Fields("DUTY_LEVEL_NO").Value) Then
            Combo4DutyLevel.ListIndex = -1
        Else
            Combo4DutyLevel.ListIndex = FindIndex(m_oRs4CadreEdit.Fields("DUTY_LEVEL_NO").Value, Combo4DutyLevel)
        End If
        If IsNull(m_oRs4CadreEdit.Fields("TECHNICAL_DUTY_NO").Value) Then
            Combo4TechnicalDuty.ListIndex = -1
        Else
            Combo4TechnicalDuty.ListIndex = FindIndex(m_oRs4CadreEdit.Fields("TECHNICAL_DUTY_NO").Value, Me.Combo4TechnicalDuty)
        End If
        Text4StationName.text = CheckVariant(m_oRs4CadreEdit.Fields("STATION_NAME").Value)
        Text4TechnicalSpecialty.text = CheckVariant(m_oRs4CadreEdit.Fields("TECHNICAL_SPECIALTY").Value)
    
        DTPicker4AppointedTime.Value = ConvertInt2Date(m_oRs4CadreEdit.Fields("APPOINTED_TIME").Value)
        Text4AppointedInstance.text = CheckVariant(m_oRs4CadreEdit.Fields("APPOINTER_INSTANCE").Value)
        If IsNull(m_oRs4CadreEdit.Fields("EMPLOYED_TIME").Value) Then
            DTPicker4EmployedTime.Value = Null
        Else
            DTPicker4EmployedTime.Value = ConvertInt2Date(m_oRs4CadreEdit.Fields("EMPLOYED_TIME").Value)
        End If
        Text4Pluralty.text = CheckVariant(m_oRs4CadreEdit.Fields("PLURALITY").Value)
    End If
End Sub

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

Private Sub ClearData()
    Combo4AppointedType.ListIndex = -1
    Text4AppointedInstance.text = ""
    Combo4CadreSort.ListIndex = -1
    Combo4DutyLevel.ListIndex = -1
    Combo4OccupationSort.ListIndex = -1
    Combo4WorkProperty.ListIndex = -1
    DTPicker4EmployedTime.Value = ""
    Combo4Duty.ListIndex = -1
    Combo4DutySpecialty.ListIndex = -1
    Combo4EngageSpecialty.ListIndex = -1
    SSComboBoxEx4Name.text = ""
    Text4Pluralty.text = ""
    Text4StationName.text = ""
    Combo4TechnicalDuty.ListIndex = -1
    Text4TechnicalSpecialty.text = ""
    Me.SSComboBoxEx4Company.text = ""
    Me.SSComboBoxEx4Large.text = ""
    Me.SSComboBoxEx4Small.text = ""
End Sub

Private Sub SSComboBoxEx4Name_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Name
End Sub

Private Sub SSComboBoxEx4Name_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate 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