📄 frmempremoveedit.frm

📁 本公司开发得大请油田人事管理系统c/s结构
💻 FRM
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
        Me.Command4Close.Enabled = False
        Init
        Me.Command4Close.Enabled = True
    Else
        If g_int4rowstate = 1 Then Unload Me
    End If
End Sub

Private Function HaveOutOrganNo() As String
    SSComboBoxEx4Small.CheckList = True
    SSComboBoxEx4Large.CheckList = True
    SSComboBoxEx4Company.CheckList = True
    SSComboBoxEx4Organ.CheckList = True
    If Trim(SSComboBoxEx4Small.text) <> "" Then
        HaveOutOrganNo = SSComboBoxEx4Small.ItemData(SSComboBoxEx4Small.ListIndex)
        m_str4OutOrganName = SSComboBoxEx4Small.text
    Else
        If Trim(SSComboBoxEx4Large.text) <> "" Then
            HaveOutOrganNo = SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex)
            m_str4OutOrganName = SSComboBoxEx4Large.text
        Else
            If Trim(SSComboBoxEx4Company.text) <> "" Then
                HaveOutOrganNo = SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex)
                m_str4OutOrganName = SSComboBoxEx4Company.text
            Else
                If Trim(SSComboBoxEx4Organ.text) <> "" Then
                    HaveOutOrganNo = SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex)
                    m_str4OutOrganName = SSComboBoxEx4Organ.text
                Else
                    MsgBox "请选择调出单位", vbOKOnly, "警告"
                    HaveOutOrganNo = ""
                End If
            End If
        End If
    End If
    If m_iRemoveType = C_SubStract_Have_InOrgan Or m_iRemoveType = C_SubStract_No_InOrgan Then m_str4OutOrganName = SSComboBoxEx4Organ.text
End Function

Private Function HaveInOrganNo() As String
    SSComboBoxEx4InSmall.CheckList = True
    SSComboBoxEx4InLarge.CheckList = True
    SSComboBoxEx4InCompany.CheckList = True
    SSComboBoxEx4InOrgan.CheckList = True
    If Trim(SSComboBoxEx4InSmall.text) <> "" Then
        HaveInOrganNo = SSComboBoxEx4InSmall.ItemData(SSComboBoxEx4InSmall.ListIndex)
        m_str4InOrganName = SSComboBoxEx4InSmall.text
    Else
        If Trim(SSComboBoxEx4InLarge.text) <> "" Then
            HaveInOrganNo = SSComboBoxEx4InLarge.ItemData(SSComboBoxEx4InLarge.ListIndex)
            m_str4InOrganName = SSComboBoxEx4InLarge.text
        Else
            If Trim(SSComboBoxEx4InCompany.text) <> "" Then
                HaveInOrganNo = SSComboBoxEx4InCompany.ItemData(SSComboBoxEx4InCompany.ListIndex)
                m_str4InOrganName = SSComboBoxEx4InCompany.text
            Else
                If Trim(SSComboBoxEx4InOrgan.text) <> "" Then
                    HaveInOrganNo = SSComboBoxEx4InOrgan.ItemData(SSComboBoxEx4InOrgan.ListIndex)
                    m_str4InOrganName = SSComboBoxEx4InOrgan.text
                Else
                    MsgBox "请选择调入单位", vbOKOnly, "警告"
                    HaveInOrganNo = ""
                End If
            End If
        End If
    End If
End Function

Private Sub Form_Resize()
'    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW
End Sub

'调入单位
Private Sub SSComboBoxEx4InOrgan_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If m_iRemoveType = C_SubStract_No_InOrgan Then Exit Sub
    DisplayRelateItems SSComboBoxEx4InOrgan
End Sub

Private Sub SSComboBoxEx4InOrgan_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If m_iRemoveType = C_SubStract_No_InOrgan Then
        If g_int4statuse = 0 Then SSComboBoxEx4InOrgan.Clear
    ElseIf m_iRemoveType = C_SubStract_Have_InOrgan Then
        FillComboBox SSComboBoxEx4InOrgan, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where organ_level=3 and organ_no not like '" & g_str4LoginUnit & "'" & HaveOrganMark
    End If
End Sub

Private Sub SSComboBoxEx4InOrgan_LostFocus()
    If Me.Command4Close = False Then Exit Sub
    If m_iRemoveType = C_SubStract_No_InOrgan Then Exit Sub
    CheckValidate Me.SSComboBoxEx4InOrgan
    SSComboBoxEx4Company.text = ""
    Me.SSComboBoxEx4Large.text = ""
    Me.SSComboBoxEx4Small.text = ""
    Me.SSComboBoxEx4Name.ListIndex = -1
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
    If Trim(Me.SSComboBoxEx4Organ.text) <> "" Then
        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
    Else
        SSComboBoxEx4Company.Clear
    End If
End Sub

Private Sub SSComboBoxEx4Company_LostFocus()
    If Me.Command4Close = False Then Exit Sub
    CheckValidate Me.SSComboBoxEx4Company
    Me.SSComboBoxEx4Large.text = ""
    Me.SSComboBoxEx4Small.text = ""
    Me.SSComboBoxEx4Name.ListIndex = -1
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 = False Then Exit Sub
    CheckValidate SSComboBoxEx4Large
    Me.SSComboBoxEx4Small.text = ""
    Me.SSComboBoxEx4Name.ListIndex = -1
End Sub

Private Sub SSComboBoxEx4Large_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If Trim(SSComboBoxEx4Organ.text) <> "" Then
        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
    Else
        Me.SSComboBoxEx4Large.Clear
    End If
End Sub

Private Sub SSComboBoxEx4Small_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If Trim(SSComboBoxEx4Organ.text) <> "" Then
        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
    Else
        Me.SSComboBoxEx4Small.Clear
    End If
End Sub

Private Sub SSComboBoxEx4Small_LostFocus()
    CheckValidate Me.SSComboBoxEx4Small
    Me.SSComboBoxEx4Name.ListIndex = -1
End Sub

Private Sub SSComboBoxEx4Small_Change()
    If Me.Command4Close = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Small
End Sub
'调出单位

Private Sub SSComboBoxEx4Organ_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If m_iRemoveType = C_Add_No_OutOrgan Then Exit Sub
    DisplayRelateItems SSComboBoxEx4Organ
End Sub

Private Sub SSComboBoxEx4Organ_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If m_iRemoveType = C_Add_No_OutOrgan Then
        If g_int4statuse = 0 Then SSComboBoxEx4Organ.Clear
    Else
        FillComboBox SSComboBoxEx4Organ, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & g_str4LoginUnit & "%' and organ_level=3 " & HaveOrganMark
    End If
End Sub

Private Sub SSComboBoxEx4Organ_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If m_iRemoveType = C_Add_No_OutOrgan Then Exit Sub
    CheckValidate SSComboBoxEx4Organ
    SSComboBoxEx4InCompany.text = ""
    SSComboBoxEx4InLarge.text = ""
    SSComboBoxEx4InSmall.text = ""
    Me.SSComboBoxEx4Name.ListIndex = -1
End Sub

Private Sub SSComboBoxEx4InCompany_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4InCompany
End Sub

Private Sub SSComboBoxEx4InCompany_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    SSComboBoxEx4Organ.CheckList = True
    If Trim(Me.SSComboBoxEx4InOrgan.text) <> "" Then
        FillComboBox SSComboBoxEx4InCompany, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4InOrgan.ItemData(SSComboBoxEx4InOrgan.ListIndex) & "%' and organ_level=2 " & HaveOrganMark
    Else
        SSComboBoxEx4InCompany.Clear
    End If
End Sub

Private Sub SSComboBoxEx4InCompany_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate SSComboBoxEx4InCompany
    SSComboBoxEx4InLarge.text = ""
    SSComboBoxEx4InSmall.text = ""
    Me.SSComboBoxEx4Name.ListIndex = -1
End Sub

Private Sub SSComboBoxEx4InLarge_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4InLarge
End Sub

Private Sub SSComboBoxEx4InLarge_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If Trim(Me.SSComboBoxEx4InOrgan.text) <> "" Then
        If Trim(Me.SSComboBoxEx4InCompany.text) <> "" Then
            SSComboBoxEx4InCompany.CheckList = True
            FillComboBox SSComboBoxEx4InLarge, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4InCompany.ItemData(SSComboBoxEx4InCompany.ListIndex) & "%' and organ_level=1  " & HaveOrganMark
        Else
            SSComboBoxEx4Organ.CheckList = True
            FillComboBox SSComboBoxEx4InLarge, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4InOrgan.ItemData(SSComboBoxEx4InOrgan.ListIndex) & "%' and organ_level=1 " & HaveOrganMark
        End If
    Else
        SSComboBoxEx4InLarge.Clear
    End If
End Sub

Private Sub SSComboBoxEx4InLarge_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate SSComboBoxEx4InLarge
    SSComboBoxEx4InSmall.text = ""
End Sub

Private Sub SSComboBoxEx4InSmall_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    DisplayRelateItems SSComboBoxEx4InSmall
End Sub

Private Sub SSComboBoxEx4InSmall_GotFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    If Trim(Me.SSComboBoxEx4InOrgan.text) <> "" Then
        If Trim(Me.SSComboBoxEx4InCompany.text) <> "" Then
            If Trim(SSComboBoxEx4InLarge.text) <> "" Then
                SSComboBoxEx4InLarge.CheckList = True
                FillComboBox SSComboBoxEx4InSmall, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=15 and   left(ORGAN_NO,12) like '" & SSComboBoxEx4InLarge.ItemData(SSComboBoxEx4InLarge.ListIndex) & "%' and organ_level=0 " & HaveOrganMark
            Else
                SSComboBoxEx4InCompany.CheckList = True
                FillComboBox SSComboBoxEx4InSmall, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4InCompany.ItemData(SSComboBoxEx4InCompany.ListIndex) & "%' and organ_level=0 " & HaveOrganMark
            End If
        Else
            If Trim(SSComboBoxEx4InLarge.text) <> "" Then
                SSComboBoxEx4InLarge.CheckList = True
                FillComboBox SSComboBoxEx4InSmall, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=12 and   left(ORGAN_NO,9) like '" & SSComboBoxEx4InLarge.ItemData(SSComboBoxEx4InLarge.ListIndex) & "%' and organ_level=0 " & HaveOrganMark
            Else
                SSComboBoxEx4Organ.CheckList = True
                FillComboBox SSComboBoxEx4InSmall, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where Len(ORGAN_NO)=9 and   left(ORGAN_NO,6) like '" & SSComboBoxEx4InOrgan.ItemData(SSComboBoxEx4InOrgan.ListIndex) & "%' and organ_level=0 " & HaveOrganMark
            End If
        End If
    Else
        SSComboBoxEx4InSmall.Clear
    End If
End Sub

Private Sub SSComboBoxEx4InSmall_LostFocus()
    If Me.Command4Close.Enabled = False Then Exit Sub
    CheckValidate SSComboBoxEx4InSmall
End Sub

Private Sub SSSpin4No_Change()
    If Me.Command4Close.Enabled = False Then Exit Sub
    MousePointer = 11
    Me.SSSpin4No.EnableContextMenu = False
    Me.Command4Close.Enabled = False
    LoadData g_array4WorkerType(2, Me.SSSpin4No.text), g_array4WorkerType(1, Me.SSSpin4No.text), g_array4WorkerType(3, Me.SSSpin4No)
    Me.SSSpin4No.EnableContextMenu = True
    Me.Command4Close.Enabled = True
    MousePointer = 1
End Sub
上一页 1 2 34
💿 文件大小 3193 K
👤 上传用户 zhang8818200
📂 所属分类企业管理
🏷️ 相关标签

#管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -