VBA实现窗口登录
核心代碼：' 窗口事件
Private Sub CommandButton1_Click() ' 登錄
If ComboBox2.Text = "" Or TextBox1.Text = "" Then
MsgBox "請(qǐng)輸入賬戶或密碼", 1 + 64, "系統(tǒng)登錄"
Else
If 特定用戶密碼登錄(ComboBox2) = TextBox1.Text Then
Unload Me
MsgBox ComboBox2.Text & "你好!歡迎你進(jìn)入本系統(tǒng)", 1 + 64, "歡迎詞"
Application.Visible = True
Else
MsgBox "登錄密碼錯(cuò)誤,請(qǐng)重新輸入"
End If
End If
End SubPrivate Sub CommandButton2_Click() ' 退出
Unload Me
Application.Visible = True
ActiveWorkbook.Close
End SubPrivate Sub UserForm_Initialize() ' 窗口初始化
Dim X As Integer, Y As Integer
X = Sheets("用戶及密碼").Range("A65536").End(xlUp).Row
For Y = 2 To X
ComboBox2.AddItem Sheets("用戶及密碼").Cells(Y, 1)
Next Y
End SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ' 設(shè)置不能通過(guò)關(guān)閉符號(hào)退出，僅能通過(guò)退出按鈕退出
If CloseMode = 0 Then Cancel = 1
End Sub
?
' 模塊 Function 特定用戶密碼登錄(X As Object) Dim MROW As IntegerMROW = Sheets("用戶及密碼").Cells.Find(X.Text).Row特定用戶密碼登錄 = Sheets("用戶及密碼").Cells(MROW, 2) End Function?
?
總結(jié)
- 上一篇： 4pam调制与解调（matlab实现）
- 下一篇： 2ASK调制与解调（包含maltab代码