![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
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
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
打开数据库资料表内的("用户名称") 和("用户密码") 栏位里面直接改就可以了。
或写一个新增用户名称和用户密码的程式。
比如:
数据库=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
或写一个新增用户名称和用户密码的程式。
比如:
数据库=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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询