📄 frmlogin.frm
字号:
VERSION 5.00
Begin VB.Form FrmLogin
Caption = "用户登录"
ClientHeight = 5355
ClientLeft = 60
ClientTop = 450
ClientWidth = 7500
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5355
ScaleWidth = 7500
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2640
MaskColor = &H0000FFFF&
Picture = "FrmLogin.frx":0000
Style = 1 'Graphical
TabIndex = 5
Top = 4800
Width = 1335
End
Begin VB.CommandButton Command2
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4200
Picture = "FrmLogin.frx":10CC
Style = 1 'Graphical
TabIndex = 4
Top = 4800
Width = 1335
End
Begin VB.CommandButton Command3
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5760
Picture = "FrmLogin.frx":2193
Style = 1 'Graphical
TabIndex = 3
Top = 4800
Width = 1335
End
Begin VB.TextBox Text1
Height = 375
Left = 5640
MaxLength = 50
TabIndex = 2
Text = "Text1"
Top = 3000
Width = 1695
End
Begin VB.TextBox Text2
Height = 375
Left = 5640
MaxLength = 50
TabIndex = 1
Text = "Text2"
Top = 3600
Width = 1695
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "FrmLogin.frx":3250
Left = 5640
List = "FrmLogin.frx":325A
TabIndex = 0
Top = 4200
Width = 1695
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "水质模糊综合评价系统"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 855
Left = 960
TabIndex = 10
Top = 1200
Width = 4575
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label1"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 3840
TabIndex = 9
Top = 3000
Width = 1455
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label2"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 3840
TabIndex = 8
Top = 3600
Width = 1215
End
Begin VB.Label Label3
BackColor = &H0080C0FF&
BackStyle = 0 'Transparent
Caption = "Label3"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 615
Left = 3840
TabIndex = 7
Top = 2040
Width = 3255
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "Label4"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 495
Left = 3840
TabIndex = 6
Top = 4080
Width = 1695
End
Begin VB.Image Image1
Height = 11520
Left = -240
Picture = "FrmLogin.frx":326C
Top = -2760
Width = 15360
End
End
Attribute VB_Name = "FrmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim WithEvents rs As Recordset
Attribute rs.VB_VarHelpID = -1
Dim i As Integer
Dim r As String
Private Sub Combo1_Click()
If Combo1.Text = "管理员" Then
Command2.Enabled = False
ElseIf Combo1.Text = "用户" Then
Command2.Enabled = True
Command2.Visible = True
End If
End Sub
Private Sub Command1_Click()
'用户登录
If Text1 = "" Or Combo1.Text = "" Then
MsgBox "请输入用户名或者请检查是否选择了权限！", vbInformation, "提示！"
Exit Sub
Else
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\db1.mdb;" & "Persist Security Info=False;"
Set rs = New Recordset
If Combo1.Text = "管理员" Then
FrmMain.tjyh.Enabled = True
rs.Open "select *from 管理员", db, adOpenStatic, adLockOptimistic
ElseIf Combo1.Text = "用户" Then
FrmMain.tjyh.Enabled = False
rs.Open "select *from 用户", db, adOpenStatic, adLockOptimistic
End If
rs.MoveFirst
Do While rs.EOF = False
If rs("user_name") = Trim(Text1) Then
Text1 = ""
Text2 = ""
Unload Me
FrmMain.Show
Exit Sub
End If
rs.MoveNext
Loop
MsgBox "用户名或密码错误，请重新输入", vbExclamation, "警告"
Exit Sub
i = i + 1
If i = 3 Then End
Text1 = ""
Text2 = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
'用户注册
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\db1.mdb;" & "Persist Security Info=False;"
Set rs = New Recordset
rs.Open "select *from 用户", db, adOpenStatic, adLockOptimistic
If Text1 = "" Then
MsgBox "用户名不能为空", vbExclamation, "警告"
Text1.SetFocus
Exit Sub
End If
rs.MoveFirst
Do While rs.EOF = False
If rs("user_name") = Trim(Text1) Then
MsgBox "用户名已存在，请重新输入", vbExclamation, "警告"
Text1 = ""
Text2 = ""
Text1.SetFocus
Exit Sub
End If
rs.MoveNext
Loop
rs.AddNew
rs("user_name") = Trim(Text1)
rs("user_psw") = Trim(Text2)
rs.Update
MsgBox "注册成功，请记住你的口令和密码", vbInformation, "提示"
Unload Me
FrmMain.Show
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
FrmLogin.Caption = "用户登陆界面"
Label1 = "输入用户名:"
Label2 = "输入口令:"
Label3 = "新用户请您先注册！"
Label4 = "权限选择:"
Text1 = ""
Text2 = ""
Text2.PasswordChar = "*"
Command2.Visible = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -