VB怎么设置账号密码?

VB如何设置账号密码呢?设置在哪里生成密码?... VB如何设置账号密码呢?
设置在哪里生成密码?
展开
 我来答
匿名用户
2013-05-03
展开全部
Private Sub Command1_Click()
If Text1.Text = "username" And Text2.Text = "password" Then '帐号为username,密码为password
MsgBox "输入正确", vbInformation, "提示"
Unload Me
Form2.Show
Else
MsgBox "帐号或密码错误", vbCritical, "提示"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "登陆"
End Sub
匿名用户
2013-05-03
展开全部
1.在ACCESS中建立表,名为USER,在表USER中建立两字段,USER_NAME,USER_PASSWORD(这些都可以自己命名的)
2.接连数据库,读取用户名和密码。这个不用说了吧。
3.判断用户名和密码。用读取出来的用户名和密码与输入的比较。

如:读取出来的数据为username,userpassword
if trim(text1.text)=username and trim(text2.text)=userpassword then
msgbox "用户名和密码正确。“
'在这里加入进入窗体的代码。
’ME.HIDE
'FORM2.SHOW
'ME.UNLOAD
else
msgbox "用户名或密码错误。”
endif

流程就是这样子,自己扩展吧。

也可以用SELECT * FORM USER WHERE USER_NAME=USERNAME AND USER_PASSWORD=USERPASSWORD
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
du瓶邪
推荐于2016-06-05 · TA获得超过2.4万个赞
知道大有可为答主
回答量:1.7万
采纳率:100%
帮助的人:2915万
展开全部
打开数据库资料表内的("用户名称") 和("用户密码") 栏位里面直接改就可以了。
或写一个新增用户名称和用户密码的程式。
比如:
数据库=login.mdb
资料表=user
栏位名=username 和 password
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = Text1.Text
Data1.Recordset.Fields("password") = Text2.Text
Data1.Recordset.Update
Data1.Refresh
MsgBox "成功存取", vbOKOnly + vbInformation
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\login.mdb"
Data1.RecordSource = "user"
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式