在開啟程式時跳出使用者及密碼才能登入

構思:設一個使用者登入帳號及密碼的登入器.輸入三次錯誤自動關閉

創新表單

先設兩個Label.一個為:登入帳號.一個為密碼

再設兩個文字方塊TextBox在登入帳號及密碼這兩個Label的旁邊

設一個按鈕command1.按鈕名在屬性的caqtion更改為確定成為一個確定鈕

設一個按鈕command2.按鈕名在屬性的caqtion更改為確定成為一個清除鈕

預設:command1/帳號為123/密碼為456/正確後啟動表單2/正確後關閉登入器表單1

預設:command2/為按下後清除文字方塊帳號跟密碼的地方

在command的程式碼中輸入為:

Dim a As Integer '全域變數
Private Sub Command1_Click()
  a = a + 1
  If Text1.Text = "123" And Text2.Text = "456" Then
     Form2.Show
     Unload Me
  Else
    If a < 3 Then
       MsgBox "帳號或密碼錯誤" & a & "次,請重新輸入"
    Else
       MsgBox "已登入3次錯誤,程式即將關閉"
       End
    End If
  End If
End Sub

Private Sub Command2_Click()
    Text1.Text = ""
    Text2.Text = ""
End Sub

另一種方式

預設:command1/帳號為123/密碼為456/正確後啟動表單2/正確後關閉登入器表單1/錯誤3次關閉登入器表單1

Private Sub Command1_Click()
For i = 1 To 3
id = InputBox("請輸入帳號")
pass = InputBox("請輸入密碼")
If id = "123" And pass = "456" Then
MsgBox ("登入成功")
Form2.Show
Form1.Hide
Exit For
Else
MsgBox ("登入失敗")
End If
If i = 3 Then
End
End If
Form1.Hide
Next
End Sub

如果要加入未填入帳號或密碼時會跳出視窗警告就可以加

假如帳號沒填東西就會跳出一個視窗說"你帳號未填"
假如密碼沒填東西就會跳出一個視窗說"你密碼未填"

if len(text1.text)< 1 then msgbox "你帳號未填"
if len(text2.text)< 1 then msgbox "你密碼未填"

或

if Trim(text1.text) = "" then msgbox "你帳號未填"
if Trim(text2.text) = "" then msgbox "你密碼未填"

 

也可以用這種簡單的方式只有輸入密碼就可以登入的狀況

預設:command1/密碼為123456/正確後啟動表單2/錯誤時出現警告

Private Sub Command1_Click()

If Text1.Text = "12345" Then

Form2.Show

Unload Me

Else

MsgBox "密碼錯誤", vbOKOnly

End If

End Sub