|

10精币
.版本 2
.支持库 eDB
.子程序 _按钮_添加_被单击
记录集1.置连接 (全局_数据库)
记录集1.打开 (“zhgl”, 2, )
.如果真 (编辑框_账号.内容 = “” 或 组合框_类别.现行选中项 = 0 或 编辑框_密码.内容 = “” 或 编辑框_密保答案一.内容 = “” 或 编辑框_密保答案二.内容 = “” 或 编辑框_密保答案三.内容 = “” 或 组合框_密保问题一.现行选中项 = 0 或 组合框_密保问题二.现行选中项 = 0 或 组合框_密保问题三.现行选中项 = 0)
信息框 (“请输入完整资料!”, 64, “提示”, )
返回 ()
.如果真结束
记录集1.添加 ()
记录集1.写文本 (“zhgl_type”, 到文本 (组合框_类别.内容))
记录集1.写文本 (“zhgl_name”, 到文本 (编辑框_账号.内容))
记录集1.写文本 (“zhgl_password”, 到文本 (编辑框_密码.内容))
记录集1.写文本 (“zhgl_mbwt1”, 到文本 (组合框_密保问题一.内容))
记录集1.写文本 (“zhgl_mbta1”, 到文本 (编辑框_密保答案一.内容))
记录集1.写文本 (“zhgl_mbwt2”, 到文本 (组合框_密保问题二.内容))
记录集1.写文本 (“zhgl_mbta2”, 到文本 (编辑框_密保答案二.内容))
记录集1.写文本 (“zhgl_mbwt3”, 到文本 (组合框_密保问题三.内容))
记录集1.写文本 (“zhgl_mbta3”, 到文本 (编辑框_密保答案三.内容))
记录集1.写文本 (“zhgl_note”, 到文本 (编辑框_备注.内容))
信息框 (“添加成功!”, 64, “提示”, )
连接 () 这个是_启动窗口
大神帮看看这个代码,这个代码应该是没有错的,怎么点击添加的时候第一次是显示添加成功了但是没有添加数据到数据库里面,第二次以后怎么点都是成功添加进去的!
|
最佳答案
查看完整内容
还是sql语句写起来方便
"ins删除ert into zhgl (zhgl_type,zhgl_name,zhgl_password) values ('"+组合框_类别.内容+"','"+编辑框_账号.内容+"','"+编辑框_密码.内容+"')"
只写了3个字段,剩下的字段也是这么写,学数据库 最好就要掌握基本的 增删改查 几个sql语句
回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。 友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。 快捷通道:申请荣誉值 →
|