关于登陆窗口的问题，究竟错在那里，请高手指教，急

QQ168138168 · 发表于 2011-3-17 12:55:04

我做了个登陆窗口，为什么总是出错，请高手指教一下，附上原码，登陆用户名是2，密码是2，谢谢

fsjoe · 发表于 2011-3-17 12:55:05

本帖最后由 fsjoe 于 2011-3-17 14:17 编辑

你的代码有几个地方不合理的,已经修改了,说明在代码中

mick0866 · 发表于 2011-3-17 13:23:12

你想改成什么样请说。我认为你红色部分错了 QQ截图未命名.jpg

无名小忧 · 发表于 2011-3-17 13:45:30

载入窗口一般都是假的用真的时候不多吧？

flyhsx · 发表于 2011-3-17 14:11:58

问题出在点击登录按钮后打开两次数据库，第一次打开后，后面就打开失败，所以“如果真 (打开 (取运行目录 () ＋ “\123456.edb”, , , , , “123”, ) ＝真)”这个永远不成立。未命名.jpg

代码已经帮你修正并能正常登录，具体见附近。

登陆.rar (38.53 KB, 下载次数: 9)

exit11 · 发表于 2011-3-17 14:14:19

本帖最后由冰点于 2011-3-18 09:49 编辑

.版本 2

.子程序 _登陆按钮_被单击

.如果真 (用户名_组合框.内容＝ “” 或密码_编辑框.内容＝ “”)
信息框 (“【用户名】或【密码】不能为空！”, #警告图标, )
返回 ()
.如果真结束

.如果真 (打开 (取运行目录 () ＋ “\123456.edb”, , , , , “123”, ) ＝真)
置当前库 (“123456”)
.计次循环首 (取记录数 (), )
      .如果 (读 (#用户名) ＝用户名_组合框.内容且读 (#密码) ＝密码_编辑框.内容)
         关闭 (取运行目录 () ＋ “\123456.edb”)
         销毁 ()
         载入 (主窗口, , 真)

         返回 ()
      .否则

      .如果结束
      跳过 ()
.计次循环尾 ()
信息框 (“用户名或密码错误”, 0, )
.如果真结束
关闭 (取运行目录 () ＋ “\123456.edb”)

airpppp · 发表于 2011-3-17 14:17:25

乱,代码好多错误
楼上的应该都回答全了,就不整了

QQ168138168 · 发表于 2011-3-17 14:31:36

fsjoe 大人先答的，我选择他的{:3_213:}其他名位大人，多谢多谢！{:3_213:}

		自动登录	找回密码
密码			注册

[已解决] 关于登陆窗口的问题，究竟错在那里，请高手指教，急

最佳答案

评分

评分

评分