Man Without Face
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
if type_rep=3 then //день
begin
Chart.Title.Text.Add('Динамика потребления клиентами топлива и услуг '+_('on')+' '+DateToStr(dat_beg));
qryTemp.SQL.Text:= 'select t.RC_HOURRealiz_hour,' +
'avg(t.rc_hourrealiz_count) as rc_hourrealiz_count '+
'from berlio.RC_HOURRealiz t, berlio.RC_SMENADATES n'+
' where n.rc_sd_object in ('+AZS+')'+
' and t.RC_HOURRealiz_date =' +DateToSQL(dat_beg)+
' and n.rc_smenadates = t.RC_HOURRealiz_shift and ' +
't.rc_hourrealiz_saletype in(1, 3) '+
'group by t.RC_HOURRealiz_hour '+
'order by t.RC_HOURRealiz_hour ';
qryTemp2.SQL.Text:= 'select t.RC_HOURRealiz_hour,' +
'avg(t.rc_hourrealiz_count) as rc_hourrealiz_count '+
'from berlio.RC_HOURRealiz t, berlio.RC_SMENADATES n'+
' where n.rc_sd_object in ('+AZS+')'+
' and t.RC_HOURRealiz_date =' +DateToSQL(dat_beg)+
' and n.rc_smenadates = t.RC_HOURRealiz_shift and ' +
't.rc_hourrealiz_saletype = 2 '+
'group by t.RC_HOURRealiz_hour '+
'order by t.RC_HOURRealiz_hour ';
qryTemp3.SQL.Text:= 'select t.RC_HOURRealiz_hour,' +
'avg(t.rc_hourrealiz_count) as rc_hourrealiz_count '+
'from berlio.RC_HOURRealiz t, berlio.RC_SMENADATES n'+
' where n.rc_sd_object in ('+AZS+')'+
' and t.RC_HOURRealiz_date =' +DateToSQL(dat_beg)+
' and n.rc_smenadates = t.RC_HOURRealiz_shift and ' + 't.rc_hourrealiz_saletype in (1,2,3) '+
'group by t.RC_HOURRealiz_hour '+
'order by t.RC_HOURRealiz_hour ';
qryTemp.Open;
qryTemp2.Open;
qryTemp3.Open;
for i:=0 to 24 do
begin
if i=qryTemp.FieldByName('RC_HOURRealiz_hour').AsInteger then
begin
bar_ser2.Add(qryTemp.FieldByName('rc_hourrealiz_count').Asfloat,inttostr(i),clGreen);
end
else begin
bar_ser2.Add(0,inttostr(i),clGreen);
end;
if i=qryTemp2.FieldByName('RC_HOURRealiz_hour').AsInteger then
begin
bar_ser1.Add(qryTemp2.FieldByName('rc_hourrealiz_count').Asfloat,inttostr(i),clRed);
end
else begin
bar_ser1.Add(0,inttostr(i),clRed);
end;
if i=qryTemp3.FieldByName('RC_HOURRealiz_hour').AsInteger then
begin
bar_ser3.Add((qryTemp.FieldByName('rc_hourrealiz_count').Asfloat + qryTemp2.FieldByName('rc_hourrealiz_count').Asfloat),inttostr(i),clBlack);
qryTemp.Next;
qryTemp2.Next;
qryTemp3.Next;
end
else begin
bar_ser3.Add(0,inttostr(i),clBlack);
end;
end;
bar_ser2.Title := 'Юридические лица';
bar_ser1.Title := 'Физические лица';
bar_ser3.Title := 'Общее';
|
