Kingview报表功能

控件名：Report1
查询按钮弹起时脚本
//查询功能

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;
temp=StrFromInt( Ayear, 10 );
if(Amonth<10)
temp=temp+"-0"+StrFromInt( Amonth, 10 );
else
temp=temp+"-"+StrFromInt( Amonth, 10 );
\local\报表_报表目录=temp;
if(Aday<10)
temp=temp+"-0"+StrFromInt( Aday, 10 );
else
temp=temp+"-"+StrFromInt( Aday, 10 );
\local\报表_选择日期=temp;
ReportSetCellString2("Report1", 4, 2, 28, 28, " "); //清空单元格
ReportSetCellString("Report1", 1, 2, temp);//填写日期
//ReportSetCellString("Report0", 1, 21, temp);//填写日期
StartTime=HTConvertTime(Ayear,Amonth,Aday,8,0,0);

ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "B4:B28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "C4:C28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "D4:D28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "E4:E28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "F4:F28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "G4:G28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "H4:H28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "I4:I28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "J4:J28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "K4:K28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "L4:L28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "M4:M28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "N4:N28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "O4:O28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "P4:P28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "Q4:Q28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "R4:R28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "S4:S28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "T4:T28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "U4:U28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "V4:V28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "W4:W28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "X4:X28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "Y4:Y28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "Z4:Z28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "AA4:AA28");
ReportSetHistData("Report1","\local\Test0_100", StartTime, 3600, "AB4:AB28");
x=0;

while(x<24)

{

row=4+x;
y=StartTime+x*3600;
temp=StrFromTime( y, 2 );
ReportSetCellString("Report0", row, 1, temp);
x=x+1;

}

保存按钮弹起时脚本
//文件保存功能

string filename;
float Ayear;
float Amonth;
float Aday;
string temp;

Ayear=ADate.Year;
Amonth=ADate.Month;
Aday=ADate.Day;

temp=StrFromInt( Ayear, 10 );
if(Amonth<10)
temp=temp+"-0"+StrFromInt( Amonth, 10 );
else
temp=temp+"-"+StrFromInt( Amonth, 10 );
\local\报表_报表目录=temp;
if(Aday<10)
temp=temp+"-0"+StrFromInt( Aday, 10 );
else
temp=temp+"-"+StrFromInt( Aday, 10 );
\local\报表_选择日期=temp;

filename="D:\报表"+\local\报表_报表目录+""+\local\报表_选择日期+".xls";
ReportSaveAs("Report1",filename);