📄 frmlogin.frm
字号:
VERSION 5.00
Begin VB.Form FrmLogin
BorderStyle = 1 'Fixed Single
Caption = "身份验证"
ClientHeight = 2325
ClientLeft = 45
ClientTop = 330
ClientWidth = 4875
ControlBox = 0 'False
Icon = "FrmLogin.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2325
ScaleWidth = 4875
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox TxtUser
Height = 270
Left = 1800
MaxLength = 20
TabIndex = 1
ToolTipText = "输入用户名，不超过20个字符"
Top = 360
Width = 2415
End
Begin VB.TextBox TxtPwd
Enabled = 0 'False
Height = 270
IMEMode = 3 'DISABLE
Left = 1800
MaxLength = 20
PasswordChar = "*"
TabIndex = 0
ToolTipText = "输入密码，不超过20个字符"
Top = 840
Width = 2415
End
Begin VB.Image Image1
Height = 300
Left = 1920
Picture = "FrmLogin.frx":0CCA
Top = 1320
Width = 300
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "注 册"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2400
MouseIcon = "FrmLogin.frx":11BC
MousePointer = 99 'Custom
TabIndex = 6
Top = 1320
Width = 735
End
Begin VB.Image Image4
Height = 300
Left = 3000
Picture = "FrmLogin.frx":14C6
Top = 1800
Width = 300
End
Begin VB.Label LblCancel
BackStyle = 0 'Transparent
Caption = "取 消"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3600
MouseIcon = "FrmLogin.frx":18E2
MousePointer = 99 'Custom
TabIndex = 5
Top = 1800
Width = 855
End
Begin VB.Image Image3
Height = 300
Left = 720
Picture = "FrmLogin.frx":1BEC
Top = 1800
Width = 300
End
Begin VB.Label LblOK
BackStyle = 0 'Transparent
Caption = "确 定"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1320
MouseIcon = "FrmLogin.frx":2008
MousePointer = 99 'Custom
TabIndex = 4
Top = 1800
Width = 735
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密 码："
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 360
MouseIcon = "FrmLogin.frx":2312
MousePointer = 99 'Custom
TabIndex = 3
Top = 840
Width = 1275
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户名："
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 360
MouseIcon = "FrmLogin.frx":261C
MousePointer = 99 'Custom
TabIndex = 2
Top = 360
Width = 1260
End
End
Attribute VB_Name = "FrmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public PasswordKey As String
Public NameKey As String
Public Try_times As Integer
Public EngineerUse As String
Public PurchaseUse As String
Public SalesUse As String
Public StocksUse As String
Public ManpowerUse As String
Public ClientUse As String
Public ManageUse As String
Private Sub Label2_Click()
Unload Me
FrmRegister.Show
End Sub
Private Sub LblCancel_Click()
Unload Me
End Sub
Private Sub LblOK_Click()
'数据有效性检查
If TxtUser = "" Then
MsgBox "请输入用户名"
TxtUser.SetFocus
Exit Sub
End If
If TxtPwd = "" Then
MsgBox "请输入密码"
TxtPwd.SetFocus
Exit Sub
End If
'判断用户是否存在
If MyUsers.In_DB(Trim(TxtUser.Text)) = False Then
MsgBox "用户名不存在"
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"
End
Else
Exit Sub
End If
End If
'判断密码是否正确
If MyUsers.GetInfo(TxtUser.Text, TxtPwd.Text) = False Then
MsgBox "密码错误"
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭"
End
Else
Exit Sub
End If
Else
''获取用户权限
MyDB.openDB
SqlStmt = "select * from Users where Name='" + Trim(TxtUser.Text) + "'"
'执行SQL语句
Dim Isexe As Boolean
Dim rsUsers As ADODB.Recordset
Isexe = MyDB.exeSql(SqlStmt, rsUsers, True)
ManageUse = Trim(rsUsers.Fields("ManageUse"))
EngineerUse = Trim(rsUsers.Fields("EngineerUse"))
PurchaseUse = Trim(rsUsers.Fields("PurchaseUse"))
SalesUse = Trim(rsUsers.Fields("SalesUse"))
StocksUse = Trim(rsUsers.Fields("StocksUse"))
ManpowerUse = Trim(rsUsers.Fields("ManpowerUse"))
ClientUse = Trim(rsUsers.Fields("ClientUse"))
'断开与数据库的连接
MyDB.closeDB
'根据权限设置主窗口中ToolBar可用项
If ManageUse = "有权限" Then
FrmMan.Toolbar1.Buttons("Manage").Enabled = True
FrmMan.Manage.Enabled = True
Else
FrmMan.Toolbar1.Buttons("Manage").Enabled = False
End If
If EngineerUse = "有权限" Then
FrmMan.Toolbar1.Buttons("Engineer").Enabled = True
FrmMan.Engineer.Enabled = True
Else
FrmMan.Toolbar1.Buttons("Engineer").Enabled = False
End If
If PurchaseUse = "有权限" Then
FrmMan.Toolbar1.Buttons("Purchase").Enabled = True
FrmMan.Purchase.Enabled = True
Else
FrmMan.Toolbar1.Buttons("Purchase").Enabled = False
End If
If SalesUse = "有权限" Then
FrmMan.Toolbar1.Buttons("Sales").Enabled = True
FrmMan.Sales.Enabled = True
Else
FrmMan.Toolbar1.Buttons("Sales").Enabled = False
End If
If StocksUse = "有权限" Then
FrmMan.Toolbar1.Buttons("Stocks").Enabled = True
FrmMan.Stocks.Enabled = True
Else
FrmMan.Toolbar1.Buttons("Stocks").Enabled = False
End If
If ManpowerUse = "有权限" Then
FrmMan.Toolbar1.Buttons("Manpower").Enabled = True
FrmMan.Manpower.Enabled = True
Else
FrmMan.Toolbar1.Buttons("Manpower").Enabled = False
End If
If ClientUse = "有权限" Then
FrmMan.Toolbar1.Buttons("Client").Enabled = True
FrmMan.Client.Enabled = True
Else
FrmMan.Toolbar1.Buttons("Client").Enabled = False
End If
FrmMan.StatusBar.Panels(1).Text = "登陆用户:" + Trim(TxtUser.Text)
FrmMan.LogIn.Enabled = False
End If
Unload Me
End Sub
Private Sub txtUser_Change()
TxtPwd.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -