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

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

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

chenjun86666

谢谢方漠,我试试