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

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编辑过]

q290014374

顶起来一下

gaom8

太棒了

lingjiang

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

liufucan

看看

冚友

学习一下

ccyan

好东西

yuanxing2016

谢谢分享

ccyan

系统下载了不能解压

ccyan

职工教育管理系统开发完毕,源码全部开放(含大量注释), 下载不能解压