frmpaymanage.frm

人事工资管理系统应包含对员工档案、员工培训、员工调动、员工职称评定、员工奖惩的管理和工资的查询与管理等诸多模块。员工档案管理模块对员工信息进行添加、修改、删除和查询；员工培训管理模块可增加

         End
      End
      Begin VB.PictureBox PicFrame 
         Height          =   495
         Index           =   3
         Left            =   240
         ScaleHeight     =   435
         ScaleWidth      =   5835
         TabIndex        =   5
         Top             =   2880
         Width           =   5895
         Begin VB.TextBox TxtSafety 
            Height          =   300
            Left            =   4080
            TabIndex        =   30
            Top             =   75
            Width           =   1575
         End
         Begin VB.TextBox TxtAnnuities 
            Height          =   300
            Left            =   1200
            TabIndex        =   29
            Top             =   75
            Width           =   1575
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   20
            Left            =   5715
            TabIndex        =   40
            Top             =   135
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   14
            Left            =   2835
            TabIndex        =   39
            Top             =   135
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "养 老 金："
            Height          =   180
            Index           =   5
            Left            =   240
            TabIndex        =   7
            Top             =   135
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "医疗保险："
            Height          =   180
            Index           =   11
            Left            =   3120
            TabIndex        =   6
            Top             =   135
            Width           =   900
         End
      End
      Begin VB.PictureBox PicFrame 
         Height          =   1095
         Index           =   1
         Left            =   240
         ScaleHeight     =   1035
         ScaleWidth      =   5835
         TabIndex        =   1
         Top             =   120
         Width           =   5895
         Begin VB.TextBox TxtBrach 
            Enabled         =   0   'False
            Height          =   330
            Left            =   1200
            TabIndex        =   22
            Top             =   585
            Width           =   1575
         End
         Begin VB.TextBox TxtName 
            Enabled         =   0   'False
            Height          =   330
            Left            =   4080
            TabIndex        =   21
            Top             =   150
            Width           =   1575
         End
         Begin MSDataListLib.DataCombo CmbCode 
            Height          =   330
            Left            =   1200
            TabIndex        =   20
            Top             =   150
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   582
            _Version        =   393216
            Style           =   2
            Text            =   ""
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "员工编号："
            Height          =   180
            Index           =   0
            Left            =   240
            TabIndex        =   4
            Top             =   225
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "员工姓名："
            Height          =   180
            Index           =   1
            Left            =   3120
            TabIndex        =   3
            Top             =   225
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "所在部门："
            Height          =   180
            Index           =   7
            Left            =   240
            TabIndex        =   2
            Top             =   660
            Width           =   900
         End
      End
   End
   Begin WinXPC_Engine.WindowsXPC WinXPPayManage 
      Left            =   1440
      Top             =   360
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
End
Attribute VB_Name = "FrmPayManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmbCode_Change()
If RstPayRecord.State = adStateOpen Then
RstPayRecord.Close              '//关闭记录集
End If
RstPayRecord.Open "select *from 员工档案 where 员工编号='" & CmbCode.Text & "' ", DBCON, adOpenKeyset, adLockOptimistic, adCmdText
    TxtName.Text = RstPayRecord.Fields(1).Value     '//给文本框赋值
    TxtBrach.Text = RstPayRecord.Fields(16).Value
End Sub

Private Sub cmdOK_Click()
If RsAddPay.State = adStateClosed Then
    RsAddPay.Open "员工工资", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable
End If
On Error GoTo ERRAdd            '//错误捕捉
RsAddPay.AddNew
Call AddPay
RsAddPay.Update
'CmbCode.Text = Empty
'TxtName.Text = Empty
'TxtBrach.Text = Empty
TxtPay.Text = Empty
TxtTimeOver.Text = Empty
TxtAllowance.Text = Empty
TxtRent.Text = Empty
TxtBonus.Text = Empty
TxtOther.Text = Empty
TxtAnnuities.Text = Empty
TxtSafety.Text = Empty
TxtVPay.Text = Empty
DTPicker1.Value = Date
MsgBox "数据已被保存", , "保存成功"
Exit Sub
ERRAdd:
    Select Case Err.Number
        Case -2147217887
            MsgBox "编号不能为空", vbInformation + vbOKOnly, "输入错误"
            RsRecord.CancelUpdate
        Case -2147352571
            MsgBox "没选择编号或带 * 内容没填,若没有请输入 0 ", vbInformation + vbOKOnly, "输入错误"
            RsAddPay.CancelUpdate
        Case Else
            MsgBox "错误描述：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "非法操作"
    End Select
End Sub
Private Sub AddPay()
RsAddPay.Fields(0).Value = CmbCode.Text
RsAddPay.Fields(1).Value = TxtName.Text
RsAddPay.Fields(2).Value = TxtBrach.Text
RsAddPay.Fields(3).Value = TxtPay.Text
RsAddPay.Fields(4).Value = TxtTimeOver.Text
RsAddPay.Fields(5).Value = TxtAllowance.Text
RsAddPay.Fields(6).Value = TxtRent.Text
RsAddPay.Fields(7).Value = TxtBonus.Text
RsAddPay.Fields(8).Value = TxtOther.Text
RsAddPay.Fields(9).Value = TxtAnnuities.Text
RsAddPay.Fields(10).Value = TxtSafety.Text
RsAddPay.Fields(11).Value = TxtVPay.Text
RsAddPay.Fields(12).Value = DTPicker1.Value
End Sub


Private Sub CmdRetrun_Click()
Unload Me
End Sub

Private Sub Form_Load()
WinXPPayManage.InitSubClassing

Me.Left = Frmmdimain.Width / 5
Me.Top = Frmmdimain.Height / 20
If RsPayRecord.State = adStateClosed Then
RsPayRecord.Open "员工档案", DBCON, adOpenKeyset, adLockOptimistic, adCmdTable
End If
Set CmbCode.RowSource = RsPayRecord
CmbCode.BoundColumn = "员工编号"
CmbCode.ListField = "员工编号"
End Sub
Private Sub Change()        '计算实发工资的过程
TxtVPay.Text = Val(TxtPay.Text) + Val(TxtTimeOver.Text) + Val(TxtAllowance.Text) + Val(TxtRent.Text) + Val(TxtBonus.Text) + Val(TxtOther.Text) - Val(TxtAnnuities.Text) - Val(TxtSafety.Text)
End Sub

Private Sub TxtAllowance_Change()
Call Change
End Sub

Private Sub TxtAnnuities_Change()
Call Change
End Sub

Private Sub TxtBonus_Change()
Call Change
End Sub

Private Sub TxtOther_Change()
Call Change
End Sub

Private Sub TxtPay_Change()
Call Change
End Sub

Private Sub TxtRent_Change()
Call Change
End Sub

Private Sub TxtSafety_Change()
Call Change
End Sub

Private Sub TxtTimeOver_Change()
Call Change
End Sub

Private Sub TxtVPay_Change()
Call Change
End Sub