📄 frmedit.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmEdit
BorderStyle = 3 'Fixed Dialog
Caption = "员工资料-编辑"
ClientHeight = 6720
ClientLeft = 150
ClientTop = 435
ClientWidth = 9975
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmEdit.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6720
ScaleWidth = 9975
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab stbEdit
Height = 5415
Left = 60
TabIndex = 12
Top = 780
Width = 9855
_ExtentX = 17383
_ExtentY = 9551
_Version = 393216
Style = 1
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "基本档案"
TabPicture(0) = "frmEdit.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Line(1)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Line(0)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "lblCorp(0)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "lblTxtPersonal(7)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "lblTxtPersonal(9)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "lblCorp(1)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "lblCboPersonal(7)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "lblCboPersonal(8)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "lblTxtPersonal(1)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "lblTxtPersonal(11)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "lblTxtPersonal(10)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "lblCboPersonal(9)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "lblCboPersonal(5)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "lblCboPersonal(6)"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "lblTxtPersonal(5)"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "lblTxtPersonal(2)"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "lblTxtPersonal(4)"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "lblTxtPersonal(3)"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "lblTxtPersonal(0)"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "lblDate(0)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "lblCboPersonal(4)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "lblCboPersonal(3)"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "lblCboPersonal(2)"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "lblCboPersonal(1)"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "lblCboPersonal(0)"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "lblTxtPersonal(17)"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "lblTxtPersonal(6)"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "DTPDate(0)"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "txtCorp(0)"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "TxtPersonal(7)"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "TxtPersonal(9)"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).Control(31)= "txtCorp(1)"
Tab(0).Control(31).Enabled= 0 'False
Tab(0).Control(32)= "cboPersonal(7)"
Tab(0).Control(32).Enabled= 0 'False
Tab(0).Control(33)= "cboPersonal(8)"
Tab(0).Control(33).Enabled= 0 'False
Tab(0).Control(34)= "txtDate(0)"
Tab(0).Control(34).Enabled= 0 'False
Tab(0).Control(35)= "fraEdit(3)"
Tab(0).Control(35).Enabled= 0 'False
Tab(0).Control(36)= "TxtPersonal(11)"
Tab(0).Control(36).Enabled= 0 'False
Tab(0).Control(37)= "TxtPersonal(10)"
Tab(0).Control(37).Enabled= 0 'False
Tab(0).Control(38)= "cboPersonal(9)"
Tab(0).Control(38).Enabled= 0 'False
Tab(0).Control(39)= "cboPersonal(6)"
Tab(0).Control(39).Enabled= 0 'False
Tab(0).Control(40)= "cboPersonal(5)"
Tab(0).Control(40).Enabled= 0 'False
Tab(0).Control(41)= "TxtPersonal(6)"
Tab(0).Control(41).Enabled= 0 'False
Tab(0).Control(42)= "TxtPersonal(5)"
Tab(0).Control(42).Enabled= 0 'False
Tab(0).Control(43)= "TxtPersonal(4)"
Tab(0).Control(43).Enabled= 0 'False
Tab(0).Control(44)= "TxtPersonal(3)"
Tab(0).Control(44).Enabled= 0 'False
Tab(0).Control(45)= "TxtPersonal(2)"
Tab(0).Control(45).Enabled= 0 'False
Tab(0).Control(46)= "TxtPersonal(1)"
Tab(0).Control(46).Enabled= 0 'False
Tab(0).Control(47)= "TxtPersonal(0)"
Tab(0).Control(47).Enabled= 0 'False
Tab(0).Control(48)= "cboPersonal(4)"
Tab(0).Control(48).Enabled= 0 'False
Tab(0).Control(49)= "cboPersonal(3)"
Tab(0).Control(49).Enabled= 0 'False
Tab(0).Control(50)= "cboPersonal(2)"
Tab(0).Control(50).Enabled= 0 'False
Tab(0).Control(51)= "cboPersonal(1)"
Tab(0).Control(51).Enabled= 0 'False
Tab(0).Control(52)= "cboPersonal(0)"
Tab(0).Control(52).Enabled= 0 'False
Tab(0).Control(53)= "TxtPersonal(17)"
Tab(0).Control(53).Enabled= 0 'False
Tab(0).ControlCount= 54
TabCaption(1) = "职员信息"
TabPicture(1) = "frmEdit.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "TxtPersonal(13)"
Tab(1).Control(1)= "TxtPersonal(14)"
Tab(1).Control(2)= "TxtPersonal(12)"
Tab(1).Control(3)= "txtCorp(3)"
Tab(1).Control(4)= "TxtPersonal(15)"
Tab(1).Control(5)= "cboPersonal(11)"
Tab(1).Control(6)= "cboPersonal(12)"
Tab(1).Control(7)= "TxtPersonal(16)"
Tab(1).Control(8)= "txtDate(2)"
Tab(1).Control(9)= "txtDate(3)"
Tab(1).Control(10)= "txtDate(4)"
Tab(1).Control(11)= "txtDate(5)"
Tab(1).Control(12)= "TxtPersonal(19)"
Tab(1).Control(13)= "TxtPersonal(20)"
Tab(1).Control(14)= "TxtPersonal(8)"
Tab(1).Control(15)= "txtDate(1)"
Tab(1).Control(16)= "txtCorp(2)"
Tab(1).Control(17)= "cboPersonal(10)"
Tab(1).Control(18)= "TxtPersonal(22)"
Tab(1).Control(19)= "DTPDate(5)"
Tab(1).Control(20)= "DTPDate(4)"
Tab(1).Control(21)= "DTPDate(3)"
Tab(1).Control(22)= "DTPDate(2)"
Tab(1).Control(23)= "DTPDate(1)"
Tab(1).Control(24)= "lblDate(2)"
Tab(1).Control(25)= "lblDate(4)"
Tab(1).Control(26)= "lblDate(5)"
Tab(1).Control(27)= "lblDate(3)"
Tab(1).Control(28)= "lblTxtPersonal(12)"
Tab(1).Control(29)= "lblTxtPersonal(14)"
Tab(1).Control(30)= "lblCorp(3)"
Tab(1).Control(31)= "Line(3)"
Tab(1).Control(32)= "Line(2)"
Tab(1).Control(33)= "Line(5)"
Tab(1).Control(34)= "Line(4)"
Tab(1).Control(35)= "lblTxtPersonal(13)"
Tab(1).Control(36)= "lblTxtPersonal(15)"
Tab(1).Control(37)= "lblCboPersonal(11)"
Tab(1).Control(38)= "lblCboPersonal(12)"
Tab(1).Control(39)= "lblTxtPersonal(16)"
Tab(1).Control(40)= "lblTxtPersonal(19)"
Tab(1).Control(41)= "lblTxtPersonal(20)"
Tab(1).Control(42)= "lblTxtPersonal(22)"
Tab(1).Control(43)= "lblTxtPersonal(8)"
Tab(1).Control(44)= "lblCorp(2)"
Tab(1).Control(45)= "lblDate(1)"
Tab(1).Control(46)= "lblCboPersonal(10)"
Tab(1).ControlCount= 47
Begin VB.TextBox TxtPersonal
Height = 300
Index = 13
Left = -70440
TabIndex = 84
Top = 3960
Width = 1815
End
Begin VB.TextBox TxtPersonal
Height = 300
Index = 14
Left = -67320
TabIndex = 83
Top = 3960
Width = 1815
End
Begin VB.TextBox TxtPersonal
Height = 300
Index = 12
Left = -73560
TabIndex = 82
Top = 3960
Width = 1815
End
Begin VB.TextBox txtCorp
Height = 300
Index = 3
Left = -67320
MaxLength = 3
TabIndex = 81
Top = 480
Width = 1815
End
Begin VB.TextBox TxtPersonal
Height = 300
Index = 15
Left = -73560
TabIndex = 80
Top = 4320
Width = 1815
End
Begin VB.ComboBox cboPersonal
Height = 300
Index = 11
Left = -73560
TabIndex = 79
Top = 3300
Width = 1815
End
Begin VB.ComboBox cboPersonal
Height = 300
Index = 12
Left = -67320
TabIndex = 78
Top = 3300
Width = 1815
End
Begin VB.TextBox TxtPersonal
Height = 300
Index = 16
Left = -70440
TabIndex = 77
Top = 3300
Width = 1815
End
Begin VB.TextBox txtDate
Height = 300
Index = 2
Left = -73560
TabIndex = 76
Top = 480
Width = 1545
End
Begin VB.TextBox txtDate
Height = 300
Index = 3
Left = -70440
TabIndex = 75
Top = 480
Width = 1545
End
Begin VB.TextBox txtDate
Height = 300
Index = 4
Left = -67320
TabIndex = 74
Top = 840
Width = 1545
End
Begin VB.TextBox txtDate
Height = 300
Index = 5
Left = -70440
TabIndex = 73
Top = 840
Width = 1545
End
Begin VB.TextBox TxtPersonal
Height = 300
Index = 19
Left = -73560
TabIndex = 72
Top = 1200
Width = 8055
End
Begin VB.TextBox TxtPersonal
Height = 1020
Index = 20
Left = -73560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 71
Top = 1560
Width = 8055
End
Begin VB.TextBox TxtPersonal
Height = 300
Index = 8
Left = -73560
TabIndex = 70
Top = 840
Width = 1815
End
Begin VB.TextBox txtDate
Height = 300
Index = 1
Left = -70440
TabIndex = 69
Top = 2940
Width = 1545
End
Begin VB.TextBox txtCorp
Height = 300
Index = 2
Left = -67320
MaxLength = 3
TabIndex = 68
Top = 2940
Width = 1815
End
Begin VB.ComboBox cboPersonal
Height = 300
Index = 10
Left = -73560
TabIndex = 67
Top = 2940
Width = 1815
End
Begin VB.TextBox TxtPersonal
Height = 300
Index = 22
Left = -70440
TabIndex = 66
Top = 4320
Width = 1815
End
Begin VB.TextBox TxtPersonal
Height = 615
Index = 17
Left = 1200
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 40
Top = 3360
Width = 5055
End
Begin VB.ComboBox cboPersonal
Height = 300
Index = 0
ItemData = "frmEdit.frx":0044
Left = 1200
List = "frmEdit.frx":004E
TabIndex = 39
Top = 480
Width = 1815
End
Begin VB.ComboBox cboPersonal
Height = 300
Index = 1
Left = 4440
TabIndex = 38
Top = 480
Width = 1815
End
Begin VB.ComboBox cboPersonal
Height = 300
Index = 2
Left = 1200
TabIndex = 37
Top = 1200
Width = 1815
End
Begin VB.ComboBox cboPersonal
Height = 300
Index = 3
Left = 4440
TabIndex = 36
Top = 1200
Width = 1815
End
Begin VB.ComboBox cboPersonal
Height = 300
Index = 4
Left = 4440
TabIndex = 35
Top = 840
Width = 1815
End
Begin VB.TextBox TxtPersonal
Height = 300
Index = 0
Left = 7680
TabIndex = 34
Top = 840
Width = 1815
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -