| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]能否设置全局自定义事件？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45207) |
| -- 作者：zouxinhao -- 发布时间：2014/1/18 11:46:00 -- [求助]能否设置全局自定义事件？ 能否设置全局自定义事件？如果能又该怎么设置？例如： 现有表"权限清单" ，里面有列“用户名”，“数据表名”，“数据列名”，“查询权”，“修改权”（其中“查询权”与“修改权”列为逻辑列） 想用以上表做个权限读取的全局自定义事件，当引用到此事件时能设置参数“用户名”，“数据表名”，“数据列名”，权限列名，是否可用！ 请问能实现吗？
|
| -- 作者：Bin -- 发布时间：2014/1/18 11:51:00 -- 可以啊,为什么不可以. |
| -- 作者：zouxinhao -- 发布时间：2014/1/18 11:54:00 -- 该如何写？写在哪里呢？ |
| -- 作者：Bin -- 发布时间：2014/1/18 11:57:00 -- 你自己问,能否再全局事件控制,现在又问在哪里写? 这是什么情况? 如果你还是新手,建议你不要做复杂程度超出你能力范围的东西先,出了问题也改不了.折腾死你. 从浅入深,先参考帮助.使用帮助的可视化权限管理方式,能够运用自如的时候,再扩展.
|
| -- 作者：zouxinhao -- 发布时间：2014/1/18 15:22:00 -- 那设置参数在那里设置？怎么传参数？我的方法是要返回一个Boolean值，例如下面的代码： Friend Function GetAuthority(ByVal ModelA As String, ByVal FunctionA As String, ByVal TypeA As Erp_Authority) As Boolean
|
| -- 作者：Bin -- 发布时间：2014/1/18 15:27:00 -- Friend Function GetAuthority(ByVal ModelA As String, ByVal FunctionA As String, ByVal TypeA As Erp_Authority) As Boolean 红色部分就是,新手建议先不要一下研究超出能力范围的东西比较好.
|
| -- 作者：zouxinhao -- 发布时间：2014/1/18 15:37:00 -- 我可以打你电话直接沟通吗？要不你打我电话18996073379？ |
| -- 作者：zouxinhao -- 发布时间：2014/1/18 16:08:00 -- Public Function GetAuthority(ByVal 表名 As String, ByVal 字段名 As String, ByVal 权限类 As String) As Boolean Dim sql As new SQLCommand sql.C sql.CommandText= "select [" & 权限类 & "],[_Identify] from {用户授权} where [用户名]=\'" & User.Name & "\' and [表名窗口名]=\'" & 表名 & "\' and [字段按键名]=\'" & 字段名 & "\'" Dim rebool As String =sql.ExecuteScalar & "" Return iif(rebool = "",False,rebool) End Function ‘这段代码写在全局变量中后，为什么在其他地方不能引用此过程？
|
| -- 作者：Bin -- 发布时间：2014/1/18 16:11:00 -- 首先你查询语句就不对. sql.CommandText= "select [" & 权限类 & "],[_Identify] from {用户授权} where [用户名]=\'" & User.Name & "\' and [表名窗口名]=\'" & 表名 & "\' and [字段按键名]=\'" & 字段名 & "\'" 你这个查询语句是返回表的,怎么可以使用ExecuteScalar 呢 要使用ExecuteReader 而且返回值为一个Datatable |
| -- 作者：zouxinhao -- 发布时间：2014/1/18 16:15:00 -- 大哥，里面的代码我自己会调试的，你只告诉我为什么不能在其他地方引用此过程就好了，谢谢！ |