frmempremoveedit.frm

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

        End If
    Else
        If m_iRemoveType = C_SubStract_Have_InOrgan Then
            If m_oRs4This.Fields("REMOVE_MARK").Value = 1 Then
                If g_str4LoginUnit Like Me.SSComboBoxEx4Organ.ItemData(Me.SSComboBoxEx4Organ.ListIndex) & "*" Then
                    Me.Command4Save.Enabled = True
                Else
                    Me.Command4Save.Enabled = False
                End If
            ElseIf m_oRs4This.Fields("REMOVE_MARK").Value = 2 Then
                Me.Command4Save.Enabled = True
            Else
                Me.Command4Save.Enabled = False
            End If
        Else
            Me.Command4Save.Enabled = True
        End If
    End If
End Sub

Private Sub Freeze()
    SSComboBoxEx4InSmall.Enabled = False
    SSComboBoxEx4InLarge.Enabled = False
    SSComboBoxEx4InCompany.Enabled = False
    SSComboBoxEx4InOrgan.Enabled = False
    SSComboBoxEx4Small.Enabled = False
    SSComboBoxEx4Large.Enabled = False
    SSComboBoxEx4Company.Enabled = False
    SSComboBoxEx4Organ.Enabled = False
    Me.Combo4Sort.Enabled = False
    Me.SSComboBoxEx4Name.Enabled = False
    Me.DTPicker4Salary.Enabled = False
    Me.DTPicker4Start.Enabled = False
    Me.Check4Out.Enabled = False
    Me.Check4In.Enabled = False
    If Me.Check4All.Value = Checked Then
        Me.Check4All.Enabled = False
    Else
        Me.Check4All.Enabled = True
    End If
End Sub

Private Sub Init()
    SSComboBoxEx4InSmall.text = ""
    SSComboBoxEx4InLarge.text = ""
    SSComboBoxEx4InCompany.text = ""
    If SSComboBoxEx4InOrgan.Style = ssSimpleCombo Then SSComboBoxEx4InOrgan.text = ""
    SSComboBoxEx4Small.text = ""
    SSComboBoxEx4Large.text = ""
    SSComboBoxEx4Company.text = ""
    If SSComboBoxEx4Organ.Style = ssSimpleCombo Then SSComboBoxEx4Organ.text = ""
    Me.Combo4Sort.ListIndex = -1
    SSComboBoxEx4Name.Clear
    Me.SSComboBoxEx4Name.text = ""
    Me.Check4Out.Value = Unchecked
End Sub
 '调出
Private Sub GetOutOrgan()
    FillComboBox SSComboBoxEx4Organ, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where organ_no like '" & left(m_oRs4This.Fields("out_organ").Value, 6) & "'"
    SSComboBoxEx4Organ.ListIndex = 0
    If Len(g_str4LoginUnit) <> C_BUREAUE_LENGTH Then SSComboBoxEx4Organ.Enabled = False
    If m_oRs4This.Fields("out_level").Value = 2 Then
        FillComboBox SSComboBoxEx4Company, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where organ_level=2 and ORGAN_NO like '" & m_oRs4This.Fields("out_organ").Value & "'"
        Me.SSComboBoxEx4Company.ListIndex = 0
    ElseIf m_oRs4This.Fields("out_level").Value = 1 Then
        If Len(m_oRs4This.Fields("out_organ").Value) = 9 Then
            FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & m_oRs4This.Fields("out_organ").Value & "'"
            Me.SSComboBoxEx4Large.ListIndex = 0
        Else
            FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & m_oRs4This.Fields("out_organ").Value & "'"
            FillComboBox SSComboBoxEx4Company, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & left(m_oRs4This.Fields("out_organ").Value, 9) & "'"
            Me.SSComboBoxEx4Large.ListIndex = 0
            Me.SSComboBoxEx4Company.ListIndex = 0
        End If
    ElseIf m_oRs4This.Fields("out_level").Value = 0 Then
        If Len(m_oRs4This.Fields("out_organ").Value) = 9 Then
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & m_oRs4This.Fields("out_organ").Value & "'"
            Me.SSComboBoxEx4Small.ListIndex = 0
        ElseIf Len(m_oRs4This.Fields("out_organ").Value) = 12 Then
            FillComboBox SSComboBoxEx4Company, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where  organ_level=2 and ORGAN_NO like '" & left(m_oRs4This.Fields("out_organ").Value, 9) & "'"
            FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where organ_level=1 and ORGAN_NO like '" & left(m_oRs4This.Fields("out_organ").Value, 9) & "'"
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & m_oRs4This.Fields("out_organ").Value & "'"
            
            Me.SSComboBoxEx4Small.ListIndex = 0
            Me.SSComboBoxEx4Large.ListIndex = FindIndex(left(m_oRs4This.Fields("out_organ").Value, 9), Me.SSComboBoxEx4Large)
            Me.SSComboBoxEx4Company.ListIndex = FindIndex(left(m_oRs4This.Fields("out_organ").Value, 9), Me.SSComboBoxEx4Company)
        ElseIf Len(m_oRs4This.Fields("out_organ").Value) = 15 Then
            FillComboBox SSComboBoxEx4Company, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & left(m_oRs4This.Fields("out_organ").Value, 9) & "'"
            FillComboBox SSComboBoxEx4Large, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & left(m_oRs4This.Fields("out_organ").Value, 12) & "'"
            FillComboBox SSComboBoxEx4Small, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where  ORGAN_NO like '" & m_oRs4This.Fields("out_organ").Value & "'"
            
            Me.SSComboBoxEx4Small.ListIndex = 0
            Me.SSComboBoxEx4Large.ListIndex = 0
            Me.SSComboBoxEx4Company.ListIndex = 0
        End If
    End If
