.版本 2
.支持库 iext
.支持库 eDB
.子程序 _确定按钮_被单击
.如果 (按钮1.标题 = “s1”)
s添加 = “insert into 私用(日期,账号,密码,安全码,邮箱,密保问题1,密保回答1,密保问题2,密保回答2,官方网址,备注) values ('” + 账号_日期.内容 + “','” + 账号_账号.内容 + “','” + 账号_密码框.内容 + “','” + 账号_安全码.内容 + “','” + 账号_邮箱框.内容 + “','” + 账号_问题1.内容 + “','” + 账号_回答1.内容 + “','” + 账号_问题2.内容 + “','” + 账号_回答2.内容 + “','” + 账号_官网.内容 + “','” + 账号_备注.内容 + “')”
透明标签12.标题 = “添加成功”
.判断开始 (数据库连接1.执行SQL (s添加, ) = 假)
透明标签12.标题 = “添加失败,请检查数据库是否连接”
账号_备注.内容 = “”
账号_官网.内容 = “”
' 账号_日期.内容 = “”
账号_账号.内容 = “”
账号_回答1.内容 = “”
账号_回答2.内容 = “”
账号_问题2.内容 = “”
账号_问题1.内容 = “”
账号_邮箱框.内容 = “”
账号_安全码.内容 = “”
账号_密码框.内容 = “”
.默认
.判断结束
' *** 缩略程序块 ***
确定按钮.可视 = 假
透明标签1.可视 = 假
透明标签2.可视 = 假
透明标签3.可视 = 假
透明标签4.可视 = 假
透明标签5.可视 = 假
透明标签6.可视 = 假
透明标签7.可视 = 假
透明标签8.可视 = 假
透明标签9.可视 = 假
透明标签10.可视 = 假
透明标签11.可视 = 假
账号_备注.可视 = 假
账号_官网.可视 = 假
账号_日期.可视 = 假
账号_账号.可视 = 假
账号_回答1.可视 = 假
账号_回答2.可视 = 假
账号_问题2.可视 = 假
账号_问题1.可视 = 假
账号_邮箱框.可视 = 假
账号_安全码.可视 = 假
账号_密码框.可视 = 假
透明标签12.标题 = “添加成功”
_账号记录_按钮_被单击 ()
.否则
.如果结束
.如果 (按钮1.标题 = “s2”)
' 缩略程序块
确定按钮.可视 = 真
透明标签1.可视 = 真
透明标签2.可视 = 真
透明标签3.可视 = 真
透明标签4.可视 = 真
透明标签5.可视 = 真
透明标签6.可视 = 真
透明标签7.可视 = 真
透明标签8.可视 = 真
透明标签9.可视 = 真
透明标签10.可视 = 真
透明标签11.可视 = 真
账号_备注.可视 = 真
账号_官网.可视 = 真
账号_日期.可视 = 真
账号_账号.可视 = 真
账号_回答1.可视 = 真
账号_回答2.可视 = 真
账号_问题2.可视 = 真
账号_问题1.可视 = 真
账号_邮箱框.可视 = 真
账号_安全码.可视 = 真
账号_密码框.可视 = 真
s临时 = “update 私用 set 账号='” + 账号_账号.内容 + “',密码='” + 账号_密码框.内容 + “',安全码='” + 账号_安全码.内容 + “',邮箱='” + 账号_邮箱框.内容 + “',密保问题1='” + 账号_问题1.内容 + “',密保回答1='” + 账号_回答1.内容 + “',密保问题2='” + 账号_问题2.内容 + “',密保回答2='” + 账号_回答2.内容 + “',官方网址='” + 账号_官网.内容 + “',备注='” + 账号_备注.内容 + “' where 编号=” + 列表框私用.取标题 (列表框私用.现行选中项, 0)
透明标签12.标题 = “更改成功”
.如果真 (数据库连接1.执行SQL (s临时) = 假)
透明标签12.标题 = “更改失败”
' *** 缩略程序块 ***
确定按钮.可视 = 假
透明标签1.可视 = 假
透明标签2.可视 = 假
透明标签3.可视 = 假
透明标签4.可视 = 假
透明标签5.可视 = 假
透明标签6.可视 = 假
透明标签7.可视 = 假
透明标签8.可视 = 假
透明标签9.可视 = 假
透明标签10.可视 = 假
透明标签11.可视 = 假
账号_备注.可视 = 假
账号_官网.可视 = 假
账号_日期.可视 = 假
账号_账号.可视 = 假
账号_回答1.可视 = 假
账号_回答2.可视 = 假
账号_问题2.可视 = 假
账号_问题1.可视 = 假
账号_邮箱框.可视 = 假
账号_安全码.可视 = 假
账号_密码框.可视 = 假
_账号记录_按钮_被单击 ()
.如果真结束
_账号记录_按钮_被单击 ()
' *** 缩略程序块 ***
确定按钮.可视 = 假
透明标签1.可视 = 假
透明标签2.可视 = 假
透明标签3.可视 = 假
透明标签4.可视 = 假
透明标签5.可视 = 假
透明标签6.可视 = 假
透明标签7.可视 = 假
透明标签8.可视 = 假
透明标签9.可视 = 假
透明标签10.可视 = 假
透明标签11.可视 = 假
账号_备注.可视 = 假
账号_官网.可视 = 假
账号_日期.可视 = 假
账号_账号.可视 = 假
账号_回答1.可视 = 假
账号_回答2.可视 = 假
账号_问题2.可视 = 假
账号_问题1.可视 = 假
账号_邮箱框.可视 = 假
账号_安全码.可视 = 假
账号_密码框.可视 = 假
透明标签12.标题 = “更改成功”
.否则
.如果结束