易语言数据库应用.EDB

1、第一步打开易语言；点击新建

2、第二步，创建一个Windows窗口程序

3、第三步，创建好后，画程序需要的控件，我这里就简单的画些控件给大家演示

4、这是画好的窗口，

用到的组件；

分组框

编辑框

标签

按钮

超级列表框

5、窗口画好了，就开始写代码了

.版本 2

.支持库 iext

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

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

.如果真 (文件是否存在 (取运行目录 () ＋ “\data.EDB”) ＝ 假)

    数据库构造 ()

.如果真结束

超级列表框1.插入列 (0, “编码”, 45, , , )

超级列表框1.插入列 (1, “姓名”, 92, , , )

超级列表框1.插入列 (2, “年龄”, 50, , , )

刷新列表 ()

6、这里的代码是构建数据库的代码

.版本 2

.支持库 spec

.子程序 数据库构造

.局部变量 内容, 字段信息, , "3"

内容 [1].名称 ＝ “编码”

内容 [1].类型 ＝ #文本型

内容 [1].最大文本长度 ＝ 10

内容 [2].名称 ＝ “姓名”

内容 [2].类型 ＝ #文本型

内容 [2].最大文本长度 ＝ 15

内容 [3].名称 ＝ “年龄”

内容 [3].类型 ＝ #文本型

内容 [3].最大文本长度 ＝ 3

.如果 (创建 (取运行目录 () ＋ “\data.EDB”, 内容) ＝ 真)

    调试输出 (“创建成功”)

.否则

    调试输出 (“创建失败”)

7、这些是为了完善

.版本 2

.支持库 iext

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

加空记录 ()

写 (“编码”, 编辑框1.内容)

写 (“姓名”, 编辑框2.内容)

写 (“年龄”, 编辑框3.内容)

刷新列表 ()

.子程序 刷新列表

.局部变量 索引, 整数型

.局部变量 记录, 整数型

超级列表框1.全部删除 ()

打开 (取运行目录 () ＋ “\data.EDB”, , , , , , )

到首记录 ()

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

    跳到 (记录)

    超级列表框1.插入表项 (索引, , , , , )

    超级列表框1.置标题 (索引, 0, 读 (“编码”))

    超级列表框1.置标题 (索引, 1, 读 (“姓名”))

    超级列表框1.置标题 (索引, 2, 读 (“年龄”))

.计次循环尾 ()