unit2.pas

小区抄表系统

          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,max(示数) as 当前读数 from 户主查询 where (户主姓名= '''+num+''')and (表名=''煤气表'') group by 编号';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (户主姓名='''+num+''') ';
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=0then
          begin
         Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,(max(示数)-min(示数)) as 历史示数 from 户主查询 where (户主姓名= '''+num+''')and (表名=''煤气表'')and (记录日期 between :a and :b) group by 编号';
          adoquery1.Parameters.ParamByName('a').Value:=strtodate(trim(edit1.Text));
          adoquery1.Parameters.ParamByName('b').Value:=strtodate(trim(edit2.Text));
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (户主姓名='''+num+''') ';
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=2then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,户主姓名,表名,示数,记录日期,记录时间,告警提示 from 户主查询 where (户主姓名= '''+num+''')and (表名=''煤气表'')';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (户主姓名='''+num+''') ';
          Adoquery2.Open;
          end

        end
        else if combobox2.Text='所有'then
           begin
          if radiogroup1.ItemIndex=1then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,表名,max(示数) as 当前读数 from 户主查询 where (户主姓名= '''+num+''') group by 表名,编号';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (户主姓名='''+num+''') ';
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=0then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,表名,(max(示数)-min(示数)) as 历史示数 from 户主查询 where (户主姓名= '''+num+''')and (记录日期 between :a and :b) group by 表名,编号';
          adoquery1.Parameters.ParamByName('a').Value:=strtodate(trim(edit1.Text));
          adoquery1.Parameters.ParamByName('b').Value:=strtodate(trim(edit2.Text));
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (户主姓名='''+num+''') ';
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=2then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,户主姓名,表名,示数,记录日期,记录时间,告警提示 from 户主查询 where (户主姓名= '''+num+''')';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (户主姓名='''+num+''') ';
          Adoquery2.Open;
          end
        end
    end
    else if combobox1.text='栋数'then
      begin
      num1:='%'+num+'%';
    if combobox2.text='电表'then
        begin
          if radiogroup1.ItemIndex=1then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,max(示数) as 当前读数 from 户主查询 where (编号 like '''+num1+''')and (表名=''电表'') group by 编号';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.add('select * from 居名基本信息 where 编号 like '''+num1+'''');
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=0then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,(max(示数)-min(示数)) as 历史示数 from 户主查询 where (编号 like '''+num1+''')and (表名=''电表'')and (记录日期 between :a and :b) group by 编号';
          adoquery1.Parameters.ParamByName('a').Value:=strtodate(trim(edit1.Text));
          adoquery1.Parameters.ParamByName('b').Value:=strtodate(trim(edit2.Text));
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (编号 like '''+num1+''') ';
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=2 then
          begin //*
           Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select * from 数据信息 where (编号 like '''+num1+''')and (表名=''电表'')';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (编号 like '''+num1+''') ';
          Adoquery2.Open;
          end   //*
        end
     else if combobox2.Text='水表'then
        begin
          if radiogroup1.ItemIndex=1then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,max(示数) as 当前读数 from 户主查询 where (编号 like '''+num1+''')and (表名=''水表'') group by 编号';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.add('select * from 居名基本信息 where 编号 like '''+num1+'''');
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=0then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,(max(示数)-min(示数)) as 历史示数 from 户主查询 where (编号 like '''+num1+''')and (表名=''水表'')and (记录日期 between :a and :b) group by 编号';
          adoquery1.Parameters.ParamByName('a').Value:=strtodate(trim(edit1.Text));
          adoquery1.Parameters.ParamByName('b').Value:=strtodate(trim(edit2.Text));
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (编号 like '''+num1+''') ';
          Adoquery2.Open;
          end
         else if radiogroup1.ItemIndex=2 then
          begin //*
           Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select * from 数据信息 where (编号 like '''+num1+''')and (表名=''水表'')';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (编号 like '''+num1+''') ';
          Adoquery2.Open;
          end   //*
        end
       else if combobox2.Text='煤气表'then
         begin
          if radiogroup1.ItemIndex=1then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,max(示数) as 当前读数 from 户主查询 where (编号 like '''+num1+''')and (表名=''煤气表'') group by 编号';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.add('select * from 居名基本信息 where 编号 like '''+num1+'''');
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=0then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,(max(示数)-min(示数)) as 历史示数 from 户主查询 where (编号 like '''+num1+''')and (表名=''煤气表'')and (记录日期 between :a and :b) group by 编号';
          adoquery1.Parameters.ParamByName('a').Value:=strtodate(trim(edit1.Text));
          adoquery1.Parameters.ParamByName('b').Value:=strtodate(trim(edit2.Text));
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (编号 like '''+num1+''') ';
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=2 then
          begin //*
           Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select * from 数据信息 where (编号 like '''+num1+''')and (表名=''煤气表'')';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (编号 like '''+num1+''') ';
          Adoquery2.Open;
          end   //*
        end
        else if combobox2.text='所有'then
           begin
          if radiogroup1.ItemIndex=1then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,表名,max(示数) as 当前读数 from 户主查询 where (编号 like '''+num1+''') group by 表名,编号';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.add('select * from 居名基本信息 where 编号 like '''+num1+'''');
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=0then
          begin
          Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select 编号,表名,(max(示数)-min(示数)) as 历史示数 from 户主查询 where (编号 like '''+num1+''')and (记录日期 between :a and :b) group by 表名,编号';
          adoquery1.Parameters.ParamByName('a').Value:=strtodate(trim(edit1.Text));
          adoquery1.Parameters.ParamByName('b').Value:=strtodate(trim(edit2.Text));
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (编号 like '''+num1+''') ';
          Adoquery2.Open;
          end
          else if radiogroup1.ItemIndex=2 then
          begin //*
           Adoquery1.Close;
          Adoquery1.SQL.Clear;
          Adoquery1.SQL.text:='select * from 数据信息 where (编号 like '''+num1+''')';
          Adoquery1.Open;
          Adoquery2.Close;
          Adoquery2.SQL.Clear;
          Adoquery2.SQL.text:='select *from 居名基本信息 where (编号 like '''+num1+''') ';
          Adoquery2.Open;
          end   //*
        end
        end;
        //end;
end;

procedure TForm2.DBGrid2CellClick(Column: TColumn);
begin
Edit4.Text:=dbgrid2.Fields[0].AsString;
Edit5.Text:=dbgrid2.Fields[1].AsString;
Edit6.Text:=dbgrid2.Fields[2].AsString;
Edit7.Text:=dbgrid2.Fields[3].AsString;
Edit8.Text:=dbgrid2.Fields[4].AsString;
Edit9.Text:=dbgrid2.Fields[5].AsString;
Edit10.Text:=dbgrid2.Fields[6].AsString;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
 num,name,sj,dh,dz,dw,sf:string;
begin
  num:=edit4.Text;
  name:=edit5.Text;
  sj:=edit6.Text;
  dh:=edit7.Text;
  dz:=edit8.Text;
  dw:=edit9.Text;
  sf:=edit10.Text;
  //Adoquery1.Close;
  //Adoquery1.SQL.Clear;
  //Adoquery1.SQL.Text:='select * from  居名基本信息  where( 路号名='''+lhm+''')';
  //Adoquery1.Open;
  //temp1:=adoquery1.FieldByName('路号名').AsString;
     //if temp1<>'' then
   begin
  adocommand1.CommandText:='update 居名基本信息 set 户主姓名='''+name+''',手机号码='''+sj+''',家庭电话='''+dh+''',家庭地址='''+dz+''',工作单位 ='''+dw+''',是否常住='''+sf+'''where 编号='''+num+'''';
  adocommand1.Execute;
  Adoquery2.Close;
  Adoquery2.SQL.Clear;
  Adoquery2.sql.text:='select * from  居名基本信息 where 编号='''+num+'''';
  adoquery2.open;
  edit4.Text:='';
  edit5.Text:='';
  edit6.Text:='';
  edit7.Text:='';
  edit9.Text:='';
  edit8.Text:='';
  edit10.Text:='';
  end

end;

procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
dbgrid2.Fields[0].AsString;
dbgrid2.Fields[1].AsString;
dbgrid2.Fields[2].AsString;
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
label1.Visible:=true;
edit4.Visible:=true;
label3.Visible:=true;
label4.Visible:=true;
label5.Visible:=true;
label6.Visible:=true;
label7.Visible:=true;
label8.Visible:=true;
edit5.Visible:=true;
edit6.Visible:=true;
edit7.Visible:=true;
edit8.Visible:=true;
edit9.Visible:=true;
edit10.Visible:=true;
button2.Visible:=true;
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
unit3.Form3.Show;
end;

end.