易语言怎么给db数据库加密

使用易语言对db数据库进行加密的方法

易语言程序如下：

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击, , , 打开
.如果 (打开 (“test.edb”, , , , , 编辑框1.内容, ) ＝ 假)
信息框 (“打开数据库失败！”, 0, , )
.否则
信息框 (“打开数据库成功！”, 0, , )
.如果结束
.子程序 _按钮2_被单击, , , 置数据库密码
.如果 (置数据库密码 (编辑框1.内容) ＝ 真)
信息框 (“置数据库密码成功！”, 0, , )
.否则
信息框 (“数据库设置密码失败！”, 0, , )
.如果结束
关闭 ()
.子程序 _按钮3_被单击, , , 是否已加密
.如果 (是否已加密 (“test.edb”) ＝ 真)
信息框 (“置数据已经加密！”, 0, , )
.否则
信息框 (“置数据未加密！”, 0, , )
.如果结束
.子程序 _按钮4_被单击, , , 密码输入框
.局部变量 密码变量, 文本型
.如果 (是否已加密 (“test.edb”) ＝ 真)
密码输入框 (密码变量, )
.如果 (打开 (“test.edb”, , , , , 密码变量, ) ＝ 假)
信息框 (“打开数据库失败！”, 0, , )
.否则
信息框 (“打开数据库成功！”, 0, , )
.如果结束
.否则
信息框 (“置数据未加密！”, 0, , )
.如果结束
关闭 ()