vb登陆界面

显示全部楼层 · 2019-7-30 10:40:38

在登陆和退出登陆边上，新增按钮【注册】，在注册按钮单击时，弹出注册窗口，注册窗口应该有用户名、密码输入、密码确认和其他信息的输入文本框和提交按钮，输入信息后，单击提交按钮，应该首先查询数据库中是否有该用户名，如没有，新增记录并提示注册成功，然后关闭窗口返回登录界面，如已有该用户名，提示用户名已存在，终止注册。其他注意事项:判断密码和确认密码输入的内容是否一致，也可以简化为直接使用一个明文的文本框，直接输入密码而不隐藏。

千问 · 2019-7-30 10:40:38

if textname.text="admin" and textpass.text="12345" then
fromzhu.showelse
if msgbox("是否重试？",vb)=vbcs
textname.text=""
textpass.text=""
else
end
endifendif

千问 · 2019-7-30 10:40:38

画一个command控件、2个textbox控件复制以下代码，实现了你的要求：Dim intTryTimes As IntegerPrivate Sub Command1_Click()
If Me.Text1.Text = "" Then
MsgBox "用户名不能为空！", vbCritical, Me.Caption
Text1.SetFocus
GoTo ExitSub
ElseIf Me.Text1.Text = "" Then
MsgBox "请填写密码！", vbCritical, Me.Caption
Me.Text2.SetFocus
GoTo ExitSub
End If
If Text1.Text"admin" Then
MsgBox "用户名填写错误！", vbCritical, "错误"
Me.Text1.SetFocus
Me.Text1.SelStart = 0
Me.Text1.SelLength = Len(Me.Text1.Text)
GoTo ExitSub
End If
If Text2.Text = "12345" Then
'登陆成功
Unload Me
'Form1.show,我这里注释着，改为你的主界面的名字
Else
MsgBox "密码错误！", vbRetryCancel, "提示"
Me.Text2.SetFocus
Me.Text2.SelStart = 0
Me.Text2.SelLength = Len(Me.Text2.Text)
intTryTimes = intTryTimes + 1
End If
GoTo ExitSubExitSub:
If intTryTimes = 3 Then
MsgBox "密码输入三次错误！程序将退出！", vbInformation, Me.Caption
End
End IfEnd Sub

千问 · 2019-7-30 10:40:38

其实也不是很简单的，一会儿这样，一会儿那样，也很烦人的哦以下代码我加了详细的注释，不需要添加任何控件Private Sub Form_Load()Dim user As String, pwd As String, temp1 As String, temp2 As String, try As Integer, pass As Integeruser = "admin"pwd = "12345"try = 0 '记录尝试次数Me.Hide '隐藏程序主窗体Again:temp1 = InputBox("请输入用户名：", "登录")temp2 = InputBox("请输入密码：", "登录")try = try + 1If LCase(temp1) = user And temp2 = pwd Then '用lcase函数，实现用户名不区分大小写MsgBox "用户名和密码输入正确！", 0, "登录"Me.Show '显示程序主窗体ElseIf try = 4 Then
MsgBox "用户名和密码输入不正确！错误超过3次，程序将退出！", 0, "登录"
EndEnd Ifpass = MsgBox("用户名和密码输入不正确！", 5, "登录") '用pass得到用户按重试还是按取消键去响应If pass = 2 Then '选择取消
EndElse '选择重试
GoTo Again '返回到重新输入用户名和密码的地方End IfEnd IfEnd Sub

千问 · 2019-7-30 10:40:38

这么简单的程序你都不会写？？？？网上搜代码吧多的是自己改改就OK