f_chengfa.frm

个人觉得还不错

               Left            =   1080
               TabIndex        =   12
               Top             =   4320
               Width           =   1815
            End
            Begin VB.TextBox txtFields 
               Appearance      =   0  'Flat
               DataField       =   "人力资源部经理签字"
               Height          =   285
               Index           =   10
               Left            =   4440
               TabIndex        =   13
               Top             =   4320
               Width           =   1815
            End
            Begin VB.TextBox txtFields 
               Appearance      =   0  'Flat
               DataField       =   "总经理签字"
               Height          =   285
               Index           =   12
               Left            =   7320
               TabIndex        =   14
               Top             =   4320
               Width           =   1815
            End
            Begin VB.ComboBox Combo1 
               Appearance      =   0  'Flat
               DataField       =   "惩罚项目"
               Height          =   300
               Left            =   1080
               TabIndex        =   8
               Top             =   1800
               Width           =   1815
            End
            Begin VB.TextBox txtFields 
               Appearance      =   0  'Flat
               DataField       =   "性别"
               Height          =   285
               Index           =   7
               Left            =   4200
               TabIndex        =   6
               Top             =   1320
               Width           =   1815
            End
            Begin MSComCtl2.DTPicker DTPicker1 
               DataField       =   "惩罚时间"
               Height          =   300
               Left            =   4200
               TabIndex        =   9
               Top             =   1800
               Width           =   1815
               _ExtentX        =   3201
               _ExtentY        =   529
               _Version        =   393216
               CheckBox        =   -1  'True
               DateIsNull      =   -1  'True
               Format          =   69795841
               CurrentDate     =   36186
            End
            Begin VB.TextBox txtFields 
               Appearance      =   0  'Flat
               DataField       =   "说明"
               Height          =   765
               Index           =   6
               Left            =   1080
               MultiLine       =   -1  'True
               ScrollBars      =   2  'Vertical
               TabIndex        =   11
               Top             =   3240
               Width           =   8055
            End
            Begin VB.TextBox txtFields 
               Appearance      =   0  'Flat
               DataField       =   "惩罚项目"
               Height          =   765
               Index           =   5
               Left            =   1080
               MultiLine       =   -1  'True
               ScrollBars      =   2  'Vertical
               TabIndex        =   10
               Top             =   2280
               Width           =   8055
            End
            Begin VB.TextBox txtFields 
               Appearance      =   0  'Flat
               DataField       =   "岗位"
               Height          =   285
               Index           =   3
               Left            =   1080
               TabIndex        =   5
               Top             =   1320
               Width           =   1815
            End
            Begin VB.TextBox txtFields 
               Appearance      =   0  'Flat
               DataField       =   "部门"
               Height          =   285
               Index           =   2
               Left            =   7320
               TabIndex        =   4
               Top             =   840
               Width           =   1815
            End
            Begin VB.TextBox txtFields 
               Appearance      =   0  'Flat
               DataField       =   "姓名"
               Height          =   285
               Index           =   1
               Left            =   4200
               TabIndex        =   3
               Top             =   840
               Width           =   1815
            End
            Begin VB.TextBox txtFields 
               Appearance      =   0  'Flat
               DataField       =   "员工号"
               Height          =   285
               Index           =   0
               Left            =   1080
               TabIndex        =   2
               Top             =   840
               Width           =   1815
            End
            Begin MSComCtl2.DTPicker DTPicker2 
               DataField       =   "本部门签字时间"
               Height          =   300
               Left            =   1080
               TabIndex        =   15
               Top             =   4800
               Width           =   1815
               _ExtentX        =   3201
               _ExtentY        =   529
               _Version        =   393216
               CheckBox        =   -1  'True
               DateIsNull      =   -1  'True
               Format          =   69795841
               CurrentDate     =   36189
            End
            Begin MSComCtl2.DTPicker DTPicker3 
               DataField       =   "总经理签字时间"
               Height          =   300
               Left            =   7320
               TabIndex        =   17
               Top             =   4800
               Width           =   1815
               _ExtentX        =   3201
               _ExtentY        =   529
               _Version        =   393216
               CheckBox        =   -1  'True
               DateIsNull      =   -1  'True
               Format          =   69795841
               CurrentDate     =   36189
            End
            Begin MSComCtl2.DTPicker DTPicker4 
               DataField       =   "人力资源部签字时间"
               Height          =   300
               Left            =   4440
               TabIndex        =   16
               Top             =   4800
               Width           =   1815
               _ExtentX        =   3201
               _ExtentY        =   529
               _Version        =   393216
               CheckBox        =   -1  'True
               DateIsNull      =   -1  'True
               Format          =   69795841
               CurrentDate     =   36189
            End
            Begin MSComCtl2.DTPicker DTPicker5 
               DataField       =   "出生日期"
               Height          =   300
               Left            =   7320
               TabIndex        =   7
               Top             =   1320
               Width           =   1815
               _ExtentX        =   3201
               _ExtentY        =   529
               _Version        =   393216
               CheckBox        =   -1  'True
               DateIsNull      =   -1  'True
               Format          =   69795841
               CurrentDate     =   36186
            End
            Begin VB.Label Label4 
               Caption         =   "款规定"
               Height          =   375
               Left            =   6360
               TabIndex        =   47
               Top             =   360
               Width           =   1095
            End
            Begin VB.Label Label3 
               Caption         =   "条第"
               Height          =   255
               Left            =   3720
               TabIndex        =   46
               Top             =   360
               Width           =   615
            End
            Begin VB.Label Label2 
               Caption         =   "根据奖惩条例第"
               Height          =   255
               Left            =   240
               TabIndex        =   45
               Top             =   360
               Width           =   1455
            End
            Begin VB.Label lblLabels 
               Caption         =   "本部门经理"
               Height          =   255
               Index           =   10
               Left            =   120
               TabIndex        =   44
               Top             =   4335
               Width           =   1095
            End
            Begin VB.Label lblLabels 
               Caption         =   "签字时间"
               Height          =   255
               Index           =   11
               Left            =   120
               TabIndex        =   43
               Top             =   4823
               Width           =   855
            End
            Begin VB.Label lblLabels 
               Caption         =   "人力资源部经理"
               Height          =   255
               Index           =   12
               Left            =   3000
               TabIndex        =   42
               Top             =   4335
               Width           =   1335
            End
            Begin VB.Label lblLabels 
               Caption         =   "签字时间"
               Height          =   255
               Index           =   13
               Left            =   3000
               TabIndex        =   41
               Top             =   4823
               Width           =   855
            End
            Begin VB.Label lblLabels 
               Caption         =   "总经理"
               Height          =   255
               Index           =   14
               Left            =   6360
               TabIndex        =   40
               Top             =   4335
               Width           =   1095
            End
            Begin VB.Label lblLabels 
               Caption         =   "签字时间"
               Height          =   255
               Index           =   15
               Left            =   6360
               TabIndex        =   39
               Top             =   4823
               Width           =   855
            End
            Begin VB.Label lblLabels 
               Caption         =   "具体内容"
               Height          =   255
               Index           =   8
               Left            =   240
               TabIndex        =   38
               Top             =   2280
               Width           =   855
            End
            Begin VB.Label lblLabels 
               Caption         =   "性  别"
               Height          =   255
               Index           =   7
               Left            =   3240
               TabIndex        =   37
               Top             =   1320
               Width           =   855
            End
            Begin VB.Label Label1 
               Caption         =   "惩罚时间"
               Height          =   255
               Left            =   3240
               TabIndex        =   35
               Top             =   1800
               Width           =   975
            End
            Begin VB.Label lblLabels 
               Caption         =   "说  明"
               Height          =   255
               Index           =   6
               Left            =   240
               TabIndex        =   32
               Top             =   3240
               Width           =   735
            End
            Begin VB.Label lblLabels 
               Caption         =   "惩罚项目"
               Height          =   255
               Index           =   5
               Left            =   240
               TabIndex        =   31
               Top             =   1800