frmempremoveedit.frm

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

      Begin VB.Label Label5 
         Caption         =   "调动起始时间"
         Height          =   360
         Left            =   30
         TabIndex        =   15
         Top             =   1980
         Width           =   1515
      End
      Begin VB.Label Label4 
         Caption         =   " 职工移动类别"
         Height          =   360
         Left            =   3135
         TabIndex        =   13
         Top             =   1590
         Width           =   1515
      End
      Begin VB.Label Label3 
         Caption         =   "姓名"
         Height          =   360
         Left            =   30
         TabIndex        =   12
         Top             =   1590
         Width           =   1515
      End
      Begin VB.Label Label2 
         Caption         =   "接收单位"
         Height          =   360
         Left            =   30
         TabIndex        =   7
         Top             =   810
         Width           =   1515
      End
      Begin VB.Label Label1 
         Caption         =   "原工作单位"
         Height          =   360
         Left            =   30
         TabIndex        =   6
         Top             =   30
         Width           =   1515
      End
   End
End
Attribute VB_Name = "frmEmpRemoveEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_strSQL As String
Private m_oRs4This As New ADODB.Recordset
Public m_iRemoveType As Long
Private m_str4OutOrganName As String
Private m_str4InOrganName As String

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_click()
    If Me.SSComboBoxEx4Name.ListIndex > -1 Then
        If m_iRemoveType = C_Add_No_OutOrgan Then
            SSComboBoxEx4Name.ToolTipText = GetToolTipText(Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex), HaveOrganNo(Me.SSComboBoxEx4InSmall, Me.SSComboBoxEx4InLarge, Me.SSComboBoxEx4InCompany, Me.SSComboBoxEx4InOrgan))
        Else
            SSComboBoxEx4Name.ToolTipText = GetToolTipText(Me.SSComboBoxEx4Name.ItemData(Me.SSComboBoxEx4Name.ListIndex), HaveOrganNo(Me.SSComboBoxEx4Small, Me.SSComboBoxEx4Large, Me.SSComboBoxEx4Company, Me.SSComboBoxEx4Organ))
        End If
    Else
        SSComboBoxEx4Name.ToolTipText = ""
    End If
End Sub

Private Sub SSComboBoxEx4Name_GotFocus()
    Dim strTemp As String
    If Me.Command4Close.Enabled = False Then Exit Sub
    If m_iRemoveType = C_Add_No_OutOrgan Then
        If Trim(Me.SSComboBoxEx4InSmall.text) <> "" Then
            SSComboBoxEx4InSmall.CheckList = True
            FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4InSmall.ItemData(Me.SSComboBoxEx4InSmall.ListIndex) & "'" & HaveEmpMark
        ElseIf Trim(Me.SSComboBoxEx4InLarge.text) <> "" Then
            SSComboBoxEx4InLarge.CheckList = True
            FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4InLarge.ItemData(Me.SSComboBoxEx4InLarge.ListIndex) & "'" & HaveEmpMark
        ElseIf Trim(Me.SSComboBoxEx4InCompany.text) <> "" Then
            Me.SSComboBoxEx4InCompany.CheckList = True
            FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4InCompany.ItemData(Me.SSComboBoxEx4InCompany.ListIndex) & "'" & HaveEmpMark
        ElseIf Trim(Me.SSComboBoxEx4InOrgan.text) <> "" Then
            SSComboBoxEx4Organ.CheckList = True
            FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " where organ_no like '" & Me.SSComboBoxEx4InOrgan.ItemData(Me.SSComboBoxEx4InOrgan.ListIndex) & "'" & HaveEmpMark
        Else
            Me.SSComboBoxEx4Name.Clear
        End If
    Else
        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 If
End Sub

Private Sub Command4Close_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Me.Height = 3645
    Me.Width = 6360
    Me.Command4Close.Enabled = False
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        Me.SSComboBoxEx4Organ.Enabled = False
        Me.SSComboBoxEx4Company.Enabled = False
        Me.SSComboBoxEx4Large.Enabled = False
        Me.SSComboBoxEx4Small.Enabled = False
        Me.SSComboBoxEx4InOrgan.Enabled = False
        Me.SSComboBoxEx4InCompany.Enabled = False
        Me.SSComboBoxEx4InLarge.Enabled = False
        Me.SSComboBoxEx4InSmall.Enabled = False
    End If
    If g_int4statuse = 1 Then
        Me.SSComboBoxEx4InCompany.Enabled = False
        SSComboBoxEx4InLarge.Enabled = False
        SSComboBoxEx4InSmall.Enabled = False
        SSComboBoxEx4Company.Enabled = False
        SSComboBoxEx4Large.Enabled = False
        SSComboBoxEx4Small.Enabled = False
        If g_int4rowstate = 1 Then
            SSSpin4No.Visible = False
            SSSpin4No.text = 1
        Else
            SSSpin4No.Visible = True
            SSSpin4No.SpinDatatype = ssNumerics
            SSSpin4No.MaxValue = g_int4rowstate
            SSSpin4No.MinValue = 1
            SSSpin4No.Increment = 1
            SSSpin4No.text = 1
        End If
        Command4Close.Enabled = True
        SSSpin4No_Change
    Else
        If m_iRemoveType = C_SubStract_No_InOrgan Then
            Me.SSComboBoxEx4InOrgan.Style = ssSimpleCombo
        ElseIf m_iRemoveType = C_Add_No_OutOrgan Then
            Me.SSComboBoxEx4Organ.Style = ssSimpleCombo
        End If
        Me.Check4All.Enabled = False
        Me.Check4In.Enabled = False
        SSSpin4No.Visible = False
        FreezeSScombo
        If m_iRemoveType <> C_Inside Then
            FillComboBox Me.Combo4Sort, "t_remove_sort", "remove_sort_No", "remove_sort_name", , " where REMOVE_OUT_MARK=" & m_iRemoveType
        Else
            Me.Combo4Sort.ListIndex = -1
            Me.Combo4Sort.Enabled = False
        End If
    End If
    Me.Command4Close.Enabled = True
End Sub

Private Sub FreezeSScombo()
    Me.SSComboBoxEx4InCompany.Visible = True
    SSComboBoxEx4InLarge.Visible = True
    SSComboBoxEx4InSmall.Visible = True
    SSComboBoxEx4Company.Visible = True
    SSComboBoxEx4Large.Visible = True
    SSComboBoxEx4Small.Visible = True
    Me.Combo4Sort.Enabled = True
    Me.Check4Out.Enabled = True
    Me.Check4In.Enabled = True
    Me.Check4All.Enabled = False
    If m_iRemoveType = C_SubStract_No_InOrgan Or m_iRemoveType = C_SubStract_Have_InOrgan Then
        Me.SSComboBoxEx4InCompany.Visible = False
        SSComboBoxEx4InLarge.Visible = False
        SSComboBoxEx4InSmall.Visible = False
        If g_int4statuse = 0 Then
            FillComboBox SSComboBoxEx4Organ, "T_ORGAN", "ORGAN_NO", "ORGAN_NAME", 0, " where ORGAN_NO like '" & g_str4LoginUnit & "'" & HaveOrganMark
            SSComboBoxEx4Organ.ListIndex = 0
            SSComboBoxEx4Organ.Enabled = False
            Me.Check4In.Enabled = False
        Else
            If Me.Check4Out.Value = Checked And Me.Check4All.Value = Checked And Me.Check4In.Value = Unchecked And g_str4LoginUnit Like SSComboBoxEx4InOrgan.ItemData(SSComboBoxEx4InOrgan.ListIndex) Then
                Me.Check4In.Enabled = True
            Else
                Me.Check4In.Enabled = False
            End If
        End If
        If m_iRemoveType = C_SubStract_Have_InOrgan Then
            If g_int4statuse = 1 Then
                Me.Check4Out.Enabled = False
            Else
                Me.Check4Out.Enabled = True
            End If
        Else
            Me.Check4Out.Enabled = False
        End If
    ElseIf m_iRemoveType = C_Add_Have_OutOrgan Then
        Me.SSComboBoxEx4InCompany.Visible = False
        SSComboBoxEx4InLarge.Visible = False
        SSComboBoxEx4InSmall.Visible = False
        Me.Check4Out.Enabled = False
        Me.Check4In.Enabled = True
    ElseIf m_iRemoveType = C_Add_No_OutOrgan Then
        SSComboBoxEx4Company.Visible = False
        SSComboBoxEx4Large.Visible = False
        SSComboBoxEx4Small.Visible = False
        If g_int4statuse = 0 Then
            PrcessSSComboxExFormLoad SSComboBoxEx4InOrgan, SSComboBoxEx4InCompany, SSComboBoxEx4InLarge, SSComboBoxEx4InSmall, g_str4LoginUnit, g_str4LoginUnitLevel
        End If
        Me.Check4Out.Enabled = False
        Me.Check4In.Enabled = False
    ElseIf m_iRemoveType = C_Inside Then
        If g_int4statuse = 0 Then
            PrcessSSComboxExFormLoad SSComboBoxEx4InOrgan, SSComboBoxEx4InCompany, SSComboBoxEx4InLarge, SSComboBoxEx4InSmall, g_str4LoginUnit, g_str4LoginUnitLevel
            PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
        End If
        Me.Combo4Sort.Enabled = False
        Combo4Sort.ListIndex = -1
        Me.Check4Out.Enabled = False
        Me.Check4In.Enabled = False
        Me.Check4All.Enabled = False
    End If
End Sub

