VB制作登陆界面

来源：百度知道 编辑：UC知道 时间：2024/06/09 11:37:30
要求能够实现输入用户名和密码进行登陆，注册，修改密码的功能，要是要用到数据库的话用ACCESS，希望说得详细点。

首先添加microsoft DAO 3.6 Object Library

Public db As DAO.Database
Dim rs As Recordset

Set db = OpenDatabase("数据库路径", True, False, "数据库密码")
Set rs = db.OpenRecordset("select * from table1 where 帐号='" & txtUser.Text & "' and 密码='" & txtPassWord.text &"'")
if rs.eof then
msgbox "帐号或密码错误",,"提示："
exit sub
else
frmSystem.show
endif

密码修改的和上边差不多
Set rs = db.OpenRecordset("select * from table1 where 帐号='" & txtUser.Text & "' and 密码='" & txtPassWord.text &"'")
if rs.eof then
msgbox "原始密码错误"
exit sub
else
rs.edit
rs!密码=txtNewPassWord.text
rs.updata
rs.close
endif

我有个例程，你HI我我发给你参考一下吧。呵呵。VB ACCESS的。