如何将易语言编辑框内的值保存到数据库edb中呢?
答案:2 悬赏:0 手机版
解决时间 2021-03-02 02:23
- 提问者网友:暗中人
- 2021-03-01 15:03
如何将易语言编辑框内的值保存到数据库edb中呢?
最佳答案
- 五星知识达人网友:愁杀梦里人
- 2021-03-01 16:21
给你做一个电话号码薄的例子,供你借鉴
先建一个电话号码薄的窗口:姓名编辑框,工作单位编辑框,电话号码编辑框。并添加一个“按钮1”。然后创建“电话号码薄.edb”数据库。在窗口程序中填入:
.版本 2
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果 (信息框 (“请检查填写是否正确,登记后无法更改,确定吗?”, 4, ) = #是钮)
.如果 (姓名编辑框.内容 ≠ “”)
.如果 (单位编辑框.内容 ≠ “”)
.如果 (号码编辑框.内容 ≠ “”)
打开 (“电话号码薄.edb”, , , , , , )
置当前库 (“电话号码薄.edb”)
加空记录 ()
跳到 (取记录号 ())
写字段 (#序号, “电话号码薄”, 到文本 (取记录数 ()))
写字段 (#姓名, “电话号码薄”, 到文本 (姓名编辑框.内容))
写字段 (#工作单位, “电话号码薄”, 到文本 (单位编辑框.内容))
写字段 (#电话号码, “电话号码薄”, 到文本 (号码编辑框.内容))
.否则
信息框 (“姓名未填,请补填”, 0, )
.如果结束
.否则
信息框 (“工作单位未填,请补填”, 0, )
.如果结束
.否则
信息框 (“电话号码未填,请补填”, 0, )
.如果结束
.否则
信息框 (“资料填写不完整,登记不成功,请核对重新输入”, 0, )
.如果结束
不知您弄明白没有
先建一个电话号码薄的窗口:姓名编辑框,工作单位编辑框,电话号码编辑框。并添加一个“按钮1”。然后创建“电话号码薄.edb”数据库。在窗口程序中填入:
.版本 2
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果 (信息框 (“请检查填写是否正确,登记后无法更改,确定吗?”, 4, ) = #是钮)
.如果 (姓名编辑框.内容 ≠ “”)
.如果 (单位编辑框.内容 ≠ “”)
.如果 (号码编辑框.内容 ≠ “”)
打开 (“电话号码薄.edb”, , , , , , )
置当前库 (“电话号码薄.edb”)
加空记录 ()
跳到 (取记录号 ())
写字段 (#序号, “电话号码薄”, 到文本 (取记录数 ()))
写字段 (#姓名, “电话号码薄”, 到文本 (姓名编辑框.内容))
写字段 (#工作单位, “电话号码薄”, 到文本 (单位编辑框.内容))
写字段 (#电话号码, “电话号码薄”, 到文本 (号码编辑框.内容))
.否则
信息框 (“姓名未填,请补填”, 0, )
.如果结束
.否则
信息框 (“工作单位未填,请补填”, 0, )
.如果结束
.否则
信息框 (“电话号码未填,请补填”, 0, )
.如果结束
.否则
信息框 (“资料填写不完整,登记不成功,请核对重新输入”, 0, )
.如果结束
不知您弄明白没有
全部回答
- 1楼网友:举杯邀酒敬孤独
- 2021-03-01 16:39
不知道你的姓名字段和卡号字段是什么 我这里将其定义为name和cardid 并且name是第一列,cardid是第二列 两个编辑框的名字分别为name和card 按钮为名字查询 和 卡号查询
.版本 2
.子程序 _名字查询_被单击
.判断开始 (查找 (读 (1) = name.内容) = 真)
' 找到了就执行读取数据事件
.默认
' 否则弹出错误提示
.判断结束
.子程序 _卡号查询_被单击
.判断开始 (查找 (读 (2) = card.内容) = 真)
' 找到了就执行读取数据事件
.默认
' 否则弹出错误提示
.判断结束
事件你上面代码那么多 懒得写了 自己填充 还有另外一个小建议
看到lz有很多 编辑框x.内容=""
不觉得很繁琐么?使用命令 连续赋值(,) 即可 如
连续赋值(“”,编辑框1.内容,编辑框2.内容)
即可把两个编辑框的内容都变成"" 要添加更多编辑框 只要后面加个 , 然后就可以了 例如如果是三个编辑框
连续赋值(“”,编辑框1.内容,编辑框2.内容,编辑框3.内容)
甚至更多
连续赋值(“”,编辑框1.内容,编辑框2.内容,编辑框3.内容,编辑框4.内容,编辑框5.内容)
lz不懂追问 手打望采纳
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