Office中国论坛/Access中国论坛

标题: 禁止、允许Shift键和自动备份数据库[源码][半价] [打印本页]

作者: Trynew 时间: 2003-5-9 08:18
标题: 禁止、允许Shift键和自动备份数据库[源码][半价]
禁止、允许Shift键和自动备份2.0：[attach]391[/attach]
1、可以设置允许、禁止按Shift键打开数据库，自动备份数据库

工具下载在第12楼贴子里

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

作者: duzili 时间: 2003-5-9 15:05
给个例子先,看看是不是真的.

[em06]

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

作者: 李啸林 时间: 2003-5-9 15:21
我用的是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个金币.

作者: 竹笛 时间: 2003-5-9 18:11
虽然我早就有无数个这样的工具，我还是买了：）

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

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

作者: Roadbeg 时间: 2003-5-9 19:39
现在流行卖钱,咱也搞一个期货试一下.说不定还能创收若干

作者: ail 时间: 2003-5-9 20:07
什么时候能把修改好的程序再上传上来呢？谢谢

作者: clumsy 时间: 2003-5-9 20:32
我要哭穷了[em19]

作者: Roadbeg 时间: 2003-5-9 21:15
没钱的赶快发帖子.
先赚够了再说.发表新主题 5元,回复主题 2元,很快就够了.

作者: 李啸林 时间: 2003-5-9 21:45

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

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

作者: 阿丰 时间: 2003-5-11 22:25
我下了一份，正试着。

作者: Trynew 时间: 2003-5-12 08:32
Shift键设置、自动备份下载文件已修改、更新，并增加VBA代码生成器,请重新下载

作者: sf 时间: 2003-5-16 02:28
我可不是万元户，但我还是买了吧！

作者: zz163azz 时间: 2003-5-24 02:01
ok

作者: 佳佳 时间: 2003-5-25 23:16
想要

作者: 佳佳 时间: 2003-5-25 23:16
为何不公开呢

作者: 佳佳 时间: 2003-5-25 23:28
奇怪，怎么买不了

作者: 佳佳 时间: 2003-5-25 23:29
骗钱的，tmd

作者: 喳喳林 时间: 2003-5-26 01:19
够劲儿，我买[em10]

作者: 佳佳 时间: 2003-5-27 20:02
我买了怎么看不到

作者: rqlam 时间: 2003-12-10 06:39
为了钱,要发贴

作者: pyzl 时间: 2003-12-10 18:51
不见50大洋,心痛中

作者: beibeijia 时间: 2003-12-11 05:26
我找了好长时间,
真得不错,
不知道是否好用?
先拿去试试!!

作者: baije 时间: 2003-12-11 05:29
我的贴如何卖钱?

作者: ccczzz 时间: 2003-12-11 15:05
ok

作者: cxhgc 时间: 2003-12-11 17:52

以下是引用Roadbeg在2003-5-9 13:15:16的发言：
没钱的赶快发帖子.
先赚够了再说.发表新主题 5元,回复主题 2元,很快就够了.

我记得从哪看到过关于赚钱和如何得分，还有各个级别的分值情况，我找了好几次，都没找到，能告诉我在这个论坛上哪有介绍这个的？

作者: cxhgc 时间: 2003-12-11 18:01
大家干吗都这样啊，给新手点机会嘛！！！
强烈要求Trynew公开！！！

嘿嘿，强烈希望我也能向你一样卖自己的东西！！

作者: cxhgc 时间: 2003-12-11 18:05
我先不买，因为小小哥送我一个工具，除了没有备份功能以外，你的功能都有拉，而且比你的好象要好哦！
呵呵
等待等待。。。。。。。。。。。。。。

作者: kookoooo 时间: 2004-2-17 18:41
我也想要！

作者: rogertian 时间: 2004-2-17 20:42
买一半行不行,那个可用/禁用SHIFT的程序我有了,我只要自动备份的.

作者: kookoooo 时间: 2004-2-17 23:17
不知道我有多少钱了

作者: kookoooo 时间: 2004-2-18 00:39
期货现在是现货了吗？

作者: haixing 时间: 2004-2-18 03:03
50金钱？
哈哈，一个鸡蛋的价钱！

作者: haixing 时间: 2004-2-18 03:13

以下是引用kookoooo在2004-2-17 15:16:46的发言：
不知道我有多少钱了

我也不知道？

作者: haixing 时间: 2004-2-18 04:14

以下是引用kookoooo在2004-2-17 15:16:46的发言：
不知道我有多少钱了

找到了，在用户控制面板中。

作者: wusihan 时间: 2004-4-22 08:47
虽然我很穷,但我还是买了!

作者: sweetduck 时间: 2004-4-22 17:17
哎，现在什么东西都可以拿来卖钱了！

作者: tang6518 时间: 2005-1-6 22:47
学习需要付出,

作者: 大声笑 时间: 2005-1-10 01:59
[em04]

作者: zx1688 时间: 2005-1-10 03:10
买一份吧

作者: zhanguoru 时间: 2005-3-7 23:44
mai

作者: chsimon 时间: 2005-7-12 17:18
支持！

作者: nxjswt 时间: 2005-7-19 06:35
mai mai !!!!

作者: secowu 时间: 2005-7-19 22:11
http://bbs.office-cn.net/viewFile.asp?Boardid=2&ID=400 http://bbs.office-cn.net/viewFile.asp?Boardid=2&ID=391我化钱买了奉献给大家！！！！！

作者: 老木匠 时间: 2005-9-17 17:42
新来的，没钱555555

作者: wang0511 时间: 2005-9-17 23:28
有用吗

作者: redchild 时间: 2006-1-8 05:14
学习学习！

作者: xslxr 时间: 2006-4-17 00:16
谢谢![em01][em01]

作者: china007 时间: 2006-7-28 23:09
感谢提供，收藏了

作者: 古老的龙 时间: 2006-8-2 23:41
jiuasvhjkdav

作者: 阿智 时间: 2006-8-26 05:15
不错，精典

作者: 石橡 时间: 2006-9-8 05:34
怎么个买法啊?

作者: jlz 时间: 2006-9-8 06:43
要多少钱？

作者: shenyi99 时间: 2006-9-9 18:59
先谢!!

作者: xdm 时间: 2006-10-26 18:34
good

作者: 司空名 时间: 2006-11-9 23:48
先下来看看

作者: clmkjszx123 时间: 2007-8-8 15:44
标题: 禁止、允许Shift键和自动备份数据库[源码][半价]
怎么买呢,不是直接下载吗?

作者: wx120- 时间: 2007-12-4 02:28
fhjfjfjfjfgjfgjfghj

作者: 120HZQ 时间: 2008-4-1 22:05
样好了,我也不用你还,就当我对你的期货的预购.

作者: heqing3000 时间: 2008-4-2 10:11
[:50] [:50] [:50] [:50]

作者: yori2007 时间: 2008-6-14 10:55
[:34]

作者: liaoliao 时间: 2008-7-14 15:21
又要钱????

作者: xlb004 时间: 2016-7-10 19:50
111111111111

作者: 飘过 时间: 2016-9-14 10:17
厉害啊

作者: ahdyxlc 时间: 2018-1-4 12:18
看看学习一下

作者: youwushi100 时间: 2018-5-23 01:44
顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)