Foxtable(狐表)用户栏目专家坐堂 → 如何在设置的登录窗口中实现主窗口中控件权限问题


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

主题:如何在设置的登录窗口中实现主窗口中控件权限问题

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


加好友 发短信
等级:幼狐 帖子:182 积分:1168 威望:0 精华:0 注册:2012/10/26 14:22:00
如何在设置的登录窗口中实现主窗口中控件权限问题  发帖心情 Post By:2012/11/19 8:53:00 [显示全部帖子]

我没有用系统提供的登录界面,而是自行设计了一个窗口,设置了用户名称和密码

另外又设计了一个主窗口,其中增加了四个按钮,分别为编辑,查询,打印,和退出系统四块,我想把每一块按钮的权限分别设置,比如,编辑按钮只有财务人员可以用,其他用户都不可以,下面的代码有什么问题吗,总是提示“登录窗口已关闭,无法引用ComboBox1用户名称该控件。

 

Dim t As WinForm.ComboBox = Forms("登录窗口").Controls("ComboBox1用户名称")
Select Case t.value
Case "财务人员"
Forms("主窗口").close
Forms("piao据编辑窗口").show
Case "财务主管","管理者"
MessageBox.show("您无权执行此操作!")
End Select


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


加好友 发短信
等级:幼狐 帖子:182 积分:1168 威望:0 精华:0 注册:2012/10/26 14:22:00
  发帖心情 Post By:2012/11/19 9:43:00 [显示全部帖子]

提示很有帮助,我用了var变量,因为要在窗口中的控件中进行传递,效果已经达到,十分感谢您。

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


加好友 发短信
等级:幼狐 帖子:182 积分:1168 威望:0 精华:0 注册:2012/10/26 14:22:00
  发帖心情 Post By:2012/11/19 9:45:00 [显示全部帖子]

另外,想再请教个问题,系统中的”日常工作“功能区里面的高级筛选功能如何编辑代码得到呢,我想设计一个类似那样的模糊组合筛选查询

 


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


加好友 发短信
等级:幼狐 帖子:182 积分:1168 威望:0 精华:0 注册:2012/10/26 14:22:00
  发帖心情 Post By:2012/11/19 9:57:00 [显示全部帖子]

这个功能已经实现,我是想着可以像高级筛选功能一样,查找字段可以再下拉列中选择,值也可以在下拉列表中实现,然后条件设为 等于,不等于,包含等可选项,关系设为,and 或者 or 这样。

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


加好友 发短信
等级:幼狐 帖子:182 积分:1168 威望:0 精华:0 注册:2012/10/26 14:22:00
  发帖心情 Post By:2012/11/19 10:12:00 [显示全部帖子]

好的


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


加好友 发短信
等级:幼狐 帖子:182 积分:1168 威望:0 精华:0 注册:2012/10/26 14:22:00
  发帖心情 Post By:2012/11/19 14:00:00 [显示全部帖子]

高级删选窗口中的表 是绑定了一个不可见的含有 列名称分别为 连接 列 比较 内容 四列内容的内部数据表,还是怎样实现的啊?

另外,试用版是不是没有主窗体一说呢?


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


加好友 发短信
等级:幼狐 帖子:182 积分:1168 威望:0 精华:0 注册:2012/10/26 14:22:00
  发帖心情 Post By:2012/11/19 14:16:00 [显示全部帖子]

可以弱弱的问下,那又有标题,还能一行一行的增加内容的,是在高级删选窗口添加了什么控件啊

 回到顶部