End Sub
 '调入
Private Sub GetInOrgan()
    FillComboBox SSComboBoxEx4InOrgan, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where organ_no like '" & left(m_oRs4This.Fields("FOLD_ORGAN").Value, 6) & "'"
    SSComboBoxEx4InOrgan.ListIndex = 0
    If Len(g_str4LoginUnit) <> C_BUREAUE_LENGTH Then
        If m_iRemoveType = C_SubStract_Have_InOrgan Or m_iRemoveType = C_Add_Have_OutOrgan Or m_iRemoveType = C_Add_No_OutOrgan Then
             SSComboBoxEx4InOrgan.Enabled = False
        End If
    End If
    If m_oRs4This.Fields("in_level").Value = 2 Then
        FillComboBox SSComboBoxEx4InCompany, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where organ_level=2 and ORGAN_NO like '" & m_oRs4This.Fields("FOLD_ORGAN").Value & "'"
        Me.SSComboBoxEx4InCompany.ListIndex = 0
    ElseIf m_oRs4This.Fields("in_level").Value = 1 Then
        If Len(m_oRs4This.Fields("FOLD_ORGAN").Value) = 9 Then
            FillComboBox SSComboBoxEx4InLarge, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & m_oRs4This.Fields("FOLD_ORGAN").Value & "'"
            Me.SSComboBoxEx4InLarge.ListIndex = 0
        Else
            FillComboBox SSComboBoxEx4InLarge, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & m_oRs4This.Fields("FOLD_ORGAN").Value & "'"
            FillComboBox SSComboBoxEx4InCompany, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NOlike '" & left(m_oRs4This.Fields("FOLD_ORGAN").Value, 9) & "'"
            Me.SSComboBoxEx4InLarge.ListIndex = 0
            Me.SSComboBoxEx4InCompany.ListIndex = 0
        End If
    ElseIf m_oRs4This.Fields("in_level").Value = 0 Then
        If Len(m_oRs4This.Fields("FOLD_ORGAN").Value) = 9 Then
            FillComboBox SSComboBoxEx4InSmall, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & m_oRs4This.Fields("FOLD_ORGAN").Value & "'"
            Me.SSComboBoxEx4InSmall.ListIndex = 0
        ElseIf Len(m_oRs4This.Fields("FOLD_ORGAN").Value) = 12 Then
            FillComboBox SSComboBoxEx4InCompany, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where organ_level=2 ORGAN_NO like '" & left(m_oRs4This.Fields("FOLD_ORGAN").Value, 9) & "'"
            FillComboBox SSComboBoxEx4InLarge, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where organ_level=1 and ORGAN_NO  like '" & left(m_oRs4This.Fields("FOLD_ORGAN").Value, 9) & "'"
            FillComboBox SSComboBoxEx4InSmall, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & m_oRs4This.Fields("FOLD_ORGAN").Value & "'"
            
            Me.SSComboBoxEx4InSmall.ListIndex = 0
            Me.SSComboBoxEx4InLarge.ListIndex = FindIndex(left(m_oRs4This.Fields("FOLD_ORGAN").Value, 9), Me.SSComboBoxEx4InLarge)
            Me.SSComboBoxEx4InCompany.ListIndex = FindIndex(left(m_oRs4This.Fields("FOLD_ORGAN").Value, 9), Me.SSComboBoxEx4InCompany)
        ElseIf Len(m_oRs4This.Fields("FOLD_ORGAN").Value) = 15 Then
            FillComboBox SSComboBoxEx4InCompany, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & left(m_oRs4This.Fields("FOLD_ORGAN").Value, 9) & "'"
            FillComboBox SSComboBoxEx4InLarge, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & left(m_oRs4This.Fields("FOLD_ORGAN").Value, 12) & "'"
            FillComboBox SSComboBoxEx4InSmall, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where  ORGAN_NO like '" & m_oRs4This.Fields("FOLD_ORGAN").Value & "'"
            
            Me.SSComboBoxEx4InSmall.ListIndex = 0
            Me.SSComboBoxEx4InLarge.ListIndex = 0
            Me.SSComboBoxEx4InCompany.ListIndex = 0
        End If
    End If
End Sub

Private Sub Command4Save_Click()
    Dim str4FileName As String
    Dim str4FileNameTwo As String
    Dim str4OutOrgan As String
    Dim str4InOrgan As String
    Dim lSign As Long
    Dim lRemoveSort As Long
    Dim ors4temp As New ADODB.Recordset
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        If Me.Check4All.Value = False Then
            MsgBox "请选择全局认证", vbOKOnly, "警告"
            Exit Sub
        End If
    Else
        If m_iRemoveType = C_Add_Have_OutOrgan Then
            If Me.Check4In.Value = False Then
                MsgBox "请选择接收单位认证", vbOKOnly, "警告"
                Exit Sub
            End If
        End If
    End If
    If Trim(Me.SSComboBoxEx4Name.text) = "" Then
        MsgBox "人员姓名不能为空!", vbOKOnly, "警告"
        Exit Sub
    End If
    If m_iRemoveType <> C_Inside Then
        If Trim(Me.Combo4Sort.text) = "" Then
            MsgBox "职工移动类别代码!", vbOKOnly, "警告"
            Exit Sub
        End If
    End If
    If m_iRemoveType = C_SubStract_Have_InOrgan Or m_iRemoveType = C_Inside Then
        str4OutOrgan = HaveOutOrganNo
        If str4OutOrgan = "" Then
            MsgBox "请选择调出单位", vbOKOnly, "警告"
            Exit Sub
        End If
        str4InOrgan = HaveInOrganNo
        If str4InOrgan = "" Then
            MsgBox "请选择调入单位", vbOKOnly, "警告"
            Exit Sub
        End If
        If m_iRemoveType = C_SubStract_Have_InOrgan Then
            If Me.Check4Out.Value = 0 Then
                MsgBox "请做原单位认证", vbOKOnly, "警告"
                Exit Sub
            End If
            If Me.Check4In.Enabled = True Then
                If Me.Check4In.Value = 0 Then
                    MsgBox "请做接受单位认证", vbOKOnly, "警告"
                    Exit Sub
                End If
            End If
        End If
    ElseIf m_iRemoveType = C_SubStract_No_InOrgan Then
        str4OutOrgan = HaveOutOrganNo
        If str4OutOrgan = "" Then
            Exit Sub
        Else
            str4InOrgan = str4OutOrgan
            m_str4InOrganName = SSComboBoxEx4InOrgan.text
        End If
    ElseIf m_iRemoveType = C_Add_No_OutOrgan Then
        str4InOrgan = HaveInOrganNo
        If str4InOrgan = "" Then
            MsgBox "", vbOKOnly, ""
            Exit Sub
        Else
            str4OutOrgan = str4InOrgan
            m_str4OutOrganName = SSComboBoxEx4Organ.text
        End If
    Else
        str4OutOrgan = HaveOutOrganNo
        str4InOrgan = SSComboBoxEx4InOrgan.ItemData(SSComboBoxEx4InOrgan.ListIndex)
        m_str4InOrganName = SSComboBoxEx4InOrgan.text
    End If
    If Me.Check4Out.Value = Unchecked Then
        lSign = 0
    Else
        If Me.Check4All.Value = Unchecked Then
            lSign = 1
        Else
            If Me.Check4In.Value = Unchecked Then
                lSign = 2
            Else
                lSign = 3
            End If
        End If
    End If
    ExcuteSQL "begin transaction"
    If g_int4statuse = 0 Then
        If m_iRemoveType <> C_Inside Then
            m_strSQL = "insert into T_EMP_REMOVE(emp_remove_id,EMP_NO,organ_no,FOLD_ORGAN,REMOVE_START_END_DATE,remove_sort_no,start_end_salary,REMOVE_MARK,OUT_ORGAN_NAME,IN_ORGAN_NAME)" _
                & "values(" & GetMaxNo("t_emp_remove", "emp_remove_id") & "," & Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) & ",'" & str4OutOrgan & "','" & str4InOrgan _
                & "'," & ConvertDate2Int(Me.DTPicker4Start.Value) & ","
            If Trim(Me.Combo4Sort.text) <> "" Then
                m_strSQL = m_strSQL & Me.Combo4Sort.ItemData(Me.Combo4Sort.ListIndex)
            Else
                m_strSQL = m_strSQL & "null"
            End If
            m_strSQL = m_strSQL & "," & ConvertDate2Int(Me.DTPicker4Salary.Value) & "," & lSign & ",'" & m_str4OutOrganName & "','" & m_str4InOrganName & "')"
            If ExcuteSQL(m_strSQL) <> 0 Then
                ExcuteSQL "rollback transaction"
                Exit Sub
            End If
            If m_iRemoveType = C_SubStract_Have_InOrgan Or m_iRemoveType = C_SubStract_No_InOrgan Then
                m_strSQL = "update t_emp_basic set delete_mark=" & C_Emp_Delete_No_Used & " where emp_no=" & Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) & " and organ_no='" & str4OutOrgan & "'"
                If ExcuteSQL(m_strSQL) <> 0 Then
                    ExcuteSQL "rollback transaction"
                    Exit Sub
                End If
            End If
        Else
            If GetRecordEmpInfo(str4OutOrgan, Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex), str4InOrgan) = False Then
                ExcuteSQL "rollback transaction"
                Exit Sub
            End If
        End If
    Else
        If g_str4LoginUnitLevel = C_BUREAUE_LEVEL Then
            '插入一条调出单位人的纪录，为了与调动人员主健匹配
            If GetRecordEmpInfo(str4OutOrgan, Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex), str4InOrgan, True) = False Then
                ExcuteSQL "rollback transaction"
                Exit Sub
            End If
            m_strSQL = "update t_emp_remove set REMOVE_MARK=" & lSign & " where emp_remove_id=" & g_array4WorkerType(3, SSSpin4No.text) & " and organ_no='" & g_array4WorkerType(1, SSSpin4No.text) & "' and fold_organ='" & g_array4WorkerType(2, SSSpin4No.text) & "'"
            If ExcuteSQL(m_strSQL) <> 0 Then
                ExcuteSQL "rollback transaction"
                Exit Sub
            End If
            Me.Check4All.Enabled = False
            Me.Command4Save.Enabled = False
        Else
            m_strSQL = "update T_EMP_REMOVE set REMOVE_START_END_DATE=" & ConvertDate2Int(Me.DTPicker4Start.Value) & ",remove_sort_no="
            If Trim(Me.Combo4Sort.text) <> "" Then
                m_strSQL = m_strSQL & Me.Combo4Sort.ItemData(Me.Combo4Sort.ListIndex)
            Else
                m_strSQL = m_strSQL & "null"
            End If
            m_strSQL = m_strSQL & ",start_end_salary=" & ConvertDate2Int(Me.DTPicker4Salary.Value) _
                & ",emp_no=" & Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex) & ",REMOVE_MARK=" & lSign & ",FOLD_ORGAN='" & str4InOrgan & "',  organ_no='" & str4OutOrgan & "',IN_ORGAN_NAME='" & m_str4InOrganName & "',out_ORGAN_NAME='" & m_str4OutOrganName & "' where emp_remove_id=" & g_array4WorkerType(3, SSSpin4No.text) _
                & " and organ_no='" & g_array4WorkerType(1, SSSpin4No.text) & "' and fold_organ='" & g_array4WorkerType(2, SSSpin4No.text) & "'"
            If ExcuteSQL(m_strSQL) <> 0 Then
                ExcuteSQL "rollback transaction"
                Exit Sub
            End If
            If m_iRemoveType = C_SubStract_Have_InOrgan And Me.Check4In.Enabled = True Then
                m_strSQL = "update t_emp_basic set delete_mark=" & C_Emp_Have & " where emp_no in " _
                    & " (select emp_no from t_emp_basic where emp_name like '" & Me.SSComboBoxEx4Name.text & "' and " _
                    & " delete_mark=" & C_Emp_Delete_Have_Used_Remove & " and organ_no like '" & str4InOrgan & "') " _
                    & " and organ_no like '" & str4InOrgan & "'"
                If ExcuteSQL(m_strSQL) <> 0 Then
                    ExcuteSQL "rollback transaction"
                    Exit Sub
                End If
                Me.Check4In.Enabled = False
                Me.Command4Save.Enabled = False
            End If
        End If
    End If
    ExcuteSQL "commit transaction"
    MsgBox "保存成功", vbOKOnly, "提示"
    If g_int4statuse = 0 Then