frmunit.frm

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

      Begin VB.Label Label4Parent 
         Caption         =   "新单位的父单位名称"
         Height          =   315
         Left            =   90
         TabIndex        =   3
         Top             =   810
         Width           =   1890
      End
      Begin VB.Label Label4OldTwo 
         Caption         =   "合并前单位2名称"
         Height          =   300
         Left            =   90
         TabIndex        =   2
         Top             =   450
         Width           =   1890
      End
      Begin VB.Label Label4OldOne 
         Caption         =   "合并前单位1名称"
         Height          =   300
         Left            =   90
         TabIndex        =   1
         Top             =   90
         Width           =   1890
      End
   End
End
Attribute VB_Name = "frmUnit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public m_bIsSave As Boolean
Private m_strSQL As String

Private Sub Command4Close_Click()
    Unload Me
End Sub

Private Sub Command4Save_Click()
    Dim FirstOrgan As String
    Dim SecondOrgan As String
    If Trim(SSComboBoxEx4OneFour.text) <> "" Then
        FirstOrgan = SSComboBoxEx4OneFour.ItemData(SSComboBoxEx4OneFour.ListIndex)
    ElseIf Trim(SSComboBoxEx4OneThree.text) <> "" Then
        FirstOrgan = SSComboBoxEx4OneThree.ItemData(SSComboBoxEx4OneThree.ListIndex)
    ElseIf Trim(SSComboBoxEx4OneTwo.text) <> "" Then
        FirstOrgan = SSComboBoxEx4OneTwo.ItemData(SSComboBoxEx4OneTwo.ListIndex)
    ElseIf Trim(SSComboBoxEx4OneOne.text) <> "" Then
        FirstOrgan = SSComboBoxEx4OneOne.ItemData(SSComboBoxEx4OneOne.ListIndex)
    Else
        FirstOrgan = ""
    End If

    If Trim(SSComboBoxEx4TwoFour.text) <> "" Then
        SecondOrgan = SSComboBoxEx4TwoFour.ItemData(SSComboBoxEx4TwoFour.ListIndex)
    ElseIf Trim(SSComboBoxEx4TwoThree.text) <> "" Then
        SecondOrgan = SSComboBoxEx4TwoThree.ItemData(SSComboBoxEx4TwoThree.ListIndex)
    ElseIf Trim(SSComboBoxEx4TwoTwo.text) <> "" Then
        SecondOrgan = SSComboBoxEx4TwoTwo.ItemData(SSComboBoxEx4TwoTwo.ListIndex)
    ElseIf Trim(SSComboBoxEx4TwoOne.text) <> "" Then
        SecondOrgan = SSComboBoxEx4TwoOne.ItemData(SSComboBoxEx4TwoOne.ListIndex)
    Else
        SecondOrgan = ""
    End If

    If FirstOrgan = "" Or SecondOrgan = "" Then
        MsgBox "请首先选择合并单位。", vbOKOnly, "提示"
        Exit Sub
    End If
    If FirstOrgan = SecondOrgan Then
        MsgBox "同一单位不能合并。", vbOKOnly, "提示"
        Exit Sub
    End If
    If FirstOrgan = g_str4LoginUnit Or SecondOrgan = g_str4LoginUnit Then
        MsgBox "本单位不能合并。", vbOKOnly, "提示"
        Exit Sub
    End If
    If Text4Name.text = "" Then
        MsgBox "请输入新单位名称!", vbOKOnly, "提示"
        Exit Sub
    End If
    If Me.Text4No.text = "" Then
        MsgBox "请选择父单位名称!", vbOKOnly, "提示"
        Exit Sub
    End If
    If GetOrganLevel(SSComboBoxEx4Parent.ItemData(SSComboBoxEx4Parent.ListIndex)) <= SSComboBoxEx4Level.ListIndex Then
        MsgBox "新单位的级别不能高于父单位。", vbOKOnly, "提示"
        Exit Sub
    End If
    MousePointer = 11
    ExcuteSQL "begin transaction"
    m_strSQL = "insert into t_organ(organ_no,organ_name,organ_level) values('" & Text4No.text & "','" & Text4Name.text & "'," & SSComboBoxEx4Level.ListIndex & ")"
    If ExcuteSQL(m_strSQL) <> 0 Then
        ExcuteSQL "rollback transaction"
        MousePointer = 1
        Exit Sub
    End If
    m_strSQL = "update t_organ set organ_delete_mark=" & C_Organ_Delete_Have_Used_Unit & " from t_organ where left(organ_no," & Len(FirstOrgan) & ")=" & FirstOrgan & " or left(organ_no," & Len(SecondOrgan) & ")=" & SecondOrgan
    If ExcuteSQL(m_strSQL) <> 0 Then
        ExcuteSQL "rollback transaction"
        MousePointer = 1
        Exit Sub
    End If
    m_strSQL = "update t_emp_basic set delete_mark=" & C_Emp_Delete_Have_Used_Unit & " from t_emp_basic where left(organ_no," & Len(FirstOrgan) & ")=" & FirstOrgan & " or left(organ_no," & Len(SecondOrgan) & ")=" & SecondOrgan
    If ExcuteSQL(m_strSQL) <> 0 Then
        ExcuteSQL "rollback transaction"
        MousePointer = 1
        Exit Sub
    End If
    ExcuteSQL "commit transaction"
    ClearText
    MousePointer = 1
    MsgBox "保存成功。", vbOKOnly, "提示"
