frmoeworkvita.frm

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

    
    If Trim(Me.SSComboBoxEx4Name.text) = "" Then
        MsgBox "必须选择一个人员", vbOKOnly, "提示"
        Exit Sub
    End If
    
    If Trim(Me.SSComboBoxEx4ImportOrgan.text) = "" Then
        MsgBox "必须选择一个以前的工作单位", vbOKOnly, "提示"
        Exit Sub
    End If
    
    If IsNull(Me.DTPicker4Start.Value) Then
        MsgBox "必须选择一个起始时间", vbOKOnly, "提示"
        Exit Sub
    End If
    strNewOrgan = HaveOrganNo(Me.SSComboBoxEx4Small, Me.SSComboBoxEx4Large, Me.SSComboBoxEx4Company, Me.SSComboBoxEx4Organ)
    If g_int4statuse = 0 Then
        m_strSQL = "insert into T_WORK_VITA(EMP_NO,organ_no,START_TIME,TECHNICAL_NAME_LEVEL_NO,DUTY_LEVEL_NO,WORKER_TYPE_NO,WORK_STATION,PLURALISM_MARK,TECHNICAL_NAME,DUTY_NAME,FILE_CODE,WORK_VITA_NO) values(" _
                & Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) & ",'" & strNewOrgan & "'," _
                & ConvertDate2Int(Me.DTPicker4Start.Value) & ","
        If Trim(SSComboBoxEx4NameLevel.text) <> "" Then
            m_strSQL = m_strSQL & SSComboBoxEx4NameLevel.ItemData(SSComboBoxEx4NameLevel.ListIndex) & ","
        Else
            m_strSQL = m_strSQL & "null,"
        End If
        If Trim(SSComboBoxEx4DutyLevel.text) <> "" Then
            m_strSQL = m_strSQL & SSComboBoxEx4DutyLevel.ItemData(SSComboBoxEx4DutyLevel.ListIndex) & ","
        Else
            m_strSQL = m_strSQL & "null,"
        End If
        If Trim(SSComboBoxEx4Type.text) <> "" Then
            m_strSQL = m_strSQL & SSComboBoxEx4Type.ItemData(SSComboBoxEx4Type.ListIndex) & ","
        Else
            m_strSQL = m_strSQL & "null,"
        End If
        m_strSQL = m_strSQL & "'" & SSComboBoxEx4ImportOrgan.text & "'," & Me.Check4Mark.Value & ",'" & Text4Name.text & "','" & Text4DutyName.text & "','" & Text4Code.text & "'," & GetMaxNo("T_WORK_VITA", "WORK_VITA_NO") & ")"
    Else
        m_strSQL = "update T_WORK_VITA set START_TIME=" & ConvertDate2Int(Me.DTPicker4Start.Value) & ",TECHNICAL_NAME_LEVEL_NO="
        If Trim(SSComboBoxEx4NameLevel.text) <> "" Then
            m_strSQL = m_strSQL & SSComboBoxEx4NameLevel.ItemData(SSComboBoxEx4NameLevel.ListIndex) & ","
        Else
            m_strSQL = m_strSQL & "null,"
        End If
        m_strSQL = m_strSQL & "DUTY_LEVEL_NO="
        If Trim(SSComboBoxEx4DutyLevel.text) <> "" Then
            m_strSQL = m_strSQL & SSComboBoxEx4DutyLevel.ItemData(SSComboBoxEx4DutyLevel.ListIndex) & ","
        Else
            m_strSQL = m_strSQL & "null,"
        End If
        m_strSQL = m_strSQL & "WORKER_TYPE_NO="
        If Trim(SSComboBoxEx4Type.text) <> "" Then
            m_strSQL = m_strSQL & SSComboBoxEx4Type.ItemData(SSComboBoxEx4Type.ListIndex) & ","
        Else
            m_strSQL = m_strSQL & "null,"
        End If
        m_strSQL = m_strSQL & "WORK_STATION='" & SSComboBoxEx4ImportOrgan.text & "',PLURALISM_MARK=" & Me.Check4Mark.Value & ",TECHNICAL_NAME='" & Text4Name.text & "',DUTY_NAME='" & Text4DutyName.text & "',FILE_CODE='" & Text4Code.text & "'" _
                & ",organ_no='" & strNewOrgan & "',emp_no=" & Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) & " where WORK_VITA_NO=" & g_array4WorkerType(2, SSSpin4CadreCount.text) & " and organ_no='" & g_array4WorkerType(1, SSSpin4CadreCount.text) & "'"
    End If
    If ExcuteSQL(m_strSQL) = 0 Then
        MsgBox "保存完毕!", vbOKOnly, "成功"
        If g_int4statuse = 0 Then
            ClearText
        Else
            If g_int4rowstate = 1 Then
                Unload Me
            Else
                g_array4WorkerType(1, SSSpin4CadreCount.text) = strNewOrgan
            End If
        End If
    End If
End Sub

Private Sub ClearText()
    Me.Command4Close.Enabled = False
    SSComboBoxEx4Company.text = ""
    SSComboBoxEx4Large.text = ""
    SSComboBoxEx4Small.text = ""
    SSComboBoxEx4Name.text = ""
    Me.SSComboBoxEx4Type.text = ""
    Me.SSComboBoxEx4NameLevel.text = ""
    Me.SSComboBoxEx4DutyLevel.text = ""
    Me.SSComboBoxEx4ImportOrgan.text = ""
    Me.Text4Name.text = ""
    Me.Text4Code.text = ""
    Me.Text4DutyName.text = ""
    Check4Mark = Unchecked
    Me.Command4Close.Enabled = True
End Sub

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

Private Sub Form_Load()
    Me.Height = 3885
    Me.Width = 6360
    Me.Command4Close.Enabled = False
    Me.Label4Unit.ForeColor = g_ForeColor4NotNullFields
    Me.Label4EmpName.ForeColor = g_ForeColor4NotNullFields
    Me.Label4OldUnit.ForeColor = g_ForeColor4NotNullFields
    Me.Labe4StartTime.ForeColor = g_ForeColor4NotNullFields
    Me.DTPicker4Start.CheckBox = True
    Me.DTPicker4Start.Value = ""
    
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        Me.Command4Save.Visible = False
    End If
    
    FillComboBox Me.SSComboBoxEx4NameLevel, "t_TECHNICAL_NAME_LEVEL", "TECHNICAL_NAME_LEVEL_NO", "TECHNICAL_NAME_LEVEL_Name"
    FillComboBox Me.SSComboBoxEx4DutyLevel, "t_duty_level", "duty_level_no", "duty_level_name"
    FillComboBox Me.SSComboBoxEx4Type, "t_WORKER_TYPE", "WORKER_TYPE_NO", "WORKER_TYPE_Name"
    FillComboBox SSComboBoxEx4ImportOrgan, "t_organ", "organ_no", "organ_name", , "where " & HaveOrganMark
    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
        Else
            SSSpin4CadreCount.Visible = True
            SSSpin4CadreCount.SpinDatatype = ssNumerics
            SSSpin4CadreCount.MaxValue = g_int4rowstate
            SSSpin4CadreCount.MinValue = 1
            SSSpin4CadreCount.Increment = 1
            SSSpin4CadreCount.text = 1
        End If
        Me.Command4Close.Enabled = True
        SSSpin4CadreCount_Change
        Me.Command4Close.Enabled = False
    End If
    Unload frmSplash
    Me.Command4Close.Enabled = True
End Sub

