Private Sub Command1_Click() Set reco = New ADODB.Recordset Trim(Text1.Text) & "'", Con, adOpenDynamic, adLockOptimistic If Text1.Text = "" Then MsgBox ("请输入用户名!!!") Text1.SetFocus
Else reco.Open "select staff_id,password,name from staff where staff_id='" & Trim(Text1.Text) & "'", Con, adOpenDynamic, adLockOptimistic
If reco.EOF Then MsgBox ("用户名不存在!!!!") Else hxc_staff_id = reco(0) hxc_password = reco(1) user_name = reco(2) If Text2.Text = hxc_password Then reco.Close Unload Me form2.Show form2.Text1.SetFocus Else MsgBox ("密码不正确!!!!") End If End If End If end sub 把 sql改成你的字段名和表名就可以了。我想你会连数据库吧!
Private Sub CmdQD_Click() Dim reco As New Recordset
If InUserCom.Text = "" Then MsgBox ("请输入用户名!!!") InUserCom.SetFocus
Else reco.Open "select usrname,pwd, from Manager where usrname='" & Trim(Text1.Text) & "'", Con, adOpenDynamic, adLockOptimistic If reco.EOF Then MsgBox ("用户名不存在!!!!") Else usrname = reco(0) pwd = reco(1) If InPwdText.Text = pwd Then reco.Close If pwd = "admin" Then MsgBox "你是系统管理员,欢迎使用本系统!", vbExclamation Unload Me 学生信息管理.Show Else MsgBox "你是客户,欢迎浏览本系统!", vbExclamation Unload Me 学生信息管理.Show End If End If End If End IfEnd Sub 但提示我类型不匹配啊?大家看一下问题出在哪里?
Option Explicit '引用microsoft actionx data objects 2.0 library Dim con As ADODB.Connection Dim rs As ADODB.Recordset Dim str As StringPrivate Sub cmdOK_Click() '我这里是从access数据库房屋信息表中的房主信息中读入用户名和密码和输入的进行比较 str = "SELECT * FROM 房主信息 where pername='" & txtUserName.Text & "'and password='" & txtPassword.Text & "'" Set con = New ADODB.Connection Set rs = New ADODB.Recordset con.Provider = "Microsoft.Jet.OLEDB.4.0" con.Open App.Path & "\房屋信息表.MDB" rs.Open str, con, adOpenDynamic, adLockOptimistic wxyname = Trim(txtUserName.Text) wxypass = Trim(txtPassword.Text) If rs.EOF And rs.BOF Then MsgBox "用户名或密码错误,再试一次!", , "登录" txtUserName.SetFocus txtUserName.SelStart = 0 txtUserName.SelLength = Len(txtPassword.Text) Else '你想干吗就去做 End If End Sub
Set reco = New ADODB.Recordset
Trim(Text1.Text) & "'", Con, adOpenDynamic, adLockOptimistic
If Text1.Text = "" Then
MsgBox ("请输入用户名!!!")
Text1.SetFocus
Else
reco.Open "select staff_id,password,name from staff where staff_id='" & Trim(Text1.Text) & "'", Con, adOpenDynamic, adLockOptimistic
If reco.EOF Then
MsgBox ("用户名不存在!!!!")
Else
hxc_staff_id = reco(0)
hxc_password = reco(1)
user_name = reco(2)
If Text2.Text = hxc_password Then
reco.Close
Unload Me
form2.Show
form2.Text1.SetFocus
Else
MsgBox ("密码不正确!!!!")
End If
End If
End If
end sub
把 sql改成你的字段名和表名就可以了。我想你会连数据库吧!
说的比较乱,但是大概思路就是这样,不难,你自己试试吧!
Dim reco As New Recordset
If InUserCom.Text = "" Then
MsgBox ("请输入用户名!!!")
InUserCom.SetFocus
Else
reco.Open "select usrname,pwd, from Manager where usrname='" & Trim(Text1.Text) & "'", Con, adOpenDynamic, adLockOptimistic
If reco.EOF Then
MsgBox ("用户名不存在!!!!")
Else
usrname = reco(0)
pwd = reco(1)
If InPwdText.Text = pwd Then
reco.Close
If pwd = "admin" Then
MsgBox "你是系统管理员,欢迎使用本系统!", vbExclamation
Unload Me
学生信息管理.Show
Else
MsgBox "你是客户,欢迎浏览本系统!", vbExclamation
Unload Me
学生信息管理.Show
End If
End If
End If
End IfEnd Sub
但提示我类型不匹配啊?大家看一下问题出在哪里?
'引用microsoft actionx data objects 2.0 library
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As StringPrivate Sub cmdOK_Click()
'我这里是从access数据库房屋信息表中的房主信息中读入用户名和密码和输入的进行比较
str = "SELECT * FROM 房主信息 where pername='" & txtUserName.Text & "'and password='" & txtPassword.Text & "'"
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.Open App.Path & "\房屋信息表.MDB"
rs.Open str, con, adOpenDynamic, adLockOptimistic
wxyname = Trim(txtUserName.Text)
wxypass = Trim(txtPassword.Text)
If rs.EOF And rs.BOF Then
MsgBox "用户名或密码错误,再试一次!", , "登录"
txtUserName.SetFocus
txtUserName.SelStart = 0
txtUserName.SelLength = Len(txtPassword.Text)
Else
'你想干吗就去做
End If
End Sub