End Sub

Private Sub ClearText()
    SSComboBoxEx4OneOne.text = ""
    SSComboBoxEx4OneTwo.text = ""
    SSComboBoxEx4OneThree.text = ""
    SSComboBoxEx4OneFour.text = ""
    SSComboBoxEx4TwoOne.text = ""
    SSComboBoxEx4TwoTwo.text = ""
    SSComboBoxEx4TwoThree.text = ""
    SSComboBoxEx4TwoFour.text = ""
    PrcessSSComboxExFormLoad SSComboBoxEx4OneOne, SSComboBoxEx4OneTwo, SSComboBoxEx4OneThree, SSComboBoxEx4OneFour, g_str4LoginUnit, g_str4LoginUnitLevel
    PrcessSSComboxExFormLoad SSComboBoxEx4TwoOne, SSComboBoxEx4TwoTwo, SSComboBoxEx4TwoThree, SSComboBoxEx4TwoFour, g_str4LoginUnit, g_str4LoginUnitLevel
    SSComboBoxEx4Parent.text = ""
    Text4No.text = ""
    Me.Text4Name.text = ""
    SSComboBoxEx4Level.ListIndex = -1
End Sub
Private Sub Form_Load()
    Dim ors4temp As New ADODB.Recordset
    SSComboBoxEx4Level.AddItem "小队级单位", C_SMALL_LEVEL
    SSComboBoxEx4Level.AddItem "大队级单位", C_LARGE_LEVEL
    SSComboBoxEx4Level.AddItem "公司级单位", C_COMPANY_LEVEL
    SSComboBoxEx4Level.AddItem "厂、处级单位", C_FACTORY_LEVEL
    SSComboBoxEx4Level.AddItem "局级", C_BUREAUE_LEVEL
    PrcessSSComboxExFormLoad SSComboBoxEx4OneOne, SSComboBoxEx4OneTwo, SSComboBoxEx4OneThree, SSComboBoxEx4OneFour, g_str4LoginUnit, g_str4LoginUnitLevel
    PrcessSSComboxExFormLoad SSComboBoxEx4TwoOne, SSComboBoxEx4TwoTwo, SSComboBoxEx4TwoThree, SSComboBoxEx4TwoFour, g_str4LoginUnit, g_str4LoginUnitLevel
    Unload frmSplash
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MDIfrmMain.SSActiveToolBarsMain.Tools("ID_机构合并").Enabled = True
End Sub

Private Sub SSComboBoxEx4OneFour_Change()
    DisplayRelateItems SSComboBoxEx4OneFour
End Sub

Private Sub SSComboBoxEx4OneFour_GotFocus()
    If Trim(Me.SSComboBoxEx4OneTwo.text) <> "" Then
        If Trim(SSComboBoxEx4OneThree.text) <> "" Then
            SSComboBoxEx4OneThree.CheckList = True
            FillComboBox SSComboBoxEx4OneFour, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=15 and   left(ORGAN_NO,12) like '" & SSComboBoxEx4OneThree.ItemData(SSComboBoxEx4OneThree.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        Else
            SSComboBoxEx4OneTwo.CheckList = True
            FillComboBox SSComboBoxEx4OneFour, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4OneTwo.ItemData(SSComboBoxEx4OneTwo.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        End If
    Else
        If Trim(SSComboBoxEx4OneThree.text) <> "" Then
            SSComboBoxEx4OneThree.CheckList = True
            FillComboBox SSComboBoxEx4OneFour, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4OneThree.ItemData(SSComboBoxEx4OneThree.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        ElseIf Trim(SSComboBoxEx4OneOne.text) <> "" Then
            SSComboBoxEx4OneOne.CheckList = True
            FillComboBox SSComboBoxEx4OneFour, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4OneOne.ItemData(SSComboBoxEx4OneOne.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        End If
    End If
End Sub

Private Sub SSComboBoxEx4OneFour_LostFocus()
    CheckValidate SSComboBoxEx4OneFour
End Sub

Private Sub SSComboBoxEx4OneOne_Change()
    DisplayRelateItems SSComboBoxEx4OneOne
End Sub

Private Sub SSComboBoxEx4OneThree_Change()
    DisplayRelateItems SSComboBoxEx4OneThree
End Sub

Private Sub SSComboBoxEx4OneThree_GotFocus()
    If Trim(Me.SSComboBoxEx4OneTwo.text) <> "" Then
        SSComboBoxEx4OneTwo.CheckList = True
        FillComboBox SSComboBoxEx4OneThree, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4OneTwo.ItemData(SSComboBoxEx4OneTwo.ListIndex) & "' and organ_level=1 " & HaveOrganMark
    ElseIf Trim(SSComboBoxEx4OneOne.text) <> "" Then
        SSComboBoxEx4OneOne.CheckList = True
        FillComboBox SSComboBoxEx4OneThree, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4OneOne.ItemData(SSComboBoxEx4OneOne.ListIndex) & "' and organ_level=1 " & HaveOrganMark
    End If
End Sub

Private Sub SSComboBoxEx4OneThree_LostFocus()
    CheckValidate SSComboBoxEx4OneThree
    Me.SSComboBoxEx4OneFour.text = ""
End Sub

Private Sub SSComboBoxEx4OneTwo_Change()
    DisplayRelateItems SSComboBoxEx4OneTwo
End Sub

Private Sub SSComboBoxEx4OneTwo_GotFocus()
    SSComboBoxEx4OneOne.CheckList = True
    If SSComboBoxEx4OneOne.text <> "" Then
        FillComboBox SSComboBoxEx4OneTwo, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4OneOne.ItemData(SSComboBoxEx4OneOne.ListIndex) & "' and organ_level=2 " & HaveOrganMark
    End If
End Sub

Private Sub SSComboBoxEx4OneTwo_LostFocus()
    CheckValidate Me.SSComboBoxEx4OneTwo
    Me.SSComboBoxEx4OneThree.text = ""
    Me.SSComboBoxEx4OneFour.text = ""
End Sub

Private Sub SSComboBoxEx4Parent_Change()
    DisplayRelateItems SSComboBoxEx4Parent
End Sub

Private Sub SSComboBoxEx4Parent_GotFocus()
    FillComboBox SSComboBoxEx4Parent, "t_organ", "organ_no", "organ_name", , "where organ_no like '" & g_str4LoginUnit & "%' and organ_level>=" & C_LARGE_LEVEL & HaveOrganMark
End Sub

Private Sub SSComboBoxEx4Parent_LostFocus()
    Dim ors4temp As New ADODB.Recordset
    CheckValidate Me.SSComboBoxEx4Parent
    If Trim(SSComboBoxEx4Parent.text) <> "" Then
        m_strSQL = "select max(organ_no) from t_organ where len(organ_no)=" & Len(SSComboBoxEx4Parent.ItemData(SSComboBoxEx4Parent.ListIndex)) + 3 & " and left(organ_no," & Len(SSComboBoxEx4Parent.ItemData(SSComboBoxEx4Parent.ListIndex)) & ")=" & SSComboBoxEx4Parent.ItemData(SSComboBoxEx4Parent.ListIndex)
        If ors4temp.State = adStateOpen Then ors4temp.Close
        ors4temp.CursorLocation = adUseClient
        ors4temp.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
        
        If ors4temp.EOF = False And Not IsNull(ors4temp.Fields(0).Value) Then
            Text4No.text = left(ors4temp.Fields(0).Value, Len(ors4temp.Fields(0).Value) - Len(CStr(CLng(ors4temp.Fields(0).Value)))) & CStr(CLng(ors4temp.Fields(0).Value) + 1)
        Else
            Text4No.text = SSComboBoxEx4Parent.ItemData(SSComboBoxEx4Parent.ListIndex) & "001"
        End If
    Else
        Text4No.text = ""
    End If
End Sub

Private Sub SSComboBoxEx4TwoFour_Change()
    DisplayRelateItems SSComboBoxEx4TwoFour
End Sub

Private Sub SSComboBoxEx4TwoFour_GotFocus()
    If Trim(Me.SSComboBoxEx4TwoTwo.text) <> "" Then
        If Trim(SSComboBoxEx4TwoThree.text) <> "" Then
            SSComboBoxEx4TwoThree.CheckList = True
            FillComboBox SSComboBoxEx4TwoFour, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=15 and   left(ORGAN_NO,12) like '" & SSComboBoxEx4TwoThree.ItemData(SSComboBoxEx4TwoThree.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        Else
            SSComboBoxEx4TwoTwo.CheckList = True
            FillComboBox SSComboBoxEx4TwoFour, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4TwoTwo.ItemData(SSComboBoxEx4TwoTwo.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        End If
    Else
        If Trim(SSComboBoxEx4TwoThree.text) <> "" Then
            SSComboBoxEx4TwoThree.CheckList = True
            FillComboBox SSComboBoxEx4TwoFour, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4TwoThree.ItemData(SSComboBoxEx4TwoThree.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        ElseIf Trim(SSComboBoxEx4TwoOne.text) <> "" Then
            SSComboBoxEx4TwoOne.CheckList = True
            FillComboBox SSComboBoxEx4TwoFour, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4TwoOne.ItemData(SSComboBoxEx4TwoOne.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        End If
    End If
End Sub

Private Sub SSComboBoxEx4TwoFour_LostFocus()
    CheckValidate SSComboBoxEx4TwoFour
End Sub

Private Sub SSComboBoxEx4TwoOne_Change()
    DisplayRelateItems SSComboBoxEx4TwoOne
End Sub

Private Sub SSComboBoxEx4TwoThree_Change()
    DisplayRelateItems SSComboBoxEx4TwoThree
End Sub

Private Sub SSComboBoxEx4TwoThree_GotFocus()
    If Trim(Me.SSComboBoxEx4TwoTwo.text) <> "" Then
        SSComboBoxEx4TwoTwo.CheckList = True
        FillComboBox SSComboBoxEx4TwoThree, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4TwoTwo.ItemData(SSComboBoxEx4TwoTwo.ListIndex) & "' and organ_level=1 " & HaveOrganMark
    ElseIf Trim(SSComboBoxEx4TwoOne.text) <> "" Then
        SSComboBoxEx4TwoOne.CheckList = True
        FillComboBox SSComboBoxEx4TwoThree, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4TwoOne.ItemData(SSComboBoxEx4TwoOne.ListIndex) & "' and organ_level=1 " & HaveOrganMark
    End If
End Sub

Private Sub SSComboBoxEx4TwoThree_LostFocus()
    CheckValidate SSComboBoxEx4TwoThree
    Me.SSComboBoxEx4TwoFour.text = ""
End Sub

Private Sub SSComboBoxEx4TwoTwo_Change()
    DisplayRelateItems SSComboBoxEx4TwoTwo
End Sub

Private Sub SSComboBoxEx4TwoTwo_GotFocus()
    SSComboBoxEx4TwoOne.CheckList = True
    If Trim(SSComboBoxEx4TwoOne.text) <> "" Then
        FillComboBox SSComboBoxEx4TwoTwo, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4TwoOne.ItemData(SSComboBoxEx4TwoOne.ListIndex) & "' and organ_level=2 " & HaveOrganMark
    End If
End Sub

Private Sub SSComboBoxEx4TwoTwo_LostFocus()
    CheckValidate Me.SSComboBoxEx4TwoTwo
    Me.SSComboBoxEx4TwoThree.text = ""
    Me.SSComboBoxEx4TwoFour.text = ""
End Sub