realtyc321.pas

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

            query1.Open;
            if query1.RecordCount>0 then
            begin
                showmessage('编号重复');
                exit;
            end;
        end;

        if ComboBox3.Text<>f_RealtyC32.ListView1.Selected.SubItems[4] then
        begin
            query1.sql.clear;
            query1.SQL.add('select * from 公摊仪表 where 总表='''+ComboBox3.Text+'''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                showmessage('分摊表重复');
                exit;
            end;
        end;


        s:='update 公摊仪表 set 编号='''+edit1.Text;
        s:=s+''',收费项目='''+mainform.getNum(combobox5.Text);
        s:=s+''',收费标准='''+mainform.getNum(combobox1.Text);
        s:=s+''',公摊仪表类型='''+combobox2.text;
        s:=s+''',总表='''+combobox3.Text;
        s:=s+''',管理区='''+mainform.getNum(edit8.Text);
        s:=s+''',损耗率='+edit2.Text;
        s:=s+',倍率='+edit3.Text;
        s:=s+',回程='+edit4.Text;
        s:=s+',当前读数='+edit5.text;
        s:=s+',读数日期='''+datetostr(datetimepicker1.Date);
        s:=s+''',备注='''+edit6.Text;
        s:=s+''',分摊方式='''+combobox4.Text;
        s:=s+''' where 编号='''+f_RealtyC32.ListView1.Selected.caption+'''';

        query.SQL.Clear;
        query.sql.Add(s);
        DataModuleADO.ADOConnection1.BeginTrans;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        mainform.t1:=edit1.Text;

        s:='select * from  公摊仪表 where 编号 = '''+mainform.t1;
        s:=s+'''';

        query.sql.Clear;
        Query.SQL.Add(s);
        Query.Open ;
        while not Query.Eof do
        begin
            query1.sql.clear;
            query1.SQL.add('select * from 管理区 where 编号='''+query.fieldbyname('编号').Value+'''');
            query1.Open;
            if query1.RecordCount>0 then  stemp:=query1.fieldbyname('管理处').Value;
            with f_RealtyC32.ListView1.Selected do
            begin
                Caption:=Query.FieldByName('编号').Value;
                SubItems[0]:=mainform.getName('管理区',Query.FieldByName('管理区').Value);
                SubItems[1]:=mainform.getName('收费项目',Query.FieldByName('收费项目').Value);
                SubItems[2]:=mainform.getName('收费标准',Query.FieldByName('收费标准').Value);
                SubItems[3]:=Query.FieldByName('分摊方式').Value;
                SubItems[4]:=Query.FieldByName('总表').Value;
                SubItems[5]:=Query.FieldByName('公摊仪表类型').Value;
                SubItems[6]:=Query.FieldByName('倍率').Value;
                SubItems[7]:=Query.FieldByName('回程').Value;
                SubItems[8]:=Query.FieldByName('损耗率').Value;
                SubItems[9]:=Query.FieldByName('读数日期').Value;
                SubItems[10]:=Query.FieldByName('当前读数').Value;
                SubItems[11]:=Query.FieldByName('备注').Value;
            end;
            query.Next;
        end; 
        query1.close;
        query1.Free;
        query.close;
        query.Free;
        close;
    end
    else
    begin
        query1.sql.clear;
        query1.SQL.add('select * from 公摊仪表 where 编号='''+Edit1.Text+'''');
        query1.Open;
        if query1.RecordCount>0 then
        begin
            showmessage('编号重复');
            exit;
        end;

        s:='select * from 公摊仪表 where 总表='''+ComboBox3.Text;
        s:=s+''' and 收费项目='''+mainform.getNum(combobox5.text);
        s:=s+''' and 管理区='''+mainform.getNum(edit8.text);
        s:=s+'''';

        query1.sql.clear;
        query1.SQL.add(s);
        query1.Open;
        if query1.RecordCount>0 then
        begin
            showmessage('分摊表重复');
            exit;
        end;

        s:='insert into 公摊仪表 (编号,收费项目,收费标准,公摊仪表类型,总表,管理区,';
        s:=s+'损耗率,倍率,回程,读数日期,当前读数,';
        s:=s+'备注,分摊方式)';
        s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
        s:=s+':s6,:s7,:s8,:s9,:s10,';
        s:=s+':s11,:s12,:s13)';

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

        query.Parameters.ParamByName('s1').Value:=edit1.Text;
        query.Parameters.ParamByName('s2').Value:=mainform.getNum(combobox5.text);
        query.Parameters.ParamByName('s3').Value:=mainform.getNum(combobox1.text);
        query.Parameters.ParamByName('s4').Value:=combobox2.Text;
        query.Parameters.ParamByName('s5').Value:=combobox3.text;
        query.Parameters.ParamByName('s6').Value:=mainform.getNum(edit8.text);

        query.Parameters.ParamByName('s7').Value:=strtofloat(edit2.Text);
        query.Parameters.ParamByName('s8').Value:=strtofloat(edit3.Text);
        query.Parameters.ParamByName('s9').Value:=strtofloat(edit4.Text);
        query.Parameters.ParamByName('s10').Value:=datetostr(datetimepicker1.date);
        query.Parameters.ParamByName('s11').Value:=strtofloat(edit5.Text);

        query.Parameters.ParamByName('s12').Value:=edit6.Text;
        query.Parameters.ParamByName('s13').Value:=combobox4.Text;

        DataModuleADO.ADOConnection1.BeginTrans;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        s:='select * from  公摊仪表 where 编号 = '''+edit1.Text;
        s:=s+'''';
        query.sql.Clear;
        Query.SQL.Add(s);
        Query.Open ;
        while not Query.Eof do
        begin
            query1.sql.clear;
            query1.SQL.add('select * from 管理区 where 编号='''+query.fieldbyname('编号').Value+'''');
            query1.Open;
            if query1.RecordCount>0 then  stemp:=query1.fieldbyname('管理处').Value;
            with f_RealtyC32.ListView1.Items.Add do
            begin
                Caption:=Query.FieldByName('编号').Value;
                SubItems.Add(mainform.getName('管理区',Query.FieldByName('管理区').Value));
                SubItems.Add(mainform.getName('收费项目',Query.FieldByName('收费项目').Value));
                SubItems.Add(mainform.getName('收费标准',Query.FieldByName('收费标准').Value));
                SubItems.Add(Query.FieldByName('公摊仪表类型').Value);

                SubItems.Add(Query.FieldByName('倍率').Value);
                SubItems.Add(Query.FieldByName('回程').Value);
                SubItems.Add(Query.FieldByName('损耗率').Value);
                SubItems.Add(Query.FieldByName('读数日期').Value);

                SubItems.Add(Query.FieldByName('当前读数').Value);
                SubItems.Add(Query.FieldByName('备注').Value);
                SubItems.Add(Query.FieldByName('分摊方式').Value);
                SubItems.Add(Query.FieldByName('总表').Value);
            end;
            query.Next;
        end;
        query1.Close;
        query1.free;
        query.Close;
        query.free;

        //if f_RealtyC32.listview1.Items.Count = 1 then f_RealtyC32.ListView1.Items.Item[0].Selected := True;
        

    end;

end;

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

procedure Tf_RealtyC321.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_RealtyC321.Button1Click(Sender: TObject);
begin
    f_realtyA11:=Tf_realtyA11.Create(self);
    f_realtyA11.TOOLbutton6.Visible:=true;
    f_realtyA11.ShowModal;

    if  f_realtyA11.bOk=true then
    begin
        edit8.Text:=f_realtyA11.snum+'--'+f_realtyA11.sname;

        ComboBox5Select(Sender);
    end;
end;

procedure Tf_RealtyC321.ComboBox2Select(Sender: TObject);
begin
    if combobox2.Text='总表' then
    begin
        Button2.Enabled:=false;
        combobox3.ItemIndex:=combobox3.Items.IndexOf('总表');
        combobox3.Enabled:=false;
    end
    else
    begin
        combobox3.Enabled:=true;
        combobox3.ItemIndex:=combobox3.Items.IndexOf('');
        Button2.Enabled:=true;
    end;
end;



procedure Tf_RealtyC321.Button2Click(Sender: TObject);
var
    Query:TADOQuery;
begin
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;

    query.sql.clear;
    query.SQL.add('select * from 公摊仪表 where 编号='''+Edit1.Text+'''');
    query.Open;
    if query.RecordCount=0 then
    begin
        showmessage('请先保存公摊仪表');
        exit;
    end;

    if combobox2.Text='总表' then exit;
    if combobox2.Text='' then exit;

    f_realtyC322:=Tf_realtyC322.Create(self);
    f_realtyC322.ShowModal;
end;

procedure Tf_RealtyC321.Button3Click(Sender: TObject);
begin
    f_RealtyC32.bMod:=false;
     
    getId;
    edit2.text:='';
    edit3.text:='';
    edit4.text:='';
    edit5.text:='';
    edit6.text:='';

    combobox2.ItemIndex:=combobox2.Items.IndexOf('');
    combobox3.ItemIndex:=combobox3.Items.IndexOf('');
    edit8.text:='';
    datetimepicker1.Date:=date;
    combobox4.ItemIndex:=combobox4.Items.IndexOf('');
    combobox1.ItemIndex:=combobox1.Items.IndexOf('');
    combobox5.ItemIndex:=combobox5.Items.IndexOf('');
    
    Edit1.SetFocus;
end;



procedure Tf_RealtyC321.ComboBox5Select(Sender: TObject);
Var
    query:TADOQuery;
    nLevel,i:integer;
    s,s1:string;
    b,bok:bool;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    combobox1.Items.Clear;

    query.SQL.Clear;
    query.SQL.Add('select * from 收费标准 where 收费项目='''+mainform.getNum(combobox5.Text)+''' and 管理区='''+mainform.getNum(Edit8.Text)+'''');
    query.Open;
    while not query.Eof do
    begin
        combobox1.Items.Add(query.fieldbyname('编号').Value+'--'+query.fieldbyname('名称').Value);
        query.Next;
    end;


end;

end.