2007-04-18 09:47:31ㄉ一ㄜˊ先生
程式p88
Dim pwd As String
If Text2 = ”5566” Then
MsgBox ”密碼正確!即將進入系統”, vbOKOnly + vbInformation, ”歡迎蒞臨本系統”
End
Else
MsgBox ”密碼錯誤!請重新輸入”, vbOKOnly + vbCritical, ”錯誤訊息”
Text2.Text = ””
End If
If Text2 = ”5566” Then
MsgBox ”密碼正確!即將進入系統”, vbOKOnly + vbInformation, ”歡迎蒞臨本系統”
End
Else
MsgBox ”密碼錯誤!請重新輸入”, vbOKOnly + vbCritical, ”錯誤訊息”
Text2.Text = ””
End If