如何将易语言编辑框内的值保存到数据库edb中呢?
展开全部
给你做一个电话号码薄的例子,供你借鉴
先建一个电话号码薄的窗口:姓名编辑框,工作单位编辑框,电话号码编辑框。并添加一个“按钮1”。然后创建“电话号码薄.edb”数据库。在窗口程序中填入:
.版本 2
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果 (信息框 (“请检查填写是否正确,登记后无法更改,确定吗?”, 4, ) = #是钮)
.如果 (姓名编辑框.内容 ≠ “”)
.如果 (单位编辑框.内容 ≠ “”)
.如果 (号码编辑框.内容 ≠ “”)
打开 (“电话号码薄.edb”, , , , , , )
置当前库 (“电话号码薄.edb”)
加空记录 ()
跳到 (取记录号 ())
写字段 (#序号, “电话号码薄”, 到文本 (取记录数 ()))
写字段 (#姓名, “电话号码薄”, 到文本 (姓名编辑框.内容))
写字段 (#工作单位, “电话号码薄”, 到文本 (单位编辑框.内容))
写字段 (#电话号码, “电话号码薄”, 到文本 (号码编辑框.内容))
.否则
信息框 (“姓名未填,请补填”, 0, )
.如果结束
.否则
信息框 (“工作单位未填,请补填”, 0, )
.如果结束
.否则
信息框 (“电话号码未填,请补填”, 0, )
.如果结束
.否则
信息框 (“资料填写不完整,登记不成功,请核对重新输入”, 0, )
.如果结束
不知您弄明白没有
先建一个电话号码薄的窗口:姓名编辑框,工作单位编辑框,电话号码编辑框。并添加一个“按钮1”。然后创建“电话号码薄.edb”数据库。在窗口程序中填入:
.版本 2
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.如果 (信息框 (“请检查填写是否正确,登记后无法更改,确定吗?”, 4, ) = #是钮)
.如果 (姓名编辑框.内容 ≠ “”)
.如果 (单位编辑框.内容 ≠ “”)
.如果 (号码编辑框.内容 ≠ “”)
打开 (“电话号码薄.edb”, , , , , , )
置当前库 (“电话号码薄.edb”)
加空记录 ()
跳到 (取记录号 ())
写字段 (#序号, “电话号码薄”, 到文本 (取记录数 ()))
写字段 (#姓名, “电话号码薄”, 到文本 (姓名编辑框.内容))
写字段 (#工作单位, “电话号码薄”, 到文本 (单位编辑框.内容))
写字段 (#电话号码, “电话号码薄”, 到文本 (号码编辑框.内容))
.否则
信息框 (“姓名未填,请补填”, 0, )
.如果结束
.否则
信息框 (“工作单位未填,请补填”, 0, )
.如果结束
.否则
信息框 (“电话号码未填,请补填”, 0, )
.如果结束
.否则
信息框 (“资料填写不完整,登记不成功,请核对重新输入”, 0, )
.如果结束
不知您弄明白没有
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询