?? frmlogin.frm
字號:
VERSION 5.00
Begin VB.Form Frmlogin
Caption = "登陸"
ClientHeight = 2670
ClientLeft = 60
ClientTop = 345
ClientWidth = 5145
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2670
ScaleWidth = 5145
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 495
Left = 2880
TabIndex = 5
Top = 1920
Width = 1575
End
Begin VB.CommandButton cmdOK
Caption = "確定"
Height = 495
Left = 480
TabIndex = 4
Top = 1920
Width = 1455
End
Begin VB.TextBox txtPassword
Height = 495
Left = 1920
TabIndex = 3
Top = 960
Width = 2415
End
Begin VB.TextBox txtUserName
Height = 495
Left = 1920
TabIndex = 2
Top = 240
Width = 2415
End
Begin VB.Label Label2
Caption = "密碼&P"
Height = 495
Left = 120
TabIndex = 1
Top = 960
Width = 1455
End
Begin VB.Label Label1
Caption = "用戶名稱&U"
Height = 375
Left = 120
TabIndex = 0
Top = 240
Width = 1335
End
End
Attribute VB_Name = "Frmlogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim LoginSucceeded As Boolean '標記是否登錄成功
Private Sub cmdCancel_Click()
Unload Frmlogin '退出登錄對話框
Introfrm.Show '顯示初始窗體
End Sub
Private Sub cmdOK_Click()
'檢查用戶身份
If txtUserName.Text = "Administrator" Then
LoginSucceeded = verify(txtUserName, txtPassword) '驗證用戶身份
If (LoginSucceeded = True) Then
ID = txtUserName
admin = True '標記管理用戶為管理員,以賦予相應權限
Unload Frmlogin '退出登錄對話框
MDIMainfrm.Show '顯示程序主窗體界面
End If
Else
LoginSucceeded = verify(txtUserName, txtPassword) '驗證用戶身份
If (LoginSucceeded = True) Then
ID = txtUserName
admin = False '標記為一般用戶,以賦予相應權限
Unload Frmlogin '退出登錄對話框
MDIMainfrm.Show '顯示程序主窗體界面
End If
End If
End Sub
'驗證用戶名和密碼是否正確
Function verify(userID As String, txtPWD As String) As Boolean
Dim idinfo As Recordset '記錄集
Dim sqlstr As String '存儲sql命令字符串
sqlstr = " select 學號,密碼 from 密碼 where 學號='" & userID & "'"
Set idinfo = courseDB.OpenRecordset(sqlstr, dbOpenSnapshot, dbReadOnly)
'到數據庫中提取用戶名和密碼的記錄
If (idinfo.RecordCount = 0) Then '無此用戶名時
MsgBox "無此學號", , "登錄"
verify = False
Else
If (idinfo.Fields("密碼").Value = txtPWD) Then
verify = True '登錄成功
Else
MsgBox "無效的密碼,請重試!", , "登錄"
verify = False
End If
End If
idinfo.Close
End Function
Private Sub Form_Load()
Unload Introfrm '退出登錄對話框
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -