展开全部
我用的62616964757a686964616fe78988e69d8331333361313238方法和你的不太一样,但也是可以检验的,代码如下:.版本 2
.支持库 eAPI
.支持库 mysql
.程序集 窗口程序集_启动窗口
.程序集变量 mysql句柄, 整数型
.程序集变量 记录集句柄, 整数型, , , mysql专用
.程序集变量 记录集数量, 整数型, , , mysql专用
.程序集变量 临时_密码, 文本型, , , 读取mysql的用户密码
.程序集变量 临时_账号, 文本型, , , 读取mysql的用户账号
.程序集变量 检验密码, 文本型, , , 用于转换用户输入的密码
.子程序 __启动窗口_创建完毕
.子程序 登录_连接mysql, 逻辑型
' ----------网络连接方面验证----------
.如果真 (是否与互联网连接 () = 假)
信息框 (“网络未连接!”, 0, , )
返回 (假)
.如果真结束
mysql句柄 = 连接MySql (“MySQL地址”, “用户名”, “密码”, “表名”, 端口) ' 连接网络MySQL
输出调试文本 (mysql句柄)
.如果真 (mysql句柄 = 0)
信息框 (“连接服务器失败!”, 0, , )
返回 (假)
.如果真结束
返回 (真)
.子程序 _按钮_登录_被单击
.如果真 (登录_连接mysql () = 假)
信息框 (“网络连接失败!”, 0, , )
销毁 ()
.如果真结束
执行SQL语句 (mysql句柄, “SELECT * FROM zg_users1”)
记录集句柄 = 取记录集 (mysql句柄)
记录集数量 = 取记录集行数 (记录集句柄)
.计次循环首 (记录集数量, i)
读字段值 (记录集句柄, “username”, 临时_账号)
' 临时_账号 = 到文本 (编码转换 (到字节集 (临时_账号), #编码_UTF_8, #编码_GBK, )) ‘有些mysql的编码易语言无法读取,用此命令可转换编码。注意:仅需文本型数据转码,其他类型数据无需转码
.如果真 (编辑框_账号.内容 = 临时_账号)
读字段值 (记录集句柄, “password”, 临时_密码)
检验密码 = 编辑框_密码.内容
.如果 (检验密码 = 临时_密码)
信息框 (“登录成功!”, 0, , )
断开MySql (mysql句柄)
.否则
.如果结束
.如果真结束
.计次循环尾 ()
代码我有点删减过了,如果有错误追问我。