石景山古城南街立交桥:vb毕业设计-如何实现vb用户登陆与查询并显示，要求源代码

我买书时光盘里有的
把Email留下
我给你发过去
Private Sub cmdOK_Click()
'取得用户输入的用户名和密码
Dim user As String, pwd As String
user = txtUser
pwd = txtPwd

'根据不同的身份，选择不同的表用以查询
Dim r As New ADODB.Recordset
Set r = DataEnv.rssqlSeek
Dim strSQL As String
Select Case mnUserType
Case 0: '若身份为管理员
strSQL = "select * from admin where name='" & user & "' and pwd='" & pwd & "'"
Case 1: '若身份为学生
strSQL = "select * from student where name='" & user & "' and serial='" & pwd & "'"
End Select

On Error Resume Next
'查询DataEnv.rssqlSeek的状态，如果已经打开，则先关闭
If r.State = adStateOpen Then r.Close
r.Open strSQL '根据strSQL的内容刷新DataEnv.rssqlSeek

'用户密码错误的次数，如果错误次数超过3次，则退出系统
Static nTryCount As Integer

If r.EOF Then '登录失败
MsgBox "对不起，无此用户或者密码不正确！请重新输入！！", vbCritical, "错误"
txtUser.SetFocus
txtUser.SelStart = 0
txtUser.SelLength = Len(txtUser)
nTryCount = nTryCount + 1
If nTryCount >= 3 Then
MsgBox "您无权操作本系统!再见！", vbCritical, "无权限"
Unload Me
End If
Else '登陆成功
'显示MDI窗体, 并将用户类型和用户名传到MDI窗体中的mnUserType, msUserName中
Load MDIMain
With MDIMain
.mnUserType = mnUserType
.msUserName = pwd
.Show
End With
Unload Me
End If
End Sub

这只是代码部分,其它的需要的话联系我