|
功能實現核心代碼： Private Sub 登錄_Click() On Error GoTo ErrorHandler Dim userName As String, userPW As String Dim myFlag As Integer Dim LocalMac As String
userName = TextBox1.text userPW = TextBox2.text LocalMac = getMac
If userName = "" Or userPW = "" Then MsgBox "請輸入用戶名和授權碼", vbExclamation, "溫馨提示" Exit Sub Else Call SearchForCondKey("用戶信息表", userName) End If
'判斷登錄用戶是否存在 If g_returnUserName = "" Then MsgBox "用戶名不存在，請聯系管理員！", vbExclamation, "溫馨提示" Exit Sub End If
'授權碼正確性判斷 If userPW <> g_returnPasswd Then MsgBox "授權碼不正確！", vbExclamation, "溫馨提示" Exit Sub End If
'機器授權判斷 '若非首次使用，確認機器是否授權 If g_returnMAC <> "" Then logger.Log 0, 1, "mac地址：" & LocalMac
If g_returnMAC <> LocalMac Then MsgBox "該機器未被授權，請聯系管理員！", vbExclamation, "溫馨提示" Exit Sub End If
Else '記錄Mac地址 Call UpdateData("用戶信息表", userName, "MAC地址", LocalMac) End If
'用戶存在，授權碼正確，且機器已授權的情況下確認工具是否到期 '獲取真實時間 realDate = GetNetTime If DateDiff("d", g_returnLiscenseStartDate, realDate) >= g_returnLiscenseDate Then MsgBox "您的授權期限為" & g_returnLiscenseDate & "天，目前已到期，請聯系管理員！", vbExclamation, "溫馨提示" Exit Sub Else Call UpdateData("用戶信息表", userName, "登錄次數", g_returnLoginTimes + 1, "最后登錄時間", Now()) MsgBox "登錄成功！", 48, "溫馨提醒"
Call UpdateData("用戶信息表", userName, "登錄狀態", "1")
Unload Me End If
ErrorHandler: If Err.Number <> 0 Then logger.Log 0, 1, Err.Description & "," & Err.Number
End Sub
|
