| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何在设置的登录窗口中实现主窗口中控件权限问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=25862) |
| -- 作者：mamasong -- 发布时间：2012/11/19 8:53:00 -- 如何在设置的登录窗口中实现主窗口中控件权限问题 我没有用系统提供的登录界面，而是自行设计了一个窗口，设置了用户名称和密码 另外又设计了一个主窗口，其中增加了四个按钮，分别为编辑，查询，打印，和退出系统四块，我想把每一块按钮的权限分别设置，比如，编辑按钮只有财务人员可以用，其他用户都不可以，下面的代码有什么问题吗，总是提示“登录窗口已关闭，无法引用ComboBox1用户名称该控件。
Dim t As WinForm.ComboBox = Forms("登录窗口").Controls("ComboBox1用户名称") |
| -- 作者：lin_hailun -- 发布时间：2012/11/19 9:03:00 -- 你需要用到全局变量来保存用户的名字，这样，在什么地方都可以用到这个值了。 http://www.foxtable.com/help/topics/1842.htm 全局代码 Public userType As String 登录窗口 userType = Forms("登录窗口").Controls("ComboBox1用户名称") 编写代码 Select Case userType Case "财务人员" Forms("主窗口").close Forms("票据编辑窗口").show Case "财务主管","管理者" MessageBox.show("您无权执行此操作!") End Select [此贴子已经被作者于2012-11-19 9:02:57编辑过]
|
| -- 作者：mamasong -- 发布时间：2012/11/19 9:43:00 -- 提示很有帮助，我用了var变量，因为要在窗口中的控件中进行传递，效果已经达到，十分感谢您。 |
| -- 作者：mamasong -- 发布时间：2012/11/19 9:45:00 -- 另外，想再请教个问题，系统中的”日常工作“功能区里面的高级筛选功能如何编辑代码得到呢，我想设计一个类似那样的模糊组合筛选查询
|
| -- 作者：lin_hailun -- 发布时间：2012/11/19 9:52:00 -- 帮助有一个现成的例子。 http://www.foxtable.com/help/topics/1058.htm |
| -- 作者：mamasong -- 发布时间：2012/11/19 9:57:00 -- 这个功能已经实现，我是想着可以像高级筛选功能一样，查找字段可以再下拉列中选择，值也可以在下拉列表中实现，然后条件设为 等于，不等于，包含等可选项，关系设为，and 或者 or 这样。 |
| -- 作者：lin_hailun -- 发布时间：2012/11/19 10:01:00 -- 这个不太难，就是动态合成筛选条件。 你先把界面弄出来，把你能做的先做，不懂的上传例子提问。 |
| -- 作者：mamasong -- 发布时间：2012/11/19 10:12:00 -- 好的 |
| -- 作者：mamasong -- 发布时间：2012/11/19 14:00:00 -- 高级删选窗口中的表 是绑定了一个不可见的含有 列名称分别为 连接 列 比较 内容 四列内容的内部数据表，还是怎样实现的啊？ 另外，试用版是不是没有主窗体一说呢？ |
| -- 作者：lin_hailun -- 发布时间：2012/11/19 14:11:00 -- 试用版和商业版、开发版的功能大致一样，只是窗口个数和表个数有限制。 下拉的内容都是动态添加进去的，没有内部表一说。 |