读写数据

啊冲

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

.如果真 (打开 (#数据库1, , , , , , ))

.如果真结束
写到文件 (取运行目录 () ＋ “\dat.edb”, #数据库)
打开 (#数据库1, , , , , , )

.子程序 _按钮1_被单击
.局部变量 记录, 整数型

.如果真 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “” 且 编辑框4.内容 ≠ “”)
    记录 ＝ 取记录数 ()
    加空记录 ()
    写 (#姓名, 编辑框1.内容)
    写 (#密码, 编辑框2.内容)
    写 (#名称, 编辑框3.内容)
    写 (#单价, 编辑框4.内容)
    .如果真 (取记录数 () ＞ 记录)
        信息框 (“写入成功”, 64, “提示”)
        编辑框1.内容 ＝ “”
        返回 ()
    .如果真结束
    信息框 (“写入失败”, 48, “提示”)
.如果真结束
信息框 (“请填写完整”, 64, “提示”)

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

临时数据 ＝ 临时数据 ＋ 1
.如果真 (取记录数 () ≠ 0)
    .计次循环首 (临时数据, )
        跳到 (临时数据)
        编辑框1.内容 ＝ 读 (#姓名)
        编辑框2.内容 ＝ 读 (#密码)
        编辑框3.内容 ＝ 读 (#名称)
        编辑框4.内容 ＝ 读 (#单价)
        .如果真 (临时数据 ＜ 取记录数 ())
            按钮2.标题 ＝ “下一项”
            返回 ()
        .如果真结束
        按钮2.标题 ＝ “没 啦”
    .计次循环尾 ()
.如果真结束


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

临时数据 ＝ 到数值 (编辑框5.内容) － 1
_按钮2_被单击 ()


.子程序 _调节器1_调节钮被按下
.参数 按钮值, 整数型

.如果真 (按钮值 ＝ 1)
    .如果真 (到数值 (编辑框5.内容) ≤ 取记录数 ())
        编辑框5.内容 ＝ 到文本 (到数值 (编辑框5.内容) ＋ 1)
    .如果真结束

.如果真结束
.如果真 (到数值 (编辑框5.内容) ＞ 1)
    编辑框5.内容 ＝ 到文本 (到数值 (编辑框5.内容) － 1)
.如果真结束

http://yunpan.cn/QXMxZC3XGrUmV