frmduty.frm

人事管理信息系统visual basic + my sql

VERSION 5.00
Begin VB.Form frmAddDuty 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "添加考勤信息"
   ClientHeight    =   5640
   ClientLeft      =   1095
   ClientTop       =   330
   ClientWidth     =   8280
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5640
   ScaleWidth      =   8280
   Begin VB.CommandButton cmdSave 
      Caption         =   "保存"
      Height          =   495
      Left            =   1800
      TabIndex        =   34
      Top             =   5040
      Width           =   1335
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出"
      Height          =   495
      Left            =   5040
      TabIndex        =   33
      Top             =   5040
      Width           =   1215
   End
   Begin VB.Frame Frame2 
      Caption         =   "考勤信息"
      Height          =   4575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7935
      Begin VB.TextBox txtFields 
         DataField       =   "年度"
         Height          =   285
         Index           =   0
         Left            =   1920
         TabIndex        =   16
         Top             =   540
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "月份"
         Height          =   285
         Index           =   1
         Left            =   5760
         TabIndex        =   15
         Top             =   540
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "部门"
         Height          =   285
         Index           =   2
         Left            =   1920
         TabIndex        =   14
         Top             =   1440
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "员工号"
         Height          =   285
         Index           =   3
         Left            =   1920
         TabIndex        =   13
         Top             =   960
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "姓名"
         Height          =   285
         Index           =   4
         Left            =   5760
         TabIndex        =   12
         Top             =   1028
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "全勤"
         Height          =   285
         Index           =   5
         Left            =   5760
         TabIndex        =   11
         Top             =   1516
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "病假"
         Height          =   285
         Index           =   6
         Left            =   1920
         TabIndex        =   10
         Top             =   2400
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "事假"
         Height          =   285
         Index           =   7
         Left            =   5760
         TabIndex        =   9
         Top             =   2004
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "其他假说明"
         Height          =   285
         Index           =   8
         Left            =   5760
         TabIndex        =   8
         Top             =   2492
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "其他假时间"
         Height          =   285
         Index           =   9
         Left            =   1920
         TabIndex        =   7
         Top             =   2880
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "旷工时间"
         Height          =   285
         Index           =   10
         Left            =   5760
         TabIndex        =   6
         Top             =   3960
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "延时加班时间"
         Height          =   285
         Index           =   11
         Left            =   5760
         TabIndex        =   5
         Top             =   2980
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "休息日加班时间"
         Height          =   285
         Index           =   12
         Left            =   1920
         TabIndex        =   4
         Top             =   3360
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "休假日加班时间"
         Height          =   285
         Index           =   13
         Left            =   5760
         TabIndex        =   3
         Top             =   3468
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "迟到早退次数"
         Height          =   285
         Index           =   14
         Left            =   1920
         TabIndex        =   2
         Top             =   3960
         Width           =   1695
      End
      Begin VB.TextBox txtFields 
         DataField       =   "应出勤天数"
         Height          =   285
         Index           =   15
         Left            =   1920
         TabIndex        =   1
         Top             =   1920
         Width           =   1695
      End
      Begin VB.Label lblLabels 
         Caption         =   "年度："
         Height          =   255
         Index           =   0
         Left            =   360
         TabIndex        =   32
         Top             =   540
         Width           =   855
      End
      Begin VB.Label lblLabels 
         Caption         =   "月份："
         Height          =   255
         Index           =   1
         Left            =   4080
         TabIndex        =   31
         Top             =   540
         Width           =   615
      End
      Begin VB.Label lblLabels 
         Caption         =   "部门："
         Height          =   255
         Index           =   2
         Left            =   360
         TabIndex        =   30
         Top             =   1516
         Width           =   615
      End
      Begin VB.Label lblLabels 
         Caption         =   "员工号："
         Height          =   255
         Index           =   3
         Left            =   360
         TabIndex        =   29
         Top             =   1028
         Width           =   735
      End
      Begin VB.Label lblLabels 
         Caption         =   "姓名："
         Height          =   255
         Index           =   4
         Left            =   4080
         TabIndex        =   28
         Top             =   1028
         Width           =   615
      End
      Begin VB.Label lblLabels 
         Caption         =   "全勤天数："
         Height          =   255
         Index           =   5
         Left            =   4080
         TabIndex        =   27
         Top             =   1516
         Width           =   1215
      End
      Begin VB.Label lblLabels 
         Caption         =   "病假天数："
         Height          =   255
         Index           =   6
         Left            =   360
         TabIndex        =   26
         Top             =   2492
         Width           =   975
      End
      Begin VB.Label lblLabels 
         Caption         =   "事假天数："
         Height          =   255
         Index           =   7
         Left            =   4080