力控表格创建和树形图

建立数据库，创建界面，后台组件专家报表

全局脚本：动作：应用程序动作中写入

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();

历史报表

打开程序就开始执行