一个酷毙了的用户登陆例子[给大家的第一份礼物]

佳佳

任意输入字符用户名..不要任何密码,,即可进入 ？？  怎样解决啊


Private Sub Cmd确定_Click()
On Error GoTo Err_Cmd确定_Click

If Nz([Txt密码]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'")) _
    And Me.Combo用户名 <> "" Then                           '验证用户和密码)

    DoCmd.Close
    DoCmd.Close acForm, "登陆背景", acSaveYes
   
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(20027) & ChrW(25511) & ChrW(-26782) & ChrW(26495)
    DoCmd.OpenForm stDocName, , , stLinkCriteria
   
Else

MsgBox "用户名和密码错误", , "请重新输入"
   
   Me.Combo用户名.SetFocus

End If
Exit_Cmd确定_Click:
    Exit Sub

Err_Cmd确定_Click:
    MsgBox Err.Description
    Resume Exit_Cmd确定_Click
   
End Sub

MikeYi

1、如何解决不同用户授权问题，即关联到ACCESS自带的用户与组的权限？
2、密码表如何加密不被非管理员看见？

你是风儿我是沙

历害，做的真好

accessfun

很棒！

jl

在窗体设计视图--〉限于列表---〉将否改为是。

悲回风

学习ing

悲回风

这个东东好炫滴说!,8好意思,我改了改标签用在自己的小玩艺上了,有版权吗?

yzt88000

我问的问题是：登入后输入数据的同时如何自动记录登入者的身份。也就是以后可以知道哪一条数据是谁输入的。

[此贴子已经被作者于2003-6-23 0:25:10编辑过]

jcls

有创意，斑竹就是斑竹.

bluesky2003

很不错的例子，有源码吗ahtcwhb@163.com