Private Sub TxtNo_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then '如果是回车键，
TxtPass.SetFocus '把焦点移到TxtPass文本框，以备输入口令
Else
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
'如果输入的不是数字
MsgBox ("账号必须为数字") '给出提示
KeyAscii = 0 '清除输入的字符
End If
End If
End Sub
Private Sub TxtPass_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then '如果输入的是回车键
If TxtPass.Text <> "Pass" Then '判断密码是否正确
If (MsgBox("密码错误", vbRetryCancel) = vbRetry) Then
'不正确，输出错误提示信息
TxtPass.Text = "" '清除文本框
TxtPass.SetFocus
Else
End
End If
Else
MsgBox "欢迎你使用本系统" '密码正确，提示你已进入系统
End
End If
End If
End Sub

这是代码.
请问如何在里面设置密码?

这是vbp文件,不明白用VB打开它就明白了

请问如何在里面设置密码?
请问如何在里面设置密码?
请问如何在里面设置密码?

文件中只有工程,没有窗体怎么看,不明白说的意思

这是全部的,打开vbp文件.
打开的应该有窗体的.

编进去的程序可以运行,但是输什么账号和密码是正确的不知道怎样设置进去.输什么都不能通过.

If (KeyAscii = 13) Then '如果输入的是回车键
If TxtPass.Text <> "Pass" Then '判断密码是否正确
If (MsgBox("密码错误", vbRetryCancel) = vbRetry) Then
'不正确，输出错误提示信息
TxtPass.Text = "" '清除文本框
TxtPass.SetFocus
Else
End
End If
Else
MsgBox "欢迎你使用本系统" '密码正确，提示你已进入系统
End
End If
End If

当然了 输入回车后 只要口令不是PASS 就会报错

按照你这段代码的逻辑 用户名不管是什么 口令都只有是 "PASS" 才算对

楼上说得对..

密码校验还是应该使用数据库 不用数据库的密码验证方式 我觉得。。。都属于。。。扯淡。。。

是的.不用加密算法来加密的密码,都属于扯淡...

我按照你说的输入还是不对呀.

还是告诉我应该输入什么程序代码吧