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

窗体图片和代码在下面:

代码如下:
******************************************************************************
.版本 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个编辑框中,这样利于删改,请高人指导,谢谢啦。

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

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

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

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

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

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

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

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

甚至更多

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

lz不懂追问 手打望采纳本回答被网友采纳

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网