非常简单的登录验证源码（ACCESS数据库） · 用户讨论与问答

这个也要积分啊

都董事长了还在乎那点积分啊！太扣了啊 ！

这个网站真好！ 我能学好多东西。:)

ddddddddddddddddddddddddddddddddddd

不知道该如何下载，要点击哪里

顶一下

还要积分呀,下载呀

要顶，要下载。。。

还要积分啊！

有什么好下的。

来点积分啊！

积分何来啊！！

没得说了 扣我3积分

还要积分啊？

ding:)

:'( :'( :'( :'(

好东西，学习先。

新手，下载来看看先:lol

汗。。。积分不够

这个积分怎么办？？？太难攒了吧

需要多少回贴能换回1分？？

晕 没有积分 下载不了 。。。

非常简单的登录验证源码（Access数据库），我分不够哟

唉呦 我现在正找这个东西呐

好.可是我现下载不了

你什么时候给我下载啊

Line 44: 它为成员站点提供单独登录和核心配置文件服务。 Line 45: --> Line 46: <authentication mode="None" /> Line 47: Line 48: <!-- 授权

Line 44: 它为成员站点提供单独登录和核心配置文件服务。 Line 45: --> Line 46: <authentication mode="None" /> Line 47: Line 48: <!-- 授权

真晕,这个古董级的代码居然要积分

:'( :'( :'(

xuexuekan

下了,谢谢分享.

很好，谢谢LZ

:) :(

能下啊

说明一下Admin 是一个表 里面有ID和UserName Password字段 这个登陆系统的[确定]按钮的命令总是运行不了，求助一下！！！ 错误信息是【 编译错误：方式和数据成员未找到】 Private Sub Command5_Click() Dim str As String Dim rs As New ADODB.Recordset logname = Trim(Me.UserName) pwd = Trim(Me.Password) If IsNull(logname) Then DoCmd.Beep MsgBox ("请输入这个用户") ElseIf IsNull(pwd) Then DoCmd.Beep MsgBox ("请输入这个密码") Else str = "select * from Admin where UserName='" & logname & "'and Password='" & pwd & "'" Set rs = GetRS(str) If rs.EOF Then DoCmd.Beep MsgBox ("没有这个用户，请重新确认") Me.UserName = "" Me.Password = "" Me.UserName.SetFocus Exit Sub Else DoCmd.Close MsgBox ("欢迎使用人事系统") check = True DoCmd.OpenForm ("员工资料") End If End If Set rs = Nothing Set conn = Nothing End Sub

是不是没有安全性而言啊？

好下啊，你打开下载页，找到下面 有个 主站下载和双线下载，你点一个，然后在到下个页面就有个很大的 下载图片，点击就OK

dingdingdingdingdingding