Foxtable(狐表)用户栏目专家坐堂 → 4月25日更新,帮助加入权限管理、内部通讯、工作流等内容


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

主题:4月25日更新,帮助加入权限管理、内部通讯、工作流等内容

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
4月25日更新,帮助加入权限管理、内部通讯、工作流等内容  发帖心情 Post By:2011/4/25 1:08:00 [显示全部帖子]

1、修正了选择数据字典选择“标准”,但是却没有设置数据字典的时候,会导致项目打不开的bug
2、修正了条形码批量打印器生成的代码,不能设置部分属性的bug。
3、修正了菜单中的不等于筛选,会自动排除空值的不足。
4、项目在线升级提供了一个新的选项“基于互联网升级”,解决了之前不管在线升级是基于互联网还是局域网,都必须连接互联网才能升级的问题。
5、修正了打开第一个窗口是,自动隐藏属性设置无效的bug,以及共有窗口在自动隐藏状态下,打开第二个共有窗口会出错的问题。
6、修正了列名时多层的时候,交叉统计不能正常水平汇总的bug.
7、增加BeforeMoveRow表事件。
8、增加一个TrackBar控件。
9、帮助增加以下内容:
 

 


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

 

工作流的部分准备比较仓促,有待完善。

[此贴子已经被作者于2011-4-25 1:14:08编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/25 8:01:00 [显示全部帖子]

以下是引用blackzhu在2011-4-25 7:57:00的发言:
你那个内部通讯的东西只能做一个局域网通知使用,我的不但可以做到你的要求,还多了一个每日事件提醒作用.

 

呵呵,我介绍的是一个方法,用的是内部表,如果你用外部数据源,就可以在互联网中用了。

[此贴子已经被作者于2011-4-25 8:01:15编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/25 9:17:00 [显示全部帖子]

有的


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/25 11:14:00 [显示全部帖子]

和收音机的音量调节按钮一样。

你设置最小值、 最大值,在Scroll事件取得当前值,根据此值设置你想设置的任何东西。


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/26 7:49:00 [显示全部帖子]

To liuxing73151,你的代码有问题,当你以小潘进去的时候,只会执行红色的部分:
Select Case User.Name
    Case "小林","小赵"
        Tables("记帐本").Visible = False
   Case "小赵","小潘"
        Tables("五金出库管理").Visible = False
   Case "小赵","小潘"
        Tables("五金入库管理").Visible = False
    Case "小潘","小林"
        Tables("成品库管理").Visible = False
  End Select

 

原因和方法两天前我就告诉你了,请看:

 

http://help.foxtable.com/topics/2242.htm

 

根据这段帮助,你的代码改为:

 

Select Case User.Name
    Case "小林","小赵"
        Tables("记帐本").Visible = False
End Select
Select Case User.Name
    Case "小赵","小潘"
        Tables("五金出库管理").Visible = False
End Select
Select Case User.Name
    Case "小赵","小潘"
        Tables("五金入库管理").Visible = False
End Select
Select Case User.Name
    Case "小潘","小林"
        Tables("成品库管理").Visible = False
End Select

 


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/26 18:59:00 [显示全部帖子]

你的代码有问题,假定以小潘登录,第一段代码因为姓名为小潘,所以e.cancel = True,第二段代码,因为姓名不是小潘,所以e.cancel = False,第三段一样。

所以虽然第一段代码的意思是小潘进去后,表A和表B和表C不可见,但是第二段和第三段代码做出相反的判断,结论当然是以后面的为准。


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/27 21:50:00 [显示全部帖子]

以下是引用liuxing73151在2011-4-27 20:35:00的发言:

其实多个表不加载的话,有没有只加载某个表的代码,好比如,我这个小潘用户,只要加载“表A”就行了,而用小林这个用户只加载”表B“这个样子。。。。。

感觉这样子会比较实用

分别用小林和小潘打开这个文件看看:

 

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

你会发现代码非常的简单。


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/27 22:29:00 [显示全部帖子]

呵呵,这个代码我之前就讲过,你也回帖了:

http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=9560&skin=0

 

帮助也有的:

http://help.foxtable.com/topics/2267.htm

 

你现在的问题是基本的流程语句不熟悉,建议补习一下编程基础这些章节。

只要有规律,任何要求都可以满足,例如你提到的:如果小潘只加载“表A”,而小林要加载“表B”表C“表D”表E“:

  

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


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/29 7:50:00 [显示全部帖子]

假定赵六加载ABCD,换个说法就是赵六不加载E:

 

If e.User.Name = "小潘" Then
    e.Cancel = (e.DataTableName <> "表A")
ElseIf e.User.Name = "小林" Then
    e.Cancel = (e.DataTableName = "表A")
ElseIf e.User.Name = "赵六" Then
    e.Cancel = (e.DataTableName = "表E")
End If

[此贴子已经被作者于2011-4-29 8:51:42编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/29 14:09:00 [显示全部帖子]

If e.User.Name = "小潘" Then
     e.Cancel = (e.DataTableName <> "表A")
ElseIf e.User.Name = "小林" Then
     e.Cancel = (e.DataTableName = "表A")
ElseIf e.User.Name = "赵六" Then
    e.Cancel = (e.DataTableName = "表E" OrElse e.DataTableName = "表D")
End If

 回到顶部
总数 12 1 2 下一页