?? 新建 文本文檔.txt
字號:
Private Sub cmdok_Click()
If Option1.Value = True Then
查詢界面.Show
Form2.Hide
ElseIf Option2.Value = True Then
Label1.Enabled = True
Text1.Enabled = True
Label2.Enabled = True
Text2.Enabled = True
Data1.Recordset.FindFirst "用戶名='" & Text1.Text & "'"
If Data1.Recordset!密碼 = Text2.Text Then
Form2.Text1.SetFocus
進入界面.Show
Form2.Hide
Text1.Text = ""
Text2.Text = ""
Else
msg = MsgBox("用戶名或密碼錯誤")
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
If Text1.Text = "" Then
MsgBox "請輸入用戶名"
ElseIf Text2.Text = "" Then
MsgBox "請輸入密碼"
End If
End If
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -