📄 w_employee_free1.frm
字号:
VERSION 5.00
Begin VB.Form w_employee_free1
BorderStyle = 3 'Fixed Dialog
Caption = "员工信息"
ClientHeight = 6630
ClientLeft = 1095
ClientTop = 330
ClientWidth = 7170
Icon = "w_employee_free1.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6630
ScaleWidth = 7170
Begin VB.TextBox txtFields
DataField = "employee_id"
DataSource = "datPrimaryRS"
Height = 285
Index = 0
Left = 1680
TabIndex = 1
Top = 480
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "department_id"
DataSource = "datPrimaryRS"
Height = 285
Index = 1
Left = 4560
TabIndex = 2
Top = 480
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "name"
DataSource = "datPrimaryRS"
Height = 285
Index = 2
Left = 1680
TabIndex = 3
Top = 945
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "sex"
DataSource = "datPrimaryRS"
Height = 285
Index = 3
Left = 4560
TabIndex = 4
Top = 1020
Width = 615
End
Begin VB.TextBox txtFields
DataField = "education"
DataSource = "datPrimaryRS"
Height = 285
Index = 4
Left = 1680
TabIndex = 5
Top = 1575
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "duty"
DataSource = "datPrimaryRS"
Height = 285
Index = 5
Left = 4560
TabIndex = 6
Top = 1545
Width = 1695
End
Begin VB.TextBox txtFields
DataField = "id_card"
DataSource = "datPrimaryRS"
Height = 285
Index = 6
Left = 1680
TabIndex = 7
Top = 2220
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "phone"
DataSource = "datPrimaryRS"
Height = 285
Index = 7
Left = 4560
TabIndex = 8
Top = 2175
Width = 1695
End
Begin VB.TextBox txtFields
DataField = "bp"
DataSource = "datPrimaryRS"
Height = 285
Index = 8
Left = 1680
TabIndex = 9
Top = 2865
Width = 1695
End
Begin VB.TextBox txtFields
DataField = "home_phone"
DataSource = "datPrimaryRS"
Height = 285
Index = 9
Left = 4560
TabIndex = 10
Top = 2820
Width = 1695
End
Begin VB.TextBox txtFields
DataField = "home_address"
DataSource = "datPrimaryRS"
Height = 285
Index = 10
Left = 1680
TabIndex = 11
Top = 3495
Width = 3375
End
Begin VB.TextBox txtFields
DataField = "specialty"
DataSource = "datPrimaryRS"
Height = 285
Index = 11
Left = 1680
TabIndex = 12
Top = 4185
Width = 3495
End
Begin VB.TextBox txtFields
DataField = "birthday"
DataSource = "datPrimaryRS"
Height = 285
Index = 12
Left = 1680
TabIndex = 13
Top = 4980
Width = 2175
End
Begin VB.PictureBox picButtons
Align = 2 'Align Bottom
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 7170
TabIndex = 24
TabStop = 0 'False
Top = 6030
Width = 7170
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 300
Left = 1213
TabIndex = 18
Top = 0
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 300
Left = 59
TabIndex = 19
TabStop = 0 'False
Top = 0
Visible = 0 'False
Width = 1095
End
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
Height = 300
Left = 4675
TabIndex = 15
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 3521
TabIndex = 16
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 2367
TabIndex = 17
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdEdit
Caption = "编辑(&E)"
Height = 300
Left = 1213
TabIndex = 26
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 59
TabIndex = 25
Top = 0
Width = 1095
End
End
Begin VB.PictureBox picStatBox
Align = 2 'Align Bottom
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 0
ScaleHeight = 300
ScaleWidth = 7170
TabIndex = 23
TabStop = 0 'False
Top = 6330
Width = 7170
Begin VB.CommandButton cmdLast
Height = 300
Left = 4545
Picture = "w_employee_free1.frx":0442
Style = 1 'Graphical
TabIndex = 22
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdNext
Height = 300
Left = 4200
Picture = "w_employee_free1.frx":0784
Style = 1 'Graphical
TabIndex = 0
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdPrevious
Height = 300
Left = 345
Picture = "w_employee_free1.frx":0AC6
Style = 1 'Graphical
TabIndex = 21
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.CommandButton cmdFirst
Height = 300
Left = 0
Picture = "w_employee_free1.frx":0E08
Style = 1 'Graphical
TabIndex = 20
Top = 0
UseMaskColor = -1 'True
Width = 345
End
Begin VB.Label lblStatus
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Height = 285
Left = 690
TabIndex = 14
Top = 0
Visible = 0 'False
Width = 3360
End
End
Begin VB.Label lblLabels
Caption = "员工编号"
Height = 255
Index = 0
Left = 600
TabIndex = 39
Top = 480
Width = 855
End
Begin VB.Label lblLabels
Caption = "部门编号"
Height = 255
Index = 1
Left = 3480
TabIndex = 38
Top = 510
Width = 855
End
Begin VB.Label lblLabels
Caption = "姓 名"
Height = 255
Index = 2
Left = 600
TabIndex = 37
Top = 945
Width = 855
End
Begin VB.Label lblLabels
Caption = "性 别"
Height = 255
Index = 3
Left = 3480
TabIndex = 36
Top = 1020
Width = 855
End
Begin VB.Label lblLabels
Caption = "教育程度"
Height = 255
Index = 4
Left = 600
TabIndex = 35
Top = 1575
Width = 855
End
Begin VB.Label lblLabels
Caption = "职 务"
Height = 255
Index = 5
Left = 3480
TabIndex = 34
Top = 1545
Width = 855
End
Begin VB.Label lblLabels
Caption = "身份证号"
Height = 255
Index = 6
Left = 600
TabIndex = 33
Top = 2220
Width = 855
End
Begin VB.Label lblLabels
Caption = "电 话"
Height = 255
Index = 7
Left = 3480
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -