UC知道vb登录代码问题
来源：百度知道 编辑：UC知道 时间：2024/06/14 20:58:23
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;" _
+ "User ID=sa;password=sa;Initial Catalog=lib;Data Source=Lib"
Conn.Open
frmLogin.Show '登录界面
End Sub
Private Sub CmdCancel_Click()
End
End Sub
Private Sub CmdOK_Click()
If id.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
id.SetFocus
Exit Sub
End If
If PassWord.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
PassWord.SetFocus
Exit Sub
End If
Dim strSQl As String
strSQl = "select * from lib where users_name='" & Trim$(id.Text) & "' and password='" & Trim$(PassWord.Text) & "' "
Dim str As New
Conn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;" _
+ "User ID=sa;password=sa;Initial Catalog=lib;Data Source=Lib"
Conn.Open
frmLogin.Show '登录界面
End Sub
Private Sub CmdCancel_Click()
End
End Sub
Private Sub CmdOK_Click()
If id.Text = "" Then
MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
id.SetFocus
Exit Sub
End If
If PassWord.Text = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
PassWord.SetFocus
Exit Sub
End If
Dim strSQl As String
strSQl = "select * from lib where users_name='" & Trim$(id.Text) & "' and password='" & Trim$(PassWord.Text) & "' "
Dim str As New
加一个ADO的空间
Option Explicit
Dim cnt As Integer '记录确定次数
Private Sub cmdCancle_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
If Trim(text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！"
text1.SetFocus
Else
sql = "select * from 用户表 where user_ID='" & Trim(text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""
text1.Text = ""
text1.SetFocus
Else
username = text1.Text
If Trim(rs_login.Fields(1)) = Trim(text2.Text) Then