realtyc411.pas

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

    if edit2.Text='' then
    begin
        showmessage('房间不能为空!');
        edit2.SetFocus;
        exit;
    end;

    if edit3.Text='' then
    begin
        showmessage('客户不能为空!');
        edit3.SetFocus;
        exit;
    end;

    if edit5.Text='' then
    begin
        showmessage('收费项目不能为空!');
        edit5.SetFocus;
        exit;
    end;

    if edit13.Text='' then
    begin
        showmessage('金额不能为空!');
        edit13.SetFocus;
        exit;
    end;

    if combobox1.Text='' then
    begin
        showmessage('费用收取类型不能为空!');
        combobox1.SetFocus;
        exit;
    end;

    edit7.Text:=mainform.stddou2(edit7.text);
    edit8.Text:=mainform.stddou2(edit8.text);
    edit9.Text:=mainform.stddou2(edit9.text);
    edit10.Text:=mainform.stdint(edit10.text);

    if edit11.text='' then edit11.Text:='-';
    edit12.Text:=mainform.stddou2(edit12.text);
    edit13.Text:=mainform.stddou2(edit13.text);
    edit14.Text:=mainform.stddou2(edit14.text);
    edit15.Text:=mainform.stddou2(edit15.text);

    if edit16.text='' then edit16.Text:='-';
    if edit17.text='' then edit17.Text:='-';

    if checkbox1.Checked then s1:='Y' else s1:='N';
    if checkbox2.Checked then s2:='Y' else s2:='N';

    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;
    query1:=TADOQuery.Create(nil);
    query1.Connection:=DataModuleADO.ADOConnection1;
    query2:=TADOQuery.Create(nil);
    query2.Connection:=DataModuleADO.ADOConnection1;

    if f_RealtyC41.bMod=true then
    begin
        if f_RealtyC41.listview1.Selected.subitems[2]<>edit1.Text then
        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;
        end;

        s:='update  常规费用 set 单号='''+edit1.Text;
        s:=s+''',房间='''+mainform.getNum(edit2.Text);
        s:=s+''',客户='''+r1;
        s:=s+''',收费项目='''+r4;
        s:=s+''',收费标准='''+r5;

        s:=s+''',应收日期='''+datetostr(datetimepicker1.Date);
        s:=s+''',计费开始日期='''+datetostr(datetimepicker2.Date);
        s:=s+''',计费结束日期='''+datetostr(datetimepicker3.Date);
        s:=s+''',单价='+edit4.Text;
        s:=s+',金额='+edit7.Text;

        s:=s+',优惠金额='+edit8.Text;
        s:=s+',优惠后金额='+edit9.Text;
        s:=s+',滞纳金截至日期='''+datetostr(datetimepicker4.Date);
        s:=s+''',滞纳金天数='+edit10.Text;
        s:=s+',滞纳金='+edit11.Text;

        s:=s+',减免缴滞纳金='+edit12.Text;
        s:=s+',应收滞纳金='+edit13.Text;
        s:=s+',收取滞纳金='''+s1;
        s:=s+''',应收金额='+edit14.Text;
        s:=s+',已收金额='+edit15.Text;

        s:=s+',已收全='''+s2;
        s:=s+''',收全日期='''+datetostr(Edit20.Date);
        s:=s+''',收取费用类型='''+combobox1.text;
        s:=s+''',备注='''+edit16.text;
        s:=s+''',制单人='''+edit17.text;

        s:=s+''', 修订人='''+edit18.text;
        s:=s+''', 收费月份='''+copy(datetostr(DateTimePicker5.Date),1,7);
        s:=s+''' where 单号='''+f_RealtyC41.listview1.Selected.subitems[2]+'''';

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

        query.sql.clear;
        Query.SQL.Add('select * from 常规费用 where 单号 ='''+edit1.Text+'''');
        Query.Open;
        if query.recordcount>0 then
        begin
            s:='select * from 客户资料 where 客户代码='''+Query.FieldByName('客户').Value;
            s:=s+'''';
            query1.SQL.Clear;
            Query1.SQL.Add(s);
            Query1.Open ;
            if query1.RecordCount>0 then
            begin
                s1:=query1.fieldbyname('客户名称').value;

                s:='select * from 房间 where 编号='''+Query.FieldByName('房间').Value;
                s:=s+'''';

                query2.SQL.Clear;
                Query2.SQL.Add(s);
                Query2.Open ;
                if query2.RecordCount>0 then
                begin
                    r2:=query2.fieldbyname('名称').value;
                    s2:=query2.fieldbyname('楼宇').Value;
                    s3:=mainform.getName('楼宇',s2);
                    s4:=query2.fieldbyname('管理区').Value;
                    s5:=mainform.getName('管理区',s4);
                    s6:=query2.fieldbyname('管理处').Value;
                    s7:=mainform.getName('组织机构',s6);
                    s10:=query2.fieldbyname('建筑面积').value;

                    with f_RealtyC41.ListView1.Selected do
                    begin
                        Caption:=s1;
                        SubItems[0]:=Query.FieldbyName('客户').Value;
                        SubItems[1]:=r2;
                        SubItems[2]:=Query.FieldByName('单号').Value;
                        SubItems[3]:=Query.FieldByName('应收日期').Value;

                        SubItems[4]:=Query.FieldByName('收费项目').Value;
                        SubItems[5]:=mainform.getName('收费项目',query.FieldByName('收费项目').Value);
                        SubItems[6]:=s10;
                        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;
                        SubItems[12]:=Query.FieldByName('减免缴滞纳金').Value;
                        SubItems[13]:=Query.FieldByName('应收滞纳金').Value;

                        SubItems[14]:=Query.FieldByName('收取滞纳金').Value;
                        SubItems[15]:=Query.FieldByName('滞纳金截至日期').Value;
                        SubItems[16]:=Query.FieldByName('滞纳金天数').Value;
                        SubItems[17]:=Query.FieldByName('应收金额').Value;

                        SubItems[18]:=s6;

                        SubItems[19]:=s7;
                        SubItems[20]:=s4;
                        SubItems[21]:=s5;
                        SubItems[22]:=s2;
                        SubItems[23]:=s3;

                        SubItems[24]:=Query.FieldByName('收费标准').Value;
                        SubItems[25]:=mainform.getName('收费标准',query.FieldByName('收费标准').Value);
                        SubItems[26]:=Query.FieldByName('备注').Value;
                        SubItems[27]:=Query.FieldByName('制单人').Value;
                        SubItems[28]:=Query.FieldByName('修订人').Value;

                        SubItems[29]:=Query.FieldByName('审核人').Value;
                        SubItems[30]:=Query.FieldByName('审核').Value;
                        SubItems[31]:=Query.FieldByName('收取费用类型').Value;
                    end;
                end;
            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;


        query1.SQL.Clear;
        query1.SQL.Add('select top 1 * from 房间抄表 order by 读数日期 DESC');
        query1.Open;
        if query1.RecordCount>0 then
        begin

            s7:=query1.fieldbyname('上次读数日期').Value;
            s8:=query1.fieldbyname('读数日期').Value;
            s10:=Format('%.2f', [strtofloat(query1.fieldbyname('实际行度').Value)]);
        end;


        s:='select * from 常规费用 where 收费月份='''+copy(datetostr(DateTimePicker1.Date),1,7);
        s:=s+''' and 房间='''+mainform.GetNum(edit2.Text)+''' and 收费项目='''+r4;
        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+'减免缴滞纳金,应收滞纳金,收取滞纳金,应收金额,已收金额,';
            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)';

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

            query.Parameters.ParamByName('s1').Value:=edit1.Text;
            query.Parameters.ParamByName('s2').Value:=mainform.GetNum(edit2.Text);
            query.Parameters.ParamByName('s3').Value:=r1;
            query.Parameters.ParamByName('s4').Value:=r4;
            query.Parameters.ParamByName('s5').Value:=r5;

            query.Parameters.ParamByName('s6').Value:=datetostr(datetimepicker1.date);
            query.Parameters.ParamByName('s7').Value:=datetostr(datetimepicker2.date);
            query.Parameters.ParamByName('s8').Value:=datetostr(datetimepicker3.date);
            query.Parameters.ParamByName('s9').Value:=mainform.StdDou2(edit4.text);
            query.Parameters.ParamByName('s10').Value:=mainform.StdDou2(edit7.text);

            query.Parameters.ParamByName('s11').Value:=mainform.StdDou2(edit8.text);
            query.Parameters.ParamByName('s12').Value:=mainform.StdDou2(edit9.Text);
            query.Parameters.ParamByName('s13').Value:=datetostr(datetimepicker4.date);
            query.Parameters.ParamByName('s14').Value:=edit10.Text;
            query.Parameters.ParamByName('s15').Value:=mainform.StdDou2(edit11.Text);

            query.Parameters.ParamByName('s16').Value:=mainform.StdDou2(edit12.Text);
            query.Parameters.ParamByName('s17').Value:=mainform.StdDou2(edit13.Text);
            query.Parameters.ParamByName('s18').Value:=s1;
            query.Parameters.ParamByName('s19').Value:=mainform.StdDou2(edit14.text);
            query.Parameters.ParamByName('s20').Value:=mainform.StdDou2(edit15.text);

            query.Parameters.ParamByName('s21').Value:=s2;
            query.Parameters.ParamByName('s22').Value:=datetostr(Edit20.Date);
            query.Parameters.ParamByName('s23').Value:=combobox1.Text;
            query.Parameters.ParamByName('s24').Value:=edit16.text;
            query.Parameters.ParamByName('s25').Value:=edit17.text;
        
            query.Parameters.ParamByName('s26').Value:=edit18.text;