📄 frm_employee.frm
字号:
Tag = "4"
Top = 720
Width = 2295
End
Begin VB.TextBox txt_fname
DataField = "Fname"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 285
Left = 1680
Locked = -1 'True
MaxLength = 25
TabIndex = 13
Tag = "3"
Top = 360
Width = 2295
End
Begin VB.Label lbl_add
BackStyle = 0 'Transparent
Caption = "Address"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 4200
TabIndex = 26
Top = 360
Width = 735
End
Begin VB.Label lbl_sex
BackStyle = 0 'Transparent
Caption = "Sex"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 25
Top = 1800
Width = 495
End
Begin VB.Label lbl_note
BackStyle = 0 'Transparent
Caption = "Special note"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 24
Top = 2205
Width = 1215
End
Begin VB.Label lbl_phone
BackStyle = 0 'Transparent
Caption = "Phone no."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 23
Top = 1485
Width = 975
End
Begin VB.Label lbl_mail
BackStyle = 0 'Transparent
Caption = "Email address"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 22
Top = 1140
Width = 1335
End
Begin VB.Label lbl_lname
BackStyle = 0 'Transparent
Caption = "Last name"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 21
Top = 780
Width = 975
End
Begin VB.Label lbl_fname
BackStyle = 0 'Transparent
Caption = "First name"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 20
Top = 420
Width = 1095
End
End
Begin VB.Frame frm_post
Caption = "Office info."
ForeColor = &H00000040&
Height = 1575
Left = 5040
TabIndex = 7
Top = 720
Width = 3135
Begin VB.ComboBox cmb_post
DataField = "Post"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 315
ItemData = "Frm_Employee.frx":5C0D
Left = 1200
List = "Frm_Employee.frx":5C1A
Locked = -1 'True
TabIndex = 9
Tag = "9"
Top = 360
Width = 1695
End
Begin VB.TextBox txt_sal
Alignment = 1 'Right Justify
DataField = "Salary"
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 1
EndProperty
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 315
Left = 1200
Locked = -1 'True
MaxLength = 10
TabIndex = 8
Tag = "10"
Top = 1080
Width = 1695
End
Begin VB.Label lbl_salary
BackStyle = 0 'Transparent
Caption = "Salary"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 11
Top = 1080
Width = 855
End
Begin VB.Label lbl_post
BackStyle = 0 'Transparent
Caption = "Post-aid"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 10
Top = 420
Width = 855
End
End
Begin VB.Frame fra_log
Caption = "Login info."
ForeColor = &H00000040&
Height = 1575
Left = 120
TabIndex = 0
Top = 720
Width = 4455
Begin VB.TextBox txt_pass2
DataField = "Password"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 285
IMEMode = 3 'DISABLE
Left = 1920
Locked = -1 'True
MaxLength = 20
PasswordChar = "*"
TabIndex = 3
Tag = "2"
Top = 1080
Width = 2295
End
Begin VB.TextBox txt_pass1
DataField = "Password"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 285
IMEMode = 3 'DISABLE
Left = 1920
Locked = -1 'True
MaxLength = 20
PasswordChar = "*"
TabIndex = 2
Tag = "1"
Top = 720
Width = 2295
End
Begin VB.TextBox txt_empid
DataField = "Empid"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 285
Left = 1920
Locked = -1 'True
MaxLength = 20
TabIndex = 1
Tag = "0"
Top = 360
Width = 2295
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "Password confirm"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 6
Top = 1095
Width = 1575
End
Begin VB.Label lbl_pass1
BackStyle = 0 'Transparent
Caption = "Password"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 5
Top = 750
Width = 975
End
Begin VB.Label lbl_ID
BackStyle = 0 'Transparent
Caption = "Employee ID"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 4
Top = 420
Width = 1095
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -