文档详情

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

发布:2025-04-12约8.87千字共10页下载文档
文本预览下载声明

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)保存和打印报表报表记录了历史数据后,我们需要对报表进行保存和打

显示全部
相似文档