大家能抽空出来看一下,本人都感激不尽了,谢谢
代码如下:
Dim username As String
Private Sub Form_Load()
username = InputBox$("请输入你的用户名!", "身份验证框")
Dim usernames(3) As String '定义一个用户名数组
usernames(0) = "xiaoc"
usernames(1) = "xiaoq"
usernames(2) = "xiaol"
usernames(3) = "xiaoz"
Dim flag As Boolean '定义flag为逻辑型
Dim i As Integer
flag = False
For i = 0 To 3
If username = usernames(i) Then
flag = True
End If
Next i
If flag = False Then
MsgBox ("用户确认失败,退出系统!") '如果输入用户名错误,退出系统
End
End If
End Sub

Private Sub Picture1_Paint()
Picture1.Print " you are welcome!" & username '在图片框中输出欢迎语句和用户名,注意,这个用户名要在
通用中声明,不然用户名显示不出来的
End Sub

问题在密码登陆框中,当用户输入用户名错误的时候,怎么让用户重新输入用户名和限制他仅输入三次即退出运行,输对就欢迎

再次谢谢

[此贴子已经被作者于2006-5-28 0:50:06编辑过]

登录次数=0
Do Whlie 登录次数<3
输入用户名
If 用户名正确 Then
Exit Do
End If
登录次数=登录次数+1
Loop
If 登录次数=3 Then 退出系统
进入系统

呵呵
这个啊
我提供个代码好了
Dim intCountI As Integer
Dim strUser As String
Dim strPassWord As String
Private Sub Command1_Click()
If intCountI = 2 Then
Unload Me '关闭窗口
Else
If Text1.Text <> strUser Or Text2.Text <> strPassWord Then
MsgBox ("输入错误")
Text1.Text = ""
Text2.Text = ""
intCountI = intCountI + 1
Else
intCountI = 0
MsgBox ("成功")
End If
End If
End Sub
Private Sub Form_Load()
strUser = "aa" '假定用户名和密码为aa和bb
strPassWord = "bb"
intCountI = 0
End Sub

''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'程 序 员 : 梁 嘉 辉
'编 写 时 间 : 2006-5-17
'模 块 功 能 : 实现多用户登录
'E - Mail : purana@126.com
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim g_Connect As ADODB.Connection
Dim g_Recordset As ADODB.Recordset

Private Sub Command1_Click()
Static userCount As Integer
Dim i As Integer
For i = 0 To 2
If Text1(i).Text = "" Then
MsgBox "內容不能為空,請輸入!", vbExclamation + vbOKOnly
Text1(i).SetFocus
Exit Sub
End If
Next
If Text1(1).Text <> Text1(2).Text Then
MsgBox "兩次密碼不正確,請重新輸入"
Text1(1).SetFocus
Exit Sub
End If
Set g_Recordset = CreateObject("ADODB.Recordset")
Dim sql As String
sql = "SELECT * FROM user_info WHERE 用戶名='" & Text1(0).Text & "'"
g_Recordset.Open sql, g_Connect, adOpenKeyset, adLockPessimistic
If g_Recordset.RecordCount <= 0 Then
MsgBox "沒有此用戶,請重新輸入!", vbCritical + vbOKOnly
userCount = userCount + 1
g_Recordset.Close
'Exit Sub
Else
If Text1(1).Text = g_Recordset.Fields("密碼").Value Then
MsgBox "密碼正確,登錄成功!", vbOKCancel
Form2.Show
g_Recordset.Close
Unload Me
Else
MsgBox "密碼不正確,請確定密碼!"
Text1(1).SetFocus
userCount = userCount + 1
'Exit Sub
End If
End If
If userCount >= 3 Then
MsgBox "你已經超出使用權限了,不能再使用本軟件!"
End
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim iConnstr As String
Set g_Connect = CreateObject("ADODB.Connection")
iConnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\student.mdb;Persist Security Info=False"
g_Connect.Open iConnstr
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set g_Connect = Nothing
Set g_Recordset = Nothing
End Sub