[原创]超强用户试用、注册及登录系统

chenjun86666

源码全部开放(含注册机)，希望大家多提意见，测试环境：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编辑过]

chenjun86666

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

XWQ2000

好东西

但是在我这里有个问题

注册在进行到第三步的时候 再也无法进入系统。重启后又提示重新注册

XWQ2000

问题解决

还是一句话 好东西

感谢楼主的无私奉献

宿命的风

精品!谢谢分享!值得收藏!

zjd7896

好东西大家都支持,先下来试试

winner

我也是这样:注册在进行到第三步的时候再也无法进入系统。重启后又提示重新注册.

方漠

不错,顶一下!

注册步骤建议改用PAGE控件,那样不用建三个窗体.

chenjun86666

谢谢方漠,我试试

xlonger

最好有ACCESS 2000版本的。