Question

用VB做/多个用户名密码登录程序

用这一个窗体中我要做可供多个用户登录的程序，怎么做啊？？？

代码：
Private Sub cmdOK_Click()
If txtUserName.Text <> "vb01" Or txtPassword.Text <> "123" Then
t1 = MsgBox("用户名或密码不对", , "系统提示")
Else
t1 = MsgBox("登陆成功", , "系统提示")
frmLogin.Hide
Form1.Show
End If
If txtUserName.Text <> "vb02" Or txtPassword.Text <> "123" Then
t2 = MsgBox("用户名或密码不对", , "系统提示")
Else
t2 = MsgBox("登陆成功", , "系统提示")
frmLogin.Hide
Form2.Show
End If
End Sub

但是老是出现登录时既有“用户名或密码不对”对话框，又有“登陆成功”对话框，咋办呢？？？？求教！

Answer 1

这样更简洁清楚一些：

Private Sub cmdOK_Click()
If txtUserName.Text = "vb01" And txtPassword.Text = "123" Or _
txtUserName.Text = "vb02" And txtPassword.Text = "123" Then
t1 = MsgBox("登陆成功", , "系统提示")
frmLogin.Hide
Form1.Show
Else
t2 = MsgBox("用户名或密码不对", , "系统提示")
End If
End Sub

追问

我有3个form，VB01账号对应打开的是Form1，VB02账号对应打开的是Form2，以此类推(可以有更多窗体,但是都用frmLogin登录)，不是说打开一个窗体有2种输入密码的选择.这咋做呢??

Answer 2

2次判断当然出现2次提示。改成顺序判断。如下方式：

Private Sub cmdOK_Click()
If txtUserName.Text = "vb01" And txtPassword.Text = "123" Then
t1 = MsgBox("vb01登陆成功", , "系统提示")
frmLogin.Hide
Form1.Show
ElseIf txtUserName.Text ="vb02" and txtPassword.Text = "123" Then
t2 = MsgBox("vb02登陆成功", , "系统提示")
frmLogin.Hide
Form2.Show
Else
t2 = MsgBox("用户名或密码不对", , "系统提示")
End If
End Sub

追问

如果有3次及更多的判断次数怎么做？再加上几个elseif？

追答

对，注意进行条件判断后下一步语句是什么就不会出现不想要的情况了。