unit2.pas

program kehuji uses Forms, Unit1 in ..zxcUnit1.pas {Form1}, Unit2 in ..zxcUnit2.pas {Form2

  adoquery1.Filter:='户主编号='''+combobox1.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  adoquery2.Filter:='户主编号='''+combobox1.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  adoquery3.Filter:='户主编号='''+combobox1.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';


  end;

  if str='0001'
  then
  begin
  adoquery1.Filter:='采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  adoquery2.Filter:='采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  adoquery3.Filter:='采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  end;

  if str='0100'
  then
  begin
  adoquery1.Filter:='楼栋='''+combobox2.Text+'''';
   adoquery2.Filter:='楼栋='''+combobox2.Text+'''';
   adoquery3.Filter:='楼栋='''+combobox2.Text+'''';
  end;


  if str='0010'
  then
  begin
  adoquery1.Filter:='户号='''+combobox3.Text+'''';
  adoquery2.Filter:='户号='''+combobox3.Text+'''';
  adoquery3.Filter:='户号='''+combobox3.Text+'''';
  end;

  if str='0101'
  then
  begin
  adoquery1.Filter:='楼栋='''+combobox2.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  adoquery2.Filter:='楼栋='''+combobox2.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  adoquery3.Filter:='楼栋='''+combobox2.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';

  end;

  if str='0011'
  then
  begin
  adoquery1.Filter:='户号='''+combobox2.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  adoquery2.Filter:='户号='''+combobox2.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  adoquery3.Filter:='户号='''+combobox2.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  end;

  if str='0111'
  then
  begin
  adoquery1.Filter:='楼栋='''+combobox2.Text+''''+'and 户号='''+combobox3.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
  adoquery2.Filter:='楼栋='''+combobox2.Text+''''+'and 户号='''+combobox3.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';
adoquery3.Filter:='楼栋='''+combobox2.Text+''''+'and 户号='''+combobox3.Text+''''+'and 采集时间 >='''+time1+''''+'and 采集时间 <='''+time2+'''';


  end;

  if str='0110'
  then
  begin
  adoquery1.Filter:='楼栋='''+combobox2.Text+''''+'and 户号='''+combobox3.Text+'''';
  adoquery2.Filter:='楼栋='''+combobox2.Text+''''+'and 户号='''+combobox3.Text+'''';
  adoquery3.Filter:='楼栋='''+combobox2.Text+''''+'and 户号='''+combobox3.Text+'''';
  end;

  if (checkbox5.Checked=true)and(str<>'0000')
  then
  begin
  adoquery1.Filter:=adoquery1.Filter+'and 采集时间 >= all (select 采集时间 from shui)';//''+temp3+'''' +'and 采集时间<='''+temp4+'''';
  adoquery2.Filter:=adoquery2.Filter+'and 采集时间 >= all (select 采集时间 from dian)';//''+temp3+'''' +'and 采集时间<='''+temp4+'''';
  adoquery3.Filter:=adoquery3.Filter+'and 采集时间 >= all (select 采集时间 from mei)';//''+temp3+'''' +'and 采集时间<='''+temp4+'''';
  end
  else if (str='0000')and (checkbox5.Checked=true)
  then
  begin
  adoquery1.Filter:=adoquery1.Filter+' 采集时间 >= all (select 采集时间 from shui)';//''+temp3+'''' +'and 采集时间<='''+temp4+'''';
  adoquery2.Filter:=adoquery2.Filter+' 采集时间 >= all (select 采集时间 from dian)';//''+temp3+'''' +'and 采集时间<='''+temp4+'''';
  adoquery3.Filter:=adoquery3.Filter+' 采集时间 >= all (select 采集时间 from mei)';//''+temp3+'''' +'and 采集时间<='''+temp4+'''';


  end;


  if  (str<>'0000')or((str='0000')and(checkbox5.Checked=true))
  then
  begin

  str1:='select 户主编号,楼栋,户号,度数,采集时间 from shui,info where '+adoquery1.Filter +'  and shui.户主编号=info.编号';
  end
  else
  str1:='select 户主编号,楼栋,户号,度数,采集时间 from shui,info where  shui.户主编号=info.编号';





  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add(str1);

  adoquery1.ExecSQL;
  adoquery1.Open;

  total:=0;
adoquery1.Close;
adoquery1.Open;

adoquery1.First;
count:=adoquery1.RecordCount;

for i:=1 to count-1
do
begin
a:=adoquery1.FieldByName('度数').AsString;
total:=total+strtoint(a);
adoquery1.Next;
end;
a:=adoquery1.FieldByName('度数').AsString;
total:=total+strtoint(a);

statictext13.Caption:=inttostr(total);



 if  (str<>'0000')or((str='0000')and(checkbox5.Checked=true))
  then
  begin

  str1:='select 户主编号,楼栋,户号,度数,采集时间 from dian,info where '+adoquery2.Filter +'  and dian.户主编号=info.编号';
  end
  else
  str1:='select 户主编号,楼栋,户号,度数,采集时间 from dian,info where  dian.户主编号=info.编号';





  adoquery2.Close;
  adoquery2.SQL.Clear;
  adoquery2.SQL.Add(str1);

  adoquery2.ExecSQL;
  adoquery2.Open;

  total:=0;
adoquery2.Close;
adoquery2.Open;

adoquery2.First;
count:=adoquery2.RecordCount;

for i:=1 to count-1
do
begin
a:=adoquery2.FieldByName('度数').AsString;
total:=total+strtoint(a);
adoquery2.Next;
end;
a:=adoquery2.FieldByName('度数').AsString;
total:=total+strtoint(a);

statictext15.Caption:=inttostr(total);



 if  (str<>'0000')or((str='0000')and(checkbox5.Checked=true))
  then
  begin

  str1:='select 户主编号,楼栋,户号,度数,采集时间 from mei,info where '+adoquery3.Filter +'  and  mei.户主编号=info.编号';
  end
  else
  str1:='select 户主编号,楼栋,户号,度数,采集时间 from mei,info where  mei.户主编号=info.编号';





  adoquery3.Close;
  adoquery3.SQL.Clear;
  adoquery3.SQL.Add(str1);

  adoquery3.ExecSQL;
  adoquery3.Open;

  total:=0;
adoquery3.Close;
adoquery3.Open;

adoquery3.First;
count:=adoquery3.RecordCount;

for i:=1 to count-1
do
begin
a:=adoquery3.FieldByName('度数').AsString;
total:=total+strtoint(a);
adoquery3.Next;
end;
a:=adoquery3.FieldByName('度数').AsString;
total:=total+strtoint(a);

statictext17.Caption:=inttostr(total);

if checkbox4.Checked=true
then
begin
  if checkbox1.Checked=true
  then
  begin
  strtemp:='select min(度数) as 小 from shui where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  start:=strtoint(adoquery4.FieldByName('小').AsString);


  strtemp:='select max(度数) as 大 from shui where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  final:=strtoint(adoquery4.FieldByName('大').AsString);

  statictext6.Caption:=inttostr(final-start)+'度';

  statictext7.Caption:='该用户总共耗水:';




   strtemp:='select min(度数) as 小 from dian where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  start:=strtoint(adoquery4.FieldByName('小').AsString);


  strtemp:='select max(度数) as 大 from dian where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  final:=strtoint(adoquery4.FieldByName('大').AsString);

  statictext9.Caption:=inttostr(final-start)+'度';

  statictext8.Caption:='该用户总共耗电:';



  strtemp:='select min(度数) as 小 from mei where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  start:=strtoint(adoquery4.FieldByName('小').AsString);


  strtemp:='select max(度数) as 大 from mei where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  final:=strtoint(adoquery4.FieldByName('大').AsString);

  statictext11.Caption:=inttostr(final-start)+'度';

  statictext10.Caption:='该用户总共耗煤:';


  end;


  if (checkbox2.Checked=true) and (checkbox3.Checked<>true)
  then
  begin
    strtemp:='select sum(度数) as 小 from shui ,info where 楼栋='''+combobox2.Text+''' and 采集时间 >= '''+time1+''''+' and 采集时间 <= all(select 采集时间  from shui  where 采集时间 >='''+time1+''')'+' and info.编号 = shui.户主编号';

  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  start:=strtoint(adoquery4.FieldByName('小').AsString);


  strtemp:='select sum(度数) as 大 from shui , info where 楼栋='''+combobox2.Text+'''  and  采集时间 <= '''+time2+''''+' and 采集时间 >= all(select 采集时间  from shui  where 采集时间 <='''+time2+''')'+' and info.编号 = shui.户主编号';
 adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  final:=strtoint(adoquery4.FieldByName('大').AsString);

  statictext6.Caption:=inttostr(final-start)+'度';

  statictext7.Caption:='该栋楼用户总共耗水:';


  strtemp:='select sum(度数) as 小 from dian ,info where 楼栋='''+combobox2.Text+''' and 采集时间 >= '''+time1+''''+' and 采集时间 <= all(select 采集时间  from dian  where 采集时间 >='''+time1+''')'+' and info.编号 = dian.户主编号';

  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  start:=strtoint(adoquery4.FieldByName('小').AsString);


  strtemp:='select sum(度数) as 大 from dian , info where 楼栋='''+combobox2.Text+'''  and  采集时间 <= '''+time2+''''+' and 采集时间 >= all(select 采集时间  from dian  where 采集时间 <='''+time2+''')'+' and info.编号 = dian.户主编号';
 adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  final:=strtoint(adoquery4.FieldByName('大').AsString);

  statictext9.Caption:=inttostr(final-start)+'度';

  statictext8.Caption:='该栋楼用户总共耗电:';

strtemp:='select sum(度数) as 小 from mei ,info where 楼栋='''+combobox2.Text+''' and 采集时间 >= '''+time1+''''+' and 采集时间 <= all(select 采集时间  from mei  where 采集时间 >='''+time1+''')'+' and info.编号 = mei.户主编号';

  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  start:=strtoint(adoquery4.FieldByName('小').AsString);


  strtemp:='select sum(度数) as 大 from mei , info where 楼栋='''+combobox2.Text+'''  and  采集时间 <= '''+time2+''''+' and 采集时间 >= all(select 采集时间  from mei  where 采集时间 <='''+time2+''')'+' and info.编号 = mei.户主编号';
 adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  final:=strtoint(adoquery4.FieldByName('大').AsString);

  statictext11.Caption:=inttostr(final-start)+'度';

  statictext10.Caption:='该栋楼用户总共耗煤:';

 {

   strtemp:='select min(度数) as 小 from dian where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  start:=strtoint(adoquery4.FieldByName('小').AsString);


  strtemp:='select max(度数) as 大 from dian where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  final:=strtoint(adoquery4.FieldByName('大').AsString);

  statictext9.Caption:=inttostr(final-start)+'度';

  statictext8.Caption:='该用户总共耗电:';



   strtemp:='select min(度数) as 小 from mei where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  start:=strtoint(adoquery4.FieldByName('小').AsString);


  strtemp:='select max(度数) as 大 from mei where 采集时间 >= '''+time1+''''+' and 采集时间 <= '''+time2+''''+'and 户主编号 ='''+combobox1.Text+'''';
  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  final:=strtoint(adoquery4.FieldByName('大').AsString);

  statictext11.Caption:=inttostr(final-start)+'度';

  statictext10.Caption:='该用户总共耗电:';

  }









  end;


  if (checkbox2.Checked=true )and (checkbox3.Checked=true)
  then

  begin
  strtemp:='select sum(度数) as 小 from shui ,info where 户号='''+combobox3.Text+''''+' and 楼栋='''+combobox2.Text+''' and 采集时间 >= '''+time1+''''+' and 采集时间 <= all(select 采集时间  from shui  where 采集时间 >='''+time1+''')'+' and info.编号 = shui.户主编号';

  adoquery4.Close;
  adoquery4.SQL.Clear;
  adoquery4.SQL.Add(strtemp);
  adoquery4.ExecSQL;
  adoquery4.Open;
  adoquery4.First;
  start:=strtoint(adoquery4.FieldByName('小').AsString);