组态王日报表制作

组态王日报表制作步骤一、定义设备二、定义变量三、制作画面3.1添加画面3.2添加文本与报表3.3添加日历控件并在事件中编辑closeup插入通过控件，如图所示：选择后画到画面上，双击控件，在“常规”选项卡中为控件命名为“ADate”，点击“确定”，保存画面。再次双击日历控件，选择“事件”选项卡，点击在“事件”选项卡中点击CloseUp事件，弹出控件事件函数编辑窗口，在函数声明中为此函数命名：CloseUp()在编辑窗口中编写脚本程序，在编写脚本程序之前在数据词典中定义字符串变量“选择日期”双击日历控件设置属性如下图程序如下：floatAyear;floatAmonth;floatAday;longx;longy;longRow;longStartTime;stringtemp;Ayear=ADate.Year;Amonth=ADate.Month;Aday=ADate.Day;temp=StrFromInt(Ayear,10);if(Amonth10)temp=temp+-0+StrFromInt(Amonth,10);elsetemp=temp+-+StrFromInt(Amonth,10);if(Aday10)temp=temp+-0+StrFromInt(Aday,10);elsetemp=temp+-+StrFromInt(Aday,10);\\本站点\选择日期=temp;ReportSetCellString2(Report1,4,1,27,6,);//清空单元格ReportSetCellString(Report1,2,2,temp);//填写日期StartTime=HTConvertTime(Ayear,Amonth,Aday,0,0,0);ReportSetHistData(Report1,\\本站点\IO实数1,StartTime,3600,B4:B27);//ReportSetHistData(Report1,\\本站点\压力,StartTime,3600,B4:B27);ReportSetHistData(Report1,\\本站点\温度,StartTime,3600,C4:C27);ReportSetHistData(Report1,\\本站点\密度,StartTime,3600,D4:D27);ReportSetHistData(Report1,\\本站点\电流,StartTime,3600,E4:E27);ReportSetHistData(Report1,\\本站点\电压,StartTime,3600,F4:F27);x=0;while(x24){row=4+x;y=StartTime+x*3600;temp=StrFromTime(y,2);ReportSetCellString(Report1,row,1,temp);x=x+1;}添加选择日期变量如下图所示3.4添加打印和保存保存的程序如下：stringfilename;filename=InfoAppDir()+\\本站点\选择日期+.xls;ReportSaveAs(Report0,filename);打印预览的程序如下ReportPrintSetup(Report0);详细设置请查看保存和打印文档四、进入运行系统运行系统结果如下图所示：