Private Sub LoadData()
    Dim str4FactoryOrgan As String
    m_strSQL = "select START_TIME,organ_level,emp_no,T_WORK_VITA.organ_no as organ_no ,TECHNICAL_NAME_LEVEL_NO,DUTY_LEVEL_NO,WORKER_TYPE_NO,WORK_STATION, " _
        & " PLURALISM_MARK ,TECHNICAL_NAME,DUTY_NAME,FILE_CODE from T_WORK_VITA ,t_organ where T_WORK_VITA.organ_no=t_organ.organ_no and  T_WORK_VITA.organ_no= '" & g_array4WorkerType(1, SSSpin4CadreCount.text) & "' and work_vita_no=" & g_array4WorkerType(2, SSSpin4CadreCount.text)
    If m_oRs4This.State = adStateOpen Then m_oRs4This.Close
    m_oRs4This.CursorLocation = adUseClient
    m_oRs4This.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
    If m_oRs4This.EOF = False Then
        Me.Command4Close.Enabled = False
        PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_array4WorkerType(1, Me.SSSpin4CadreCount.text), m_oRs4This.Fields("organ_level").Value
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where emp_no='" & m_oRs4This.Fields("emp_No").Value & "' and organ_no='" & g_array4WorkerType(1, Me.SSSpin4CadreCount.text) & "'"
        SSComboBoxEx4Name.ListIndex = 0
        SSComboBoxEx4Name.Enabled = False
        SSComboBoxEx4Organ.Enabled = False
        SSComboBoxEx4Company.Enabled = False
        SSComboBoxEx4Large.Enabled = False
        SSComboBoxEx4Small.Enabled = False
        
        If Not IsNull(m_oRs4This.Fields("TECHNICAL_NAME_LEVEL_NO").Value) Then
            SSComboBoxEx4NameLevel.ListIndex = FindIndex(m_oRs4This.Fields("TECHNICAL_NAME_LEVEL_NO").Value, SSComboBoxEx4NameLevel)
        Else
            SSComboBoxEx4NameLevel.text = ""
        End If
        If Not IsNull(m_oRs4This.Fields("DUTY_LEVEL_NO").Value) Then
            SSComboBoxEx4DutyLevel.ListIndex = FindIndex(m_oRs4This.Fields("DUTY_LEVEL_NO").Value, SSComboBoxEx4DutyLevel)
        Else
            SSComboBoxEx4DutyLevel.text = ""
        End If
        If Not IsNull(m_oRs4This.Fields("WORKER_TYPE_NO").Value) Then
            SSComboBoxEx4Type.ListIndex = FindIndex(m_oRs4This.Fields("WORKER_TYPE_NO").Value, SSComboBoxEx4Type)
        Else
            SSComboBoxEx4Type.text = ""
        End If
        SSComboBoxEx4ImportOrgan.text = CheckVariant(m_oRs4This.Fields("WORK_STATION").Value)
        If CheckVariant(m_oRs4This.Fields("PLURALISM_MARK").Value) <> "" Then
            Me.Check4Mark.Value = m_oRs4This.Fields("PLURALISM_MARK").Value
        End If
        Text4Name.text = CheckVariant(m_oRs4This.Fields("TECHNICAL_NAME").Value)
        Text4DutyName.text = CheckVariant(m_oRs4This.Fields("DUTY_NAME").Value)
        Me.DTPicker4Start.Value = ConvertInt2Date(m_oRs4This.Fields("START_TIME").Value)
    End If
    Me.Command4Close.Enabled = True
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_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    FillComboBox Me.SSComboBoxEx4Organ, "t_organ", "organ_no", "organ_name", 0, "where organ_level=3 " & HaveOrganMark
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()
    If Me.Command4Close.Enabled = False Then Exit Sub
    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 SSComboBoxEx4NameLevel_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4NameLevel
End Sub

Private Sub SSComboBoxEx4NameLevel_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate Me.SSComboBoxEx4NameLevel
End Sub

Private Sub SSComboBoxEx4Type_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Type
End Sub

Private Sub SSComboBoxEx4Type_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate Me.SSComboBoxEx4Type
End Sub

Private Sub SSComboBoxEx4DutyLevel_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4DutyLevel
End Sub

Private Sub SSComboBoxEx4DutyLevel_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate Me.SSComboBoxEx4DutyLevel
End Sub

Private Sub SSSpin4CadreCount_Change()
    ClearText
    If Me.Command4Close.Enabled = False Then Exit Sub
        MousePointer = 11
        Me.SSSpin4CadreCount.EnableContextMenu = False
        LoadData
        Me.SSSpin4CadreCount.EnableContextMenu = True
    MousePointer = 1
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  organ_no like '" & Me.SSComboBoxEx4Small.ItemData(Me.SSComboBoxEx4Small.ListIndex) & "'" & HaveEmpMark
    ElseIf Trim(Me.SSComboBoxEx4Large.text) <> "" Then
        SSComboBoxEx4Large.CheckList = True
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4Large.ItemData(Me.SSComboBoxEx4Large.ListIndex) & "'" & HaveEmpMark
    ElseIf Trim(Me.SSComboBoxEx4Company.text) <> "" Then
        SSComboBoxEx4Company.CheckList = True
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where  organ_no like '" & Me.SSComboBoxEx4Company.ItemData(Me.SSComboBoxEx4Company.ListIndex) & "'" & HaveEmpMark
    ElseIf Trim(Me.SSComboBoxEx4Organ.text) <> "" Then
        SSComboBoxEx4Organ.CheckList = True
        FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4Organ.ItemData(Me.SSComboBoxEx4Organ.ListIndex) & "'" & HaveEmpMark
    Else
        Me.SSComboBoxEx4Name.Clear
    End If
End Sub