精易论坛

标题: 简单数据库读取 [打印本页]

作者: 新手小奇 时间: 2017-3-25 14:23
标题: 简单数据库读取
.版本 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_被单击 ()

作者: SeeYouAgain 时间: 2017-3-25 14:28
还不如分享源码万一别人下载了还有一个JB

作者: xf1917 时间: 2017-4-11 15:15
发源码更好一点

欢迎光临精易论坛 (https://125.confly.eu.org/)