Foxtable(狐表)用户栏目专家坐堂 → [求助]急~~~领导审批功能的实现中有些问题不明白


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

主题:[求助]急~~~领导审批功能的实现中有些问题不明白

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


加好友 发短信
等级:婴狐 帖子:26 积分:298 威望:0 精华:0 注册:2011/9/18 14:36:00
[求助]急~~~领导审批功能的实现中有些问题不明白  发帖心情 Post By:2011/9/20 22:46:00 [只看该作者]

弱弱的问下

有的时候,可能希望能记录审批人和审批时间,你可以将“审批”列改为字符型,用于记录审批人,另外增加一个日期时间列,名为“审批日期”,用于记录审批日期。
然后在窗口或菜单中加一个审批按钮,将按钮的代码设置为:

If User.Group = "经理" Then
    Tables(
"表A").Current("审批") = UserName
    Tables(
"表A").Current("审批日期") = Date.Today()
Else

    MessageBox.show(
"你无审批权限!")
End
If

当然还得来个取消审批的按钮,代码为:

If User.Group = "经理" Then
    Tables(
"表A").Current("审批") = Nothing
    Tables(
"表A").Current("审批日期") = Nothing
Else

    MessageBox.show(
"你无取消审批权限!")
End
If

最后将表事件PrepareEdit的代码设置为:

If e.Row.IsNull("审批") = False Then '如果审批列不为空
    e.Cancel =
True '则禁止编辑
End
If

这样经过审批的行,将不能编辑。

 

里面提到 在窗口或菜单中加一个审批按钮 我想问下我如何设置 按钮 呢???怎么才能弄出按钮来呢???


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


加好友 发短信
等级:八尾狐 帖子:1812 积分:12993 威望:0 精华:14 注册:2008/10/11 18:07:00
  发帖心情 Post By:2011/9/20 22:53:00 [只看该作者]

http://www.foxtable.com/help/topics/0700.htm

开发指南-------窗口设计----窗口基础---------设计窗口
[此贴子已经被作者于2011-9-20 22:54:55编辑过]

 回到顶部