Private Sub LoadData(ByVal FoldOrgan As String, ByVal organNo As String, ByVal No As Long)
    m_strSQL = "select emp_no,t_emp_remove.organ_no as out_organ,FOLD_ORGAN,EMP_REMOVE_ID,t_emp_remove.REMOVE_SORT_NO as remove_sort_no,START_END_SALARY,REMOVE_START_END_DATE,REMOVE_OUT_MARK,REMOVE_MARK,out_organ_name,in_organ_name,t_in_organ.organ_level as in_level,t_out_organ.organ_level as out_level,out_organ_name,in_organ_name FROM t_emp_remove,t_remove_sort,t_organ as t_in_organ ,t_organ as t_out_organ " _
            & " where t_remove_sort.REMOVE_SORT_NO=*t_emp_remove.REMOVE_SORT_NO and fold_organ='" & FoldOrgan & "' and t_emp_remove.organ_no='" & organNo & "' and EMP_REMOVE_ID=" & No _
            & " and t_in_organ.organ_no=fold_organ and t_out_organ.organ_no=t_emp_remove.organ_no "
    If m_oRs4This.State = adStateOpen Then m_oRs4This.Close
    m_oRs4This.CursorLocation = adUseClient
    m_oRs4This.Open m_strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
    If Not IsNull(m_oRs4This.Fields("REMOVE_OUT_MARK").Value) Then
        m_iRemoveType = m_oRs4This.Fields("REMOVE_OUT_MARK").Value
        FillComboBox Me.Combo4Sort, "t_remove_sort", "remove_sort_No", "remove_sort_name", , " where REMOVE_OUT_MARK=" & m_iRemoveType
        Me.Combo4Sort.ListIndex = FindIndex(m_oRs4This.Fields("remove_sort_no").Value, Me.Combo4Sort)
    Else
        m_iRemoveType = C_Inside
    End If
    If m_iRemoveType = C_SubStract_Have_InOrgan Then
        Me.SSComboBoxEx4Organ.Style = ssDropDownCombo
        Me.SSComboBoxEx4InOrgan.Style = ssDropDownCombo
        GetOutOrgan
        GetInOrgan
    ElseIf m_iRemoveType = C_SubStract_No_InOrgan Then
        Me.SSComboBoxEx4Organ.Style = ssDropDownCombo
        Me.SSComboBoxEx4InOrgan.Style = ssSimpleCombo
        GetOutOrgan
        Me.SSComboBoxEx4InOrgan.text = CheckVariant(m_oRs4This.Fields("in_organ_name").Value)
        Me.SSComboBoxEx4InOrgan.Enabled = True
    ElseIf m_iRemoveType = C_Add_Have_OutOrgan Or m_iRemoveType = C_Inside Then
        Me.SSComboBoxEx4Organ.Style = ssDropDownCombo
        Me.SSComboBoxEx4InOrgan.Style = ssDropDownCombo
        GetOutOrgan
        GetInOrgan
    ElseIf m_iRemoveType = C_Add_No_OutOrgan Then
        Me.SSComboBoxEx4Organ.Style = ssSimpleCombo
        Me.SSComboBoxEx4InOrgan.Style = ssDropDownCombo
        GetInOrgan
        Me.SSComboBoxEx4Organ.text = CheckVariant(m_oRs4This.Fields("out_organ_name").Value)
        SSComboBoxEx4Organ.Enabled = True
    End If
    FillComboBox Me.SSComboBoxEx4Name, "t_emp_basic", "emp_no", "emp_name", , " ,t_organ WHERE t_organ.organ_no=t_emp_basic.organ_no and t_organ.ORGAN_NO like '" & m_oRs4This.Fields("out_organ").Value & "'and emp_no=" & m_oRs4This.Fields("emp_no").Value
    Me.SSComboBoxEx4Name.ListIndex = 0
    'SSComboBoxEx4Name.ToolTipText = GetToolTipText(m_oRs4This.Fields("emp_no").Value, m_oRs4This.Fields("fold_organ").Value)
    Me.SSComboBoxEx4Name.Enabled = False
    Me.DTPicker4Start.Value = ConvertInt2Date(m_oRs4This.Fields("REMOVE_START_END_DATE").Value)
    Me.DTPicker4Salary.Value = ConvertInt2Date(m_oRs4This.Fields("START_END_SALARY").Value)
    If m_oRs4This.Fields("REMOVE_MARK").Value = 1 Then
        Me.Check4Out.Value = Checked
        Me.Check4All.Value = Unchecked
        Me.Check4In.Value = Unchecked
    ElseIf m_oRs4This.Fields("REMOVE_MARK").Value = 2 Then
        Me.Check4Out.Value = Checked
        Me.Check4All.Value = Checked
        Me.Check4In.Value = Unchecked
    ElseIf m_oRs4This.Fields("REMOVE_MARK").Value = 3 Then
        Me.Check4Out.Value = Checked
        Me.Check4All.Value = Checked
        Me.Check4In.Value = Checked
    End If
    FreezeSScombo
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        Freeze
        If m_iRemoveType <> C_SubStract_Have_InOrgan Then
            Check4All.Enabled = False
            Me.Command4Save.Enabled = False
        Else
            If m_oRs4This.Fields("REMOVE_MARK").Value <> 1 Then
                Me.Check4All.Enabled = False
                Me.Command4Save.Enabled = False
            Else
                Me.Check4All.Enabled = True
                Me.Command4Save.Enabled = True
            End If