【易语言】添加命令：EDB数据库合并问题

.版本 2

.局部变量 变量1, 整数型

.局部变量 变量2, 整数型

.局部变量 result, 逻辑型

打开 (, , , , , , )

置当前库 ()

到首记录 ()

result ＝ 查找 (“字段1” ＝ 变量1 且 “字段2” ＝ 变量2)

.如果真 (result)

信息框 (“正确”, 0, )

返回 ()

.如果真结束

信息框 (“错误”, 0, )

内容自己填充下就可以了

说明:"启动窗口"中只有一个编辑框和一个列表框,当编辑框中敲了"回车键"，列表框中就加入一个项目,当编辑框中的文本最后有".edb"并敲了"回车键",就会创建这个名字的数据库.创建好之后.列表框中为空,又可创建另外一个数据库.

点击列表框中的项目,可在编辑框中修改,编辑框中为空,就删除该项目.别忘了敲"回车键"

其实在易语言中有创建edb数据库的,按"Alt+B"+S,在"数据库"的第一项"结构编辑器"中.

------------------------------------------------------------------

.版本 2

.子程序 _编辑框1_按下某键, 逻辑型

.参数 键代码, 整数型

.参数 功能键状态, 整数型

.如果真 (键代码 ≠ #回车键)

返回 ()

.如果真结束

.如果真 (列表框1.现行选中项 ≠ -1)

.如果 (编辑框1.内容 ≠ “”)

列表框1.置项目文本 (列表框1.现行选中项, 编辑框1.内容)

.否则

列表框1.删除项目 (列表框1.现行选中项)

.如果结束

列表框1.现行选中项 ＝ -1

清空编辑框 ()

返回 ()

.如果真结束

.如果真 (编辑框1.内容 ≠ “”)

返回 ()

.如果真结束

.如果 (取文本右边 (编辑框1.内容, 4) ≠ “.edb”)

列表框1.加入项目 (编辑框1.内容, )

.否则

创建数据库 ()

列表框1.清空 ()

.如果结束

清空编辑框 ()

.子程序 创建数据库

.局部变量 字段, 字段信息, , "0"

.局部变量 计次, 整数型

.计次循环首 (列表框1.取项目数 (), 计次)

字段 [计次].名称 ＝ 列表框1.取项目文本 (计次 － 1)

字段 [计次].类型 ＝ #文本型

字段 [计次].最大文本长度 ＝ 20

.计次循环尾 ()

创建 (取运行目录 () ＋ “\” ＋ 编辑框1.内容, 字段)

.子程序 _列表框1_列表项被选择

编辑框1.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)

.子程序 清空编辑框

编辑框1.内容 ＝ “”

编辑框1.获取焦点 ()

---