设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 50991|回复: 190
打印 上一主题 下一主题

[模块/函数] [原创]超强用户试用、注册及登录系统

[复制链接]
跳转到指定楼层
1#
发表于 2006-6-25 18:50:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
源码全部开放(含注册机),希望大家多提意见,测试环境:Winxp+Access2003




对不起,有一段代码忘记加上,贴上后才发现

请在模块3中或自建一个模块,然后加上一段自定义函数代码,否则注册时找不到IsYlwjcct定义

'自定义函数 IsYlwjcct("窗体名") (如果指定的窗体打开,返回True)
Function IsYlwjcct(ByVal strFormName As String) As Boolean
    Const conObjStateClosed = 0
    Const conDesignView = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If forms(strFormName).CurrentView <> conDesignView Then
            IsYlwjcct = True
        End If
    End If
End Function

[此贴子已经被作者于2006-6-25 12:05:06编辑过]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏1 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2006-6-25 18:53:00 | 只看该作者

附件如下

游客,如果您要查看本帖隐藏内容请回复

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
3#
发表于 2006-6-25 19:25:00 | 只看该作者
好东西

但是在我这里有个问题

注册在进行到第三步的时候 再也无法进入系统。重启后又提示重新注册
4#
发表于 2006-6-26 07:08:00 | 只看该作者
问题解决

还是一句话 好东西

感谢楼主的无私奉献
5#
发表于 2006-6-26 07:50:00 | 只看该作者
精品!谢谢分享!值得收藏!
6#
发表于 2006-6-26 20:17:00 | 只看该作者
好东西大家都支持,先下来试试
7#
发表于 2006-7-28 17:32:00 | 只看该作者
我也是这样:注册在进行到第三步的时候再也无法进入系统。重启后又提示重新注册.

8#
发表于 2006-7-28 18:41:00 | 只看该作者
不错,顶一下!

注册步骤建议改用PAGE控件,那样不用建三个窗体.
9#
 楼主| 发表于 2006-7-29 00:33:00 | 只看该作者
谢谢方漠,我试试
10#
发表于 2006-7-29 06:49:00 | 只看该作者
最好有ACCESS 2000版本的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 04:45 , Processed in 0.087052 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表