F_YuanGongJiBenXinXi.frm
资源名称:dbbase.rar [点击查看]
上传用户:xiao_xia32
上传日期:2022-07-21
资源大小:1174k
文件大小:50k
源码类别:
企业管理
开发平台:
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"
- Begin VB.Form F_YuanGongJiBenXinXi
- BorderStyle = 3 'Fixed Dialog
- Caption = "员工基本信息"
- ClientHeight = 8565
- ClientLeft = 1095
- ClientTop = 330
- ClientWidth = 9780
- KeyPreview = -1 'True
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 8565
- ScaleWidth = 9780
- Begin TabDlg.SSTab SSTab1
- Height = 8535
- Left = 0
- TabIndex = 0
- Top = 0
- Width = 9615
- _ExtentX = 16960
- _ExtentY = 15055
- _Version = 393216
- TabHeight = 520
- TabCaption(0) = "编辑"
- TabPicture(0) = "F_YuanGongJiBenXinXi.frx":0000
- Tab(0).ControlEnabled= -1 'True
- Tab(0).Control(0)= "Frame2"
- Tab(0).Control(0).Enabled= 0 'False
- Tab(0).Control(1)= "Picture1"
- Tab(0).Control(1).Enabled= 0 'False
- Tab(0).ControlCount= 2
- TabCaption(1) = "列表"
- TabPicture(1) = "F_YuanGongJiBenXinXi.frx":001C
- Tab(1).ControlEnabled= 0 'False
- Tab(1).Control(0)= "Frame1"
- Tab(1).Control(0).Enabled= 0 'False
- Tab(1).ControlCount= 1
- TabCaption(2) = "Tab 2"
- Tab(2).ControlEnabled= 0 'False
- Tab(2).ControlCount= 0
- Begin VB.PictureBox Picture1
- Appearance = 0 'Flat
- BorderStyle = 0 'None
- ForeColor = &H80000008&
- Height = 300
- Left = 2280
- ScaleHeight = 300
- ScaleWidth = 7080
- TabIndex = 116
- Top = 7920
- Width = 7080
- Begin VB.CommandButton cmdCancel
- Caption = "取消"
- Height = 300
- Left = 5880
- TabIndex = 123
- Top = 0
- Visible = 0 'False
- Width = 1095
- End
- Begin VB.CommandButton cmdUpdate
- Caption = "保存"
- Height = 300
- Left = 4680
- TabIndex = 122
- Top = 0
- Visible = 0 'False
- Width = 1095
- End
- Begin VB.CommandButton cmdClose
- Caption = "关闭"
- Height = 300
- Left = 5880
- TabIndex = 121
- Top = 0
- Width = 1095
- End
- Begin VB.CommandButton cmdRefresh
- Caption = "刷新"
- Height = 300
- Left = 4680
- TabIndex = 120
- Top = 0
- Width = 1095
- End
- Begin VB.CommandButton CmdDelete
- Caption = "删除"
- Height = 300
- Left = 3480
- TabIndex = 119
- Top = 0
- Width = 1095
- End
- Begin VB.CommandButton cmdEdit
- Caption = "编辑"
- Height = 300
- Left = 2280
- TabIndex = 118
- Top = 0
- Width = 1095
- End
- Begin VB.CommandButton CmdAdd
- Caption = "增加"
- Height = 300
- Left = 1080
- TabIndex = 117
- Top = 0
- Width = 1095
- End
- End
- Begin VB.Frame Frame1
- Height = 7935
- Left = -74880
- TabIndex = 114
- Top = 360
- Width = 9975
- Begin MSDataGridLib.DataGrid DataGrid1
- Height = 7575
- Left = 120
- TabIndex = 115
- Top = 240
- Width = 9615
- _ExtentX = 16960
- _ExtentY = 13361
- _Version = 393216
- AllowUpdate = 0 'False
- HeadLines = 1
- RowHeight = 14
- 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 = 2
- 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
- SplitCount = 1
- BeginProperty Split0
- BeginProperty Column00
- EndProperty
- BeginProperty Column01
- EndProperty
- EndProperty
- End
- End
- Begin VB.Frame Frame2
- Height = 7455
- Left = 240
- TabIndex = 1
- Top = 360
- Width = 9135
- Begin VB.TextBox txtFields
- DataField = "员工号"
- Height = 285
- Index = 1
- Left = 1320
- TabIndex = 44
- Top = 240
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "姓名"
- Height = 285
- Index = 2
- Left = 4200
- TabIndex = 43
- Top = 240
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "性别"
- Height = 285
- Index = 3
- Left = 7200
- TabIndex = 42
- Top = 240
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "民族"
- Height = 285
- Index = 5
- Left = 7200
- TabIndex = 41
- Top = 960
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "政治面目"
- Height = 285
- Index = 6
- Left = 1320
- TabIndex = 40
- Top = 1680
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "婚姻状况"
- Height = 285
- Index = 7
- Left = 4200
- TabIndex = 39
- Top = 1680
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "身份证号"
- Height = 285
- Index = 8
- Left = 7200
- TabIndex = 38
- Top = 1680
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "学历"
- Height = 285
- Index = 9
- Left = 1320
- TabIndex = 37
- Top = 2040
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "所学专业"
- Height = 285
- Index = 10
- Left = 4200
- TabIndex = 36
- Top = 2040
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "毕业学校"
- Height = 285
- Index = 11
- Left = 7200
- TabIndex = 35
- Top = 2040
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "职称"
- Height = 285
- Index = 12
- Left = 1320
- TabIndex = 34
- Top = 2400
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "技术证书"
- Height = 285
- Index = 14
- Left = 7200
- TabIndex = 33
- Top = 2400
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "驾驶证号"
- Height = 285
- Index = 15
- Left = 4200
- TabIndex = 32
- Top = 2760
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "准驾车辆"
- Height = 285
- Index = 16
- Left = 7200
- TabIndex = 31
- Top = 2760
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "有效期限"
- Height = 285
- Index = 17
- Left = 4200
- TabIndex = 30
- Top = 3120
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "身高"
- Height = 285
- Index = 30
- Left = 1320
- TabIndex = 29
- Top = 600
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "生育指标"
- Height = 285
- Index = 34
- Left = 1320
- TabIndex = 28
- Top = 4560
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "计划生育措施"
- Height = 285
- Index = 35
- Left = 4200
- TabIndex = 27
- Top = 4560
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "家庭通讯地址"
- Height = 285
- Index = 36
- Left = 1320
- TabIndex = 26
- Top = 3480
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "邮编"
- Height = 285
- Index = 37
- Left = 4200
- TabIndex = 25
- Top = 3480
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "电话"
- Height = 285
- Index = 38
- Left = 7200
- TabIndex = 24
- Top = 3480
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "传呼机"
- Height = 285
- Index = 39
- Left = 1320
- TabIndex = 23
- Top = 3840
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "移动电话"
- Height = 285
- Index = 40
- Left = 4200
- TabIndex = 22
- Top = 3840
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "爱人姓名"
- Height = 285
- Index = 41
- Left = 7200
- TabIndex = 21
- Top = 3840
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "爱人工作单位"
- Height = 285
- Index = 43
- Left = 4200
- TabIndex = 20
- Top = 4200
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "爱人联系电话"
- Height = 285
- Index = 44
- Left = 7200
- TabIndex = 19
- Top = 4200
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "独生子女姓名"
- Height = 285
- Index = 45
- Left = 7200
- TabIndex = 18
- Top = 4560
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "子女性别"
- Height = 285
- Index = 47
- Left = 4200
- TabIndex = 17
- Top = 4920
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "离职类型"
- Height = 285
- Index = 54
- Left = 1320
- TabIndex = 16
- Top = 9000
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "籍贯"
- Height = 285
- Index = 57
- Left = 1320
- TabIndex = 15
- Top = 1320
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "出生地点"
- Height = 285
- Index = 58
- Left = 4200
- TabIndex = 14
- Top = 1320
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "户口所在地"
- Height = 285
- Index = 59
- Left = 7200
- TabIndex = 13
- Top = 1320
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "用工类型"
- Height = 285
- Index = 23
- Left = 7200
- TabIndex = 12
- Top = 6360
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "招收类型"
- Height = 285
- Index = 26
- Left = 1320
- TabIndex = 11
- Top = 6720
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "人员类型一级"
- Height = 285
- Index = 27
- Left = 4200
- TabIndex = 10
- Top = 6720
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "人员类型二级"
- Height = 285
- Index = 28
- Left = 7200
- TabIndex = 9
- Top = 6720
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "原任职单位"
- Height = 285
- Index = 60
- Left = 1320
- TabIndex = 8
- Top = 6000
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "原职务"
- Height = 285
- Index = 61
- Left = 4200
- TabIndex = 7
- Top = 6000
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "体重"
- Height = 285
- Index = 31
- Left = 4200
- TabIndex = 6
- Top = 600
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "血型"
- Height = 285
- Index = 32
- Left = 7200
- TabIndex = 5
- Top = 600
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "健康情况"
- Height = 285
- Index = 33
- Left = 1320
- TabIndex = 4
- Top = 960
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "特长"
- Height = 285
- Index = 62
- Left = 1320
- TabIndex = 3
- Top = 2760
- Width = 1695
- End
- Begin VB.TextBox txtFields
- DataField = "劳动力类型"
- Height = 285
- Index = 29
- Left = 1320
- TabIndex = 2
- Top = 7080
- Width = 1695
- End
- Begin MSComCtl2.DTPicker DTPicker13
- DataField = "档案转入时间"
- Height = 300
- Left = 1320
- TabIndex = 45
- Top = 6360
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker12
- DataField = "转正时间"
- Height = 300
- Left = 4200
- TabIndex = 46
- Top = 6360
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker11
- DataField = "进入公司时间"
- Height = 300
- Left = 7200
- TabIndex = 47
- Top = 6000
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker10
- DataField = "子女医疗包干结束时间"
- Height = 300
- Left = 7200
- TabIndex = 48
- Top = 5640
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker9
- DataField = "独生子女费结束时间"
- Height = 300
- Left = 7200
- TabIndex = 49
- Top = 5280
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker8
- DataField = "子女医疗包干开始时间"
- Height = 300
- Left = 3000
- TabIndex = 50
- Top = 5640
- Width = 1575
- _ExtentX = 2778
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker7
- DataField = "独生子女费开始时间"
- Height = 300
- Left = 3000
- TabIndex = 51
- Top = 5280
- Width = 1575
- _ExtentX = 2778
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker6
- DataField = "子女出生日期"
- Height = 300
- Left = 1320
- TabIndex = 52
- Top = 4920
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker5
- DataField = "爱人出生日期"
- Height = 300
- Left = 1320
- TabIndex = 53
- Top = 4200
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker4
- DataField = "参加工作时间"
- Height = 300
- Left = 7200
- TabIndex = 54
- Top = 3120
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker3
- DataField = "初次领证时间"
- Height = 300
- Left = 1320
- TabIndex = 55
- Top = 3120
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker2
- DataField = "职称评定时间"
- Height = 300
- Left = 4200
- TabIndex = 56
- Top = 2400
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin MSComCtl2.DTPicker DTPicker1
- DataField = "出生日期"
- Height = 300
- Left = 4200
- TabIndex = 57
- Top = 960
- Width = 1695
- _ExtentX = 2990
- _ExtentY = 529
- _Version = 393216
- CheckBox = -1 'True
- Format = 66519041
- CurrentDate = 36191
- End
- Begin VB.Label lblLabels
- Caption = "初次领证时间:"
- Height = 255
- Index = 0
- Left = 120
- TabIndex = 113
- Top = 3120
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "员工号:"
- Height = 255
- Index = 1
- Left = 120
- TabIndex = 112
- Top = 240
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "姓名:"
- Height = 255
- Index = 2
- Left = 3120
- TabIndex = 111
- Top = 240
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "性别:"
- Height = 255
- Index = 3
- Left = 6000
- TabIndex = 110
- Top = 240
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "出生日期:"
- Height = 255
- Index = 4
- Left = 3120
- TabIndex = 109
- Top = 960
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "民族:"
- Height = 255
- Index = 5
- Left = 6000
- TabIndex = 108
- Top = 960
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "政治面目:"
- Height = 255
- Index = 6
- Left = 120
- TabIndex = 107
- Top = 1680
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "婚姻状况:"
- Height = 255
- Index = 7
- Left = 3120
- TabIndex = 106
- Top = 1680
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "身份证号:"
- Height = 255
- Index = 8
- Left = 6000
- TabIndex = 105
- Top = 1680
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "学历:"
- Height = 255
- Index = 9
- Left = 120
- TabIndex = 104
- Top = 2040
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "所学专业:"
- Height = 255
- Index = 10
- Left = 3120
- TabIndex = 103
- Top = 2040
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "毕业学校:"
- Height = 255
- Index = 11
- Left = 6000
- TabIndex = 102
- Top = 2040
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "职称:"
- Height = 255
- Index = 12
- Left = 120
- TabIndex = 101
- Top = 2400
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "职称评定时间:"
- Height = 255
- Index = 13
- Left = 3120
- TabIndex = 100
- Top = 2400
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "技术证书:"
- Height = 255
- Index = 14
- Left = 6000
- TabIndex = 99
- Top = 2400
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "驾驶证号:"
- Height = 255
- Index = 15
- Left = 3120
- TabIndex = 98
- Top = 2760
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "准驾车辆:"
- Height = 255
- Index = 16
- Left = 6000
- TabIndex = 97
- Top = 2760
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "有效期限:"
- Height = 255
- Index = 17
- Left = 3120
- TabIndex = 96
- Top = 3120
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "参加工作时间:"
- Height = 255
- Index = 18
- Left = 6000
- TabIndex = 95
- Top = 3120
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "生育指标:"
- Height = 255
- Index = 34
- Left = 120
- TabIndex = 94
- Top = 4560
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "计划生育措施:"
- Height = 255
- Index = 35
- Left = 3120
- TabIndex = 93
- Top = 4560
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "家庭通讯地址:"
- Height = 255
- Index = 36
- Left = 120
- TabIndex = 92
- Top = 3480
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "邮编:"
- Height = 255
- Index = 37
- Left = 3120
- TabIndex = 91
- Top = 3480
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "电话:"
- Height = 255
- Index = 38
- Left = 6000
- TabIndex = 90
- Top = 3480
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "传呼机:"
- Height = 255
- Index = 39
- Left = 120
- TabIndex = 89
- Top = 3840
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "移动电话:"
- Height = 255
- Index = 40
- Left = 3120
- TabIndex = 88
- Top = 3840
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "爱人姓名:"
- Height = 255
- Index = 41
- Left = 6000
- TabIndex = 87
- Top = 3840
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "爱人出生日期:"
- Height = 255
- Index = 42
- Left = 120
- TabIndex = 86
- Top = 4200
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "爱人工作单位:"
- Height = 255
- Index = 43
- Left = 3120
- TabIndex = 85
- Top = 4200
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "爱人联系电话:"
- Height = 255
- Index = 44
- Left = 6000
- TabIndex = 84
- Top = 4200
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "独生子女姓名:"
- Height = 255
- Index = 45
- Left = 6000
- TabIndex = 83
- Top = 4560
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "子女出生日期:"
- Height = 255
- Index = 46
- Left = 120
- TabIndex = 82
- Top = 4920
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "子女性别:"
- Height = 255
- Index = 47
- Left = 3120
- TabIndex = 81
- Top = 4920
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "独生子女费开始时间:"
- Height = 255
- Index = 48
- Left = 120
- TabIndex = 80
- Top = 5280
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "独生子女费结束时间:"
- Height = 255
- Index = 49
- Left = 4920
- TabIndex = 79
- Top = 5280
- Width = 1815
- End
- Begin VB.Label lblLabels
- Caption = "子女医疗包干开始时间:"
- Height = 255
- Index = 50
- Left = 120
- TabIndex = 78
- Top = 5640
- Width = 1935
- End
- Begin VB.Label lblLabels
- Caption = "子女医疗包干结束时间:"
- Height = 255
- Index = 51
- Left = 4920
- TabIndex = 77
- Top = 5640
- Width = 1935
- End
- Begin VB.Label lblLabels
- Caption = "离职类型:"
- Height = 255
- Index = 54
- Left = 120
- TabIndex = 76
- Top = 9000
- Width = 855
- End
- Begin VB.Label lblLabels
- Caption = "籍贯:"
- Height = 255
- Index = 57
- Left = 120
- TabIndex = 75
- Top = 1320
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "出生地点:"
- Height = 255
- Index = 58
- Left = 3120
- TabIndex = 74
- Top = 1320
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "户口所在地:"
- Height = 255
- Index = 59
- Left = 6000
- TabIndex = 73
- Top = 1320
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "进入公司时间:"
- Height = 255
- Index = 19
- Left = 6000
- TabIndex = 72
- Top = 6000
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "转正时间:"
- Height = 255
- Index = 20
- Left = 3120
- TabIndex = 71
- Top = 6360
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "用工类型:"
- Height = 255
- Index = 23
- Left = 6000
- TabIndex = 70
- Top = 6360
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "档案转入时间:"
- Height = 255
- Index = 24
- Left = 120
- TabIndex = 69
- Top = 6360
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "招收类型:"
- Height = 255
- Index = 26
- Left = 120
- TabIndex = 68
- Top = 6720
- Width = 1095
- End
- Begin VB.Label lblLabels
- Caption = "人员类型一级:"
- Height = 255
- Index = 27
- Left = 3120
- TabIndex = 67
- Top = 6720
- Width = 1335
- End
- Begin VB.Label lblLabels
- Caption = "人员类型二级:"
- Height = 255
- Index = 28
- Left = 6000
- TabIndex = 66
- Top = 6720
- Width = 1215
- End
- Begin VB.Label lblLabels
- Caption = "原任职单位:"
- Height = 255
- Index = 60
- Left = 120
- TabIndex = 65
- Top = 6000
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "原职务:"
- Height = 255
- Index = 61
- Left = 3120
- TabIndex = 64
- Top = 6000
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "身高:"
- Height = 255
- Index = 30
- Left = 120
- TabIndex = 63
- Top = 600
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "体重:"
- Height = 255
- Index = 31
- Left = 3120
- TabIndex = 62
- Top = 600
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "血型:"
- Height = 255
- Index = 32
- Left = 6000
- TabIndex = 61
- Top = 600
- Width = 735
- End
- Begin VB.Label lblLabels
- Caption = "健康情况:"
- Height = 255
- Index = 33
- Left = 120
- TabIndex = 60
- Top = 960
- Width = 975
- End
- Begin VB.Label lblLabels
- Caption = "特长:"
- Height = 255
- Index = 62
- Left = 120
- TabIndex = 59
- Top = 2760
- Width = 615
- End
- Begin VB.Label lblLabels
- Caption = "劳动力类型:"
- Height = 255
- Index = 29
- Left = 120
- TabIndex = 58
- Top = 7080
- Width = 975
- End
- End
- End
- End
- Attribute VB_Name = "F_YuanGongJiBenXinXi"
- 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 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
- Set DTPicker4.DataSource = adoPrimaryRS
- Set DTPicker5.DataSource = adoPrimaryRS
- Set DTPicker6.DataSource = adoPrimaryRS
- Set DTPicker7.DataSource = adoPrimaryRS
- Set DTPicker8.DataSource = adoPrimaryRS
- Set DTPicker9.DataSource = adoPrimaryRS
- Set DTPicker10.DataSource = adoPrimaryRS
- Set DTPicker11.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
- 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
- Exit Sub
- AddErr:
- MsgBox "增加操作有错误", vbExclamation + vbOKOnly, pTitle
- End Sub
- Private Sub cmdDelete_Click()
- On Error GoTo DeleteErr
- With adoPrimaryRS
- .Delete
- .MoveNext
- If .EOF Then .MoveLast
- End With
- 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
- Exit Sub
- RefreshErr:
- MsgBox "刷新操作有错误", vbExclamation + vbOKOnly, pTitle
- End Sub
- Private Sub cmdEdit_Click()
- On Error GoTo EditErr
- mbEditFlag = True
- SetButtons False
- 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
- adoPrimaryRS.UpdateBatch adAffectAll
- If mbAddNewFlag Then
- adoPrimaryRS.MoveLast 'move to the new record
- End If
- mbEditFlag = False
- mbAddNewFlag = False
- SetButtons True
- 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
- DTPicker4.Enabled = Not bVal
- DTPicker5.Enabled = Not bVal
- DTPicker6.Enabled = Not bVal
- DTPicker7.Enabled = Not bVal
- DTPicker8.Enabled = Not bVal
- DTPicker9.Enabled = Not bVal
- DTPicker10.Enabled = Not bVal
- DTPicker11.Enabled = Not bVal
- End Sub
- Private Sub txtFields_LostFocus(Index As Integer)
- If Not IsNumeric(txtFields(30).Text) And (txtFields(30).Text <> "") Then
- MsgBox "请在“身高”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(30).SetFocus
- txtFields(30).SelLength = Len(txtFields(30))
- txtFields(30).SelStart = 0
- End If
- If Not IsNumeric(txtFields(31).Text) And (txtFields(31).Text <> "") Then
- MsgBox "请在“体重”中输入数字", vbExclamation + vbOKOnly, pTitle
- txtFields(31).SetFocus
- txtFields(31).SelLength = Len(txtFields(31))
- txtFields(31).SelStart = 0
- End If
- End Sub