简单数据库读取

新手小奇

.版本 2
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 n, 整数型

打开 (取运行目录 () ＋ “\测试数据库.edb”, , , , , , )

超级列表框1.全部删除 ()
.计次循环首 (取记录数 (), )
    n ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (n, 0, 读 (“姓名”))
    超级列表框1.置标题 (n, 1, 读 (“性别”))
    超级列表框1.置标题 (n, 2, 读 (“年龄”))
    超级列表框1.置标题 (n, 3, 读 (“电话”))
    跳过 ()

.计次循环尾 ()


.子程序 _按钮2_被单击
.局部变量 n, 整数型

到首记录 ()

超级列表框1.全部删除 ()
.计次循环首 (取记录数 (), )
    n ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (n, 0, 读 (“姓名”))
    超级列表框1.置标题 (n, 1, 读 (“性别”))
    超级列表框1.置标题 (n, 2, 读 (“年龄”))
    超级列表框1.置标题 (n, 3, 读 (“电话”))
    跳过 ()
.计次循环尾 ()


.子程序 _超级列表框1_右键单击表项

弹出菜单 (菜单, , )


.子程序 _按钮1_被单击
.局部变量 a, 逻辑型

到首记录 ()
调试输出 (查找 (读 (“姓名”) ≈ 编辑框1.内容))

调试输出 (读 (“姓名”))


.子程序 _删除记录_被选择

跳到 (超级列表框1.现行选中项 ＋ 1)
删除 ()
彻底删除 ()
_按钮2_被单击 ()

xf1917

发源码更好一点

SeeYouAgain

还不如分享源码 万一 别人 下载了 还有一个JB