frmrecord.frm

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

            Left            =   4560
            TabIndex        =   15
            Top             =   1980
            Width           =   1695
            _ExtentX        =   2990
            _ExtentY        =   529
            _Version        =   393216
            Enabled         =   0   'False
            Format          =   66125825
            CurrentDate     =   39212
         End
         Begin MSDataListLib.DataCombo TxtBranch 
            Height          =   330
            Left            =   4560
            TabIndex        =   16
            Top             =   2325
            Width           =   1695
            _ExtentX        =   2990
            _ExtentY        =   582
            _Version        =   393216
            Enabled         =   0   'False
            Text            =   ""
         End
         Begin MSDataListLib.DataCombo TxtTiltle 
            Height          =   330
            Left            =   4560
            TabIndex        =   18
            Top             =   3045
            Width           =   1695
            _ExtentX        =   2990
            _ExtentY        =   582
            _Version        =   393216
            Enabled         =   0   'False
            Text            =   ""
         End
         Begin VB.Label LblTitleDate 
            AutoSize        =   -1  'True
            Caption         =   "职称时间："
            Height          =   180
            Left            =   3120
            TabIndex        =   60
            Top             =   3480
            Width           =   900
         End
         Begin VB.Label LblTiltle 
            AutoSize        =   -1  'True
            Caption         =   "职    称："
            Height          =   180
            Left            =   3120
            TabIndex        =   59
            Top             =   3120
            Width           =   900
         End
         Begin VB.Label LblInBranchDate 
            AutoSize        =   -1  'True
            Caption         =   "调入部门时间："
            Height          =   180
            Left            =   3120
            TabIndex        =   58
            Top             =   2760
            Width           =   1260
         End
         Begin VB.Label LblRiceDate 
            AutoSize        =   -1  'True
            Caption         =   "起薪时间："
            Height          =   180
            Left            =   3120
            TabIndex        =   57
            Top             =   2040
            Width           =   900
         End
         Begin VB.Label LblBranch 
            AutoSize        =   -1  'True
            Caption         =   "所在部门："
            Height          =   180
            Left            =   3120
            TabIndex        =   56
            Top             =   2400
            Width           =   900
         End
         Begin VB.Label LblInCompanyDate 
            AutoSize        =   -1  'True
            Caption         =   "进入公司时间："
            Height          =   180
            Left            =   3120
            TabIndex        =   55
            Top             =   1680
            Width           =   1260
         End
         Begin VB.Label LblAddress 
            AutoSize        =   -1  'True
            Caption         =   "家庭地址："
            Height          =   180
            Left            =   3120
            TabIndex        =   54
            Top             =   1320
            Width           =   900
         End
         Begin VB.Label LblEmail 
            AutoSize        =   -1  'True
            Caption         =   "电子邮箱："
            Height          =   180
            Left            =   3120
            TabIndex        =   53
            Top             =   960
            Width           =   900
         End
         Begin VB.Label LblPostCode 
            AutoSize        =   -1  'True
            Caption         =   "邮政编码："
            Height          =   180
            Left            =   3120
            TabIndex        =   52
            Top             =   600
            Width           =   900
         End
         Begin VB.Label LblTel 
            AutoSize        =   -1  'True
            Caption         =   "电话号码："
            Height          =   180
            Left            =   3120
            TabIndex        =   51
            Top             =   240
            Width           =   900
         End
         Begin VB.Label LblPolity 
            AutoSize        =   -1  'True
            Caption         =   "政治面貌："
            Height          =   180
            Left            =   240
            TabIndex        =   50
            Top             =   3480
            Width           =   900
         End
         Begin VB.Label LblMarrageState 
            AutoSize        =   -1  'True
            Caption         =   "婚姻状况："
            Height          =   180
            Left            =   240
            TabIndex        =   49
            Top             =   3120
            Width           =   900
         End
         Begin VB.Label LblIDCard 
            AutoSize        =   -1  'True
            Caption         =   "身份证号："
            Height          =   180
            Left            =   240
            TabIndex        =   48
            Top             =   2760
            Width           =   900
         End
         Begin VB.Label LblSubject 
            AutoSize        =   -1  'True
            Caption         =   "专    业："
            Height          =   180
            Left            =   240
            TabIndex        =   47
            Top             =   2400
            Width           =   900
         End
         Begin VB.Label LblEdu 
            AutoSize        =   -1  'True
            Caption         =   "学    历："
            Height          =   180
            Left            =   240
            TabIndex        =   46
            Top             =   2040
            Width           =   900
         End
         Begin VB.Label LblBrithday 
            AutoSize        =   -1  'True
            Caption         =   "出生日期："
            Height          =   180
            Left            =   240
            TabIndex        =   45
            Top             =   1680
            Width           =   900
         End
         Begin VB.Label LblPlace 
            AutoSize        =   -1  'True
            Caption         =   "籍    贯："
            Height          =   180
            Left            =   240
            TabIndex        =   44
            Top             =   1320
            Width           =   900
         End
         Begin VB.Label LblSex 
            AutoSize        =   -1  'True
            Caption         =   "性    别："
            Height          =   180
            Left            =   240
            TabIndex        =   43
            Top             =   960
            Width           =   900
         End
         Begin VB.Label LblName 
            AutoSize        =   -1  'True
            Caption         =   "员工姓名："
            Height          =   180
            Left            =   240
            TabIndex        =   42
            Top             =   600
            Width           =   900
         End
         Begin VB.Label LblCode 
            AutoSize        =   -1  'True
            Caption         =   "员工编号："
            Height          =   180
            Left            =   240
            TabIndex        =   41
            Top             =   240
            Width           =   900
         End
      End
      Begin VB.PictureBox PicFrame 
         Height          =   4095
         Index           =   1
         Left            =   -74760
         ScaleHeight     =   4035
         ScaleWidth      =   6435
         TabIndex        =   33
         Top             =   600
         Width           =   6495
         Begin VB.TextBox TxtForID 
            Enabled         =   0   'False
            Height          =   300
            Left            =   1560
            MaxLength       =   20
            TabIndex        =   20
            Top             =   180
            Width           =   1455
         End
         Begin VB.TextBox TxtForTitle 
            Enabled         =   0   'False
            Height          =   300
            Left            =   4680
            MaxLength       =   20
            TabIndex        =   21
            Top             =   180
            Width           =   1455
         End
         Begin VB.TextBox TxtForUnit 
            Enabled         =   0   'False
            Height          =   300
            Left            =   1560
            MaxLength       =   40
            TabIndex        =   22
            Top             =   540
            Width           =   1455
         End
         Begin VB.TextBox TxtWork 
            Enabled         =   0   'False
            Height          =   1095
            Left            =   1560
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   24
            Top             =   1320
            Width           =   4575
         End
         Begin VB.TextBox TxtBeiZhu 
            Enabled         =   0   'False
            Height          =   1095
            Left            =   1560
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   25
            Top             =   2640
            Width           =   4575
         End
         Begin MSComCtl2.DTPicker DTPForInToWork 
            Height          =   300
            Left            =   4680
            TabIndex        =   23
            Top             =   540
            Width           =   1455
            _ExtentX        =   2566
            _ExtentY        =   529
            _Version        =   393216
            Enabled         =   0   'False
            Format          =   66125825
            CurrentDate     =   39212
         End
         Begin VB.Label LblForID 
            AutoSize        =   -1  'True
            Caption         =   "原身份："
            Height          =   180
            Left            =   240
            TabIndex        =   39
            Top             =   240
            Width           =   720
         End
         Begin VB.Label LblForTitle 
            AutoSize        =   -1  'True
            Caption         =   "原职务："
            Height          =   180
            Left            =   3240
            TabIndex        =   38
            Top             =   240
            Width           =   720
         End
         Begin VB.Label LblForUnit 
            AutoSize        =   -1  'True
            Caption         =   "原来工作单位："
            Height          =   180
            Left            =   240
            TabIndex        =   37
            Top             =   600
            Width           =   1260
         End
         Begin VB.Label LblForInToWork 
            AutoSize        =   -1  'True
            Caption         =   "参加工作时间："
            Height          =   180
            Left            =   3240
            TabIndex        =   36
            Top             =   600
            Width           =   1260
         End
         Begin VB.Label LblWork 
            AutoSize        =   -1  'True