易语言如何将EDB数据库中的内容查询到并且显示在编辑框中，控件有按钮，编辑框

Question

窗体图片和代码在下面：

代码如下：
******************************************************************************
.版本 2
.程序集 窗口程序集1
.子程序 _窗口1_创建完毕
打开 (取运行目录 () ＋ “\Customer_data.edb”, , , , , , )

.子程序 _按钮2_被单击
加空记录 ()
写 (#会员姓名, 编辑框1.内容)
写 (#会员卡号, 到数值 (编辑框2.内容))
写 (#消费金额, 到数值 (编辑框3.内容))
写 (#消费余额, 到数值 (编辑框4.内容))
写 (#消费日期, 编辑框5.内容)
写 (#备注, 编辑框6.内容)
信息框 (“数据添加完成！”, #信息图标, )
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”
编辑框4.内容 ＝ “”
编辑框5.内容 ＝ “”
编辑框6.内容 ＝ “”
.子程序 _按钮1_被单击
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”
编辑框4.内容 ＝ “”
编辑框5.内容 ＝ “”
编辑框6.内容 ＝ “”
编辑框1.加入文本 (读 (#会员姓名))
编辑框2.加入文本 (到文本 (读 (#会员卡号)))
编辑框3.加入文本 (到文本 (读 (#消费金额)))
编辑框4.加入文本 (到文本 (读 (#消费余额)))
编辑框5.加入文本 (到文本 (读 (#消费日期)))
编辑框6.加入文本 (读 (#备注))
.子程序 _按钮7_被单击
.如果真 (信息框 (“您确定要清空整个数据库吗，那样会丢失所有数据并且是不可逆的，确定继续吗？”, #确认取消钮 ＋ #警告图标, ) ＝ #确认钮)
清空 ()
.如果真结束
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”
编辑框4.内容 ＝ “”
编辑框5.内容 ＝ “”
编辑框6.内容 ＝ “”

.子程序 _按钮3_被单击
.如果真 (信息框 (“您确定要删除当前数据吗，那样会丢失当前记录数据并且是不可逆的，确定继续吗？”, #确认取消钮 ＋ #警告图标, ) ＝ #确认钮)
删除 ()
彻底删除 ()
.如果真结束
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”
编辑框4.内容 ＝ “”
编辑框5.内容 ＝ “”
编辑框6.内容 ＝ “”

.子程序 _按钮4_被单击
销毁 ()
.子程序 _按钮5_被单击

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

**************************************************************************************************
其他的都做完了，就差这两个按钮了，就是想通过这两个按钮用索引查询数据库中的内容，并且将查询到的内容显示在上面的6个编辑框中，这样利于删改，请高人指导，谢谢啦。

Answer 1

不知道你的姓名字段和卡号字段是什么 我这里将其定义为name和cardid 并且name是第一列,cardid是第二列 两个编辑框的名字分别为name和card 按钮为名字查询 和 卡号查询

.版本 2
.子程序 _名字查询_被单击
.判断开始 (查找 (读 (1) ＝ name.内容) ＝ 真)
' 找到了就执行读取数据事件
.默认
' 否则弹出错误提示
.判断结束
.子程序 _卡号查询_被单击
.判断开始 (查找 (读 (2) ＝ card.内容) ＝ 真)
' 找到了就执行读取数据事件
.默认
' 否则弹出错误提示
.判断结束

事件你上面代码那么多 懒得写了 自己填充 还有另外一个小建议

看到lz有很多 编辑框X.内容=""

不觉得很繁琐么?使用命令 连续赋值(,) 即可 如

连续赋值(“”,编辑框1.内容,编辑框2.内容)

即可把两个编辑框的内容都变成"" 要添加更多编辑框 只要后面加个 , 然后就可以了 例如如果是三个编辑框

连续赋值(“”,编辑框1.内容,编辑框2.内容,编辑框3.内容)

甚至更多

连续赋值(“”,编辑框1.内容,编辑框2.内容,编辑框3.内容,编辑框4.内容,编辑框5.内容)

lz不懂追问 手打望采纳