Foxtable(狐表)用户栏目专家坐堂 → 权限管理


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

主题:权限管理

美女呀,离线,留言给我吧!
mtx
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:978 威望:0 精华:0 注册:2017/4/24 21:44:00
权限管理  发帖心情 Post By:2019/1/23 22:08:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看
老师,您好,我在做自己的登录界面的时候,显示指定数据源名称错误,是什么意思呢?
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
在权限管理中,我应该怎么设置自己的账号呢?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/23 22:11:00 [只看该作者]

1、贴出你afterOpenProject代码

 

2、贴出你窗口afterLoad代码


 回到顶部
美女呀,离线,留言给我吧!
mtx
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:978 威望:0 精华:0 注册:2017/4/24 21:44:00
  发帖心情 Post By:2019/1/23 22:17:00 [只看该作者]

您好,附件是代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/23 22:19:00 [只看该作者]

试试改成

 

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
'cmd.ConnectionName = "User"
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()

msgbox(dt.datarows.count)
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next

msgbox(123)
'cmb.SelectedIndex = 0

 


 回到顶部
美女呀,离线,留言给我吧!
mtx
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:978 威望:0 精华:0 注册:2017/4/24 21:44:00
  发帖心情 Post By:2019/1/23 22:28:00 [只看该作者]

不对的,我也没在代码中找到错误信息中说的问题~

图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/23 22:40:00 [只看该作者]

改成

 

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.ConnectionName = "你自己的数据源名称"
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()

msgbox(dt.datarows.count)
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next

msgbox(123)
'cmb.SelectedIndex = 0


 回到顶部
美女呀,离线,留言给我吧!
mtx
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:114 积分:978 威望:0 精华:0 注册:2017/4/24 21:44:00
  发帖心情 Post By:2019/1/23 22:52:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:6.png
图片点击可在新窗口打开查看
老师,我点击应用窗口的时候会出来一个这样的小窗口。然后我的权限管理里面是这样设置的
图片点击可在新窗口打开查看此主题相关图片如下:5.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/23 23:03:00 [只看该作者]

 

如果你要用自己的登陆窗口,那就不需要在用户管理那里设置【用户数据表】那些了。

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/1/23 23:04:00 [只看该作者]

 

现在你测试的时候,出现什么问题?

 

 


 回到顶部