realtyc42a.pas

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

                            query1.Parameters.ParamByName('s19').Value:=datetostr(date);

                            query1.Parameters.ParamByName('s20').Value:=0;
                            query1.Parameters.ParamByName('s21').Value:=0;
                            query1.Parameters.ParamByName('s22').Value:=0;
                            query1.Parameters.ParamByName('s23').Value:=0;
                            query1.Parameters.ParamByName('s24').Value:=0;

                            query1.Parameters.ParamByName('s25').Value:=strtofloat(s9)*(strtofloat(r1)+strtofloat(r5));
                            query1.Parameters.ParamByName('s26').Value:='0';
                            query1.Parameters.ParamByName('s27').Value:='N';
                            query1.Parameters.ParamByName('s28').Value:=datetostr(date);
                            query1.Parameters.ParamByName('s29').Value:='-';

                            query1.Parameters.ParamByName('s30').Value:=czy;
                            query1.Parameters.ParamByName('s31').Value:='-';
                            query1.Parameters.ParamByName('s32').Value:=ss;
                            query1.Parameters.ParamByName('s33').Value:=copy(datetostr(DateTimePicker1.Date),1,7);

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

                            bGetdata:=true;
                        end;
                    end;
                end;

                query.next;
            end;//


            query11.Next;
        end;
    end;



    if edit8.Text<>'' then
    begin
        ss:='按楼宇';
        s:='select * from 抄表费用 where 收费月份='''+copy(datetostr(DateTimePicker1.Date),1,7);
        s:=s+''' and 收费项目='''+sNum;
        s:=s+''' and 自动生成类别='''+ss+'''';

        query.SQL.clear;
        query.SQL.Add(s);
        query.Open;
        if query.RecordCount>0 then
        begin
            showmessage('已经'+ss+'生成'+copy(datetostr(DateTimePicker1.Date),1,7)+'月份的收费项目：'+combobox1.Text+''' 的抄表收费');
            exit;
        end;

        query11.SQL.clear;
        query11.SQL.Add('select * from 房间 where 楼宇='''+mainform.getNum(edit8.Text)+'''');
        query11.Open;
        while not query11.Eof do
        begin
            s2:=query11.fieldbyname('编号').Value;
            rr:=query11.fieldbyname('管理区').Value;

            s3:='-';
            query1.SQL.Clear;
            query1.SQL.Add('select * from 入伙登记 where 房间='''+s2+'''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s3:=query1.fieldbyname('客户').Value;

                query1.SQL.Clear;
                query1.SQL.Add('select * from 客户资料 where 客户名称='''+s3+'''');
                query1.Open;
                if query1.RecordCount>0 then
                begin
                    s3:=query1.fieldbyname('客户代码').Value;
                end;
            end;


            s:='select * from 房间收费项目设置 where 房间编号='''+s2;
            s:=s+''' and  收费项目编号='''+mainform.getNum(combobox1.text);
            s:=s+'''';

            s9:='0';
            query.SQL.Clear;
            query.SQL.Add(s);
            query.Open;
            while not query.Eof do
            begin
                s4:=query.fieldbyname('收费项目编号').Value;
                s5:=query.fieldbyname('收费标准编号').Value;

                s:='select * from 收费项目 where 编号='''+s4;
                s:=s+''' and 费用项目类型='''+'抄表收费项目';
                s:=s+'''';

                query2.SQL.Clear;
                query2.SQL.Add(s);
                query2.Open;
                if query2.RecordCount>0 then
                begin

                    s:='select * from 收费标准 where 编号='''+query.fieldbyname('收费标准编号').Value;
                    s:=s+'''';

                    s77:=query2.fieldbyname('仪表种类').Value;

                    query2.SQL.Clear;
                    query2.SQL.Add(s);
                    query2.Open;
                    if query2.RecordCount>0 then
                    begin
                        s6:=query2.fieldbyname('收费时间').Value;
                        s9:=query2.fieldbyname('单价').Value;

                        s:='select * from 收费时间 where 编号='''+s6;
                        s:=s+'''';

                        query2.SQL.Clear;
                        query2.SQL.Add(s);
                        query2.Open;
                        if query2.RecordCount>0 then
                        begin
                            if query2.fieldbyname('名称').Value='收当月' then
                            begin
                                s6:=query2.fieldbyname('收费日期').Value;
                                if strtoint(s6)<10 then s6:='0'+s6;

                                s6:=copy(datetostr(DateTimePicker1.Date),1,7)+'-'+ s6;

                                sMonth:=copy(datetostr(DateTimePicker1.Date),1,7);
                            end;

                            if query2.fieldbyname('名称').Value='收上月' then
                            begin
                                if strtoint(query2.fieldbyname('收费日期').Value)<10 then
                                begin
                                    s6:=query2.fieldbyname('收费日期').Value;
                                    s6:='0'+s6;
                                end
                                else s6:= query2.fieldbyname('收费日期').Value;

                                s7:=copy(datetostr(DateTimePicker1.Date),1,7)+'-01';
                                s7:=datetostr(strtodate(s7)-1);

                                s6:=copy(s7,1,7)+'-'+ s6;

                                sMonth:=copy(s7,1,7);
                            end;

                            if query2.fieldbyname('名称').Value='收下月' then
                            begin
                                if strtoint(query2.fieldbyname('收费日期').Value)<10 then s6:='0'+query2.fieldbyname('收费日期').Value
                                else s6:= query2.fieldbyname('收费日期').Value;

                                s7:=copy(datetostr(DateTimePicker1.Date),1,7)+'-28';
                                s7:=datetostr(strtodate(s7)+4);

                                s6:=copy(s7,1,7)+'-'+ s6;

                                sMonth:=copy(s7,1,7);
                            end;


                            if query2.fieldbyname('名称').Value='指定月' then
                            begin
                                s6:=query2.fieldbyname('收费日期').Value;
                                if strtoint(s6)<10 then s6:='0'+s6;

                                s6:=copy(datetostr(DateTimePicker1.Date),1,7)+'-'+ s6;

                                sMonth:=copy(datetostr(DateTimePicker1.Date),1,7);

                                s:='select * from 收费时间明细 where 编号='''+query2.fieldbyname('编号').Value;
                                s:=s+''' and 月份='''+copy(copy(datetostr(DateTimePicker1.Date),1,7),6,2);
                                s:=s+'''';

                                query2.SQL.Clear;
                                query2.SQL.Add(s);
                                query2.Open;
                                if query2.RecordCount=0 then
                                begin
                                    s6:='';
                                    sMonth:='-';
                                end;

                            end;
                        end;
                    end;



                    s9:=mainform.StdDou2(s9);
                    r1:=mainform.StdDou2(r1);
                    r2:=mainform.StdDou2(r2);
                    r3:=mainform.StdDou2(r3);
                    r4:=mainform.StdDou2(r4);
                    r5:=mainform.StdDou2(r5);

                    query3.SQL.clear;
                    query3.SQL.Add('select * from 房间仪表 where 房间 ='''+s2+''' and 仪表种类='''+r77+'''');
                    query3.Open;
                    if query3.RecordCount>0 then
                    begin
                        s77:=query3.fieldbyname('编号').Value;
                    end;

                    s:='select * from 房间抄表 where 房间 ='''+s2;
                    s:=s+''' and 抄表月份='''+sMonth;
                    s:=s+''' and 房间仪表='''+s77;
                    s:=s+'''';

                    query3.SQL.clear;
                    query3.SQL.Add(s);
                    query3.Open;
                    if query3.RecordCount>0 then
                    begin
                        r1:=query3.fieldbyname('实际行度').Value;
                        r2:=query3.fieldbyname('上次读数').Value;
                        r3:=query3.fieldbyname('本次读数').Value;

                        s7:=query3.fieldbyname('上次读数日期').Value;
                        s8:=query3.fieldbyname('读数日期').Value;



                        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 s1 := '000000'+inttostr(i)
                            else if (i > 9) and (i<100) then s1 := '00000'+inttostr(i)
                            else if (i > 99) and (i<1000) then s1 := '0000'+inttostr(i)
                            else if (i > 999) and (i<10000) then s1 := '000'+inttostr(i)
                            else if (i > 9999) and (i<100000) then s1 := '00'+inttostr(i)
                            else if (i > 99999) and (i<1000000) then s1 := '0'+inttostr(i)
                            else if i>999999 then s3 := inttostr(i);
                        end
                        else  s1 := '0000001';

                        s:='select * from 抄表费用 where 收费月份='''+sMonth;
                        s:=s+''' and 房间='''+s2+''' and 收费项目='''+s4;
                        s:=s+'''';

                        query1.SQL.clear;
                        query1.SQL.Add(s);
                        query1.Open;
                        if (query1.RecordCount=0) and (s6<>'')then
                        begin

                            s:='insert into 抄表费用 (单号,房间,客户,收费项目,收费标准,';
                            s:=s+'应收日期,仪表,上次读数,本次读数,实际行度,';
                            s:=s+'公摊,总行度,计费开始日期,计费结束日期,单价,';
                            s:=s+'金额,优惠金额,优惠后金额,滞纳金截至日期,滞纳金天数,';
                            s:=s+'滞纳金,减免缴滞纳金,应收滞纳金,收取滞纳金,应收金额,';
                            s:=s+'已收金额,已收全,收全日期,备注,制单人,';
                            s:=s+'修订人,自动生成类别,收费月份)';
                            s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
                            s:=s+':s6,:s7,:s8,:s9,:s10,';
                            s:=s+':s11,:s12,:s13,:s14,:s15,';
                            s:=s+':s16,:s17,:s18,:s19,:s20,';
                            s:=s+':s21,:s22,:s23,:s24,:s25,';
                            s:=s+':s26,:s27,:s28,:s29,:s30,';
                            s:=s+':s31,:s32,:s33)';

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

                            query1.Parameters.ParamByName('s1').Value:=s1;
                            query1.Parameters.ParamByName('s2').Value:=s2;
                            query1.Parameters.ParamByName('s3').Value:=s3;
                            query1.Parameters.ParamByName('s4').Value:=s4;
                            query1.Parameters.ParamByName('s5').Value:=s5;

                            query1.Parameters.ParamByName('s6').Value:=s6;
                            query1.Parameters.ParamByName('s7').Value:=s77;
                            query1.Parameters.ParamByName('s8').Value:=strtofloat(r2); //////
                            query1.Parameters.ParamByName('s9').Value:=strtofloat(r3);  ////////
                            query1.Parameters.ParamByName('s10').Value:=strtofloat(r1);; ////////

                            query1.Parameters.ParamByName('s11').Value:=strtofloat(r5);;
                            query1.Parameters.ParamByName('s12').Value:=strtofloat(r1)+strtofloat(r5);
                            query1.Parameters.ParamByName('s13').Value:=s7;
                            query1.Parameters.ParamByName('s14').Value:=s8;
                            query1.Parameters.ParamByName('s15').Value:=strtofloat(s9);
                            query1.Parameters.ParamByName('s16').Value:=strtofloat(s9)*(strtofloat(r1)+strtofloat(r5));


                            query1.Parameters.ParamByName('s17').Value:=0;
                            query1.Parameters.ParamByName('s18').Value:=0;
                            query1.Parameters.ParamByName('s19').Value:=datetostr(date);

                            query1.Parameters.ParamByName('s20').Value:=0;
                            query1.Parameters.ParamByName('s21').Value:=0;
                            query1.Parameters.ParamByName('s22').Value:=0;
                            query1.Parameters.ParamByName('s23').Value:=0;
                            query1.Parameters.ParamByName('s24').Value:=0;

                            query1.Parameters.ParamByName('s25').Value:=strtofloat(s9)*(strtofloat(r1)+strtofloat(r5));
                            query1.Parameters.ParamByName('s26').Value:='0';
                            query1.Parameters.ParamByName('s27').Value:='N';
                            query1.Parameters.ParamByName('s28').Value:=datetostr(date);
                            query1.Parameters.ParamByName('s29').Value:='-';

                            query1.Parameters.ParamByName('s30').Value:=czy;
                            query1.Parameters.ParamByName('s31').Value:='-';
                            query1.Parameters.ParamByName('s32').Value:=ss;
                            query1.Parameters.ParamByName('s33').Value:=copy(datetostr(DateTimePicker1.Date),1,7);

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

                            bGetdata:=true;
                        end;
                    end;
                end;

                query.next;
            end; //


            query11.next;
        end;
    end;


    if edit7.Text<>'' then
    begin
        ss:='按管理处';
        s:='select * from 抄表费用 where 收费月份='''+copy(datetostr(DateTimePicker1.Date),1,7);
        s:=s+''' and 收费项目='''+sNum;
        s:=s+''' and 自动生成类别='''+ss+'''';

        query.SQL.clear;
        query.SQL.Add(s);
        query.Open;
        if query.RecordCount>0 then
        begin
            showmessage('已经'+ss+'生成'+copy(datetostr(DateTimePicker1.Date),1,7)+'月份的收费项目：'+combobox1.Text+''' 的抄表收费');
            exit;
        end;

        query11.SQL.clear;
        query11.SQL.Add('select * from 房间 where 管理处='''+mainform.getNum(edit7.Text)+'''');
        query11.Open;
        while not query11.Eof do