realtyc531.pas

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

                     begin
                         s:='update 车位费用 set 已收全='''+'Y';
                         s:=s+''', 收全日期='''+datetostr(datetimepicker1.date);
                         s:=s+''' where 单号='''+listview3.Items.Item[i].subitems[8]+'''';
                         query.SQL.Clear;
                         query.sql.Add(s);
                         DataModuleADO.ADOConnection1.BeginTrans;
                         query.ExecSQL;
                         DataModuleADO.ADOConnection1.CommitTrans;
                     end;
                end;
            end;
        end;

        if listview4.Items.Count>0 then
        begin
            for i:=0 to listview4.Items.Count-1 do
            begin
                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)';

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

                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=mainform.getNum(listview4.Items.Item[i].Caption);
                query.Parameters.ParamByName('s3').Value:=listview4.Items.Item[i].subitems[0];
                query.Parameters.ParamByName('s4').Value:=listview4.Items.Item[i].subitems[1];
                query.Parameters.ParamByName('s5').Value:=strtofloat(mainform.StdDou2(listview4.Items.Item[i].subitems[2]));
                query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.StdDou2(listview4.Items.Item[i].subitems[3]));
                query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.StdDou2(listview4.Items.Item[i].subitems[4]));
                query.Parameters.ParamByName('s8').Value:=listview4.Items.Item[i].subitems[5];
                query.Parameters.ParamByName('s9').Value:=strtofloat(mainform.StdDou2(listview4.Items.Item[i].subitems[6]));
                query.Parameters.ParamByName('s10').Value:=listview4.Items.Item[i].subitems[7];
                query.Parameters.ParamByName('s11').Value:=listview4.Items.Item[i].subitems[8];
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;

                query.SQL.Clear;
                query.sql.Add('select * from 临时费用 where 单号='''+listview4.Items.Item[i].subitems[8]+'''');
                query.Open;
                if query.RecordCount>0 then d1:=query.fieldbyname('已收金额').Value;

                d:=d1+strtofloat(listview4.Items.Item[i].subitems[4]);

                s:='update 临时费用 set 已收金额='+floattostr(d)+' where 单号='''+listview4.Items.Item[i].subitems[8]+'''';
                query.SQL.Clear;
                query.sql.Add(s);
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;

                query.SQL.clear;
                query.SQL.Add('select * from 临时费用 where 单号='''+listview4.Items.Item[i].subitems[8]+'''');
                query.Open;
                if query.recordcount>0 then
                begin
                     if query.FieldByName('应收金额').value=query.FieldByName('已收金额').value then
                     begin
                         s:='update 临时费用 set 已收全='''+'Y';
                         s:=s+''', 收全日期='''+datetostr(datetimepicker1.date);
                         s:=s+''' where 单号='''+listview4.Items.Item[i].subitems[8]+'''';
                         query.SQL.Clear;
                         query.sql.Add(s);
                         DataModuleADO.ADOConnection1.BeginTrans;
                         query.ExecSQL;
                         DataModuleADO.ADOConnection1.CommitTrans;
                     end;
                end;
            end;
        end;

        query.sql.clear;
        Query.SQL.Add('select * from 现金收款单 where 单号 = '''+edit1.Text+'''');
        Query.Open;
        if query.recordcount>0 then
        begin
             s1:='-';
             query1.SQL.clear;
             query1.SQL.add('select * from 客户资料 where 客户代码='''+query.fieldbyname('客户').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then  s1:=query1.fieldbyname('客户名称').Value;

             with f_RealtyC53.Listview1.selected do
             begin
                  Caption:=s1;
                  SubItems[0]:=Query.FieldByName('单号').Value;
                  SubItems[1]:=Query.FieldByName('金额').Value;
                  SubItems[2]:=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;
             end;
        end;
        query1.Close;
        query1.free;
        query.Close;
        query.free;
        close;
    end
    else
    begin
        query.SQL.Clear;
        query.SQL.add('select * from 现金收款单 where 单号 ='''+edit1.Text+'''');
        query.open;
        if query.RecordCount>0 then
        begin
            showmessage('单号重复!');
            edit1.SetFocus;
            query.close;
            query.free;
            exit;
        end;

        s:='insert into 现金收款单 (单号,日期,客户,结算方式,金额,';
        s:=s+'发票号,收据号,备注,操作员,修订,制单时间)';
        s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
        s:=s+':s6,:s7,:s8,:s9,:s10,:s11)';

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

        query.Parameters.ParamByName('s1').Value:=edit1.Text;
        query.Parameters.ParamByName('s2').Value:=datetostr(datetimepicker1.date);
        query.Parameters.ParamByName('s3').Value:=r1;
        query.Parameters.ParamByName('s4').Value:=edit4.text;
        query.Parameters.ParamByName('s5').Value:=strtofloat(edit3.text);
        query.Parameters.ParamByName('s6').Value:=edit5.text;
        query.Parameters.ParamByName('s7').Value:=edit6.text;
        query.Parameters.ParamByName('s8').Value:=edit7.text;
        query.Parameters.ParamByName('s9').Value:=edit8.text;
        query.Parameters.ParamByName('s10').Value:=edit9.text;
        query.Parameters.ParamByName('s11').Value:=datetostr(date);

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

        if listview1.Items.Count>0 then
        begin
            for i:=0 to listview1.Items.Count-1 do
            begin
                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)';

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

                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=mainform.getNum(listview1.Items.Item[i].Caption);
                query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].subitems[0];
                query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].subitems[1];
                query.Parameters.ParamByName('s5').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[2]));
                query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[3]));
                query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[4]));
                query.Parameters.ParamByName('s8').Value:=listview1.Items.Item[i].subitems[5];
                query.Parameters.ParamByName('s9').Value:=strtofloat(mainform.StdDou2(listview1.Items.Item[i].subitems[6]));
                query.Parameters.ParamByName('s10').Value:=listview1.Items.Item[i].subitems[7];
                query.Parameters.ParamByName('s11').Value:=listview1.Items.Item[i].subitems[8];

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

                query.SQL.Clear;
                query.sql.Add('select * from 常规费用 where 单号='''+listview1.Items.Item[i].subitems[8]+'''');
                query.Open;
                if query.RecordCount>0 then d1:=query.fieldbyname('已收金额').Value;

                d:=d1+strtofloat(listview1.Items.Item[i].subitems[4]);

                s:='update 常规费用 set 已收金额='+floattostr(d)+' where 单号='''+listview1.Items.Item[i].subitems[8]+'''';
                query.SQL.Clear;
                query.sql.Add(s);
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;

                query.SQL.clear;
                query.SQL.Add('select * from 常规费用 where 单号='''+listview1.Items.Item[i].subitems[8]+'''');
                query.Open;
                if query.recordcount>0 then
                begin
                     if query.FieldByName('应收金额').value=query.FieldByName('已收金额').value then
                     begin
                         s:='update 常规费用 set 已收全='''+'Y';
                         s:=s+''', 收全日期='''+datetostr(datetimepicker1.date);
                         s:=s+''' where 单号='''+listview1.Items.Item[i].subitems[8]+'''';
                         query.SQL.Clear;
                         query.sql.Add(s);
                         DataModuleADO.ADOConnection1.BeginTrans;
                         query.ExecSQL;
                         DataModuleADO.ADOConnection1.CommitTrans;
                     end;
                end;
            end;
        end;

        if listview2.Items.Count>0 then
        begin
            for i:=0 to listview2.Items.Count-1 do
            begin
                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)';

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

                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=mainform.getNum(listview2.Items.Item[i].Caption);
                query.Parameters.ParamByName('s3').Value:=listview2.Items.Item[i].subitems[0];
                query.Parameters.ParamByName('s4').Value:=listview2.Items.Item[i].subitems[1];
                query.Parameters.ParamByName('s5').Value:=strtofloat(mainform.StdDou2(listview2.Items.Item[i].subitems[2]));
                query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.StdDou2(listview2.Items.Item[i].subitems[3]));
                query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.StdDou2(listview2.Items.Item[i].subitems[4]));
                query.Parameters.ParamByName('s8').Value:=listview2.Items.Item[i].subitems[5];
                query.Parameters.ParamByName('s9').Value:=strtofloat(mainform.StdDou2(listview2.Items.Item[i].subitems[6]));
                query.Parameters.ParamByName('s10').Value:=listview2.Items.Item[i].subitems[7];
                query.Parameters.ParamByName('s11').Value:=listview2.Items.Item[i].subitems[8];
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;

                query.SQL.Clear;
                query.sql.Add('select * from 抄表费用 where 单号='''+listview1.Items.Item[i].subitems[8]+'''');
                query.Open;
                if query.RecordCount>0 then d1:=query.fieldbyname('已收金额').Value;

                d:=d1+strtofloat(listview2.Items.Item[i].subitems[4]);

                s:='update 抄表费用 set 已收金额='+floattostr(d)+' where 单号='''+listview2.Items.Item[i].subitems[8]+'''';
                query.SQL.Clear;
                query.sql.Add(s);
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;

                query.SQL.clear;
                query.SQL.Add('select * from 抄表费用 where 单号='''+listview2.Items.Item[i].subitems[8]+'''');
                query.Open;
                if query.recordcount>0 then
                begin
                     if query.FieldByName('应收金额').value=query.FieldByName('已收金额').value then
                     begin
                         s:='update 抄表费用 set 已收全='''+'Y';
                         s:=s+''', 收全日期='''+datetostr(datetimepicker1.date);
                         s:=s+''' where 单号='''+listview2.Items.Item[i].subitems[8]+'''';
                         query.SQL.Clear;
                         query.sql.Add(s);
                         DataModuleADO.ADOConnection1.BeginTrans;
                         query.ExecSQL;
                         DataModuleADO.ADOConnection1.CommitTrans;
                     end;
                end;
            end;
        end;


        if listview3.Items.Count>0 then
        begin
            for i:=0 to listview3.Items.Count-1 do
            begin
                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)';

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

                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=mainform.getNum(listview3.Items.Item[i].Caption);
                query.Parameters.ParamByName('s3').Value:=listview3.Items.Item[i].subitems[0];
                query.Parameters.ParamByName('s4').Value:=listview3.Items.Item[i].subitems[1];
                query.Parameters.ParamByName('s5').Value:=strtofloat(mainform.StdDou2(listview3.Items.Item[i].subitems[2]));
                query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.StdDou2(listview3.Items.Item[i].subitems[3]));
                query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.StdDou2(listview3.Items.Item[i].subitems[4]));
                query.Parameters.ParamByName('s8').Value:=listview3.Items.Item[i].subitems[5];
                query.Parameters.ParamByName('s9').Value:=strtofloat(mainform.StdDou2(listview3.Items.Item[i].subitems[6]));
                query.Parameters.ParamByName('s10').Value:=listview3.Items.Item[i].subitems[7];
                query.Parameters.ParamByName('s11').Value:=listview3.Items.Item[i].subitems[8];

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

                query.SQL.Clear;
                query.sql.Add('select * from 车位费用 where 单号='''+listview3.Items.Item[i].subitems[8]+'''');
                query.Open;