溫馨提示×

易語言怎么給db數(shù)據(jù)庫加密

九三
669
2021-02-20 13:12:50

易語言怎么給db數(shù)據(jù)庫加密

使用易語言對db數(shù)據(jù)庫進(jìn)行加密的方法

易語言程序如下：

.版本 2
.程序集 窗口程序集_啟動窗口
.子程序 _按鈕1_被單擊, , , 打開
.如果 (打開 (“test.edb”, , , , , 編輯框1.內(nèi)容, ) ＝ 假)
信息框 (“打開數(shù)據(jù)庫失?。　? 0, , )
.否則
信息框 (“打開數(shù)據(jù)庫成功！”, 0, , )
.如果結(jié)束
.子程序 _按鈕2_被單擊, , , 置數(shù)據(jù)庫密碼
.如果 (置數(shù)據(jù)庫密碼 (編輯框1.內(nèi)容) ＝ 真)
信息框 (“置數(shù)據(jù)庫密碼成功！”, 0, , )
.否則
信息框 (“數(shù)據(jù)庫設(shè)置密碼失??！”, 0, , )
.如果結(jié)束
關(guān)閉 ()
.子程序 _按鈕3_被單擊, , , 是否已加密
.如果 (是否已加密 (“test.edb”) ＝ 真)
信息框 (“置數(shù)據(jù)已經(jīng)加密！”, 0, , )
.否則
信息框 (“置數(shù)據(jù)未加密！”, 0, , )
.如果結(jié)束
.子程序 _按鈕4_被單擊, , , 密碼輸入框
.局部變量 密碼變量, 文本型
.如果 (是否已加密 (“test.edb”) ＝ 真)
密碼輸入框 (密碼變量, )
.如果 (打開 (“test.edb”, , , , , 密碼變量, ) ＝ 假)
信息框 (“打開數(shù)據(jù)庫失敗！”, 0, , )
.否則
信息框 (“打開數(shù)據(jù)庫成功！”, 0, , )
.如果結(jié)束
.否則
信息框 (“置數(shù)據(jù)未加密！”, 0, , )
.如果結(jié)束
關(guān)閉 ()

0 踩