建立数据库,创建界面,后台组件专家报表
全局脚本:动作:应用程序动作中写入
TR_XHXS= IntToStr(区域1\单元1\TR_XH.PV,10);
TRAYLXS= RealToStr(区域1\单元1\TRAYL.PV,4,2);
TRBYLXS= RealToStr(区域1\单元1\TRBYL.PV,4,2);
KKYLXS= RealToStr(区域1\单元1\KKMAX.PV,4,2);
TIME= StrTime($Curtime,0);
IF 区域1\单元1\TRCDWYLJC.PV==1
THEN IF
区域1\单元1\TR_XH.PV/6%2==0
THEN TRYLXS=TRAYLXS;
ELSE TRYLXS=TRBYLXS;
ENDIF
aa=1+5*(区域1\单元1\TR_XH.PV-1);
#历史报表.#Report.SetCellString(0,aa,2,TR_XHXS,1);
#历史报表.#Report.SetCellString(0,aa,3,TRYLXS,1);
ENDIF
IF 区域1\单元1\TRAYLCF.PV==1 THEN
#历史报表.#Report.SetCellString(0,H+aa,1,TIME,1);
#历史报表.#Report.SetCellString(0,H+aa,5,KKYLXS,1);
H=H+1;
ENDIF
IF H==5 THEN
H=0;
ENDIF
当鼠标点中可查看相应信息
全局脚本:动作:数据改变动作:写入以下程序
SWITCH (abbbb) CASE 0: #帮助说明.#启动.Show(1); #帮助说明.#停止.Show(0); #帮助说明.#手动操作.Show(0); CASE 1: CASE 2: CASE 3: CASE 4: #帮助说明.#启动.Show(0); #帮助说明.#停止.Show(1); #帮助说明.#手动操作.Show(0); CASE 5: CASE 6: CASE 7: CASE 8: #帮助说明.#启动.Show(0); #帮助说明.#停止.Show(0); #帮助说明.#手动操作.Show(1); CASE 9: CASE 10: CASE 11: CASE 12: CASE 13: CASE 14: CASE 15: CASE 16: CASE 17: CASE 18: CASE 19: DEFAULT:
CASE的值为设置数据值:
全局脚本:动作:应用程序动作中写入
#帮助说明.#TreeMenu.Enable(1);
abbbb=#帮助说明.#TreeMenu.GetSelItemData();
历史报表
打开程序就开始执行