组态王日报表例程(2)

例程：组态王日报表的实现

统日报表”，点击右键在快捷菜单中选择“设置单元格格式”，设置字体、对齐方式、边框等。我们按照此方法设计日报表的格式，如图三所示：

图三 日报表

3.2) 创建日历控件：

我们按照日期进行历史数据的查询生成日报表，使用微软提供的通用控件“Microsoft Date and Time Picker Control ”，此控件在安装VB或者VC或者Office2000后会在通用控件中找到。

插入通过控件，如图四所示：选择后画到画面上，双击控件，在“常规”选项卡中为控件命名为“ADate”，点击“确定”，保存画面。再次双击日历控件，选择“事件”选项卡，点击在“事件”选项卡中点击CloseUp事件，弹出控件事件函数编辑窗口，在函数声明中为此函数命名：CloseUp()；在编辑窗口中编写脚本程序，在编写脚本程序之前在数据词典中定义字符串变量“选择日期”，如图五所示：

北京亚控科技发展有限公司 6 例程：组态王日报表的实现

图四 日历控件

脚本程序如下：

float Ayear; float Amonth; float Aday; long x; long y; long Row; long StartTime; string temp; Ayear=ADate.Year; Amonth=ADate.Month; Aday=ADate.Day;

北京亚控科技发展有限公司 7 例程：组态王日报表的实现

temp=StrFromInt( Ayear, 10 ); if(Amonth<10)

temp=temp+\else

temp=temp+\if(Aday<10)

temp=temp+\else

temp=temp+\\\\\本站点\\选择日期=temp;

ReportSetCellString2(\清空单元格 ReportSetCellString(\填写日期 StartTime=HTConvertTime(Ayear,Amonth,Aday,0,0,0);

ReportSetHistData(\\本站点\\压力\StartTime, 3600, \

ReportSetHistData(\\本站点\\温度\StartTime, 3600, \

ReportSetHistData(\\本站点\\密度\StartTime, 3600, \

ReportSetHistData(\\本站点\\电流\StartTime, 3600, \

ReportSetHistData(\\本站点\\电压\StartTime, 3600,

北京亚控科技发展有限公司 8 例程：组态王日报表的实现

\x=0;

while(x<24) { row=4+x;

y=StartTime+x*3600; temp=StrFromTime( y, 2 );

ReportSetCellString(\ x=x+1; }

编辑完成后点击“确认”，完成对日历控件的设置。下面我们对报表进行保存和打印。 在画面上添加两个按钮，按钮文本分别为“保存”、“打印”。双击“保存”按钮，弹出“动画连接”，点击“命令语言连接”的“弹起时”，编写报表保存的脚本程序。报表保存的格式为“xls”文件，如图六所示：脚本程序如下：

string filename;

filename=InfoAppDir()+\\\\本站点\\选择日期+\ReportSaveAs(\

双击“打印”按钮，弹出“动画连接”，点击“命令语言连接”的“弹起时”，编写报表打印的脚本程序。如图七所示：脚本程序如下：

ReportPrintSetup(\

北京亚控科技发展有限公司 9 例程：组态王日报表的实现

图五 控件事件函数

图六 保存报表

北京亚控科技发展有限公司 10