frmempman.frm

开发人力资源管理系统的目的就是帮助企业的人力资源部门提高工作效率,实现企业认识信息管理的系统化,规范化和自动化.根据这个系统所要实现的目的和任务,总结出这个系统最终实现的主要功能如下: 1.部门信息

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form FrmEmpMan 
   Caption         =   "员工信息管理"
   ClientHeight    =   6855
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   ScaleHeight     =   6855
   ScaleWidth      =   11880
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      BackColor       =   &H80000004&
      ForeColor       =   &H00808000&
      Height          =   4935
      Left            =   2640
      TabIndex        =   9
      Top             =   480
      Width           =   9015
      Begin VB.Label Lbl_Upper 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "Upper"
         DataField       =   "UpperId"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   180
         Left            =   6000
         TabIndex        =   73
         Top             =   3960
         Width           =   450
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "上级员工"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   4800
         TabIndex        =   72
         Top             =   3960
         Width           =   780
      End
      Begin VB.Line Line30 
         X1              =   5880
         X2              =   5880
         Y1              =   3840
         Y2              =   4560
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "性别"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   2520
         TabIndex        =   71
         Top             =   360
         Width           =   390
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "出生日期"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   120
         TabIndex        =   70
         Top             =   705
         Width           =   780
      End
      Begin VB.Label Lbl_Emp_Name 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "name"
         DataField       =   "Emp_NAME"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   180
         Left            =   1320
         TabIndex        =   69
         Top             =   360
         Width           =   360
      End
      Begin VB.Label Lbl_Birth 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "year-month-day"
         DataField       =   "Birth"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   180
         Left            =   1320
         TabIndex        =   68
         Top             =   705
         Width           =   1260
      End
      Begin VB.Label Lbl_Position 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "Position"
         DataField       =   "Position"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   180
         Left            =   1320
         TabIndex        =   67
         Top             =   3960
         Width           =   720
      End
      Begin VB.Label Lbl_OfficePhone 
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "OfficePhone"
         DataField       =   "Office_phone"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   225
         Left            =   1320
         TabIndex        =   66
         Top             =   1770
         Width           =   1080
      End
      Begin VB.Label Lbl_Bp 
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "小灵通"
         DataField       =   "Mini"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   225
         Left            =   1320
         TabIndex        =   65
         Top             =   2100
         Width           =   1905
      End
      Begin VB.Label Lbl_HomePhone 
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "HomePhone"
         DataField       =   "Home_phone"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   225
         Left            =   3480
         TabIndex        =   64
         Top             =   1755
         Width           =   1035
      End
      Begin VB.Label Lbl_Mobile 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "Mobile"
         DataField       =   "Mobile"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   180
         Left            =   6000
         TabIndex        =   63
         Top             =   1755
         Width           =   540
      End
      Begin VB.Label Lbl_Residence 
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "Residence"
         DataField       =   "Residence"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   180
         Left            =   6000
         TabIndex        =   62
         Top             =   2115
         Width           =   2850
      End
      Begin VB.Label Label25 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "籍贯"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   180
         Left            =   2520
         TabIndex        =   61
         Top             =   1058
         Width           =   390
      End
      Begin VB.Label Lbl_Sex 
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "sex"
         DataField       =   "Sex"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   225
         Left            =   3480
         TabIndex        =   60
         Top             =   360
         Width           =   1125
      End
      Begin VB.Label Lbl_Family_Place 
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "Family_Place"
         DataField       =   "Family_Place"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00800080&
         Height          =   225
         Left            =   3480
         TabIndex        =   59
         Top             =   1058
         Width           =   1140
      End
      Begin VB.Label Lbl_HireDate 
         AutoSize        =   -1  'True
         BackColor       =   &H00FFC0C0&
         BackStyle       =   0  'Transparent
         Caption         =   "HireDate"
         DataField       =   "HireDate"
         DataSource      =   "AdoEmpDetail"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty