Office中国论坛/Access中国论坛

标题: 最基本登录窗体代码不知道怎么改高手帮忙看看 [打印本页]

作者: powerhao 时间: 2011-4-13 18:30
标题: 最基本登录窗体代码不知道怎么改高手帮忙看看
Option Compare Database
Option Explicit

Private Sub Form_Load()
Me.UserName.SetFocus
Me.UserName = "11111"
Me.PassWord = "20070604"

End Sub

Private Sub 登录_Click()
On Error GoTo Err_登录_Click
Dim rs As New ADODB.Recordset
Dim str As String
Dim num As Integer
str = "select COUNT(Person.ID) from Person where Person.ID='" & Me.UserName
str = str & "'and Person .PassaWord='" & Me.PassWord & "'"
Set rs = GetRS(str)
num = rs(0)
If IsNull(Me.UserName) Then
MsgBox ("请输入用户名！！！")
ElseIf IsNull(Me.PassWord) Then
MsgBox ("请输入用户密码！！！")
ElseIf num <> 1 Then
MsgBox ("无此用户，或者密码错误！！！")
Else
Me.Visible = False
DoCmd.OpenForm "主窗体"
End If
exit_登录_Click:
Exit Sub

End Sub
登录窗体代码调试时显示黑体字段出错显示用户定义类型未定义初学者不太懂请高手看看谢谢

作者: roych 时间: 2011-4-14 08:52
1、请留意有没有引用ADO组件。
2、这个字符串有误：str = str & "'and Person .PassaWord='" & Me.PassWord & "'"
应该在and 前面再加上一个空格。
3、Set rs = GetRS(str)应为自定义函数，由于没有附件，暂不调试。按俺的估计，应该是：
dim rs as new adobd.recordset
rs.open str,currentproject.connection,3,1

作者: zyp 时间: 2011-4-14 09:02
这样试试:
Private Sub 登录_Click()
If Me.UserName = "" Or IsNull(Me.UserName) Then
      MsgBox "请输入用户名！！！"
      Me.UserName.SetFocus
ElseIf Me.Password = "" Or IsNull(Me.Password) Then
      MsgBox "请输入用户密码！！！"
      Me.Password.SetFocus
Else
      If IsNull(DLookup("[id]", "person", "[id]='" & Trim(Me.UserName) & "' AND [passWord]='" & Trim(Me.Password) & "'")) Then
         MsgBox "无此用户，或者密码错误！！！", vbCritical
      Else
         Me.Visible = False
         DoCmd.OpenForm "主窗体"
      End If
End If
End Sub

作者: zyp 时间: 2011-4-14 09:04
还有, 字段命名最好不要用"password"这类ACCESS的关键字或内建变量, 有时会出错的, 窗体的控件名也是

作者: powerhao 时间: 2011-4-14 11:22
回复 zyp 的帖子

非常感谢，代码没问题，还是运行不了，点击登陆无反应，我用户名和密码两个文本框都无任何设置，是不是这个问题，具体不知道怎么弄。

作者: todaynew 时间: 2011-4-14 11:29
本帖最后由 todaynew 于 2011-4-14 11:36 编辑

powerhao 发表于 2011-4-13 18:30
Option Compare Database
Option Explicit

在引用中勾选ADO引用，方法是：VBa编辑视图主菜单--工具--引用，找到Microsoft ActiveX Date Objects 2.1 Library勾选、确定之。
不想做以上工作，则可按三楼zyp同志代码执行。

作者: powerhao 时间: 2011-4-14 11:34
回复 todaynew 的帖子

谢谢TODAYNEW。还是无法运行，我的用户名和密码两个文本框都无设置，估计是那个问题，具体不知道咋弄

作者: todaynew 时间: 2011-4-14 11:37

powerhao 发表于 2011-4-14 11:34
回复 todaynew 的帖子

谢谢TODAYNEW。还是无法运行，我的用户名和密码两个文本框都无设置，估计是那个问题 ...

上传实例

作者: zyp 时间: 2011-4-14 18:13

powerhao 发表于 2011-4-14 11:34
回复 todaynew 的帖子

谢谢TODAYNEW。还是无法运行，我的用户名和密码两个文本框都无设置，估计是那个问题 ...

有没有将password字段和窗体上的password文本框这两个都改一下名称试试

作者: gxy1000 时间: 2011-4-14 18:25
Private Sub Command9_Click()
   '定义 connection 对象
   Dim cn As ADODB.Connection
   '定义 recordset 对象

   Dim Rs As New ADODB.Recordset
   Dim username As String
   Dim userpass As String
   Dim sql As String
   '使用access内置 connection对象
   Set cn = CurrentProject.Connection
   Text1.SetFocus
   username = Text1.Text
   Text3.SetFocus
   userpass = Text3.Value
   sql = "select*from 用户表 where 用户名 ='" & username & " 'and 密码 = '" & userpass & "'"
   Debug.Print sql
   Rs.Open sql, cn
   If Rs.EOF Then
         MsgBox "登录失败！再来"
         Text1.SetFocus
         Text1.Text = ""
         Text3.SetFocus
         Text3.Text = ""
Else
         DoCmd.Close
         DoCmd.OpenForm "主界面"
         MsgBox "我靠！登录成功"
End If
'关闭 recodset 对象和connection对象并释放内存资源
Rs.Close
cn.Close
Set Rs = Nothing
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)