EDB 数据库 *** 作

版本 2

局部变量 变量1, 整数型

局部变量 变量2, 整数型

局部变量 result, 逻辑型

打开 (, , , , , , )

置当前库 ()

到首记录 ()

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

如果真 (result)

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

返回 ()

如果真结束

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

内容自己填充下就可以了

首先,这个"编号"是程序集变量,整数型,我不知道你"小号编号"是什么变量,其次要打开数据库

如果是"修改"一定要点击"超级列表框",通过"子程序 _超级列表框1_左键单击表项",就把"编号"也赋值了,这个值也是数据库中记录号然后通过记录号修改数据库,再经过"列表刷新 ()"子程序,刷新超级列表框就是这个思路

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

版本 2

支持库 iext

子程序 _超级列表框1_左键单击表项

超级列表框1整行选择 ＝ 真

编辑框1内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 1)

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

编号 ＝ 到整数 (超级列表框1取标题 (超级列表框1现行选中项, 0))

编辑框2内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 2)

编辑框3内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 3)

编辑框4内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 4)

编辑框5内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 5)

编辑框6内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 6)

编辑框7内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 7)

编辑框8内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 8)

编辑框9内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 9)

编辑框10内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 10)

编辑框11内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 11)

编辑框12内容 ＝ 超级列表框1取标题 (超级列表框1现行选中项, 12)

如果真结束

子程序 _按钮1_被单击, , , 添加

加记录 (到文本 (取记录数 () ＋ 1), 编辑框1内容, 编辑框2内容, 编辑框3内容, 编辑框4内容, 编辑框5内容, 编辑框6内容, 编辑框12内容, 编辑框7内容, 编辑框8内容, 编辑框9内容, 编辑框10内容, 编辑框11内容)

列表刷新 ()

子程序 _按钮2_被单击, , , 修改

置当前库 ()

到首记录 ()

跳到 (编号)

修改 (, 编辑框1内容, 编辑框2内容, 编辑框3内容, 编辑框4内容, 编辑框5内容, 编辑框6内容, 编辑框12内容, 编辑框7内容, 编辑框8内容, 编辑框9内容, 编辑框10内容, 编辑框11内容)

列表刷新 ()

子程序 _按钮3_被单击, , , 删除

置当前库 ()

如果真 (信息框 (“真要删除这个小号吗”, #询问图标 ＋ #确认取消钮, “提示!”) ＝ #确认钮)

跳到 (编号)

删除 ()

彻底删除 ()

到首记录 ()

编号 ＝ 1

判断循环首 (尾记录后 () ＝ 假)

修改 (到文本 (编号), , , , , , , , , , , , )

编号 ＝ 编号 ＋ 1

跳过 ()

判断循环尾 ()

如果真结束

列表刷新 ()

EDB是易语言里面最简单的数据库了，要想读字段的内容很简单，下面是我这几天写的一个小程序，你可以参考一下：

打开

(取当前目录

()

＋

“\data\用户档案edb”,

,

真,

,

,

,

)

首先要打开一个数据库

判断循环首

(尾记录后

()

＝

假)

超级列表框1插入表项

(,

,

,

,

,

)

超级列表框1置标题

(超级列表框1取表项数

()

－

1,

0,

到文本

(读

(“编号”)))

超级列表框1置标题

(超级列表框1取表项数

()

－

1,

1,

到文本

(读

(“科目名称”)))

跳过

()

判断循环尾

()

关闭

()

里面的读

(“编号”)就是读出当前记录的编号字段，如果要改数据，就用

写（）这个命令

你每行命令前面都有一个红色的+号，你点开它，就知道里面应该写什么了

说明:"启动窗口"中只有一个编辑框和一个列表框,当编辑框中敲了"回车键"，列表框中就加入一个项目,当编辑框中的文本最后有"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获取焦点 ()

以上就是关于EDB 数据库 *** 作全部的内容，包括:EDB 数据库 *** 作、易语言超级列表框 如何修改选中项的信息写到EDB数据库（内附图片）、易语言edb数据库简单问题。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！