VB登陆？

来源：百度知道 编辑：UC知道 时间：2024/09/25 20:01:21
第一个窗体是VB设计一个登陆器，有登陆用户和密码对话框，，所有的用户名和密码一一对应存在一个数据库中。要求运行时，用户名和密码与该数据库中的一对用户和密码都对应时，窗体一消失，窗体二出现。
大家帮帮忙啊！先谢谢了。真的有帮助一定多加50分

if 用户名登陆框.text=数据库用户名 and 密码登陆框.text=数据库用户密码 then
unload me
窗体2.show
else
msgbox "用户名密码不对,重新输入"
end if

'2个窗体 FORM1,FORM2 FORM1上添加2个文本框和1个按钮 再建个名为user的数据库 数据库名称为Use 数据库里有2种数据 name和code
Private Sub Command1_Click()
Set coon = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=user.mdb"
coon.Open Connstr
Set rs = CreateObject("ADODB.recordset")
sql = "select * from Use "
rs.Open sql, coon, 1, 3
if text1.text=rs("name") and text2.text=rs("code") then
unload form1
form2.show
end if
rs.Close
coon.Close
end sub

Dim TIM As Integer '定义计数器最多三次
Dim myVal As String '字符串提示
Private Sub cmdCancel_Click()
Dim myVal As String
Beep
myVal = MsgBox("确认退出系统吗?", vbYesNo + vbQuestion, "退出")