📄 frm_employee.frm
字号:
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 = 4560
TabIndex = 37
Top = 360
Width = 735
End
Begin VB.Label lbl_sex
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 = 480
TabIndex = 36
Top = 1845
Width = 495
End
Begin VB.Label lbl_note
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 = 480
TabIndex = 35
Top = 2200
Width = 1215
End
Begin VB.Label lbl_phone
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 = 480
TabIndex = 34
Top = 1490
Width = 975
End
Begin VB.Label lbl_mail
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 = 480
TabIndex = 33
Top = 1135
Width = 1335
End
Begin VB.Label lbl_lname
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 = 480
TabIndex = 32
Top = 780
Width = 975
End
Begin VB.Label lbl_fname
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 = 480
TabIndex = 31
Top = 425
Width = 1095
End
End
Begin VB.Frame frm_post
Caption = "Office info."
ForeColor = &H00000040&
Height = 1335
Left = 4920
TabIndex = 26
Top = 120
Width = 3255
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":31C6
Left = 1320
List = "Frm_Employee.frx":31D3
Locked = -1 'True
TabIndex = 9
Tag = "9"
Top = 360
Width = 1695
End
Begin VB.TextBox txt_sal
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 = 1320
Locked = -1 'True
MaxLength = 10
TabIndex = 27
Tag = "10"
Top = 840
Width = 1695
End
Begin VB.Label lbl_salary
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 = 360
TabIndex = 29
Top = 840
Width = 855
End
Begin VB.Label lbl_post
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 = 360
TabIndex = 28
Top = 415
Width = 855
End
End
Begin VB.Frame fra_log
Caption = "Login info."
ForeColor = &H00000040&
Height = 1575
Left = 240
TabIndex = 22
Top = 120
Width = 4575
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 = 2040
Locked = -1 'True
MaxLength = 20
PasswordChar = "*"
TabIndex = 2
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 = 2040
Locked = -1 'True
MaxLength = 20
PasswordChar = "*"
TabIndex = 1
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 = 2040
Locked = -1 'True
MaxLength = 20
TabIndex = 0
Tag = "0"
Top = 360
Width = 2295
End
Begin VB.Label Label1
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 = 360
TabIndex = 25
Top = 1100
Width = 1575
End
Begin VB.Label lbl_pass1
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 = 360
TabIndex = 24
Top = 757
Width = 975
End
Begin VB.Label lbl_ID
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 = 360
TabIndex = 23
Top = 415
Width = 1095
End
End
End
Attribute VB_Name = "Frm_Employees"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Emprecordset As ADODB.Recordset
Dim Empconnection As ADODB.Connection
Dim saveflag As Boolean
Dim str As String
Dim slct As String
Private Function cheak() As Boolean
Dim flag As Boolean
flag = False
If txt_empid.Text = "" Then
MsgBox ("Please enter EmployeeID."), vbInformation, "Data missing"
ElseIf txt_pass1.Text = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -