禁止、允许Shift键和自动备份数据库[源码][半价]

Trynew

禁止、允许Shift键和自动备份2.0：
1、可以设置允许、禁止按Shift键打开数据库，自动备份数据库

工具下载在第12楼贴子里

[此贴子已经被作者于2005-8-31 10:32:35编辑过]

duzili

给个例子先,看看是不是真的.

[em06]

[此贴子已经被作者于2003-5-9 7:05:33编辑过]

李啸林

我用的是ACCESS 2000,

语句 db.Properties("AllowBypassKey")出错,错误提示:找不到属性.

我把语句:db.Properties("AllowBypassKey") = False
改为 ChangeProperty db, "AllowBypassKey", DB_Boolean, False

把函数ChangeProperty 修改为如下:

Public Function ChangeProperty(dbs As Database, strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
    Dim prp As Variant
    Const conPropNotFoundError = 3270

    'Set dbs = CurrentDb 原来的语句
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Change_Bye:
    Exit Function

Change_Err:
    If ERR = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' 未知错误。
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

注:Trynew 先生,我给你的程序修复BUG了,你是不是该还给我50个金币.

竹笛

虽然我早就有无数个这样的工具，我还是买了：）

建议增加一个*.ADP功能，这样更有趣。

Trynew

好说，好说！只是我不知道怎样还你钱：）
其实这个程序放我主页都半年了，原来也没有出错，就是昨晚我花了100大洋买了个自动悲愤的程序，就加上自动备份的功能，还把一些“无用”的语句删除了，也没测试就放上来套钱了。
现在就作为一个[期货]来卖：这个周末我把它做成：
1、独立运行，可以选定外部数据库进行Shift键设置、自动备份。
2、可以导入到用户数据库作为当前数据库设置窗体。
3、作为一个类，可以导入、引用：Shift键设置，生成系统托盘图标，使用文件打开、另存对话框，设置自动备份。
注意：期货，有风险，就看你敢不敢给钱。。。。只有十个名额喔~_^

Roadbeg

现在流行卖钱,咱也搞一个期货试一下.说不定还能创收若干

ail

什么时候能把修改好的程序再上传上来呢？谢谢

clumsy

我要哭穷了[em19]

Roadbeg

没钱的赶快发帖子.
先赚够了再说.发表新主题 5元,回复主题 2元,很快就够了.

李啸林

以下是引用Trynew在2003-5-9 10:44:59的发言：
好说，好说！只是我不知道怎样还你钱：）
其实这个程序放我主页都半年了，原来也没有出错，就是昨晚我花了100大洋买了个自动悲愤的程序，就加上自动备份的功能，还把一些“无用”的语句删除了，也没测试就放上来套钱了。
现在就作为一个[期货]来卖：这个周末我把它做成：
1、独立运行，可以选定外部数据库进行Shift键设置、自动备份。
2、可以导入到用户数据库作为当前数据库设置窗体。
3、作为一个类，可以导入、引用：Shift键设置，生成系统托盘图标，使用文件打开、另存对话框，设置自动备份。
注意：期货，有风险，就看你敢不敢给钱。。。。只有十个名额喔~_^

这样好了,我也不用你还,就当我对你的期货的预购.