请问有谁做过MS ACCESS 里的 PASSWORD LOGIN???

程家伟

各位大大你们好。。。

有谁做过MS ACCESS 的 PASSWORD LOGIN.. 我想要知道。。。。 如果有谁知道怎样连接处，请指点了。。谢谢

秋天的楓葉

你可以用 user level security

http://databases.about.com/od/tutorials/ss/usersecurity.htm

程家伟

我看过了。。谢谢你了枫叶兄。。。。谢谢你的指点了。呵呵

goatstudio

你也可以自行在 access 里建立一个 table, 储存用户的资料, 包括密码.
然后在首页把用户输入的户口名字和密码来和这 table 比较一下.

程家伟

(^_^)  我来试试看。。。因为我没有做过这样的。。。只有老板要的吧了。。就顺应要求咯。。

程家伟

http://www.blueclaw-db.com/microsoft_access_security.htm

这个网站我找到了，可是要看哪一个呢？

程家伟

在form 里我已经做好了我要的design ，只是剩下的 coding 我不会。。。可以教我怎样做吗？

goatstudio

原帖由 程家伟 于 5-7-2006 11:09 AM 发表
在form 里我已经做好了我要的design ，只是剩下的 coding 我不会。。。可以教我怎样做吗？

在你的 button -> Properties -> Event -> OnClick 那里, 选择 code, 然后在 VBA 环境里用写 SQL 来比较用户输入的用户名字和密码.

建议你用 ACCESS 的参考书... 因为这样一来描述... 会十分难明白.

程家伟

这样子哦。。。看来要去跟朋友借一本了。。。

谢谢你了 goatstudio大哥。

程家伟

原帖由 goatstudio 于 5-7-2006 01:47 PM 发表


在你的 button -> Properties -> Event -> OnClick 那里, 选择 code, 然后在 VBA 环境里用写 SQL 来比较用户输入的用户名字和密码.

建议你用 ACCESS 的参考书... 因为这样一来描述... 会十分难明白.

goatstudio兄， 我去翻查过了我的朋友的书，我看到了一章写着如何login 的access。可是我试过很多次了。。然后又到过microsoft网站检查相关的资料。可是无论我如何的试过几次还是不给我的access进去。

过后很高兴得找到一个网站，可以提供资料的。可是里面的coding 我不会放呢。。。以下是哪个link

http://experts.about.com/q/Using-MS-Access-1440/login-form.htm

我不知道我的control source要放在那里

程家伟

原帖由 程家伟 于 6-7-2006 03:07 PM 发表



goatstudio兄， 我去翻查过了我的朋友的书，我看到了一章写着如何login 的access。可是我试过很多次了。。然后又到过microsoft网站检查相关的资料。可是无论我如何的试过几次还是不给我的access进去。

过 ...

我已经写vb从里的资料了，可是每次电脑给我出现 compile error methodor data member not found


If IsNull(DLookup("[password]", "login table", "[username] = '" & Me.username & "'")) Then
MsgBox "Username and/or password does not match. Try again", vbOKOnly
Me.password.SetFocus <--- 然而它还 hightlight "setFocus" 这行给我看呢
Else
DoCmd.OpenForm "Mailing List"
DoCmd.Close acForm, "login form"
End If

有什么办法解救？

程家伟

原帖由 程家伟 于 6-7-2006 04:18 PM 发表



我已经写vb从里的资料了，可是每次电脑给我出现 compile error methodor data member not found


If IsNull(DLookup("", "login table", " = '" & Me.username & ...

这是刚刚做的成绩

Private Sub Command4_Click()
If IsNull(DLookup("[password]", "login_table", "[username] = '" & Me.username & "'") Then
MsgBox "Username and/or password does not match. Try again", vbOKOnly
Me.[Form]![login_form].[username]
Else
DoCmd.OpenForm "Mailing List"
DoCmd.Close acForm, "login form"
End If
End Sub

哈哈哈。login 可以 compare 了。。可是要回到 login form 时候就不能了。 不知出错了什么？





惨了，我的userlogin有问题出现了。。就是每当我要进行 login 的时候，我不打password 也可以进去我的database 里。。。。然后我试过把那些expresion都加进去。可是没有得到想象的 result.

我的设定是这样

Usename: | u-username  |
Password: | u-userpass   |


然后这是我的 vbcoding

Private Sub Click_Me_Click()
If IsNull(DLookup("username", "password", "login_table", "[username] = '", "[password] = '" & Me.[u-username] & "'" & Me.[u-userpass] & "'") Then
MsgBox "Username and/or password does not match. Try again", vbOKOnly


Else
DoCmd.OpenForm "Main SwitchBoard"
DoCmd.Close acForm, "login_form"

End If


End Sub

有什么可以解救的方法？

谢谢各位前辈了


[ 本帖最后由 程家伟 于 11-7-2006 09:12 AM 编辑 ]

程家伟

原帖由 程家伟 于 7-7-2006 02:50 PM 发表



这是刚刚做的成绩

Private Sub Command4_Click()
If IsNull(DLookup("", "login_table", " = '" & Me.username & "'") Then
MsgBox "Username ...

哇哈哈~！！！实在是太高兴了。。。这个 login access 已经做好了。。。终于给我参透啦。。 辛苦也值得。。

以下是我改的 coding 请大家参考。。。如果需要改的地方清指点给大家看看了

Private Sub Click_Me_Click()
If IsNull(DLookup("[password]", "login_table", "[username] = '" & Me.[u-username] & "'") Then
MsgBox "Username and/or password does not match. Try again", vbOKOnly

Else
DoCmd.OpenForm "Mailing List"
DoCmd.Close acForm, "login_form"
End If
End Sub

可是呢，到最后有个遗憾。就是当 user login 错误的时候。 那些名字还在 "掉着" 格子里. 如果有谁知道请帮帮忙。。。感激不尽。。

（那么我就可以功成身退，辞职了咯）

哦~！对了。也感谢各位每次给于小弟资料来完成这帖字。。。尤其是 goatstudio兄，白日梦版主，以及秋天的枫叶兄。。谢谢你们。

[ 本帖最后由 程家伟 于 7-7-2006 03:54 PM 编辑 ]

goatstudio

什么意思是 - 那些名字还在 "掉着" 格子里???

秋天的楓葉

你要辞职了？ 你是在工业实习的呀？

程家伟

原帖由 goatstudio 于 8-7-2006 12:34 AM 发表
什么意思是 - 那些名字还在 "掉着" 格子里???

哦。。对不起啊。我的语言解释差。其实是这样的，当我的user login 不能进的时候。通常那些刚刚输入的字体就会自动的变不见。

可是我所做的呢，就偏偏依然的放在我的 text 格子里。。所以就说成“掉着（福建语）” 了。。呵呵，解释不清对不起了。

程家伟

原帖由 秋天的楓葉 于 8-7-2006 06:01 PM 发表
你要辞职了？ 你是在工业实习的呀？

不是了，我现在还想找过别份的工作环境。因为现在我的公司没有什么好。然后大大小小电脑问题要我去setter. 然后工钱比别的 MIS SUPPORT 低。 都有一年的经验了。薪水还是卡在1K以内。唉。。如果大家有别的工作，不妨介绍介绍过来给小弟。呵呵

不过现在就是我想要申请去DELL公司里去做工呢。。呵呵

红发

原帖由 程家伟 于 8-7-2006 11:27 PM 发表



不是了，我现在还想找过别份的工作环境。因为现在我的公司没有什么好。然后大大小小电脑问题要我去setter. 然后工钱比别的 MIS SUPPORT 低。 都有一年的经验了。薪水还是卡在1K以内。唉。。如果大家有别的工 ...

我有一份RM1500的你要不要

工作是每天都在做warranty的，或给customer骂骂的。

准时下班的，回到家又没有压力的

程家伟

工钱最高的是多少呢？

有没有Rm 8000左右（以后） 给最高这职位？呵呵

程家伟

惨了，我的userlogin有问题出现了。。就是每当我要进行 login 的时候，我不打password 也可以进去我的database 里。。。。然后我试过把那些expresion都加进去。可是没有得到想象的 result.

我的设定是这样

Usename: | u-username  |
Password: | u-userpass   |


然后这是我的 vbcoding

Private Sub Click_Me_Click()
If IsNull(DLookup("username", "password", "login_table", "[username] = '", "[password] = '" & Me.[u-username] & "'" & Me.[u-userpass] & "'") Then
MsgBox "Username and/or password does not match. Try again", vbOKOnly


Else
DoCmd.OpenForm "Main SwitchBoard"
DoCmd.Close acForm, "login_form"

End If


End Sub

有什么可以解救的方法？

谢谢各位前辈了