|
.版本 2
.支持库 eDB
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
.局部变量 SQL语句, 文本型
.局部变量 yes, 文本型
.局部变量 计次, 整数型
.局部变量 no, 文本型
.局部变量 账户, 文本型
数据库连接1.连接Access (取运行目录 () + “\用户库.mdb”, “”)
SQL语句 = “SELECT * FROM 用户表 WHERE 账户='” + 编辑框1.内容 + “'”
数据库连接1.执行SQL (SQL语句, )
记录集1.置连接 (数据库连接1)
记录集1.打开 (“用户表”, #数据表名, )
.计次循环首 (记录集1.记录数量, 计次)
记录集1.移到 (计次 - 1)
记录集1.读文本 (“账户”, 账户)
.如果真 (账户 = 编辑框1.内容)
信息框 (“该账户已被zc”, 0, , )
返回 ()
.如果真结束
.计次循环尾 ()
SQL语句 = “INSERT INTO 用户表(账户,密码) VALUES ('” + 编辑框1.内容 + “','” + 编辑框2.内容 + “')”
.判断开始 (数据库连接1.执行SQL (SQL语句, ) = 真)
信息框 (“zc成功”, 0, , )
.默认
信息框 (“zc失败”, 0, , )
.判断结束
.判断开始 (单选框1.选中 = 真)
信息框 (“单选框1被选中!”, 0, , )
.判断 (单选框2.选中 = 真)
信息框 (“单选框2被选中!”, 0, , )
.判断 (单选框1.选中 = 假 且 单选框2.选中 = 假)
信息框 (“未选中任何单选框!”, 0, , )
.默认
.判断结束
数据库连接1.关闭 ()
记录集1.关闭 ()
这是代码,如何让单选框到状态也保存到数据库里,例如这边选择单选框1,数据库是否字段也选中,选择单选框2,数据库是否字段2也选中,两个都没选,数据库是否字段也不选中。望大神们指教!!!
|
|