Foxtable(狐表)用户栏目专家坐堂 → 网页不能登录


  共有2735人关注过本帖树形打印复制链接

主题:网页不能登录

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6912 积分:43778 威望:0 精华:0 注册:2009/3/2 14:07:00
网页不能登录  发帖心情 Post By:2017/3/1 13:58:00 [只看该作者]

登录页面,输入用户名和密码,点登录,页面不跳转。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.foxdb

[此贴子已经被作者于2017/3/1 14:14:34编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6912 积分:43778 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/3/1 14:35:00 [只看该作者]

有解吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112396 积分:572248 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/1 14:42:00 [只看该作者]

我测试没有问题

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112396 积分:572248 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/1 14:43:00 [只看该作者]

拷贝的是帮助的代码,注意登录用户和密码是写死的

 

If UserName = "张三" AndAlso Password = "888" Then  '实际使用的时候,请改为从数据库读取用户名和密码进行比较
    Verified  = 
True

ElseIf
 Username = "李四" AndAlso Password="999" Then
    Verified  = 
True

End
 If


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/1 15:18:00 [只看该作者]

以下是引用lihe60在2017/3/1 14:35:00的发言:
有解吗?

 

你有看代码吗?账号和密码你填什么?

 

你可以加入msgbox调试。


 回到顶部
帅哥哟,离线,有人找我吗?
nothing
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:517 积分:3383 威望:0 精华:0 注册:2013/1/3 17:08:00
  发帖心情 Post By:2017/3/1 15:56:00 [只看该作者]

前面的例子测试都没问题,帮助写得很详细,赞一个
到微信开发碰到点小问题

 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6912 积分:43778 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/3/2 13:03:00 [只看该作者]

新上传了附件,如何优化代码,可以登录到首页。

网络监视器中的代码不能改动

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:通用模板bs.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112396 积分:572248 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/2 14:20:00 [只看该作者]

 

假如有一个用户管理表,4楼的代码改为:

 

Dim dr As DataRow = DataTables("用户管理").Find("名称='" & UserName & "' And 密码='" & Password & "'")
If dr IsNot Nothing Then Verified  = True


 回到顶部
帅哥哟,离线,有人找我吗?
lihe60
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6912 积分:43778 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2017/3/2 14:29:00 [只看该作者]

以下是引用有点蓝在2017/3/2 14:20:00的发言:

 

假如有一个用户管理表,4楼的代码改为:

 

Dim dr As DataRow = DataTables("用户管理").Find("名称='" & UserName & "' And 密码='" & Password & "'")
If dr IsNot Nothing Then Verified  = True

是登录界面不能跳转到首页


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112396 积分:572248 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/3/2 14:49:00 [只看该作者]

网络监视器的代码还必须改,不改不行,去掉select case,保留函数调用即可

 

 

Functions.Execute("login",e)


 回到顶部
总数 16 1 2 下一页