第④期十二课mysqlzc登录 cha询实例 - 精易论坛

子程序名	返回值类型	公开	备注
_按钮_zc_被单击

用户名＝编辑框_zc用户名.内容
密码＝编辑框_zc密码.内容
确认密码＝编辑框_zc确认密码.内容

如果真 (用户名＝ “” 或密码＝ “” 或确认密码＝ “”)

信息框 (“参数不能为空”, 0, , )

返回 ()

如果真 (密码 ≠ 确认密码)

信息框 (“两次密码不一致”, 0, , )

返回 ()

如果真 (连接句柄＝ 0)

连接句柄＝连接MySql (“localhost”, “root”, “root”, “e”, )

如果真 (连接句柄＝ 0)

信息框 (“连接数据库失败了”, 0, , )

返回 ()
sql ＝ “insert into users values('','” ＋编码_gb2312到utf8 (用户名) ＋ “','” ＋编码_gb2312到utf8 (密码) ＋ “')”
执行结果＝执行SQL语句 (连接句柄, sql)

如果真 (执行结果＝假)

信息框 (“zc数据失败了”, 0, , )

返回 ()
信息框 (“zc成功”, 0, , )
选择夹1.现行子夹＝ 1

i支持库列表	支持库注释
mysql	MySql支持库

子程序名	返回值类型	公开	备注
_按钮_登录_被单击

用户名＝编辑框_登录用户名.内容
密码＝编辑框_登录密码.内容

如果真 (用户名＝ “” 或密码＝ “”)

信息框 (“参数不能为空”, 0, , )

返回 ()

如果真 (连接句柄＝ 0)

连接句柄＝连接MySql (“localhost”, “root”, “root”, “e”, )
' 调试输出 (连接句柄)

如果真 (连接句柄＝ 0)

信息框 (“链接数据库失败了”, 0, , )

返回 ()
sql ＝ “select * from users where username='” ＋用户名＋ “' and password='” ＋密码＋ “'”
' 调试输出 (sql)
执行结果＝执行SQL语句 (连接句柄, sql)

如果真 (执行结果＝假)

信息框 (“用户名或密码不正确”, 0, , )

返回 ()
信息框 (“登录成功了”, 0, , )
载入 (窗口1, , 真)

i支持库列表	支持库注释
mysql	MySql支持库