.版本 2 .子程序 _按钮1_被单击 .局部变量 对象, 对象 .局部变量 source, 文本型 .局部变量 target, 文本型 .如果真 (对象.创建 (“JRO.JetEngine”, ) ＝ 假) 信息框 (“JRO.JetEngine对象不存在，无法压缩数据库”, #错误图标, “error”) 返回 () .如果真结束 ' 本源码来自三叶资源网(www.sanye.cx) .如果真 (通用对话框_源文件.打开 () ＝ 假) 返回 () .如果真结束 .如果真 (通用对话框_目标文件.打开 () ＝ 假) 返回 () .如果真结束 source ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 通用对话框_源文件.文件名 target ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 通用对话框_目标文件.文件名 按钮1.禁止 ＝ 真 按钮1.标题 ＝ “正在压缩中......” 处理事件 () 对象.方法 (“CompactDatabase”, source, target) 按钮1.禁止 ＝ 假 按钮1.标题 ＝ “压缩Access” 信息框 (“压缩成功！” ＋ #换行符 ＋ “源文件:” ＋ 通用对话框_源文件.文件名 ＋ #换行符 ＋ “体积为：” ＋ 到文本 (取文件尺寸 (通用对话框_源文件.文件名) ＼ 1024) ＋ “KB” ＋ #换行符 ＋ “新文件:” ＋ 通用对话框_目标文件.文件名 ＋ #换行符 ＋ “体积为：” ＋ 到文本 (取文件尺寸 (通用对话框_目标文件.文件名) ＼ 1024) ＋ “KB”, #信息图标, “恭喜”)