? 一、控件祝賀已超 1 萬(wàn)工控人加入 PLC 工業(yè)自動(dòng)化精 英群

祝賀已超 1 萬(wàn)工控人加入 PLC 工業(yè)自動(dòng)化精 英群

1.1 時(shí)間控件：Calendar Control

1.2 按鈕：

1.3 報(bào)表控件

二、控件設(shè)置

2.1 時(shí)間控件

2.2 確定按鈕

String Year ;? //查詢(xún)開(kāi)始年

String Month;

String Day;

/*－－－－－取兩位數(shù)年分（即取2004的04）－－－－*/

Year = StrRight( StrFromReal(Ctrl0018.Year, 0, "f" ), 4 );

Month = StrFromReal(Ctrl0018.Month,0, "f" );

Day = StrFromReal(Ctrl0018.Day,0, "f" );

//保證年月日都是用兩位數(shù)表示,得到##/##/##字符串格式的日期

if( Strlen(Month ) == 1)? ? //如果月份小于10，在前加上0，即8又08表示

?Month = "0" + StrFromReal(Ctrl0018.Month, 0, "f" );

if( Strlen(Day ) == 1 )

?Day = "0" + StrFromReal(Ctrl0018.Day,0, "f" );

報(bào)表日期 = Year + "年" +? Month + "月" +? Day + "日";

//定義一個(gè)內(nèi)存字符串變量"報(bào)表日期",用于在報(bào)表里顯示當(dāng)前查詢(xún)到的報(bào)表的日期

Long StartTime16;? //查詢(xún)時(shí)間

Long Y16;

Y16=Ctrl0018.Year;

Long M16;

M16=Ctrl0018.Month;

Long D16;

D16=Ctrl0018.Day;

StartTime16=NewHTConverttime(Y16, M16, D16, 0, 0, 0);

ReportSetHistData("Report0",? "\\local\一號(hào)壓力", StartTime16, 3600, "B5:B28");

ReportSetHistData("Report0",? "\\local\二號(hào)壓力", StartTime16, 3600, "C5:C28");

ReportSetHistData("Report0",? "\\local\三號(hào)壓力",StartTime16, 3600, "D5:D28");

ReportSetHistData("Report0",? "\\local\四號(hào)壓力",StartTime16, 3600, "E5:E28");

ReportSetHistData("Report0",? "\\local\五號(hào)壓力", StartTime16, 3600, "F5:F28");

ReportSetHistData("Report0",? "\\local\六號(hào)壓力", StartTime16, 3600, "G5:G28");

ReportSetHistData("Report0",? "\\local\余氯",StartTime16, 3600, "H5:H28");

ReportSetHistData("Report0",? "\\local\濁度",StartTime16, 3600, "I5:I28");

ReportSetHistData("Report0",? "\\local\一號(hào)瞬時(shí)流量", StartTime16, 3600, "J5:J28");

ReportSetHistData("Report0",? "\\local\二號(hào)瞬時(shí)流量", StartTime16, 3600, "K5:K28");

ReportSetHistData("Report0",? "\\local\一號(hào)累計(jì)流量",StartTime16, 3600, "L5:L28");

ReportSetHistData("Report0",? "\\local\二號(hào)累計(jì)流量",StartTime16, 3600, "M5:M28");

ReportSetHistData("Report0",? "\\local\信號(hào)強(qiáng)度",StartTime16, 3600, "N5:N28");

2.3 打印按鈕

2.4 保存按鈕

string filename;?

filename="D:\數(shù)據(jù)文件夾\"+

StrFromReal(Ctrl0018.Year, 0, "f" )+ "年"+

StrFromReal( Ctrl0018.Month, 0, "f" )+ "月"+

StrFromReal( Ctrl0018.Day, 0, "f" )+"日?qǐng)?bào)表"+".xls";

ReportSaveAs("Report0",filename);?

2.5 報(bào)表控件

三、運(yùn)行效果