Foxtable(狐表)用户栏目专家坐堂 → [求助]关于多模块整合需求


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

主题:[求助]关于多模块整合需求

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


加好友 发短信
等级:二尾狐 帖子:550 积分:5021 威望:0 精华:0 注册:2017/4/20 11:08:00
[求助]关于多模块整合需求  发帖心情 Post By:2019/7/10 11:11:00 [只看该作者]

各位老师好,各位学霸好!
      关于需要将不同模块整合在一个项目,碰到一些问题,请老师们帮看看,具体怎么实现,谢谢!
      本人曾从事多年大中小制造业现场各级岗位操作及管理工作经验,基本了解实际岗位不同阶段不同程度的需求痛点,诚心希望能与各位学霸,学兄/学姐/学弟/学妹狐友们一起探讨,如何用狐表工具帮我们建立起一套帮助我们不断自我提升的有效管理系统(怎样让用户操作简单化,和岗位业务流程对接有效,在这样的基础上再去美化我们的系统,适当的做下系统包装),由于长期奋斗在一线,加之经常接受一些管理知识的洗脑,动不动就联想到:精益/标准/目标/指标/绩效/激励奖金/工时/计划/达成/差异/人均/最高/最低/历史对比/成本/损耗/及时性/延误时长/抽样/合格率/日/周/月/季/年/流程价值链/供应链/自动化/持续改善等一大堆的东东。 
      渐渐地也养成了一种流水线陋习思维:前段是为后段打好基础做好准备工作的,这样后段的工作才会更加高效!前段的工作没做到位,后段就会产生极大的浪费!后段的情况没有及时准确反馈到前段,或者前段没有准确掌握理解到后段实际情况,那么前段就不能在后续提升对后段的服务价值!那么整条线效率就会很低下,整条线都会产生更大的浪费!
      感谢在各位老师的耐心帮助下(由心的感谢),帮朋友做了10多个小工具,效果也得到他(她)们的认可,能简单/点对点/有效/低成本推行/运行,解决实际性的问题。但是不是专业程序员,加之学艺不精,经常闹一些笑话,在需要更深的切入市场对接时,才发现很多自身的诸多不足,一个个瓶颈,不知道如何去攻克:1.一个单一模块系统的启动时间要10秒左右(市场看到有的系统启动只要4秒左右,多模块)2.模块单一(市场业务需求多元化)3.界面不够美观(第一道门槛)4.权限控制不够灵活精确(实际环境权限随时在变化,不能快速响应需求)。
     
     无论怎样,个人也好,企业也好,对也好,错也好,系统也罢,工具也罢,产品也罢,都要不断完善更新迭代,努力地持续实现增值,能实现双赢才是唯一途径乃至于至高无上的目标!
     希望能和大家一起探讨,取长补短,互惠互利,共同进度,不断提高开发出的产品在用户端的满意度!
    大家好,才是真的好!
    独乐乐,不如众乐乐!

谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:模块整合过程需先解决问题项20190709.zip
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:数据.zip




[此贴子已经被作者于2019/7/10 11:15:05编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110595 积分:562871 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/11 11:54:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:整合开发20190709.zip


导航按钮参考左栏的用法自己做。

可视化权限参考帮助用法,至于表多还是少那是你自己的问题。




 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110595 积分:562871 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/11 17:33:00 [只看该作者]

BeforeBuild事件

Dim name As String = e.Book.TempLate
Dim dr As DataRow = DataTables("报表事件表").Find("模板='" & name & "'")
If dr IsNot Nothing Then
    Functions.Remove(name)
    Functions.Add(name,dr("代码"))
    Functions.Complie()
Else
    msgbox("没有报表事件")
End If

BuildDetail事件


try

    Dim name As String = e.Book.TempLate

    Functions.Execute(name,e)

Catch ex As Exception

    msgbox(ex.message)

End try


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:整合开发20190709.zip



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


加好友 发短信
等级:二尾狐 帖子:550 积分:5021 威望:0 精华:0 注册:2017/4/20 11:08:00
  发帖心情 Post By:2019/7/11 19:38:00 [只看该作者]

谢谢有点蓝老师,报表事件引用测试ok了,虽然每增加或修改一种格式都要改2个地方事件,但起码不用再重新编译发布升级安装调试了,这样的话灵活性会让时效性高了好几十倍!
再次谢谢!

 回到顶部