English
F_LiZhiJiaoJie.frm
资源名称：dbbase.rar [点击查看]
上传用户：xiao_xia32
上传日期：2022-07-21
资源大小：1174k
文件大小：83k
源码类别：
企业管理
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
- Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
- Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
- Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
- Begin VB.Form F_LiZhiJiaoJie
- BorderStyle = 3 'Fixed Dialog
- Caption = "离职记录"
- ClientHeight = 8595
- ClientLeft = 1095
- ClientTop = 330
- ClientWidth = 11790
- ControlBox = 0 'False
- KeyPreview = -1 'True
- LinkTopic = "Form1"
- LockControls = -1 'True
- MaxButton = 0 'False
- MinButton = 0 'False
- Moveable = 0 'False
- ScaleHeight = 8595
- ScaleWidth = 11790
- StartUpPosition = 2 '屏幕中心
- Begin TabDlg.SSTab SSTab1
- Height = 8535
- Left = 0
- TabIndex = 52
- Top = 0
- Width = 11775
- _ExtentX = 20770
- _ExtentY = 15055
- _Version = 393216
- Tabs = 2
- TabHeight = 520
- TabCaption(0) = "编 辑"
- TabPicture(0) = "F_LiZhiJiaoJie.frx":0000
- Tab(0).ControlEnabled= -1 'True
- Tab(0).Control(0)= "lblLabels(3)"
- Tab(0).Control(0).Enabled= 0 'False
- Tab(0).Control(1)= "lblLabels(4)"
- Tab(0).Control(1).Enabled= 0 'False
- Tab(0).Control(2)= "lblLabels(2)"
- Tab(0).Control(2).Enabled= 0 'False
- Tab(0).Control(3)= "lblLabels(1)"
- Tab(0).Control(3).Enabled= 0 'False
- Tab(0).Control(4)= "lblLabels(0)"
- Tab(0).Control(4).Enabled= 0 'False
- Tab(0).Control(5)= "Frame3"
- Tab(0).Control(5).Enabled= 0 'False
- Tab(0).Control(6)= "Frame2"
- Tab(0).Control(6).Enabled= 0 'False
- Tab(0).Control(7)= "txtFields(3)"
- Tab(0).Control(7).Enabled= 0 'False
- Tab(0).Control(8)= "txtFields(4)"
- Tab(0).Control(8).Enabled= 0 'False
- Tab(0).Control(9)= "txtFields(2)"
- Tab(0).Control(9).Enabled= 0 'False
- Tab(0).Control(10)= "txtFields(1)"
- Tab(0).Control(10).Enabled= 0 'False
- Tab(0).Control(11)= "txtFields(0)"
- Tab(0).Control(11).Enabled= 0 'False
- Tab(0).Control(12)= "Frame1"
- Tab(0).Control(12).Enabled= 0 'False
- Tab(0).Control(13)= "Frame4"
- Tab(0).Control(13).Enabled= 0 'False
- Tab(0).Control(14)= "Frame6"
- Tab(0).Control(14).Enabled= 0 'False
- Tab(0).Control(15)= "picButtons"
- Tab(0).Control(15).Enabled= 0 'False
- Tab(0).ControlCount= 16
- TabCaption(1) = "列 表"
- TabPicture(1) = "F_LiZhiJiaoJie.frx":001C
- Tab(1).ControlEnabled= 0 'False
- Tab(1).Control(0)= "Frame5"
- Tab(1).ControlCount= 1
- Begin VB.PictureBox picButtons
- Appearance = 0 'Flat
- BorderStyle = 0 'None
- ForeColor = &H80000008&
- Height = 420
- Left = 5040
- ScaleHeight = 420
- ScaleWidth = 6480
- TabIndex = 111
- Top = 7920
- Width = 6480
- Begin Threed.SSCommand cmdAdd
- Height = 325
- Left = 480
- TabIndex = 47
- Top = 0
- Width = 1095
- _Version = 65536
- _ExtentX = 1931
- _ExtentY = 573
- _StockProps = 78
- Caption = "&A.增 加"
- Font3D = 3
- End
- Begin Threed.SSCommand cmdEdit
- Height = 325
- Left = 1680
- TabIndex = 48
- Top = 0
- Width = 1095
- _Version = 65536
- _ExtentX = 1931
- _ExtentY = 573
- _StockProps = 78
- Caption = "&E.编 辑"
- Font3D = 3
- End
- Begin Threed.SSCommand cmdDelete
- Height = 325
- Left = 2880
- TabIndex = 49
- Top = 0
- Width = 1095
- _Version = 65536
- _ExtentX = 1931
- _ExtentY = 573
- _StockProps = 78
- Caption = "&S.删 除"
- Font3D = 3
- End
- Begin Threed.SSCommand cmdRefresh
- Height = 325
- Left = 4080
- TabIndex = 112
- Top = 0
- Width = 1095
- _Version = 65536
- _ExtentX = 1931
- _ExtentY = 573
- _StockProps = 78
- Caption = "&R.刷 新"
- Font3D = 3
- End
- Begin Threed.SSCommand cmdUpdate
- Height = 300
- Left = 4080
- TabIndex = 50
- Top = 0
- Width = 1095
- _Version = 65536
- _ExtentX = 1931
- _ExtentY = 529
- _StockProps = 78
- Caption = "&Y.保存"
- Font3D = 3
- End
- Begin Threed.SSCommand cmdClose
- Height = 325
- Left = 5280
- TabIndex = 113
- Top = 0
- Width = 1095
- _Version = 65536
- _ExtentX = 1931
- _ExtentY = 573
- _StockProps = 78
- Caption = "&Q.关 闭"
- Font3D = 3
- End
- Begin Threed.SSCommand cmdCancel
- Height = 300
- Left = 5280
- TabIndex = 51
- Top = 0
- Width = 1095
- _Version = 65536
- _ExtentX = 1931
- _ExtentY = 529
- _StockProps = 78
- Caption = "&C.取消"
- Font3D = 3
- End
- End
- Begin VB.Frame Frame6
- Caption = "人力资源部"
- Height = 855
- Left = 120
- TabIndex = 107
- Top = 6990
- Width = 11535
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "人力资源部经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 45
- Left = 10320
- TabIndex = 46
- Top = 360
- Width = 1095
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "人力资源部经办人"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 44
- Left = 8160
- TabIndex = 45
- Top = 360
- Width = 1095
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "人力资源部交接内容"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 43
- Left = 1320
- TabIndex = 44
- Top = 360
- Width = 5895
- End
- Begin VB.Label lblLabels
- Caption = "经理签字"
- Height = 255
- Index = 39
- Left = 9360
- TabIndex = 110
- Top = 375
- Width = 1455
- End
- Begin VB.Label lblLabels
- Caption = "经办人"
- Height = 255
- Index = 38
- Left = 7320
- TabIndex = 109
- Top = 375
- Width = 1455
- End
- Begin VB.Label lblLabels
- Caption = "交接内容"
- Height = 255
- Index = 37
- Left = 120
- TabIndex = 108
- Top = 375
- Width = 1455
- End
- End
- Begin VB.Frame Frame4
- Caption = "服务管理部"
- Height = 975
- Left = 120
- TabIndex = 98
- Top = 5880
- Width = 11535
- Begin VB.ComboBox Combo5
- Appearance = 0 'Flat
- DataField = "餐卡交回"
- Height = 300
- Left = 10320
- TabIndex = 40
- Top = 240
- Width = 1095
- End
- Begin VB.ComboBox Combo4
- Appearance = 0 'Flat
- DataField = "胸卡交回"
- Height = 300
- Left = 8040
- TabIndex = 39
- Top = 240
- Width = 1095
- End
- Begin VB.ComboBox Combo3
- Appearance = 0 'Flat
- DataField = "文具交回"
- Height = 300
- Left = 6000
- TabIndex = 38
- Top = 240
- Width = 1095
- End
- Begin VB.ComboBox Combo2
- Appearance = 0 'Flat
- DataField = "工具交回"
- Height = 300
- Left = 3480
- TabIndex = 37
- Top = 240
- Width = 1095
- End
- Begin VB.ComboBox Combo1
- Appearance = 0 'Flat
- DataField = "劳动用品交回"
- Height = 300
- Left = 1320
- TabIndex = 36
- Top = 240
- Width = 1095
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "服务管理部经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 42
- Left = 6000
- TabIndex = 43
- Top = 600
- Width = 1095
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "折价经办人"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 41
- Left = 3480
- TabIndex = 42
- Top = 600
- Width = 1095
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "未交物品折价"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 38
- Left = 1320
- TabIndex = 41
- Top = 600
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "经理签字"
- Height = 255
- Index = 36
- Left = 4800
- TabIndex = 106
- Top = 600
- Width = 1455
- End
- Begin VB.Label lblLabels
- Caption = "折价经办人"
- Height = 255
- Index = 35
- Left = 2520
- TabIndex = 105
- Top = 600
- Width = 1335
- End
- Begin VB.Label Label7
- Caption = "餐卡交回"
- Height = 255
- Left = 9360
- TabIndex = 104
- Top = 240
- Width = 1095
- End
- Begin VB.Label Label6
- Caption = "胸卡交回"
- Height = 255
- Left = 7200
- TabIndex = 103
- Top = 240
- Width = 1095
- End
- Begin VB.Label Label5
- Caption = "工具交回"
- Height = 255
- Left = 2520
- TabIndex = 102
- Top = 240
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "未交物品折价"
- Height = 255
- Index = 34
- Left = 120
- TabIndex = 101
- Top = 600
- Width = 1455
- End
- Begin VB.Label Label4
- Caption = "劳动用品交回"
- Height = 255
- Left = 120
- TabIndex = 100
- Top = 240
- Width = 1455
- End
- Begin VB.Label lblLabels
- Caption = "文具交回"
- Height = 255
- Index = 33
- Left = 4800
- TabIndex = 99
- Top = 240
- Width = 975
- End
- End
- Begin VB.Frame Frame1
- Height = 1335
- Left = 120
- TabIndex = 84
- Top = 2520
- Width = 11535
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "其他假时间"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 20
- Left = 9960
- TabIndex = 21
- Top = 960
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "其他假说明"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 19
- Left = 4560
- TabIndex = 20
- Top = 960
- Width = 4335
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "事假时间"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 18
- Left = 1680
- TabIndex = 19
- Top = 960
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "病假时间"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 17
- Left = 9960
- TabIndex = 18
- Top = 600
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "休假日加班时间"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 16
- Left = 7440
- TabIndex = 17
- Top = 600
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "休息日加班时间"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 15
- Left = 4560
- TabIndex = 16
- Top = 600
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "延时加班时间"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 14
- Left = 1680
- TabIndex = 15
- Top = 600
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "天数"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 13
- Left = 7440
- TabIndex = 13
- Top = 240
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "考核分数"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 5
- Left = 9960
- TabIndex = 14
- Top = 240
- Width = 1455
- End
- Begin MSComCtl2.DTPicker DTPicker3
- DataField = "出勤结束时间"
- Height = 300
- Left = 4560
- TabIndex = 12
- Top = 240
- Width = 1455
- _ExtentX = 2566
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- DateIsNull = -1 'True
- Format = 127401985
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker2
- DataField = "本月出勤开始时间"
- Height = 300
- Left = 1680
- TabIndex = 11
- Top = 240
- Width = 1455
- _ExtentX = 2566
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- DateIsNull = -1 'True
- Format = 127401985
- CurrentDate = 36191
- End
- Begin VB.Label lblLabels
- Caption = "本月出勤开始时间"
- Height = 255
- Index = 11
- Left = 120
- TabIndex = 95
- Top = 240
- Width = 1575
- End
- Begin VB.Label lblLabels
- Caption = "其他假时间"
- Height = 255
- Index = 20
- Left = 9000
- TabIndex = 94
- Top = 960
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "其他假说明"
- Height = 255
- Index = 19
- Left = 3240
- TabIndex = 93
- Top = 960
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "事假时间"
- Height = 255
- Index = 18
- Left = 120
- TabIndex = 92
- Top = 960
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "病假时间"
- Height = 255
- Index = 17
- Left = 9000
- TabIndex = 91
- Top = 600
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "休假日加班时间"
- Height = 255
- Index = 16
- Left = 6120
- TabIndex = 90
- Top = 600
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "休息日加班时间"
- Height = 255
- Index = 15
- Left = 3240
- TabIndex = 89
- Top = 600
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "延时加班时间"
- Height = 255
- Index = 14
- Left = 120
- TabIndex = 88
- Top = 600
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "天 数"
- Height = 255
- Index = 13
- Left = 6120
- TabIndex = 87
- Top = 240
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "出勤结束时间:"
- Height = 255
- Index = 12
- Left = 3240
- TabIndex = 86
- Top = 240
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "考核分数"
- Height = 255
- Index = 21
- Left = 9000
- TabIndex = 85
- Top = 240
- Width = 1695
- End
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "部门"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 0
- Left = 5160
- TabIndex = 2
- Top = 480
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "员工号"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 1
- Left = 840
- TabIndex = 0
- Top = 480
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "姓名"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 2
- Left = 2880
- TabIndex = 1
- Top = 480
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "岗位名称"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 4
- Left = 7680
- TabIndex = 3
- Top = 480
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "性别"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 3
- Left = 10080
- TabIndex = 4
- Top = 480
- Width = 1455
- End
- Begin VB.Frame Frame5
- Height = 7695
- Left = -74760
- TabIndex = 73
- Top = 480
- Width = 11415
- Begin MSDataGridLib.DataGrid DataGrid1
- Height = 7095
- Left = 240
- TabIndex = 74
- Top = 360
- Width = 11055
- _ExtentX = 19500
- _ExtentY = 12515
- _Version = 393216
- AllowUpdate = 0 'False
- HeadLines = 1
- RowHeight = 14
- FormatLocked = -1 'True
- BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "MS Sans Serif"
- Size = 8.25
- Charset = 0
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ColumnCount = 47
- BeginProperty Column00
- DataField = "部门"
- Caption = "部门"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column01
- DataField = "员工号"
- Caption = "员工号"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column02
- DataField = "姓名"
- Caption = "姓名"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column03
- DataField = "岗位名称"
- Caption = "岗位名称"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column04
- DataField = "性别"
- Caption = "性别"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column05
- DataField = "离职原因"
- Caption = "离职原因"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column06
- DataField = "离职时间"
- Caption = "离职时间"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column07
- DataField = "工作移交情况"
- Caption = "工作移交情况"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column08
- DataField = "工作移交经办人"
- Caption = "工作移交经办人"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column09
- DataField = "办公物品交还情况"
- Caption = "办公物品交还情况"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column10
- DataField = "交还经办人"
- Caption = "交还经办人"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column11
- DataField = "本月出勤开始时间"
- Caption = "本月出勤开始时间"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column12
- DataField = "出勤结束时间"
- Caption = "出勤结束时间"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column13
- DataField = "天数"
- Caption = "天数"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column14
- DataField = "考核分数"
- Caption = "考核分数"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column15
- DataField = "延时加班时间"
- Caption = "延时加班时间"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column16
- DataField = "休息日加班时间"
- Caption = "休息日加班时间"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column17
- DataField = "休假日加班时间"
- Caption = "休假日加班时间"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column18
- DataField = "病假时间"
- Caption = "病假时间"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column19
- DataField = "事假时间"
- Caption = "事假时间"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column20
- DataField = "其他假说明"
- Caption = "其他假说明"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column21
- DataField = "办公室交接内容"
- Caption = "办公室交接内容"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column22
- DataField = "办公室经理签字"
- Caption = "办公室经理签字"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column23
- DataField = "设备工程部交接内容"
- Caption = "设备工程部交接内容"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column24
- DataField = "设备工程部经理签字"
- Caption = "设备工程部经理签字"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column25
- DataField = "商品部交接内容"
- Caption = "商品部交接内容"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column26
- DataField = "商品部经理签字"
- Caption = "商品部经理签字"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column27
- DataField = "计财部交接内容"
- Caption = "计财部交接内容"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column28
- DataField = "计财部经理签字"
- Caption = "计财部经理签字"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column29
- DataField = "水族部交接内容"
- Caption = "水族部交接内容"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column30
- DataField = "水族部经理签字"
- Caption = "水族部经理签字"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column31
- DataField = "动物部交接内容"
- Caption = "动物部交接内容"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column32
- DataField = "动物部经理签字"
- Caption = "动物部经理签字"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column33
- DataField = "劳动用品交回"
- Caption = "劳动用品交回"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column34
- DataField = "工具交回"
- Caption = "工具交回"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column35
- DataField = "文具交回"
- Caption = "文具交回"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column36
- DataField = "胸卡交回"
- Caption = "胸卡交回"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column37
- DataField = "餐卡交回"
- Caption = "餐卡交回"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column38
- DataField = "未交物品折价"
- Caption = "未交物品折价"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column39
- DataField = "折价经办人"
- Caption = "折价经办人"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column40
- DataField = "服务管理部经理签字"
- Caption = "服务管理部经理签字"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column41
- DataField = "人力资源部交接内容"
- Caption = "人力资源部交接内容"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column42
- DataField = "人力资源部经办人"
- Caption = "人力资源部经办人"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column43
- DataField = "人力资源部经理签字"
- Caption = "人力资源部经理签字"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column44
- DataField = "公关部交接内容"
- Caption = "公关部交接内容"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column45
- DataField = "公关部经理签字"
- Caption = "公关部经理签字"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- BeginProperty Column46
- DataField = "其他假时间"
- Caption = "其他假时间"
- BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
- Type = 0
- Format = ""
- HaveTrueFalseNull= 0
- FirstDayOfWeek = 0
- FirstWeekOfYear = 0
- LCID = 2052
- SubFormatType = 0
- EndProperty
- EndProperty
- SplitCount = 1
- BeginProperty Split0
- BeginProperty Column00
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column01
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column02
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column03
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column04
- ColumnWidth = 689.953
- EndProperty
- BeginProperty Column05
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column06
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column07
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column08
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column09
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column10
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column11
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column12
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column13
- ColumnWidth = 1065.26
- EndProperty
- BeginProperty Column14
- ColumnWidth = 1065.26
- EndProperty
- BeginProperty Column15
- ColumnWidth = 1094.74
- EndProperty
- BeginProperty Column16
- ColumnWidth = 1275.024
- EndProperty
- BeginProperty Column17
- ColumnWidth = 1275.024
- EndProperty
- BeginProperty Column18
- ColumnWidth = 1065.26
- EndProperty
- BeginProperty Column19
- ColumnWidth = 1065.26
- EndProperty
- BeginProperty Column20
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column21
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column22
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column23
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column24
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column25
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column26
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column27
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column28
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column29
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column30
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column31
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column32
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column33
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column34
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column35
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column36
- ColumnWidth = 1140.095
- EndProperty
- BeginProperty Column37
- ColumnWidth = 1140.095
- EndProperty
- BeginProperty Column38
- ColumnWidth = 1094.74
- EndProperty
- BeginProperty Column39
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column40
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column41
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column42
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column43
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column44
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column45
- ColumnWidth = 1739.906
- EndProperty
- BeginProperty Column46
- ColumnWidth = 1065.26
- EndProperty
- EndProperty
- End
- End
- Begin VB.Frame Frame2
- Height = 1695
- Left = 120
- TabIndex = 62
- Top = 840
- Width = 11535
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "工作移交情况"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 7
- Left = 1680
- TabIndex = 7
- Top = 960
- Width = 4215
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "工作移交经办人"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 8
- Left = 7440
- TabIndex = 8
- Top = 960
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "办公物品交还情况"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 9
- Left = 1680
- TabIndex = 9
- Top = 1320
- Width = 4215
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "交还经办人"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 10
- Left = 7440
- TabIndex = 10
- Top = 1320
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "离职原因"
- DataSource = "datPrimaryRS"
- Height = 645
- Index = 6
- Left = 1680
- TabIndex = 5
- Top = 240
- Width = 7215
- End
- Begin VB.TextBox txtFields
- DataField = "本部部门经理意见"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 21
- Left = 1680
- TabIndex = 64
- Top = 3240
- Width = 1455
- End
- Begin VB.TextBox txtFields
- DataField = "本部门经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 22
- Left = 4560
- TabIndex = 63
- Top = 3240
- Width = 1455
- End
- Begin MSComCtl2.DTPicker DTPicker1
- DataField = "离职时间"
- Height = 300
- Left = 9960
- TabIndex = 6
- Top = 240
- Width = 1455
- _ExtentX = 2566
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- DateIsNull = -1 'True
- Format = 127401985
- CurrentDate = 36191
- End
- Begin VB.Label lblLabels
- Caption = "工作移交情况"
- Height = 255
- Index = 7
- Left = 120
- TabIndex = 72
- Top = 960
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "经办人:"
- Height = 255
- Index = 8
- Left = 6120
- TabIndex = 71
- Top = 960
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "办公物品交还情况"
- Height = 255
- Index = 9
- Left = 120
- TabIndex = 70
- Top = 1320
- Width = 1575
- End
- Begin VB.Label lblLabels
- Caption = "经办人:"
- Height = 255
- Index = 10
- Left = 6120
- TabIndex = 69
- Top = 1320
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "离职原因"
- Height = 255
- Index = 6
- Left = 120
- TabIndex = 68
- Top = 240
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "离职时间"
- Height = 255
- Index = 5
- Left = 9000
- TabIndex = 67
- Top = 240
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "本部部门经理意见:"
- Height = 255
- Index = 41
- Left = 120
- TabIndex = 66
- Top = 3240
- Width = 1695
- End
- Begin VB.Label lblLabels
- Caption = "本部门经理签字:"
- Height = 255
- Index = 42
- Left = 3120
- TabIndex = 65
- Top = 3240
- Width = 1335
- End
- End
- Begin VB.Frame Frame3
- Caption = "各部门交接情况"
- Height = 1815
- Left = 120
- TabIndex = 53
- Top = 3960
- Width = 11535
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "动物部经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 33
- Left = 4560
- TabIndex = 35
- Top = 1440
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "动物部交接内容"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 32
- Left = 1320
- TabIndex = 34
- Top = 1440
- Width = 1815
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "设备工程部经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 31
- Left = 9960
- TabIndex = 25
- Top = 360
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "设备工程部交接内容"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 29
- Left = 7080
- TabIndex = 24
- Top = 360
- Width = 1815
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "水族部经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 12
- Left = 9960
- TabIndex = 33
- Top = 1080
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "水族部交接内容"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 11
- Left = 7080
- TabIndex = 32
- Top = 1080
- Width = 1815
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "办公室交接内容"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 23
- Left = 1320
- TabIndex = 22
- Top = 360
- Width = 1815
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "办公室经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 24
- Left = 4560
- TabIndex = 23
- Top = 360
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "商品部交接内容"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 25
- Left = 1320
- TabIndex = 26
- Top = 720
- Width = 1815
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "商品部经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 26
- Left = 4560
- TabIndex = 27
- Top = 720
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "计财部交接内容"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 27
- Left = 7080
- TabIndex = 28
- Top = 720
- Width = 1815
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "计财部经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 28
- Left = 9960
- TabIndex = 29
- Top = 720
- Width = 1455
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "公关部交接内容"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 37
- Left = 1320
- TabIndex = 30
- Top = 1080
- Width = 1815
- End
- Begin VB.TextBox txtFields
- Appearance = 0 'Flat
- DataField = "公关部经理签字"
- DataSource = "datPrimaryRS"
- Height = 285
- Index = 30
- Left = 4560
- TabIndex = 31
- Top = 1080
- Width = 1455
- End
- Begin VB.Label Label3
- Caption = "动物部"
- Height = 255
- Left = 120
- TabIndex = 97
- Top = 1440
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "经理签字"
- Height = 255
- Index = 32
- Left = 3240
- TabIndex = 96
- Top = 1440
- Width = 1455
- End
- Begin VB.Label lblLabels
- Caption = "经理签字"
- Height = 255
- Index = 31
- Left = 9000
- TabIndex = 78
- Top = 360
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "设备工程部"
- Height = 255
- Index = 29
- Left = 6120
- TabIndex = 77
- Top = 360
- Width = 1095
- End
- Begin VB.Label Label2
- Caption = "水族部"
- Height = 255
- Left = 6120
- TabIndex = 76
- Top = 1080
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "经理签字"
- Height = 255
- Index = 22
- Left = 9000
- TabIndex = 75
- Top = 1080
- Width = 1455
- End
- Begin VB.Label lblLabels
- Caption = "办公室"
- Height = 255
- Index = 23
- Left = 120
- TabIndex = 61
- Top = 360
- Width = 1455
- End
- Begin VB.Label lblLabels
- Caption = "经理签字"
- Height = 255
- Index = 24
- Left = 3240
- TabIndex = 60
- Top = 360
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "商品部"
- Height = 255
- Index = 25
- Left = 120
- TabIndex = 59
- Top = 720
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "经理签字"
- Height = 255
- Index = 26
- Left = 3240
- TabIndex = 58
- Top = 720
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "计财部"
- Height = 255
- Index = 27
- Left = 6120
- TabIndex = 57
- Top = 720
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "经理签字"
- Height = 255
- Index = 28
- Left = 9000
- TabIndex = 56
- Top = 720
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "经理签字"
- Height = 255
- Index = 30
- Left = 3240
- TabIndex = 55
- Top = 1080
- Width = 1455
- End
- Begin VB.Label Label1
- Caption = "公关部"
- Height = 255
- Left = 120
- TabIndex = 54
- Top = 1080
- Width = 1335
- End
- End
- Begin VB.Label lblLabels
- Caption = "部门"
- Height = 255
- Index = 0
- Left = 4440
- TabIndex = 83
- Top = 495
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "员工号"
- Height = 255
- Index = 1
- Left = 240
- TabIndex = 82
- Top = 495
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "姓名"
- Height = 255
- Index = 2
- Left = 2400
- TabIndex = 81
- Top = 480
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "岗位名称"
- Height = 255
- Index = 4
- Left = 6720
- TabIndex = 80
- Top = 495
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "性别"
- Height = 255
- Index = 3
- Left = 9240
- TabIndex = 79
- Top = 495
- Width = 615
- End
- End
- End
- Attribute VB_Name = "F_LiZhiJiaoJie"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Dim WithEvents adoPrimaryRS As Recordset
- Attribute adoPrimaryRS.VB_VarHelpID = -1
- Dim mvBookMark As Variant
- Dim mbEditFlag As Boolean
- Dim mbAddNewFlag As Boolean
- Private Sub Combo1_KeyPress(KeyAscii As Integer)
- If KeyAscii = vbKeyReturn Then
- SendKeys "{TAB}"
- End If
- End Sub
- Private Sub Combo2_KeyPress(KeyAscii As Integer)
- If KeyAscii = vbKeyReturn Then
- SendKeys "{TAB}"
- End If
- End Sub
- Private Sub Combo3_KeyPress(KeyAscii As Integer)
- If KeyAscii = vbKeyReturn Then
- SendKeys "{TAB}"
- End If
- End Sub
- Private Sub Combo4_KeyPress(KeyAscii As Integer)
- If KeyAscii = vbKeyReturn Then
- SendKeys "{TAB}"
- End If
- End Sub
- Private Sub Combo5_KeyPress(KeyAscii As Integer)
- If KeyAscii = vbKeyReturn Then
- SendKeys "{TAB}"
- End If
- End Sub
- Private Sub DTPicker1_KeyPress(KeyAscii As Integer)
- If KeyAscii = vbKeyReturn Then
- SendKeys "{TAB}"
- End If
- End Sub
- Private Sub DTPicker2_KeyPress(KeyAscii As Integer)
- If KeyAscii = vbKeyReturn Then
- SendKeys "{TAB}"
- End If
- End Sub
- Private Sub DTPicker3_KeyPress(KeyAscii As Integer)
- If KeyAscii = vbKeyReturn Then
- SendKeys "{TAB}"
- End If
- End Sub
- Private Sub Form_Load()
- On Error Resume Next
- For Each TextBox In Me.Controls
- TextBox.Font.Name = "宋体"
- TextBox.Font.Size = 9
- Next
- Set adoPrimaryRS = New Recordset
- adoPrimaryRS.Open "SELECT * FROM 离职记录", db, adOpenStatic, adLockOptimistic
- Set DataGrid1.DataSource = adoPrimaryRS
- SetButtons True
- Set DTPicker1.DataSource = adoPrimaryRS
- Set DTPicker2.DataSource = adoPrimaryRS
- Set DTPicker3.DataSource = adoPrimaryRS
- Dim oText As TextBox
- 'Bind the text boxes to the data provider
- For Each oText In Me.txtFields
- Set oText.DataSource = adoPrimaryRS
- Next
- Set Combo1.DataSource = adoPrimaryRS
- Set Combo2.DataSource = adoPrimaryRS
- Set Combo3.DataSource = adoPrimaryRS
- Set Combo4.DataSource = adoPrimaryRS
- Set Combo5.DataSource = adoPrimaryRS
- Combo1.AddItem "是"
- Combo1.AddItem "否"
- Combo2.AddItem "是"
- Combo2.AddItem "否"
- Combo3.AddItem "是"
- Combo3.AddItem "否"
- Combo4.AddItem "是"
- Combo4.AddItem "否"
- Combo5.AddItem "是"
- Combo5.AddItem "否"
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- Screen.MousePointer = vbDefault
- End Sub
- Private Sub cmdAdd_Click()
- On Error GoTo AddErr
- With adoPrimaryRS
- If Not (.BOF And .EOF) Then
- mvBookMark = .Bookmark
- End If
- .AddNew
- mbAddNewFlag = True
- SetButtons False
- End With
- On Error GoTo 0
- Exit Sub
- AddErr:
- MsgBox "增加操作有错误", vbExclamation + vbOKOnly, pTitle
- End Sub
- Private Sub cmdDelete_Click()
- On Error GoTo DeleteErr
- If MsgBox("确认是否删除离职记录信息？", vbYesNo + vbQuestion, "系统提示") = vbNo Then Exit Sub
- With adoPrimaryRS
- .Delete
- .MoveNext
- If .EOF Then .MoveLast
- End With
- On Error GoTo 0
- Exit Sub
- DeleteErr:
- MsgBox "删除操作有错误", vbExclamation + vbOKOnly, pTitle
- End Sub
- Private Sub cmdRefresh_Click()
- 'This is only needed for multi user apps
- On Error GoTo RefreshErr
- adoPrimaryRS.Requery
- On Error GoTo 0
- Exit Sub
- RefreshErr:
- MsgBox "刷新操作有错误", vbExclamation + vbOKOnly, pTitle
- End Sub
- Private Sub cmdEdit_Click()
- On Error GoTo EditErr
- mbEditFlag = True
- SetButtons False
- On Error GoTo 0
- Exit Sub
- EditErr:
- MsgBox "更改操作有错误", vbExclamation + vbOKOnly, pTitle
- End Sub
- Private Sub cmdCancel_Click()
- ' On Error Resume Next
- On Error GoTo CancelErr
- mbEditFlag = False
- mbAddNewFlag = False
- adoPrimaryRS.CancelUpdate
- 'If mvBookMark > 0 Then
- ' adoPrimaryRS.Bookmark = mvBookMark
- ' Else
- ' adoPrimaryRS.MoveFirst
- ' End If
- SetButtons True
- Exit Sub
- CancelErr:
- MsgBox "取消操作有错误", vbExclamation + vbOKOnly, pTitle
- End Sub
- Private Sub cmdUpdate_Click()
- On Error GoTo UpdateErr
- If MsgBox("是否确认此操作？", vbYesNo + vbQuestion, "系统提示") = vbNo Then Exit Sub
- adoPrimaryRS.UpdateBatch adAffectAll
- If mbAddNewFlag Then
- adoPrimaryRS.MoveLast 'move to the new record
- End If
- mbEditFlag = False
- mbAddNewFlag = False
- SetButtons True
- On Error GoTo 0
- Exit Sub
- UpdateErr:
- MsgBox "保存操作有错误", vbExclamation + vbOKOnly, pTitle
- End Sub
- Private Sub cmdClose_Click()
- RSGL.Enabled = True
- Unload Me
- End Sub
- Private Sub SetButtons(bVal As Boolean)
- Dim oTEX As TextBox
- CmdAdd.Visible = bVal
- cmdEdit.Visible = bVal
- cmdUpdate.Visible = Not bVal
- cmdCancel.Visible = Not bVal
- CmdDelete.Visible = bVal
- cmdClose.Visible = bVal
- cmdRefresh.Visible = bVal
- If bVal Then
- Set DataGrid1.DataSource = adoPrimaryRS
- Else
- Set DataGrid1.DataSource = Nothing
- End If
- For Each oText In Me.txtFields
- oText.Enabled = Not bVal
- Next
- DTPicker1.Enabled = Not bVal
- DTPicker2.Enabled = Not bVal
- DTPicker3.Enabled = Not bVal
- Combo1.Enabled = Not bVal
- Combo2.Enabled = Not bVal
- Combo3.Enabled = Not bVal
- Combo4.Enabled = Not bVal
- Combo5.Enabled = Not bVal
- End Sub
- Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)
- If KeyAscii = vbKeyReturn Then
- SendKeys "{TAB}"
- End If
- End Sub
- Private Sub txtFields_LostFocus(Index As Integer)
- If Index = 1 Then
- Dim Sql3 As String
- Sql3 = "select distinct 部门 ,姓名 ,岗位 ,性别 from 员工基本信息 where 员工号 = '" & txtFields(1).Text & "'"
- Set rs3 = db.Execute(Sql3)
- If Not rs3.EOF Then
- If Not IsNull(rs3("姓名")) Then
- txtFields(2).Text = Trim(rs3("姓名"))
- End If
- If Not IsNull(rs3("部门")) Then
- txtFields(0).Text = Trim(rs3("部门"))
- End If
- If Not IsNull(rs3("岗位")) Then
- txtFields(4).Text = Trim(rs3("岗位"))
- End If
- If Not IsNull(rs3("性别")) Then
- txtFields(3).Text = Trim(rs3("性别"))
- End If
- End If
- End If
- If Not IsNumeric(txtFields(5).Text) And (txtFields(5).Text <> "") Then
- MsgBox "请在“考核分数”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(5).SetFocus
- txtFields(5).SelLength = Len(txtFields(5))
- txtFields(5).SelStart = 0
- End If
- If Not IsNumeric(txtFields(13).Text) And (txtFields(13).Text <> "") Then
- MsgBox "请在“天数”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(13).SetFocus
- txtFields(13).SelLength = Len(txtFields(13))
- txtFields(13).SelStart = 0
- End If
- If Not IsNumeric(txtFields(14).Text) And (txtFields(14).Text <> "") Then
- MsgBox "请在“延时加班时间”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(14).SetFocus
- txtFields(14).SelLength = Len(txtFields(14))
- txtFields(14).SelStart = 0
- End If
- If Not IsNumeric(txtFields(15).Text) And (txtFields(15).Text <> "") Then
- MsgBox "请在“休息日加班时间”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(15).SetFocus
- txtFields(15).SelLength = Len(txtFields(15))
- txtFields(15).SelStart = 0
- End If
- If Not IsNumeric(txtFields(16).Text) And (txtFields(16).Text <> "") Then
- MsgBox "请在“休假日加班时间”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(16).SetFocus
- txtFields(16).SelLength = Len(txtFields(16))
- txtFields(16).SelStart = 0
- End If
- If Not IsNumeric(txtFields(17).Text) And (txtFields(17).Text <> "") Then
- MsgBox "请在“病假时间”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(17).SetFocus
- txtFields(17).SelLength = Len(txtFields(17))
- txtFields(17).SelStart = 0
- End If
- If Not IsNumeric(txtFields(18).Text) And (txtFields(18).Text <> "") Then
- MsgBox "请在“事假时间”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(18).SetFocus
- txtFields(18).SelLength = Len(txtFields(18))
- txtFields(18).SelStart = 0
- End If
- If Not IsNumeric(txtFields(20).Text) And (txtFields(20).Text <> "") Then
- MsgBox "请在“其他假时间”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(20).SetFocus
- txtFields(20).SelLength = Len(txtFields(20))
- txtFields(20).SelStart = 0
- End If
- If Not IsNumeric(txtFields(38).Text) And (txtFields(38).Text <> "") Then
- MsgBox "请在“未交物品折价”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(38).SetFocus
- txtFields(38).SelLength = Len(txtFields(38))
- txtFields(38).SelStart = 0
- End If
- End Sub
