1、第一步打开易语言;点击新建
2、第二步,创建一个Windows窗口程序
3、第三步,创建好后,画程序需要的控件,我这里就简单的画些控件给大家演示
4、这是画好的窗口,用到的组件;分组框编辑框标签按钮超级列表框
5、窗口画好了,就开始写代码了.版本 2.支持库 iext.程序集 窗口程序集_启动独瘦配溧窗口.子程序 __启动窗口_创建完毕.如果真 (文件是否存在 (取运行目录 () + “\dat锾攒揉敫a.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, 读 (“年龄”)).计次循环尾 ()