Foxtable(狐表)用户栏目专家坐堂 → [分享]审核流程


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

主题:[分享]审核流程

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


加好友 发短信
等级:八尾狐 帖子:1839 积分:12804 威望:0 精华:0 注册:2016/3/28 16:57:00
[分享]审核流程  发帖心情 Post By:2020/4/17 16:47:00 [只看该作者]

做了几天,今天抽时间做了个示例,供初学者参考,高手勿喷。

 


以下内容只有回复后才可以浏览

 

所有用户名:admin,密码:123456

 


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

 


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

 


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

   


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


1、流程设计方式提供给大家参考,有不科学的请高手提出来;

2、因为涉及到审批,所以用户管理、登录设计免费送了;

3、代码有很多重复的也懒得去简化了;

4、因为自做的系统用的页签,奇幻页签,获得当前表的变量问题一直没解决,这个示例里面也有问题没修改,所以流程设置完成后,直接进测试,可能会报错找不到ID,那你直接窗口设计几面选择测试表1,应用进行测试。

 

一直想写个全局变量来获得当前表名,确实能力有限,没写出来,有高手愿意指导的请指导一下,目前系统的表名、窗口名、页签名是是一样的,试了很多方法都对。

目前用来的方法:

1、窗口打开后:定义变量:Vars("editTanle") = e.form.Tablename,在切换页签后,Vars("editTanle")的值是最后一次打开窗口的值,行不通。

2、在窗口切换页签是定义变量:Vars("editTanle") = e.form.Tablename,这个方法虽然切换页签后问题解决了,但是页签还没打开,窗口Afterload事件分页加载等代码,没法调用这个值,也是问题,也没做成功。

 

[此贴子已经被作者于2020/4/17 17:03:40编辑过]

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


加好友 发短信
等级:四尾狐 帖子:853 积分:7961 威望:0 精华:0 注册:2017/9/26 16:30:00
  发帖心情 Post By:2020/4/17 16:48:00 [只看该作者]

谢谢分享!

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


加好友 发短信
等级:八尾狐 帖子:1839 积分:12804 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/4/17 16:54:00 [只看该作者]

二楼


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


加好友 发短信
等级:超级版主 帖子:55023 积分:278878 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/17 17:01:00 [只看该作者]

多谢分享!

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


加好友 发短信
等级:童狐 帖子:219 积分:1823 威望:0 精华:0 注册:2019/2/15 9:43:00
学学嘻嘻  发帖心情 Post By:2020/4/17 17:05:00 [只看该作者]

 学学嘻嘻

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


加好友 发短信
等级:八尾狐 帖子:1839 积分:12804 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/4/17 17:06:00 [只看该作者]

以下是引用有点蓝在2020/4/17 17:01:00的发言:
多谢分享!

还希望有点蓝老师帮忙解决哈这个问题啊:

一直想写个全局变量来获得当前表名,确实能力有限,没写出来,有高手愿意指导的请指导一下,目前系统的表名、窗口名、页签名是是一样的,试了很多方法都对。

目前用来的方法:

1、窗口打开后:定义变量:Vars("editTanle") = e.form.Tablename,在切换页签后,Vars("editTanle")的值是最后一次打开窗口的值,行不通。

2、在窗口切换页签时定义变量:Vars("editTanle") = e.form.Tablename,这个方法虽然切换页签后问题解决了,但是页签还没打开,窗口Afterload事件分页加载等代码,没法调用这个值,也是问题,也没做成功。


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


加好友 发短信
等级:幼狐 帖子:134 积分:1566 威望:0 精华:0 注册:2017/12/20 15:51:00
  发帖心情 Post By:2020/4/17 17:15:00 [只看该作者]

好帅啊

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


加好友 发短信
等级:幼狐 帖子:151 积分:1944 威望:0 精华:0 注册:2016/11/17 18:28:00
  发帖心情 Post By:2020/4/17 17:17:00 [只看该作者]

学习一下,多谢分享。

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


加好友 发短信
等级:幼狐 帖子:133 积分:1064 威望:0 精华:0 注册:2019/1/5 16:07:00
  发帖心情 Post By:2020/4/17 17:24:00 [只看该作者]

多谢分享,棒棒哒

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


加好友 发短信
等级:一尾狐 帖子:459 积分:4437 威望:0 精华:0 注册:2012/4/20 8:42:00
  发帖心情 Post By:2020/4/17 17:58:00 [只看该作者]

 获取当前页面的窗口标题.
主界面窗口:窗口类型是主窗口.
Dim tab As Object = Forms("主界面窗口").Panel.Parent.Parent
                Dim Mtb = tab.SelectedTab.text

 回到顶部
总数 101 1 2 3 4 5 6 7 8 9 10 下一页 ..11