易语言mssql服务器做验证第一个对其他的全部错误

wlakys

第一个账号密码正确第二个输入正确信息提示失败而且只能用中文表用user英文直接打开表失败

  

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

变量名	类 型	静态	数组	备 注
cha询结果	整数型
用户密码是否正确	文本型
操作用户名	文本型

记录集1.置连接 (数据库连接1)
调试输出 (记录集1.打开 (“ 用户”, #数据表名, ))
记录集1.过滤记录 (“帐号='” ＋ 用户名.内容 ＋ “' and 密码='” ＋ 密码.内容 ＋ “'”)
记录集1.读文本 (0, 用户密码是否正确)
调试输出 (用户密码是否正确)
如果 (到数值 (用户密码是否正确) ＝ 1)
操作用户名 ＝ 用户名.内容
数据库连接1.关闭 ()
记录集1.关闭 ()
信息框 (“登陆成功”, 0, “成功:”)
载入 (主程序窗口, , 真)
_启动窗口.销毁 ()
' _启动窗口.销毁 (真)
如果 (用户名.内容 ＝ “”)
信息框 (“请填写用户名”, 0, “提示:”)
如果 (密码.内容 ＝ “”)
信息框 (“请填写密码”, 0, “提示:”)


信息框 (“用户名或密码错误！”, 0, “错误:”)
' 用户名.内容 ＝ “”
密码.内容 ＝ “”
密码.获取焦点 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 spec<br /> <br /> .子程序 _登陆按钮_被单击<br /> .局部变量 cha询结果, 整数型<br /> .局部变量 用户密码是否正确, 文本型<br /> .局部变量 操作用户名, 文本型<br /> <br /> 记录集1.置连接 (数据库连接1)<br /> 调试输出 (记录集1.打开 (“ 用户”, #数据表名, ))<br /> <br /> 记录集1.过滤记录 (“帐号='” ＋ 用户名.内容 ＋ “' and 密码='” ＋ 密码.内容 ＋ “'”)<br /> 记录集1.读文本 (0, 用户密码是否正确)<br /> 调试输出 (用户密码是否正确)<br /> .如果 (到数值 (用户密码是否正确) ＝ 1)<br />     操作用户名 ＝ 用户名.内容<br />     数据库连接1.关闭 ()<br />     记录集1.关闭 ()<br />     信息框 (“登陆成功”, 0, “成功:”)<br /> <br />     载入 (主程序窗口, , 真)<br />     _启动窗口.销毁 ()<br />     ' _启动窗口.销毁 (真)<br /> .否则<br />     .如果 (用户名.内容 ＝ “”)<br />         信息框 (“请填写用户名”, 0, “提示:”)<br />     .否则<br />         .如果 (密码.内容 ＝ “”)<br />             信息框 (“请填写密码”, 0, “提示:”)<br />         .否则<br /> <br />             信息框 (“用户名或密码错误！”, 0, “错误:”)<br />             ' 用户名.内容 ＝ “”<br />             密码.内容 ＝ “”<br />             密码.获取焦点 ()

帮忙看看怎么回事

  

如果 (数据库连接1.连接SQLServer (“19.16.2.3”, “wlakys”, “sa”, “123456”) ＝ 真)
如果 (记录集1.置连接 (数据库连接1) ＝ 真)
' 信息框 (“连接数据库成功”, 0, )
信息框 (“记录集置连接失败”, 0, )

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

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> .如果 (数据库连接1.连接SQLServer (“19.16.2.3”, “wlakys”, “sa”, “123456”) ＝ 真)<br />     .如果 (记录集1.置连接 (数据库连接1) ＝ 真)<br />         ' 信息框 (“连接数据库成功”, 0, )<br />     .否则<br />         信息框 (“记录集置连接失败”, 0, )<br />     .如果结束<br /> <br /> .否则<br />     信息框 (“连接数据库失败”, 0, )

寒潮

wlakys 发表于 2018-6-10 09:25

按你这样来写的话：

  

记录集1.置连接 (数据库连接1)
记录集1.打开 (“用户”, #数据表名, )
记录集1.过滤记录 (“帐号='” ＋ 用户名.内容 ＋ “' and 密码='” ＋ 密码.内容 ＋ “'”)
记录集1.读文本 (0, 用户密码是否正确)
如果 (到数值 (用户密码是否正确) ＝ 1)
操作用户名 ＝ 用户名.内容
数据库连接1.关闭 ()
记录集1.关闭 ()
信息框 (“登陆成功”, 0, “成功:”)

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> 记录集1.置连接 (数据库连接1)<br /> 记录集1.打开 (“用户”, #数据表名, )<br /> 记录集1.过滤记录 (“帐号='” ＋ 用户名.内容 ＋ “' and 密码='” ＋ 密码.内容 ＋ “'”)<br /> 记录集1.读文本 (0, 用户密码是否正确)<br /> .如果 (到数值 (用户密码是否正确) ＝ 1)<br />     操作用户名 ＝ 用户名.内容<br />     数据库连接1.关闭 ()<br />     记录集1.关闭 ()<br />     信息框 (“登陆成功”, 0, “成功:”)

在'记录集1.读文本 (0, 用户密码是否正确)"这里，你读取的是“账号”这个字段，但是在下边的判断中“到数值 (用户密码是否正确) ＝ 1”这里，只有第一条记录的账号内容是“1”，而另一个则是“wh**”，第三个为“3”，肯定是错误的。
我觉得，在过滤记录那里，如果返回真，说明就有和用户名、密码相符的记录，直接判断如果返回真就让他登录好了。
个人理解 好长时间没这样用了，都是用SQL进行cha询，可能不对，你自己试一试。

走一回

记录集打开后，正确的用户名后，为什么又要关闭记录集呢？

wlakys

走一回 发表于 2018-6-9 15:43
记录集打开后，正确的用户名后，为什么又要关闭记录集呢？

正确后就关闭这个数据不正确不会关的

补充内容 (2018-6-9 15:51):
打比方有10个账号信息，现在只有第一个可以其他9个信息密码账号对不对都直接提示错误

寒潮

一般来说，数据库连接，连接sql成功之后，只有在程序结束后才关闭。
而记录集则cha询后即关闭。
你的问题是不是就是因为第一个cha询到了而关闭了数据库连接，后续的cha询就因为连接不上数据库而失败呢？

wlakys

寒潮 发表于 2018-6-10 08:48
一般来说，数据库连接，连接sql成功之后，只有在程序结束后才关闭。
而记录集则cha询后即关闭。
你的 ...

不是这个原因貌似，现在3个用户，第一个可以正常验证其他两个用户怎么验证都是错的

wlakys

wlakys 发表于 2018-6-10 09:24
不是这个原因貌似，现在3个用户，第一个可以正常验证其他两个用户怎么验证都是错的

通过MS-SQL数据库中的账号登陆软件.e (5.77 KB, 下载次数: 10)

2018-6-10 09:25 上传

点击文件名下载附件