realtyc332.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

                query1.Parameters.ParamByName('s3').Value:=s2;
                query1.Parameters.ParamByName('s4').Value:=strtofloat(edit3.text);
                query1.Parameters.ParamByName('s5').Value:=strtofloat(edit4.Text);

                query1.Parameters.ParamByName('s6').Value:=strtofloat(edit2.Text);
                query1.Parameters.ParamByName('s7').Value:=combobox3.Text;
                query1.Parameters.ParamByName('s8').Value:=s1;
                query1.Parameters.ParamByName('s9').Value:=edit6.Text;

                query1.Parameters.ParamByName('s10').Value:=r2;
                query1.Parameters.ParamByName('s11').Value:=strtofloat(r1);


                DataModuleADO.ADOConnection1.BeginTrans;
                query1.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            query.Next;
        end;
    end;



    if edit8.Text<>'' then
    begin
        query.SQL.clear;
        query.SQL.Add('select * from 房间 where 楼宇='''+mainform.getNum(edit8.Text)+'''');
        query.Open;
        while not query.Eof do
        begin
            s2:=query.fieldbyname('编号').Value;


            {r1:='0';
            r2:=datetostr(date);
            query1.SQL.Clear;
            query1.SQL.Add('select top 1 * from 房间抄表 order by 读数日期 DESC');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                r1:=query1.fieldbyname('本次读数').Value;
                r2:=query1.fieldbyname('读数日期').Value;
            end; }

            Edit1.Text:=mainform.StdDou2(Edit1.Text);
            r1:= Edit1.Text;
            r2:=datetostr(DateTimePicker1.Date);


            s := 'select top 1 * from 房间仪表 ORDER BY  编号 DESC';

            query1.SQL.Clear;
            Query1.SQL.Add(s);
            Query1.Open ;
            if query1.recordcount > 0 then
            begin
                s:= Query1.Fieldbyname('编号').AsString;
                s:= Copy(S, 1, 7);
                i:= strtoint(s)+1;
                if i<10 then s3 := '000000'+inttostr(i)
                else if (i > 9) and (i<100) then s3 := '00000'+inttostr(i)
                else if (i > 99) and (i<1000) then s3 := '0000'+inttostr(i)
                else if (i > 999) and (i<10000) then s3 := '000'+inttostr(i)
                else if (i > 9999) and (i<100000) then s3 := '00'+inttostr(i)
                else if (i > 99999) and (i<1000000) then s3 := '0'+inttostr(i)
                else if i>999999 then s3 := inttostr(i);
            end
            else  s3 := '0000001';



            s:='select * from 房间仪表 where 房间='''+s2;
            s:=s+''' and 仪表种类='''+ combobox1.Text;
            s:=s+'''';
            query1.sql.clear;
            query1.SQL.add(s);
            query1.open;
            if query1.RecordCount=0 then
            begin

                s:='insert into 房间仪表 (编号,仪表种类,房间,倍率,回程,';
                s:=s+'损耗率,总表,是否主表,';
                s:=s+'备注,上次读数日期,上次读数)';
                s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
                s:=s+':s6,:s7,:s8,:s9,:s10,:s11)';

                query1.SQL.Clear;
                query1.SQL.Add(s);

                query1.Parameters.ParamByName('s1').Value:=s3;
                query1.Parameters.ParamByName('s2').Value:=combobox1.Text;
                query1.Parameters.ParamByName('s3').Value:=s2;
                query1.Parameters.ParamByName('s4').Value:=strtofloat(edit3.text);
                query1.Parameters.ParamByName('s5').Value:=strtofloat(edit4.Text);

                query1.Parameters.ParamByName('s6').Value:=strtofloat(edit2.Text);
                query1.Parameters.ParamByName('s7').Value:=combobox3.Text;
                query1.Parameters.ParamByName('s8').Value:=s1;
                query1.Parameters.ParamByName('s9').Value:=edit6.Text;

                query1.Parameters.ParamByName('s10').Value:=r2;
                query1.Parameters.ParamByName('s11').Value:=strtofloat(r1);


                DataModuleADO.ADOConnection1.BeginTrans;
                query1.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            query.Next;
        end;
    end;


    if edit7.Text<>'' then
    begin
        query.SQL.Clear;
        query.SQL.Add('select * from 组织机构 where 名称='''+edit7.Text+'''');
        query.Open;
        if query.RecordCount>0 then r3:=query.fieldbyname('编号').value;

        query.SQL.clear;
        query.SQL.Add('select * from 房间 where 管理处='''+r3+'''');
        query.Open;
        while not query.Eof do
        begin
            s2:=query.fieldbyname('编号').Value;

            {r1:='0';
            r2:=datetostr(date);
            query1.SQL.Clear;
            query1.SQL.Add('select top 1 * from 房间抄表 order by 读数日期 DESC');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                r1:=query1.fieldbyname('本次读数').Value;
                r2:=query1.fieldbyname('读数日期').Value;
            end; }


            Edit1.Text:=mainform.StdDou2(Edit1.Text);
            r1:= Edit1.Text;
            r2:=datetostr(DateTimePicker1.Date);


            s := 'select top 1 * from 房间仪表 ORDER BY  编号 DESC';

            query1.SQL.Clear;
            Query1.SQL.Add(s);
            Query1.Open ;
            if query1.recordcount > 0 then
            begin
                s:= Query1.Fieldbyname('编号').AsString;
                s:= Copy(S, 1, 7);
                i:= strtoint(s)+1;
                if i<10 then s3 := '000000'+inttostr(i)
                else if (i > 9) and (i<100) then s3 := '00000'+inttostr(i)
                else if (i > 99) and (i<1000) then s3 := '0000'+inttostr(i)
                else if (i > 999) and (i<10000) then s3 := '000'+inttostr(i)
                else if (i > 9999) and (i<100000) then s3 := '00'+inttostr(i)
                else if (i > 99999) and (i<1000000) then s3 := '0'+inttostr(i)
                else if i>999999 then s3 := inttostr(i);
            end
            else  s3 := '0000001';



            s:='select * from 房间仪表 where 房间='''+s2;
            s:=s+''' and 仪表种类='''+ combobox1.Text;
            s:=s+'''';
            query1.sql.clear;
            query1.SQL.add(s);
            query1.open;
            if query1.RecordCount=0 then
            begin


                s:='insert into 房间仪表 (编号,仪表种类,房间,倍率,回程,';
                s:=s+'损耗率,总表,是否主表,';
                s:=s+'备注,上次读数日期,上次读数)';
                s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
                s:=s+':s6,:s7,:s8,:s9,:s10,:s11)';

                query1.SQL.Clear;
                query1.SQL.Add(s);

                query1.Parameters.ParamByName('s1').Value:=s3;
                query1.Parameters.ParamByName('s2').Value:=combobox1.Text;
                query1.Parameters.ParamByName('s3').Value:=s2;
                query1.Parameters.ParamByName('s4').Value:=strtofloat(edit3.text);
                query1.Parameters.ParamByName('s5').Value:=strtofloat(edit4.Text);

                query1.Parameters.ParamByName('s6').Value:=strtofloat(edit2.Text);
                query1.Parameters.ParamByName('s7').Value:=combobox3.Text;
                query1.Parameters.ParamByName('s8').Value:=s1;
                query1.Parameters.ParamByName('s9').Value:=edit6.Text;

                query1.Parameters.ParamByName('s10').Value:=r2;
                query1.Parameters.ParamByName('s11').Value:=strtofloat(r1);


                DataModuleADO.ADOConnection1.BeginTrans;
                query1.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;

            query.Next;
        end;
    end;

    bGetdata:=true;

    edit2.text:='';
    edit3.text:='';
    edit4.text:='';
    edit5.text:='';
    edit6.text:='';
    edit7.text:='';
    combobox1.ItemIndex:=combobox1.Items.IndexOf('');
    combobox3.ItemIndex:=combobox3.Items.IndexOf('');
    checkbox1.checked:=false;

    showmessage('保存成功');
end;

procedure Tf_RealtyC332.Button5Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyC332.Button1Click(Sender: TObject);
begin
     if (edit5.Text<>'') or (edit8.text<>'') then
     begin
        showmessage('你已经选择了所要批量生成的单位');
        exit;
     end;
     f_realtyI11C:=Tf_realtyI11C.Create(self);
     f_RealtyI11C.button1.Visible:=true;
     f_realtyI11C.ShowModal;

     if  f_realtyI11C.bOk=true then
     begin
         edit7.Text:=f_realtyI11C.ListView1.Selected.SubItems[0];
     end;
end;

procedure Tf_RealtyC332.ComboBox3Select(Sender: TObject);
begin
    if combobox3.Text='新增总表' then
    begin
        mainform.t1:='总表';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            combobox3.Items.Add(mainform.t1);
            combobox3.ItemIndex:=combobox3.Items.IndexOf(mainform.t1);
        end
        else combobox3.ItemIndex:=combobox3.Items.IndexOf('');
    end;
end;

procedure Tf_RealtyC332.Button2Click(Sender: TObject);
begin
    if (edit7.Text<>'') or (edit8.text<>'') then
    begin
        showmessage('你已经选择了所要批量生成的单位');
        exit;
    end;

    f_RealtyA11:=Tf_RealtyA11.Create(self);
    f_RealtyA11.ToolButton6.Visible:=true;
    f_RealtyA11.ShowModal;

    if  f_RealtyA11.bOk=true then
    begin
       edit5.Text:=f_RealtyA11.sNum+'--'+f_RealtyA11.sName;
    end;

end;

procedure Tf_RealtyC332.Button3Click(Sender: TObject);
begin
    if (edit7.Text<>'') or (edit5.text<>'') then
    begin
        showmessage('你已经选择了所要批量生成的单位');
        exit;
    end;

    f_RealtyA12:=Tf_RealtyA12.Create(self);
    f_RealtyA12.ToolButton6.Visible:=true;
    f_RealtyA12.ShowModal;

    if  f_RealtyA12.bOk=true then
    begin
       edit8.Text:=f_RealtyA12.sNum+'--'+f_RealtyA12.sName;
    end;
end;

end.