.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 题库考试, 文本型

标签4.标题 ＝ “”
标签5.标题 ＝ “”
题库考试 ＝ 编辑框题目.内容
.如果 (打开 (取运行目录 () ＋ “\全国统一题库考试.edb”, , , , , , ))

.否则
    信息框 (“#错误800”, 0, )
    返回 ()

.如果结束

.计次循环首 (取记录数 (), )

    .如果真 (题库考试 ＝ 读 (“题目”))
        标签5.标题 ＝ 读 (1)
        标签4.标题 ＝ 读 (“答案”)
        画板1.底图 ＝ 读 (3)
        跳出循环 ()
    .如果真结束

    跳过 ()

.计次循环尾 ()
关闭 ()
.如果真 (编辑框题目.内容 ＝ “”)
    返回 ()
.如果真结束

.如果真 (标签5.标题 ＝ “” 且 标签4.标题 ＝ “”)
    信息框 (“没有找到，请去除尾部空格或符号 再试一下！！！”, 0, )
.如果真结束



.子程序 _按钮3_被单击

.如果 (打开 (取运行目录 () ＋ “\全国统一题库考试.edb”, , , , , , ))

.否则
    信息框 (“#错误800”, 0, )
    返回 ()
.如果结束
' 打开 (取运行目录 () ＋ “\全国统一题库考试.edb”, , , , , , )
.如果真 (编辑框题目1.内容 ＝ “” 且 编辑框题目3.内容 ＝ “”)
    信息框 (“请添加题目和答案！！！”, 0, )
    返回 ()

.如果真结束


.计次循环首 (取记录数 (), )
    .如果真 (读 (1) ＝ 编辑框题目1.内容 且 读 (2) ＝ 编辑框题目3.内容 且 读 (3) ＝ 画板2.底图)
        关闭 ()
        信息框 (“题目已有不用再加了！！”, 0, )
        返回 ()
    .如果真结束

    跳过 ()

.计次循环尾 ()



加记录 (编辑框题目1.内容, 编辑框题目3.内容, 画板2.底图)

关闭 ()


.子程序 _按钮2_被单击

编辑框题目.内容 ＝ “”
获取焦点 ()


.子程序 _画板2_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型


.如果 (通用对话框1.打开 ())

.否则
    返回 ()
.如果结束

调试输出 (通用对话框1.默认文件后缀)
标签6.标题 ＝ 通用对话框1.文件名
画板2.底图 ＝ 读入文件 (标签6.标题)
标签6.标题 ＝ “”




如上为什么在生EXE以后就找不到数据库？
请各位老师帮我看看怎么样才可在其他机子使用
不胜感谢！！！！！！！！！！！！