frmpaymanage.frm

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

VERSION 5.00
Object = "{3A6644DE-3402-11D9-9DE7-C33FAA87690A}#1.0#0"; "WinXPCEngine.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form FrmPayManage 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "工资管理"
   ClientHeight    =   5280
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6615
   Icon            =   "FrmPayManage.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5280
   ScaleWidth      =   6615
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton CmdOK 
      Caption         =   "确认(&O)"
      Default         =   -1  'True
      Height          =   375
      Left            =   3960
      TabIndex        =   19
      Top             =   4680
      Width           =   1215
   End
   Begin VB.CommandButton CmdRetrun 
      Caption         =   "返回(&C)"
      Height          =   375
      Left            =   5280
      TabIndex        =   18
      Top             =   4680
      Width           =   1215
   End
   Begin VB.PictureBox PicFrame 
      Height          =   4335
      Index           =   0
      Left            =   120
      ScaleHeight     =   4275
      ScaleWidth      =   6315
      TabIndex        =   0
      Top             =   120
      Width           =   6375
      Begin VB.PictureBox PicFrame 
         Height          =   495
         Index           =   4
         Left            =   240
         ScaleHeight     =   435
         ScaleWidth      =   5835
         TabIndex        =   15
         Top             =   3600
         Width           =   5895
         Begin VB.TextBox TxtVPay 
            Enabled         =   0   'False
            Height          =   300
            Left            =   1200
            TabIndex        =   31
            Top             =   60
            Width           =   1575
         End
         Begin MSComCtl2.DTPicker DTPicker1 
            Height          =   300
            Left            =   4080
            TabIndex        =   32
            Top             =   60
            Width           =   1575
            _ExtentX        =   2778
            _ExtentY        =   529
            _Version        =   393216
            Format          =   25427969
            CurrentDate     =   39212
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "实发工资："
            Height          =   180
            Index           =   6
            Left            =   240
            TabIndex        =   17
            Top             =   120
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "计发时间："
            Height          =   180
            Index           =   12
            Left            =   3120
            TabIndex        =   16
            Top             =   120
            Width           =   900
         End
      End
      Begin VB.PictureBox PicFrame 
         Height          =   1455
         Index           =   2
         Left            =   240
         ScaleHeight     =   1395
         ScaleWidth      =   5835
         TabIndex        =   8
         Top             =   1320
         Width           =   5895
         Begin VB.TextBox TxtOther 
            Height          =   300
            Left            =   4080
            TabIndex        =   28
            Top             =   930
            Width           =   1575
         End
         Begin VB.TextBox TxtBonus 
            Height          =   300
            Left            =   1200
            TabIndex        =   27
            Top             =   930
            Width           =   1575
         End
         Begin VB.TextBox TxtRent 
            Height          =   300
            Left            =   4080
            TabIndex        =   26
            Top             =   570
            Width           =   1575
         End
         Begin VB.TextBox TxtAllowance 
            Height          =   300
            Left            =   1200
            TabIndex        =   25
            Top             =   570
            Width           =   1575
         End
         Begin VB.TextBox TxtTimeOver 
            Height          =   300
            Left            =   4080
            TabIndex        =   24
            Top             =   210
            Width           =   1575
         End
         Begin VB.TextBox TxtPay 
            Height          =   300
            Left            =   1200
            TabIndex        =   23
            Top             =   210
            Width           =   1575
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   19
            Left            =   2835
            TabIndex        =   38
            Top             =   630
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   18
            Left            =   5715
            TabIndex        =   37
            Top             =   270
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   17
            Left            =   5715
            TabIndex        =   36
            Top             =   630
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   16
            Left            =   2835
            TabIndex        =   35
            Top             =   990
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   15
            Left            =   5715
            TabIndex        =   34
            Top             =   990
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "*"
            Height          =   180
            Index           =   13
            Left            =   2835
            TabIndex        =   33
            Top             =   270
            Width           =   90
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "底    薪："
            Height          =   180
            Index           =   2
            Left            =   240
            TabIndex        =   14
            Top             =   270
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "补    贴："
            Height          =   180
            Index           =   3
            Left            =   240
            TabIndex        =   13
            Top             =   630
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "奖    金："
            Height          =   180
            Index           =   4
            Left            =   240
            TabIndex        =   12
            Top             =   990
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "加 班 费："
            Height          =   180
            Index           =   8
            Left            =   3120
            TabIndex        =   11
            Top             =   270
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "房    贴："
            Height          =   180
            Index           =   9
            Left            =   3120
            TabIndex        =   10
            Top             =   630
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "其    它："
            Height          =   180
            Index           =   10
            Left            =   3120
            TabIndex        =   9
            Top             =   990
            Width           =   900