主题：[分享]酷！为系统增加一个“系统资源状态条”（附图）。

使用易表制作的系统很多情况下会有十几个甚至几十个表在系统里面，为了让系统的功能更加完美、界面更加精制，如果在系统的主界面中增加一个“系统资源状态条”显示当前系统中制定表使用情况的话，不仅漂亮而且可以监视系统中表资源的使用情况，怎么样，手痒痒了么？那就动手做吧！
制作原理：
1.使用IF函数对制定表的行数进行统计，如果大于10的话就向变量中累加1；假如总共有25个表的话有5个已经使用了十行以上则说明使用了20%的系统资源。（我的系统中未使用的表是空表，你可以设定其他条件作为表已经使用的标准）；
2.使用SetLabel函数让窗口标签显示状态条，显示的数值来源于IF函数统计的值；细心的易友不难发现，有点像刷新窗口的函数，不错，我就是细心学习了那个函数后制作了这个状态条。
当然，各个系统中表数不一样，哪些表算是系统资源，怎么样的使用才算是消耗了系统资源，大家可以另外设计，我的工资系统使用的易表版本比较早，是电脑报的专用版就不上传了，把我制作的截图给大家看一下吧！另外以下是我的公式，有点长，但是执行起来特快，不占用系统资源，放心吧！
SetVariable("%资源进度格A%",0) And SetVariable("%资源进度格B%",0) And SetLabel("@系统资源提示@","正在检查…") And If([工资档案!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([1月份!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([1月份L!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([2月份!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([2月份L!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([3月份!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([3月份L!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([4月份!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([4月份L!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([5月份!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([5月份L!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([6月份!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([6月份L!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([7月份!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([7月份L!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([8月份!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([8月份L!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([9月份!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([9月份L!Rows] > 0,SetVariable("%资源进度格A%",[%资源进度格A%]+1),"") And SetVariable("%资源进度格B%",[%资源进度格B%]+1) And SetLabel("@系统资源@",Rept("■",[%资源进度格B%])) And If([10月份!Row

其实我觉得每个人使用易表的水平分为四大部分，一是工作中的问题难度；二是自己的解决问题的方法；三是对易表公式的熟练掌握运用程度；四是对系统的美化设计。其中只有第三点是最难的也是大家需要共同面对的难题。我的状态条设计也是来源于前辈的文件，总是从这个论坛收下好的东东不太好意思啦，所以这个状态条刚刚出炉就立即公示于大家，现在我也在力求简化公式。用loop应该可以解决的吧，也希望前辈给我提示啊！[DISABLELBCODE]