Office中国论坛/Access中国论坛

标题: [求助]请教登陆界面密码 [打印本页]

作者: sdgts 时间: 2006-11-12 22:00
标题: [求助]请教登陆界面密码
请教如下登陆界面的密码是什么，一下是事件代码。
Private Sub img0a1_Click()
On Error GoTo Err_img0a1_Click

If 组合2 = "" Or IsNull(Me.组合2) Then
      MsgBox "请选择用户名！", vbOKOnly + vbInformation, "提示"
      组合2.SetFocus
ElseIf 密码 = DLookup("[密码]", "用户密码表", "[用户名]= " & "'" & Me.组合2 & "'") Then
      user = Me.组合2
      userlx = 组合2.Column(2)
      re = 0
      DoCmd.Close acForm, "登录"
      DoCmd.OpenForm "操作窗口"
Else
      re = re + 1
      MsgBox "您输入的密码不正确，请重新输入！", vbOKOnly + vbExclamation, "错误"
      密码.SetFocus
      If re > 2 Then
         MsgBox "由于您三次输入的密码都不正确，系统将自动关闭！", vbOKOnly + vbCritical, "密码不正确"
         DoCmd.Quit
      End If
End If
Exit_img0a1_Click:
Exit Sub

Err_img0a1_Click:
MsgBox Err.Description
Resume Exit_img0a1_Click
End Sub

Private Sub img0a_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.img0a.Visible = False
Me.img0a1.Visible = True
End Sub

Private Sub Cmd取消_Click()
On Error GoTo Err_Cmd取消_Click

DoCmd.Close
DoCmd.Quit

Exit_Cmd取消_Click:
Exit Sub

Err_Cmd取消_Click:
MsgBox Err.Description
Resume Exit_Cmd取消_Click

End Sub

Private Sub cmqd_Click()
On Error GoTo Err_cmqd_Click

   If 组合2 = "" Or IsNull(Me.组合2) Then
      MsgBox "请选择用户名！", vbOKOnly + vbInformation, "提示"
      组合2.SetFocus
ElseIf 密码 = DLookup("[密码]", "用户密码表", "[用户名]= " & "'" & Me.组合2 & "'") Then
      user = Me.组合2
      userlx = 组合2.Column(2)
      re = 0
      DoCmd.Close acForm, "登录"
      DoCmd.OpenForm "操作窗口"
Else
   re = re + 1
      MsgBox "您输入的密码不正确，请重新输入！", vbOKOnly + vbExclamation, "错误"
      密码.SetFocus
      If re > 2 Then
         MsgBox "由于您三次输入的密码都不正确，系统将自动关闭！", vbOKOnly + vbCritical, "密码不正确"
         DoCmd.Quit
      End If
End If
Exit_cmqd_Click:
Exit Sub

Err_cmqd_Click:
MsgBox Err.Description
Resume Exit_cmqd_Click
End Sub

Private Sub Form_Load()
DoCmd.Maximize
ImgTop.Width = Me.WindowWidth
ImgBot.Width = Me.WindowWidth
log.Left = Me.WindowWidth / 2 - log.Width - 200
log.Top = Me.WindowHeight / 2 - log.Height
ImgPic.Top = Me.WindowHeight / 2 - log.Height / 2 + 1000
ImgPic.Left = Me.WindowWidth / 2 + 100
ImgLine.Left = Me.WindowWidth / 2 - 300
bq1.Left = Me.WindowWidth / 2 + 1000
Me.组合2.Left = Me.WindowWidth / 2 + 1280
Me.组合2.Top = Me.WindowHeight / 2 - log.Height / 2 + 100
Me.img04.Left = Me.WindowWidth / 2 + Me.组合2.Width + 1000
Me.img04.Top = Me.WindowHeight / 2 - log.Height / 2 + 100
Me.yhb.Left = Me.WindowWidth / 2 + 1430
Me.yhb.Top = Me.WindowHeight / 2 - log.Height / 2 + 100
Me.密码.Left = Me.WindowWidth / 2 + 1280
Me.密码.Top = Me.WindowHeight / 2 - log.Height / 2 + 680
Me.img0a.Top = Me.WindowHeight / 2 - log.Height / 2 + 680
Me.img0a.Left = Me.WindowWidth / 2 + Me.密码.Width + 1480
Me.img0a1.Top = Me.WindowHeight / 2 - log.Height / 2 + 680
Me.img0a1.Left = Me.WindowWidth / 2 + Me.密码.Width + 1480
Me.mmb.Left = Me.WindowWidth / 2 + 1430
Me.mmb.Top = Me.WindowHeight / 2 - log.Height / 2 + 680

End Sub

Private Sub img0b1_Click()
DoCmd.Close
DoCmd.Quit
End Sub

Private Sub img0b_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.img0b1.Visible = True
Me.img0b.Visible = False
End Sub

Private Sub 窗体页脚_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.img0b.Visible = True
Me.img0b1.Visible = False
End Sub

Private Sub 主

作者: laiguiyou 时间: 2006-11-12 22:21
这里并没有给出具体的密码,密码是放在"用户密码表"中,跟用户相对应

作者: sdgts 时间: 2006-11-12 22:45
新建一用户密码表保存时提示和用户密码表重名，但在表中找不到用户密码表，请指教。

作者: tmtming 时间: 2006-11-12 23:24
看看之前所建的用户密码表是不是给隐藏了？？

作者: sdgts 时间: 2006-11-12 23:33
请教怎样显示隐藏的表。

作者: tmtming 时间: 2006-11-12 23:42
工具—选项—把在视图栏中的隐藏对象钩选再点确认。

作者: sdgts 时间: 2006-11-13 16:16
谢谢指教.

作者: tz-chf 时间: 2006-11-13 19:02
"[用户名]= " & "'" & Me.组合2 & "'")

组合框一般绑定到数字，写成"用户ID=" & Me.组合2

作者: sdgts 时间: 2006-11-13 20:23
请教“Me.组合2”的Me.应怎样解释。

作者: tz-chf 时间: 2006-11-14 00:08
本窗体

作者: sdgts 时间: 2006-11-14 00:31
谢谢指教。

作者: shugisimon 时间: 2006-11-14 03:56
[em01]谢谢指教.

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