frmworkersortedit.frm

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

    End If
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=1 and organ_no like '" & Me.SSComboBoxEx4Small.ItemData(Me.SSComboBoxEx4Small.ListIndex) & "'" & HaveEmpMark & " and emp_no not in( select t_emp_basic.emp_no from t_worker_sort_message,t_emp_basic where t_worker_sort_message.organ_no=t_emp_basic.organ_no and t_emp_basic.emp_no=t_worker_sort_message.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=1 and organ_no like '" & Me.SSComboBoxEx4Large.ItemData(Me.SSComboBoxEx4Large.ListIndex) & "' " & HaveEmpMark & "and emp_no not in( select t_emp_basic.emp_no from t_worker_sort_message,t_emp_basic where t_worker_sort_message.organ_no=t_emp_basic.organ_no and t_emp_basic.emp_no=t_worker_sort_message.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=1 and organ_no like '" & Me.SSComboBoxEx4Company.ItemData(Me.SSComboBoxEx4Company.ListIndex) & "' " & HaveEmpMark & "and emp_no not in( select t_emp_basic.emp_no from t_worker_sort_message,t_emp_basic where t_worker_sort_message.organ_no=t_emp_basic.organ_no and t_emp_basic.emp_no=t_worker_sort_message.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=1 and organ_no like '" & Me.SSComboBoxEx4Organ.ItemData(Me.SSComboBoxEx4Organ.ListIndex) & "' " & HaveEmpMark & "and emp_no not in( select t_emp_basic.emp_no from t_worker_sort_message,t_emp_basic where t_worker_sort_message.organ_no=t_emp_basic.organ_no and t_emp_basic.emp_no=t_worker_sort_message.emp_no and t_emp_basic.organ_no='" & Me.SSComboBoxEx4Organ.ItemData(Me.SSComboBoxEx4Organ.ListIndex) & "')"
    Else
        Me.SSComboBoxEx4Name.Clear
    End If
End Sub

Private Sub SSComboBoxEx4Organ_Change()
DisplayRelateItems Me.SSComboBoxEx4Organ
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 Command4Close_Click()
    Unload Me
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
    Label4EmpName.ForeColor = g_ForeColor4NotNullFields
    Label4Organ.ForeColor = g_ForeColor4NotNullFields
    Label4WorkTime.ForeColor = g_ForeColor4NotNullFields
    Me.DTPicker4WorkTime.CheckBox = True
    Me.DTPicker4WorkTime.Value = ""
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        Me.Command4Save.Visible = False
    End If
    With SSComboBoxEx4Employ
        .AddItem " "
        .ItemData(0) = 0
        .AddItem "是"
        .ItemData(1) = 1
        .AddItem "否"
        .ItemData(2) = 2
    End With
    With Me.SSComboBoxEx4WorkSortProperty
        .AddItem "非技术"
        .ItemData(0) = 0
        .AddItem "技术"
        .ItemData(1) = 1
        .AddItem " "
        .ItemData(2) = 2
        .ListIndex = 2
    End With
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        Me.Command4Save.Visible = False
    End If
    FillComboBox SSComboBoxEx4workertype, "t_worker_type", "worker_type_no", "worker_type_name"
    FillComboBox Me.SSComboBoxEx4TechnicalGrade, "t_technical_grade", "technical_grade_no", "technical_grade_name"
    If g_int4statuse = 0 Then
        SSSpin4WorkerCount.Visible = False
        PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
    Else
        If g_int4rowstate = 1 Then
            SSSpin4WorkerCount.text = 1
            SSSpin4WorkerCount.Visible = False
        Else
            SSSpin4WorkerCount.Visible = True
            SSSpin4WorkerCount.SpinDatatype = ssNumerics
            SSSpin4WorkerCount.MaxValue = g_int4rowstate
            
            SSSpin4WorkerCount.MinValue = 1
            SSSpin4WorkerCount.Increment = 1
            SSSpin4WorkerCount.text = 1
        End If
        ssspin4workercount_Change
    End If
    Me.Command4Close.Enabled = True
End Sub

Private Sub SSComboBoxEx4Small_LostFocus()
    CheckValidate Me.SSComboBoxEx4Small
    Me.SSComboBoxEx4Name.text = ""
End Sub
Private Sub SSComboBoxEx4Small_Change()
DisplayRelateItems Me.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 SSComboBoxEx4technicalGrade_Change()
DisplayRelateItems SSComboBoxEx4TechnicalGrade
End Sub

Private Sub SSComboBoxEx4TechnicalGrade_GotFocus()
    CheckValidate Me.SSComboBoxEx4TechnicalGrade
    Me.SSComboBoxEx4TechnicalGrade.CheckList = True
End Sub

Private Sub SSComboBoxEx4technicalGrade_LostFocus()
    CheckValidate Me.SSComboBoxEx4TechnicalGrade
    Me.SSComboBoxEx4TechnicalGrade.CheckList = True
End Sub

Private Sub SSComboBoxEx4workertype_Change()
DisplayRelateItems Me.SSComboBoxEx4workertype
End Sub

Private Sub SSComboBoxEx4workertype_GotFocus()
    CheckValidate Me.SSComboBoxEx4workertype
    Me.SSComboBoxEx4workertype.CheckList = True
End Sub

Private Sub SSComboBoxEx4workertype_LostFocus()
    CheckValidate Me.SSComboBoxEx4workertype
    Me.SSComboBoxEx4workertype.CheckList = True
End Sub

Private Sub SSSpin4WorkerCount_LostFocus()
    CheckValidate Me.SSComboBoxEx4workertype
End Sub

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

Private Sub SSSpin4WorkerCount_GotFocus()
    CheckValidate Me.SSComboBoxEx4workertype
End Sub

Private Sub ClearText()
    Me.Text4CertificateCode.text = " "
    Me.SSComboBoxEx4Name.text = " "
    SSComboBoxEx4Company.text = " "
    SSComboBoxEx4Large.text = " "
    SSComboBoxEx4Small.text = " "
    Me.SSComboBoxEx4Employ.text = " "
    Me.SSComboBoxEx4TechnicalGrade.text = " "
    Me.SSComboBoxEx4WorkSortProperty.text = " "
    Me.SSComboBoxEx4workertype.text = " "
    Me.DTPicker4WorkTime.Value = ""
End Sub

Private Sub LoadData(ByVal int4sspin As Long)
    m_strSQL = "select EMP_NO,t_worker_sort_message.ORGAN_NO,WORKER_TYPE_NO,TECHNICAL_GRADE_NO,WORK_SORT_PROPERTY,WORK_TIME,CERTIFICATE_CODE,EMPLOY,organ_level from t_worker_sort_message,t_organ where t_organ.organ_no=t_worker_sort_message.organ_no and " _
            & "t_worker_sort_message.organ_no like '" & g_array4WorkerType(2, int4sspin) & "' and t_worker_sort_message.emp_no like '" & g_array4WorkerType(1, int4sspin) & "'"
    If m_oRs4WorkerSortEdit.State = adStateOpen Then m_oRs4WorkerSortEdit.Close
    m_oRs4WorkerSortEdit.CursorLocation = adUseClient
    m_oRs4WorkerSortEdit.Open m_strSQL, g_oConnection4This
    If m_oRs4WorkerSortEdit.EOF = False Then
        Me.Command4Close.Enabled = False
        PrcessSSComboxExFormLoad Me.SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_array4WorkerType(2, int4sspin), m_oRs4WorkerSortEdit.Fields("organ_level").Value
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where emp_no='" & g_array4WorkerType(1, int4sspin) & "' and organ_no='" & g_array4WorkerType(2, int4sspin) & "'"
        SSComboBoxEx4Name.ListIndex = 0
        SSComboBoxEx4Name.Enabled = False
        SSComboBoxEx4Organ.Enabled = False
        SSComboBoxEx4Company.Enabled = False
        SSComboBoxEx4Large.Enabled = False
        SSComboBoxEx4Small.Enabled = False
        Me.Command4Close.Enabled = True
        If IsNull(m_oRs4WorkerSortEdit.Fields("work_sort_property").Value) Then
             Me.SSComboBoxEx4WorkSortProperty.ListIndex = 2
        Else
             Me.SSComboBoxEx4WorkSortProperty.ListIndex = m_oRs4WorkerSortEdit.Fields("work_sort_property").Value
        End If
        If IsNull(m_oRs4WorkerSortEdit.Fields("employ").Value) Then
             Me.SSComboBoxEx4Employ.ListIndex = 0
        Else
             Me.SSComboBoxEx4Employ.ListIndex = m_oRs4WorkerSortEdit.Fields("employ").Value
        End If
        If IsNull(m_oRs4WorkerSortEdit.Fields("technical_grade_no").Value) Then
             Me.SSComboBoxEx4TechnicalGrade.ListIndex = -1
        Else
             Me.SSComboBoxEx4TechnicalGrade.ListIndex = m_oRs4WorkerSortEdit.Fields("technical_grade_no").Value
        End If
        If IsNull(m_oRs4WorkerSortEdit.Fields("worker_type_no").Value) Then
             Me.SSComboBoxEx4workertype.ListIndex = -1
        Else
             Me.SSComboBoxEx4workertype.ListIndex = m_oRs4WorkerSortEdit.Fields("worker_type_no").Value
        End If
        If Not IsNull(m_oRs4WorkerSortEdit.Fields("work_time").Value) Then
            Me.DTPicker4WorkTime.Value = ConvertInt2Date(m_oRs4WorkerSortEdit.Fields("work_time").Value)
        Else
            Me.DTPicker4WorkTime.Value = Null
        End If
        If IsNull(m_oRs4WorkerSortEdit.Fields("certificate_code").Value) Then
             Me.Text4CertificateCode.text = ""
        Else
             Me.Text4CertificateCode.text = CheckVariant(m_oRs4WorkerSortEdit.Fields("certificate_code").Value)
        End If
    End If
End Sub