📄 登陆界面.frm
字号:
VERSION 5.00
Begin VB.Form denglujiemian
Caption = "超市管理系统 WW1.0"
ClientHeight = 3840
ClientLeft = 3795
ClientTop = 3180
ClientWidth = 8430
BeginProperty Font
Name = "@华文新魏"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0E0FF&
LinkTopic = "Form1"
ScaleHeight = 3840
ScaleWidth = 8430
Begin VB.CommandButton Command3
Caption = "取消"
BeginProperty Font
Name = "华文新魏"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6960
TabIndex = 8
Top = 2760
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "注册"
BeginProperty Font
Name = "华文新魏"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 7
Top = 2760
Width = 1335
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Left = 5040
PasswordChar = "*"
TabIndex = 4
Top = 1320
Width = 1695
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
MaxLength = 15
TabIndex = 3
Top = 600
Width = 1695
End
Begin VB.PictureBox Picture1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3855
Left = 0
Picture = "登陆界面.frx":0000
ScaleHeight = 3795
ScaleWidth = 3435
TabIndex = 0
Top = 0
Width = 3495
End
Begin VB.CommandButton Command1
BackColor = &H00C0FFFF&
Caption = " 登陆"
DisabledPicture = "登陆界面.frx":94B7
DownPicture = "登陆界面.frx":9CF7
BeginProperty Font
Name = "华文新魏"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5280
MaskColor = &H000000FF&
TabIndex = 5
Top = 2760
Width = 1335
End
Begin VB.Label Label7
Caption = "初次登陆:用户名为""cmj""，密码为""111"""
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 3720
TabIndex = 6
Top = 2160
Width = 4455
End
Begin VB.Label Label2
Caption = "密 码"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3720
TabIndex = 2
Top = 1320
Width = 975
End
Begin VB.Label Label1
Caption = "用户名"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3720
TabIndex = 1
Top = 600
Width = 975
End
End
Attribute VB_Name = "denglujiemian"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim n As Integer '定义用户登录错误次数,若超过三次则系统自动退出
Private Sub Command1_Click()
Dim sql As String
Dim cn As ADODB.Connection
Dim i As Integer
Dim rs As New ADODB.Recordset
Dim userrs As New ADODB.Recordset
If Trim(Text1.Text) <> "" Then '检查是否输入用户名
sql = "select * from yhxxb where yhm='" & Trim(Text1.Text) & "'"
Set rs = exesql(sql) '检查是否有该用户名,若没有,给出提示,有则进行下一步判断
If rs.RecordCount > 0 Then
If Trim(Text2.Text) <> "" Then '检查是否输入密码,如没有输入,给出提示,否则核实密码是否正确
sql = sql & " and mm='" & Trim(Text2.Text) & "'"
Set rs = exesql(sql)
If rs.RecordCount > 0 Then
yhm = rs.Fields("yhm") '用全局变量yhm,yhsf,mm来记录用户名和用户权限,密码
yhsf = rs.Fields("yhsf")
mm = rs.Fields("mm")
主界面.Show
Unload denglujiemian
Else: n = n + 1 '若密码错误，则n 增大1，当连续错误三次，则自动关闭并给出提示
If n < 3 Then
MsgBox "密码错误请重新输入密码", vbOKOnly + vbexclaimation + vbDefaultButton1, "登录错误提示"
Text2.Text = ""
Text2.SetFocus
Else: i = MsgBox("您已连续三次输入错误密码,系统将自动退出,", vbOKOnly + vbexclaimation + vbDefaultButton1, "登录错误提示")
Unload denglujiemian
Unload 登记销售单
Unload 登记入库单
Unload 基础资料设置
Unload 库存报警设置
Unload 库存查询
Unload 商品资料设置
Unload 销售单查询
Unload 销售汇总
Unload 修改密码
Unload 用户权限设置
Unload 主界面
Set rs = Nothing
End If
End If
Else: i = MsgBox("请输入密码", vbOKOnly + vbexclaimation + vbDefaultButton1, "登录错误提示")
Text1.SetFocus
End If
Else: Text1.Text = ""
Text1.SetFocus
i = MsgBox("无效用户,请重新输入用户名", vbOKOnly + vbexclaimation + vbDefaultButton1, "登录错误提示")
End If
Else
If Text2.Text <> "" Then
i = MsgBox("请输入用户名", vbOKOnly + vbexclaimation + vbDefaultButton1, "登录错误提示")
Text1.SetFocus
Else:
i = MsgBox("请输入用户名和密码", vbOKOnly + vbexclaimation + vbDefaultButton1, "登录错误提示")
End If
End If
End Sub
Private Sub Command2_Click()
denglujiemian.Hide
注册.Show
End Sub
Private Sub Command3_Click()
Unload denglujiemian
Unload 登记销售单
Unload 登记入库单
Unload 基础资料设置
Unload 库存报警设置
Unload 库存查询
Unload 商品资料设置
Unload 销售单查询
Unload 销售汇总
Unload 修改密码
Unload 用户权限设置
Unload 主界面
Unload 注册
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -