VB怎么编写密码登陆
展开全部
添加两个按扭command1,command2和两个文本框text1,text2和两个窗体form1和form2
command1的default属性设置为True
然后复制代码!
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then MsgBox "请先输入帐号和密码!", vbCritical, "错误": Exit Sub
If Text1.Text = "" Then MsgBox "请输入帐号!", vbCritical, "错误": Exit Sub
If Text2.Text = "" Then MsgBox "请输入密码!", vbCritical, "错误": Exit Sub
If Text1.Text = "这里是可以帐号自己设置" And Text2.Text = "这里是密码可以自己设置" Then
Form2.Show
Me.Hide
Unload Me
Else
MsgBox "帐号或密码错误,请重新输入!", vbCritical, "错误"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "登入"
Command2.Caption = "退出"
End Sub
command1的default属性设置为True
然后复制代码!
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then MsgBox "请先输入帐号和密码!", vbCritical, "错误": Exit Sub
If Text1.Text = "" Then MsgBox "请输入帐号!", vbCritical, "错误": Exit Sub
If Text2.Text = "" Then MsgBox "请输入密码!", vbCritical, "错误": Exit Sub
If Text1.Text = "这里是可以帐号自己设置" And Text2.Text = "这里是密码可以自己设置" Then
Form2.Show
Me.Hide
Unload Me
Else
MsgBox "帐号或密码错误,请重新输入!", vbCritical, "错误"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Caption = "登入"
Command2.Caption = "退出"
End Sub
展开全部
用VB向导做就好了:
VB中点击文件->新建工程->选择“VB引用程序向导”->点击六次下一步(当然,这六个页面都可以进行修改,按你需要)-> 勾选“可接受ID和密码的“登录”对话框”,其他三个界面需要的话也可以勾选->然后点击完成->其中的frmLogin就是登录的界面了
界面和代码自动生成,只要修改部分就好了
VB中点击文件->新建工程->选择“VB引用程序向导”->点击六次下一步(当然,这六个页面都可以进行修改,按你需要)-> 勾选“可接受ID和密码的“登录”对话框”,其他三个界面需要的话也可以勾选->然后点击完成->其中的frmLogin就是登录的界面了
界面和代码自动生成,只要修改部分就好了
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不是有现成的吗?添加窗体―登录窗体,改一下用户名密码就行了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你要实现什么功能?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询