组态软件基础及应用（组态王KingView）第2版 课件 第六章报表 系统及日历控件PPT .ppt

6.5利用微软日历控件实现日报表实例（2）创建日历控件。日报表中对历史数据的记录是根据日历中的日期进行查询的，我们使用微软提供的通用控件“MicrosoftDateandTimePickerControl”,点击工具箱中的“插入通用控件”，在列表中选择“其他控件”再选择“MicrosoftDateandTimePickerControl”日历控件，点击“确定”，在画面中拖动鼠标画出日历控件，如图6-21所示。注：如果无法创建“MicrosoftDateandTimePickerControl”日历控件，请打开组态王所在目录，打开Kv655ToKv75文件夹，找到MSCOMCT2.OCX文件，将其复制到C:\Windows\System32文件夹中（如操作系统为64位操作系统，则需再在SysWOW64文件夹中也复制一份MSCOMCT2.OCX文件），之后点击开始菜单，找到Windows系统，用管理员身份打开命令提示符，输入如下文字进行控件注册regsvr32C:\Windows\SysWOW64\MSCOMCT2.OCXregsvr32C:\Windows\System32\MSCOMCT2.OCX如图6-22所示6.5利用微软日历控件实现日报表实例图6-21日历控件图6-22日历控件注册如注册后仍无法插入控件，可考虑更换组件，点击工具箱中的“插入通用控件”，在列表中选择“组态王控件”再选择“CalendarControl”，具体使用方法请参考产品帮助中“14.3.12Calendar日历控件”这一章节，本书不再列举。6.5利用微软日历控件实现日报表实例双击日历控件，在“常规”栏中将控件命名为“Adate”,点击“确定”，保存画面。再次双击日历控件，选中“事件”选项卡，点击列表中的“CloseUp”事件，弹出“控件事件函数”窗口，在函数生命中将此函数命名为“CloseUp1()”,在编辑窗口内编写程序，如图6-23所示。图6-23编辑控件事件函数6.5利用微软日历控件实现日报表实例事件函数程序如下：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);}else{temp=temp+-+StrFromInt(Amonth,10);}if(Aday10){temp=temp+-0+StrFromInt(Aday,10);}else{temp=temp+-+StrFromInt(Aday,10);}\\local\查询日期=temp;ReportSetCellString2(Report0,4,1,1444,6,);ReportSetCellString(Report0,2,2,temp);//填写日期//查询数据StartTime=HTConvertTime(Ayear,Amonth,Aday,0,0,0);ReportSetHistData(Report0,\\local\电压,StartTime,60,B4:B1444);ReportSetHistData(Report0,\\local\转速,StartTime,60,C4:C1444);ReportSetHistData(Report0,\\local\功率,StartTime,60,D4:D1444);ReportSetHistData(Report0,\\local\水压,StartTime,60,E4:E1444);ReportSetHistData(Report0,\\local\效率,StartTime,60,F4:F1444);//填写时间while(x1440){row=4+x;y=StartTime+x*60;temp=StrFromTime(y,2);ReportSetCellString(Report0,row,1,temp);x=x+1;}程序编辑完成后，点击“确认”，完成日历控件的设置。6.5利用微软日历控件实现日报表实例（3）保存和打印报表报表记录了历史数据后，我们需要对报表进行保存和打