Foxtable(狐表)用户栏目专家坐堂 → [求助]自定义窗口登录,账号密码表只能看到自己(已解决)


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

主题:[求助]自定义窗口登录,账号密码表只能看到自己(已解决)

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


加好友 发短信
等级:狐精 帖子:3223 积分:21413 威望:0 精华:0 注册:2016/3/28 16:57:00
[求助]自定义窗口登录,账号密码表只能看到自己(已解决)  发帖心情 Post By:2016/6/20 13:27:00 [只看该作者]

我做的自定义窗口登录,注册时把信息保存在单独的表“账号密码”中,但每次登录只看得到自己的账号密码,没法进行授权管理,怎么才能看到所有注册的用户。
[此贴子已经被作者于2016/6/26 21:08:57编辑过]

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


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/6/20 15:02:00 [只看该作者]

自己设计的话,在用户表加载所有行就行啊。

其实默认就是加载所有行,你应该是设置了代码,导致加载当前用户这一行。

修改你的代码,让管理员加载所有行,普通用户只加载自己这一行。


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


加好友 发短信
等级:狐精 帖子:3223 积分:21413 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2016/6/20 15:58:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:1111.table

账号密码表中没有设置,狐爸帮我看看哪儿有问题呢?

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


加好友 发短信
等级:管理员 帖子:47511 积分:251479 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2016/6/20 16:16:00 [只看该作者]

问题在于你的登录窗口的账号输入框的Vaidating事件,删除看就行了:

 

 

登录_账号_Validating

 

Dim zh As WinForm.TextBox = e.Form.Controls("账号")

Dim Filter As String

 If zh.Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

         Filter = Filter & "账号 = '" & zh.Value & "'"

    End If

If Filter > "" Then

    Tables("账号密码").Filter = Filter

Else

Tables("账号密码").Filter=""


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


加好友 发短信
等级:狐精 帖子:3223 积分:21413 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2016/6/22 13:12:00 [只看该作者]

狐爸,全部一起怎么修改?


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/22 14:26:00 [只看该作者]

 叫你删除validating事件的代码啊。

 回到顶部