一个登陆界面问题，求解 - ACCESS论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 ACCESS论坛』 → 一个登陆界面问题，求解

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 636 人关注过本帖

标题：一个登陆界面问题，求解

只看楼主加入收藏

Noll_Nie

等　级：论坛游侠
帖　子：71
专家分：139
注　册：2011-4-19
结帖率：81.82%

楼主

问题点数：0 回复次数：3

一个登陆界面问题，求解

程序代码：

Private Sub Command12_Click()
'On Error GoTo Err_Command12_Click
Dim str As String
Dim logname As String
Dim pwd As String

'Dim rs As New ADODB.Recordset

logname = Trim(Me.Text2)
pwd = Trim(Me.Text4)

If IsNull(logname) Then
DoCmd.Beep
MsgBox ("请输入用户名！")
ElseIf IsNull(pwd) Then
DoCmd.Beep
MsgBox ("请输入密码！")
Else
str = "select * from 管理员表 where UserName='" & logname & "'and PassWord='" & pwd & "'"
'Set rs =
If (str <> Me.Text2) Then
'rs.EOF Then
DoCmd.Beep
MsgBox ("没有这个用户，请重新输入！")
Me.Text2 = ""
Me.Text4 = ""
Me.Text2.SetFocus
Exit Sub
Else
DoCmd.Close
MsgBox ("欢迎使用人事管理系统！")
DoCmd.OpenForm ("人事管理系统")
End If


check = True
End If
'End
End Sub