frmwagetunelevel.frm

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

            Left            =   2400
            TabIndex        =   9
            Top             =   240
            Width           =   915
         End
         Begin VB.OptionButton Option4Add 
            Caption         =   "增员"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   480
            TabIndex        =   8
            Top             =   240
            Width           =   1215
         End
      End
      Begin vsOcx6LibCtl.vsElastic vsElastic4Bound 
         Height          =   630
         Left            =   30
         TabIndex        =   3
         TabStop         =   0   'False
         Top             =   30
         Width           =   4590
         _ExtentX        =   8096
         _ExtentY        =   1111
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Enabled         =   -1  'True
         Appearance      =   1
         MousePointer    =   0
         _ConvInfo       =   -1
         Version         =   600
         BackColor       =   -2147483633
         ForeColor       =   -2147483630
         FloodColor      =   192
         ForeColorDisabled=   -2147483631
         Caption         =   "调动范围"
         Align           =   0
         Appearance      =   1
         AutoSizeChildren=   0
         BorderWidth     =   6
         ChildSpacing    =   4
         Splitter        =   0   'False
         FloodDirection  =   0
         FloodPercent    =   0
         CaptionPos      =   1
         WordWrap        =   -1  'True
         MaxChildSize    =   0
         MinChildSize    =   0
         TagWidth        =   0
         TagPosition     =   0
         Style           =   1
         TagSplit        =   0   'False
         PicturePos      =   4
         CaptionStyle    =   0
         ResizeFonts     =   0   'False
         GridRows        =   0
         GridCols        =   0
         _GridInfo       =   ""
         Begin VB.OptionButton Option4Intrinsic 
            Caption         =   "内部"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   2400
            TabIndex        =   5
            Top             =   240
            Width           =   1575
         End
         Begin VB.OptionButton Option4Exterior 
            Caption         =   "外部"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   480
            TabIndex        =   4
            Top             =   240
            Width           =   1395
         End
      End
      Begin VB.CommandButton Command4Ok 
         Caption         =   "确定(&Y)"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   1560
         TabIndex        =   2
         Top             =   1920
         Width           =   1515
      End
      Begin VB.CommandButton Command4Cancel 
         Caption         =   "取消(&C)"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   3105
         TabIndex        =   1
         Top             =   1920
         Width           =   1515
      End
   End
End
Attribute VB_Name = "frmEmpRemovePrompt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command4Cancel_Click()
    Unload Me
End Sub

Private Sub Command4Ok_Click()
    If Me.Option4Intrinsic.Value = True Then
        frmEmpRemoveEdit.m_iRemoveType = 4
    Else
        If Me.Option4Add.Value = True Then
            If Me.Option4In.Value = True Then
                frmEmpRemoveEdit.m_iRemoveType = 3
            ElseIf Me.Option4Out.Value = True Then
                frmEmpRemoveEdit.m_iRemoveType = 2
            Else
                MsgBox "调动机构信息", vbOKOnly, "提示"
                Exit Sub
            End If
        ElseIf Me.Option4Subtract.Value = True Then
            If Me.Option4In.Value = True Then
                frmEmpRemoveEdit.m_iRemoveType = 1
            ElseIf Me.Option4Out.Value = True Then
                frmEmpRemoveEdit.m_iRemoveType = 0
            Else
                MsgBox "调动机构信息", vbOKOnly, "提示"
                Exit Sub
            End If
        Else
            MsgBox "请选择调动方向", vbOKOnly, "提示"
            Exit Sub
        End If
    End If
    Unload Me
    frmEmpRemoveEdit.Show 1
End Sub

Private Sub Form_Load()
    Me.Option4Exterior.Value = True
End Sub

Private Sub Option4Add_Click()
    Me.vsElastic4Organ.Enabled = False
    Me.Option4In.Value = True
    Me.Option4Out.Value = False
End Sub

Private Sub Option4Exterior_Click()
    Me.vsElastic4Organ.Enabled = True
    Me.vsElastic4AddOrSubtract.Enabled = True
End Sub

Private Sub Option4Intrinsic_Click()
    If Me.Option4Intrinsic.Value = True Then
        Me.vsElastic4AddOrSubtract.Enabled = False
        Me.Option4Add.Value = False
        Me.Option4Subtract.Value = False
        Me.vsElastic4Organ.Enabled = False
        Me.Option4In.Value = False
        Me.Option4Out.Value = False
    Else
        Me.vsElastic4AddOrSubtract.Enabled = True
        Me.vsElastic4Organ.Enabled = True
    End If
End Sub

Private Sub Option4Subtract_Click()
    Me.vsElastic4Organ.Enabled = True
End Sub