禁止、允許Shift鍵和自動(dòng)備份數(shù)據(jù)庫(kù)[源碼][半價(jià)]

Trynew

禁止、允許Shift鍵和自動(dòng)備份2.0：
1、可以設(shè)置允許、禁止按Shift鍵打開(kāi)數(shù)據(jù)庫(kù)，自動(dòng)備份數(shù)據(jù)庫(kù)

工具下載在第12樓貼子里

[此貼子已經(jīng)被作者于2005-8-31 10:32:35編輯過(guò)]

duzili

給個(gè)例子先,看看是不是真的.

[em06]

[此貼子已經(jīng)被作者于2003-5-9 7:05:33編輯過(guò)]

李嘯林

我用的是ACCESS 2000,

語(yǔ)句 db.Properties("AllowBypassKey")出錯(cuò),錯(cuò)誤提示:找不到屬性.

我把語(yǔ)句:db.Properties("AllowBypassKey") = False
改為 ChangeProperty db, "AllowBypassKey", DB_Boolean, False

把函數(shù)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 原來(lái)的語(yǔ)句
    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
        ' 未知錯(cuò)誤。
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

注:Trynew 先生,我給你的程序修復(fù)BUG了,你是不是該還給我50個(gè)金幣.

竹笛

雖然我早就有無(wú)數(shù)個(gè)這樣的工具，我還是買了：）

建議增加一個(gè)*.ADP功能，這樣更有趣。

Trynew

好說(shuō)，好說(shuō)！只是我不知道怎樣還你錢：）
其實(shí)這個(gè)程序放我主頁(yè)都半年了，原來(lái)也沒(méi)有出錯(cuò)，就是昨晚我花了100大洋買了個(gè)自動(dòng)悲憤的程序，就加上自動(dòng)備份的功能，還把一些“無(wú)用”的語(yǔ)句刪除了，也沒(méi)測(cè)試就放上來(lái)套錢了。
現(xiàn)在就作為一個(gè)[期貨](méi)來(lái)賣：這個(gè)周末我把它做成：
1、獨(dú)立運(yùn)行，可以選定外部數(shù)據(jù)庫(kù)進(jìn)行Shift鍵設(shè)置、自動(dòng)備份。
2、可以導(dǎo)入到用戶數(shù)據(jù)庫(kù)作為當(dāng)前數(shù)據(jù)庫(kù)設(shè)置窗體。
3、作為一個(gè)類，可以導(dǎo)入、引用：Shift鍵設(shè)置，生成系統(tǒng)托盤圖標(biāo)，使用文件打開(kāi)、另存對(duì)話框，設(shè)置自動(dòng)備份。
注意：期貨，有風(fēng)險(xiǎn)，就看你敢不敢給錢。。。。只有十個(gè)名額喔~_^

Roadbeg

現(xiàn)在流行賣錢,咱也搞一個(gè)期貨試一下.說(shuō)不定還能創(chuàng)收若干

ail

什么時(shí)候能把修改好的程序再上傳上來(lái)呢？謝謝

clumsy

我要哭窮了[em19]

Roadbeg

沒(méi)錢的趕快發(fā)帖子.
先賺夠了再說(shuō).發(fā)表新主題 5元,回復(fù)主題 2元,很快就夠了.

李嘯林

以下是引用Trynew在2003-5-9 10:44:59的發(fā)言：
好說(shuō)，好說(shuō)！只是我不知道怎樣還你錢：）
其實(shí)這個(gè)程序放我主頁(yè)都半年了，原來(lái)也沒(méi)有出錯(cuò)，就是昨晚我花了100大洋買了個(gè)自動(dòng)悲憤的程序，就加上自動(dòng)備份的功能，還把一些“無(wú)用”的語(yǔ)句刪除了，也沒(méi)測(cè)試就放上來(lái)套錢了。
現(xiàn)在就作為一個(gè)[期貨](méi)來(lái)賣：這個(gè)周末我把它做成：
1、獨(dú)立運(yùn)行，可以選定外部數(shù)據(jù)庫(kù)進(jìn)行Shift鍵設(shè)置、自動(dòng)備份。
2、可以導(dǎo)入到用戶數(shù)據(jù)庫(kù)作為當(dāng)前數(shù)據(jù)庫(kù)設(shè)置窗體。
3、作為一個(gè)類，可以導(dǎo)入、引用：Shift鍵設(shè)置，生成系統(tǒng)托盤圖標(biāo)，使用文件打開(kāi)、另存對(duì)話框，設(shè)置自動(dòng)備份。
注意：期貨，有風(fēng)險(xiǎn)，就看你敢不敢給錢。。。。只有十個(gè)名額喔~_^

這樣好了,我也不用你還,就當(dāng)我對(duì)你的期貨的預(yù)購(gòu).