34,575
社区成员
发帖
与我相关
我的任务
分享
Dim Conn As ADODB.Connection
Dim rec As ADODB.Recordset
Dim strSQL As String
Dim strSQL1 As String
Private Sub Form_Load() '一个登录界面的窗口
Text1 = "" 'Text1是用户名框,Text2是密码框,先让它们清空
Text2 = ""
Me.Caption = "用户登录" '窗口标题
Set Me.Picture = LoadPicture(App.Path & "\fengmian.jpg") '贴的背景素材图片
End Sub
Private Sub Command1_Click() '按下登录按钮
us = Text1.Text
pw = Text2.Text
strSQL = "driver = SQLServer;server=SLC-20110108ZCH;database=C:\SQLDatabase\MSSQL\Data\Pingyu_data.MDF" '连接SQL 2000数据库
strSQL1 = "Select * from UserInfo where UserID = us " '查找SQL 2000数据库的UserInfo表里是否有输入的用户名,并读取出这个用户名所包含的所有的字段
rec.Open strSQL1, strSQL, 3, 3
If rec(UserPassword) = pw Then '检查这个用户名,在UserInfo表中的UserPassword字段,是否等于输入的密码
MsgBox "登录成功,欢迎使用!"
Form2.Show '如果密码一致,弹出成功消息框,并进入下一个Form2界面
Unload Form1
Else: MsgBox "登录失败"
Text2.SetFocus
End If
End Sub
set rec=new ADODB.Recordset