VB怎么设置账号密码？

答案:4 悬赏:80 手机版

解决时间 2021-12-29 06:24

提问者网友：遁入空寂
2021-12-29 01:33

VB如何设置账号密码呢？
设置在哪里生成密码？

最佳答案

五星知识达人网友：低血压的长颈鹿
2021-12-29 02:49

打开数据库资料表内的("用户名称") 和("用户密码") 栏位里面直接改就可以了。
或写一个新增用户名称和用户密码的程式。
比如：
数据库=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楼网友：你可爱的野爹
2021-12-29 05:47

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

2楼网友：长青诗
2021-12-29 04:21

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息