易语言数据库应用.EDB
来源:网络收集 点击: 时间:2024-07-06第一步打开易语言;点击新建

第二步,创建一个Windows窗口程序

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

这是画好的窗口,
用到的组件;
分组框
编辑框
标签
按钮
超级列表框

窗口画好了,就开始写代码了
.版本 2
.支持库 iext
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.如果真 (文件是否存在 (取运行目录 () + “\data.EDB”) = 假)
数据库构造 ()
.如果真结束
超级列表框1.插入列 (0, “编码”, 45, , , )
超级列表框1.插入列 (1, “姓名”, 92, , , )
超级列表框1.插入列 (2, “年龄”, 50, , , )
刷新列表 ()

这里的代码是构建数据库的代码
.版本 2
.支持库 spec
.子程序 数据库构造
.局部变量 内容, 字段信息, , 3
内容 .名称 = “编码”
内容 .类型 = #文本型
内容 .最大文本长度 = 10
内容 .名称 = “姓名”
内容 .类型 = #文本型
内容 .最大文本长度 = 15
内容 .名称 = “年龄”
内容 .类型 = #文本型
内容 .最大文本长度 = 3
.如果 (创建 (取运行目录 () + “\data.EDB”, 内容) = 真)
调试输出 (“创建成功”)
.否则
调试输出 (“创建失败”)

这些是为了完善
.版本 2
.支持库 iext
.子程序 _按钮1_被单击
加空记录 ()
写 (“编码”, 编辑框1.内容)
写 (“姓名”, 编辑框2.内容)
写 (“年龄”, 编辑框3.内容)
刷新列表 ()
.子程序 刷新列表
.局部变量 索引, 整数型
.局部变量 记录, 整数型
超级列表框1.全部删除 ()
打开 (取运行目录 () + “\data.EDB”, , , , , , )
到首记录 ()
.计次循环首 (取记录数 (), 记录)
跳到 (记录)
超级列表框1.插入表项 (索引, , , , , )
超级列表框1.置标题 (索引, 0, 读 (“编码”))
超级列表框1.置标题 (索引, 1, 读 (“姓名”))
超级列表框1.置标题 (索引, 2, 读 (“年龄”))
.计次循环尾 ()

这是程序运行后的图片1

这是程序运行后的图片2

这是程序运行后的图片3

建设数据库时建议把最大文本长度写到合适大小,不然会出现只有一半数据的现象(中文字符占2字节,英文字符占1字节)
请大家在使用软件的时候支持正版,如有疑问或者建议请联系作者
数据库易语言数据库创建数据库数据库操作易语言教程版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.ff371.cn/art_937109.html