易语言:怎么把多个编辑框内容存edb指定的位置

怎么把多个编辑框内容存edb指定的位置,或者直接存页面,菜鸟一枚,门外汉,勿用概论,来源码谢谢

确保数据能够写入到数据库,首先要注意建立数据库结的结构,例如地址这样比较长而且不确定字数的文本,在数据库中就要选择文本类型,并且将长度写到最大,个人建议直接选择备注类型.图例:

代码部分比较简单

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

.如果真 (取反 (打开 (取运行目录 () + “\db.edb”, , , , , , )))
    信息框 (“数据库读取失败.”, 0, , )
    返回 ()
.如果真结束


.子程序 _按钮_保存_被单击

加空记录 ()
.如果真 (取反 (写 (1, 编辑框_姓名.内容)))
    信息框 (“姓名写入失败.”, 0, , )
    编辑框_姓名.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (2, 编辑框_身份证.内容)))
    信息框 (“身份证写入失败.”, 0, , )
    编辑框_身份证.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (3, 编辑框_身份证地址.内容)))
    信息框 (“身份证地址写入失败.”, 0, , )
    编辑框_身份证地址.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (4, 编辑框_性别.内容)))
    信息框 (“性别写入失败.”, 0, , )
    编辑框_性别.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (5, 编辑框_婚否.内容)))
    信息框 (“婚否写入失败.”, 0, , )
    编辑框_婚否.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (6, 编辑框_手机.内容)))
    信息框 (“手机号写入失败.”, 0, , )
    编辑框_手机.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (7, 编辑框_座机.内容)))
    信息框 (“座机写入失败.”, 0, , )
    编辑框_座机.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (8, 编辑框_现住址.内容)))
    信息框 (“现住址写入失败.”, 0, , )
    编辑框_现住址.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (9, 编辑框_住房情况.内容)))
    信息框 (“住房情况写入失败.”, 0, , )
    编辑框_住房情况.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (10, 编辑框_单位名称.内容)))
    信息框 (“单位名称写入失败.”, 0, , )
    编辑框_单位名称.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (11, 编辑框_单位地址.内容)))
    信息框 (“单位地址写入失败.”, 0, , )
    编辑框_单位地址.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (12, 编辑框_月收入.内容)))
    信息框 (“月收入写入失败.”, 0, , )
    编辑框_月收入.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (13, 编辑框_社保号.内容)))
    信息框 (“社保号写入失败.”, 0, , )
    编辑框_社保号.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (14, 编辑框_审批额度.内容)))
    信息框 (“审批额度写入失败.”, 0, , )
    编辑框_审批额度.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (15, 编辑框_办理类型.内容)))
    信息框 (“办理类型写入失败.”, 0, , )
    编辑框_办理类型.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (16, 编辑框_业务员.内容)))
    信息框 (“业务员写入失败.”, 0, , )
    编辑框_业务员.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (17, 编辑框_风控.内容)))
    信息框 (“风控写入失败.”, 0, , )
    编辑框_风控.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (18, 编辑框_外访.内容)))
    信息框 (“外访写入失败.”, 0, , )
    编辑框_外访.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (19, 编辑框_公司.内容)))
    信息框 (“公司写入失败.”, 0, , )
    编辑框_公司.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (20, 日期框_审批日期.今天)))
    信息框 (“审批日期写入失败.”, 0, , )
    日期框_审批日期.获取焦点 ()
    返回 ()
.如果真结束
.如果真 (取反 (写 (21, 日期框_续约日.今天)))
    信息框 (“续约日写入失败.”, 0, , )
    日期框_续约日.获取焦点 ()
    返回 ()
.如果真结束

信息框 (“信息已保存.”, 0, , )

.子程序 _按钮_清除_被单击

连续赋值 (“”, 编辑框_姓名.内容, 编辑框_身份证.内容, 编辑框_身份证地址.内容, 编辑框_性别.内容, 编辑框_婚否.内容, 编辑框_手机.内容, 编辑框_座机.内容, 编辑框_现住址.内容, 编辑框_住房情况.内容, 编辑框_单位名称.内容, 编辑框_单位地址.内容, 编辑框_月收入.内容, 编辑框_社保号.内容, 编辑框_审批额度.内容, 编辑框_办理类型.内容, 编辑框_业务员.内容, 编辑框_风控.内容, 编辑框_外访.内容, 编辑框_公司.内容)

.子程序 __启动窗口_将被销毁

全部关闭 ()

效果图:

打开记录编辑器观察结果:

如果出现写入失败,请检查数据库结构类型.

温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

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