以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [分享]审核流程  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148885)

--  作者:cd_tdh
--  发布时间: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编辑过]

--  作者:天一生水
--  发布时间:2020/4/17 16:48:00
--  
谢谢分享!
--  作者:cd_tdh
--  发布时间:2020/4/17 16:54:00
--  

二楼


--  作者:有点蓝
--  发布时间:2020/4/17 17:01:00
--  
多谢分享!
--  作者:晨曦396
--  发布时间:2020/4/17 17:05:00
--  学学嘻嘻
 学学嘻嘻
--  作者:cd_tdh
--  发布时间: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
--  发布时间:2020/4/17 17:15:00
--  
好帅啊
--  作者:yangheqing
--  发布时间:2020/4/17 17:17:00
--  
学习一下,多谢分享。
--  作者:venking999
--  发布时间:2020/4/17 17:24:00
--  
多谢分享,棒棒哒
--  作者:baicaocao
--  发布时间:2020/4/17 17:58:00
--  
 获取当前页面的窗口标题.
主界面窗口:窗口类型是主窗口.
Dim tab As Object = Forms("主界面窗口").Panel.Parent.Parent
                Dim Mtb = tab.SelectedTab.text