realtyc421.pas

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

    r5:=mainform.getNum(edit6.text);

    if edit18.text='' then edit18.Text:='-';
    if edit19.text='' then edit19.Text:='-';

    if edit20.text='' then edit20.Text:='-';
    if edit21.text='' then edit21.Text:='-';
    if edit22.text='' then edit22.Text:='-';
    if edit24.text='' then edit24.Text:='-';
    if edit25.text='' then edit25.Text:='-';

    if Edit26.Text='' then Edit26.Text:=datetostr(date);

    Edit7Exit(Sender);

    edit7.Text:=mainform.stddou2(edit7.text);
    edit8.Text:=mainform.stddou2(edit8.text);
    edit9.Text:=mainform.stddou2(edit9.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);
    edit16.Text:=mainform.stddou2(edit16.text);
    edit17.Text:=mainform.stddou2(edit17.text);
    edit18.Text:=mainform.stddou2(edit18.text);
    edit21.Text:=mainform.stddou2(edit21.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;

    if f_RealtyC42.bMod then
    begin
        if mainform.t1<>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+''',收费项目='''+r3;
        s:=s+''',收费标准='''+r5;

        s:=s+''',应收日期='''+datetostr(datetimepicker1.Date);
        s:=s+''',仪表='''+edit4.Text;
        s:=s+''',上次读数='+edit7.Text;
        s:=s+',本次读数='+edit8.Text;
        s:=s+',实际行度='+edit9.Text;
        s:=s+',计费开始日期='''+datetostr(datetimepicker2.Date);
        s:=s+''',计费结束日期='''+datetostr(datetimepicker3.date);
        s:=s+''',单价='+edit12.Text;

        s:=s+',金额='+edit13.Text;
        s:=s+',优惠金额='+edit14.Text;
        s:=s+',优惠后金额='+edit15.Text;
        s:=s+',滞纳金截至日期='''+datetostr(datetimepicker4.Date);
        s:=s+''',滞纳金天数='+edit16.Text;

        s:=s+',滞纳金='+edit17.Text;
        s:=s+',减免缴滞纳金='+edit18.text;  //
        s:=s+',应收滞纳金='+edit19.text;
        s:=s+',收取滞纳金='''+s1;
        s:=s+''',应收金额='+edit20.text;

        s:=s+', 已收金额='+edit21.text; //
        s:=s+', 已收全='''+s2;
        s:=s+''', 收全日期='''+edit26.text;//
        s:=s+''', 备注='''+edit22.text;
        s:=s+''', 制单人='''+edit23.text;

        s:=s+''', 修订人='''+edit24.text;
        s:=s+''' where 单号='''+mainform.t1+'''';

        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
             s1:='-';
             s2:='-';
             s3:='-';
             s4:='-';
             s5:='-';
             s6:='-';
             s7:='-';
             s8:='-';
             s9:='-';
             query1.SQL.clear;
             query1.SQL.add('select * from 客户资料 where 客户代码='''+query.fieldbyname('客户').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then s1:=query1.fieldbyname('客户名称').Value;

             query1.SQL.clear;
             query1.SQL.add('select * from 房间 where 编号='''+query.fieldbyname('房间').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then
             begin
                 rr:=query1.fieldbyname('名称').Value;
                 s2:=query1.fieldbyname('楼宇').Value;
                 s3:=mainform.getName('楼宇',s2);
                 s4:=query1.fieldbyname('管理区').Value;
                 s5:=mainform.getName('管理区',s4);
                 s6:=query1.fieldbyname('管理处').Value;
                 s7:=mainform.getName('组织机构',s6);
             end;

             query1.SQL.clear;
             query1.SQL.add('select * from 收费项目 where 名称='''+query.fieldbyname('收费项目').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then s8:=query1.fieldbyname('编号').Value;

             query1.SQL.clear;
             query1.SQL.add('select * from 收费标准 where 名称='''+query.fieldbyname('收费标准').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then s8:=query1.fieldbyname('编号').Value;

             with f_RealtyC42.Listview1.Selected do
             begin
                  Caption:=s1;
                  SubItems[0]:=Query.FieldbyName('客户').Value;
                  SubItems[1]:=rr;
                  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;
                  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]:=Query.FieldByName('滞纳金天数').Value;

                  SubItems[19]:=s6;
                  SubItems[20]:=s7;
                  SubItems[21]:=s4;

                  SubItems[22]:=s5;
                  SubItems[23]:=s2;
                  SubItems[24]:=s3;
                  SubItems[25]:=Query.FieldByName('收费项目').Value;
                  SubItems[26]:=mainform.getName('收费项目',Query.FieldByName('收费项目').Value);

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

                  SubItems[32]:=Query.FieldByName('审核人').Value;
                  SubItems[33]:=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+'计费开始日期,计费结束日期,单价,';
        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+':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,:s34,:s35)';

        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:=r3;
        query.Parameters.ParamByName('s5').Value:=r5;

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

        query.Parameters.ParamByName('s13').Value:=datetostr(datetimepicker2.date);
        query.Parameters.ParamByName('s14').Value:=datetostr(datetimepicker3.date);
        query.Parameters.ParamByName('s15').Value:=edit12.Text;

        query.Parameters.ParamByName('s16').Value:=mainform.StdDou2(edit13.Text);
        query.Parameters.ParamByName('s17').Value:=mainform.StdDou2(edit14.Text);
        query.Parameters.ParamByName('s18').Value:=mainform.StdDou2(edit15.Text);
        query.Parameters.ParamByName('s19').Value:=datetostr(datetimepicker4.date);
        query.Parameters.ParamByName('s20').Value:=mainform.StdDou2(edit16.text);

        query.Parameters.ParamByName('s21').Value:=mainform.StdDou2(edit17.Text);
        query.Parameters.ParamByName('s22').Value:=mainform.StdDou2(edit18.Text);
        query.Parameters.ParamByName('s23').Value:=mainform.StdDou2(edit19.Text);
        query.Parameters.ParamByName('s24').Value:=s1 ;
        query.Parameters.ParamByName('s25').Value:=mainform.StdDou2(edit20.Text);

        query.Parameters.ParamByName('s26').Value:='0.00';
        query.Parameters.ParamByName('s27').Value:=s2;
        query.Parameters.ParamByName('s28').Value:=datetostr(date);
        query.Parameters.ParamByName('s29').Value:=edit22.text;
        query.Parameters.ParamByName('s30').Value:=edit23.text;

        query.Parameters.ParamByName('s31').Value:=edit24.text;
        query.Parameters.ParamByName('s32').Value:='按房间';
        query.Parameters.ParamByName('s33').Value:=copy(datetostr(datetimepicker5.date),1,7);
        query.Parameters.ParamByName('s34').Value:= 'N';
        query.Parameters.ParamByName('s35').Value:= '-';

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

        showmessage('保存成功');

        query.sql.clear;
        Query.SQL.Add('select * from 抄表费用 where 单号 ='''+edit1.Text+'''');
        Query.Open;
        if query.RecordCount>0 then
        begin
             s1:='-';
             s2:='-';
             s3:='-';
             s4:='-';
             s5:='-';
             s6:='-';
             s7:='-';
             s8:='-';
             s9:='-';
             query1.SQL.clear;
             query1.SQL.add('select * from 客户资料 where 客户代码='''+query.fieldbyname('客户').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then s1:=query1.fieldbyname('客户名称').Value;

             query1.SQL.clear;
             query1.SQL.add('select * from 房间 where 编号='''+query.fieldbyname('房间').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then
             begin
                 rr:=query1.fieldbyname('名称').Value;
                 s2:=query1.fieldbyname('楼宇').Value;
                 s3:=mainform.getName('楼宇',s2);
                 s4:=query1.fieldbyname('管理区').Value;
                 s5:=mainform.getName('管理区',s4);
                 s6:=query1.fieldbyname('管理处').Value;
                 s7:=mainform.getName('组织机构',s6);
             end;

             query1.SQL.clear;
             query1.SQL.add('select * from 收费项目 where 编号='''+query.fieldbyname('收费项目').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then s8:=query1.fieldbyname('名称').Value;

             query1.SQL.clear;
             query1.SQL.add('select * from 收费标准 where 编号='''+query.fieldbyname('收费标准').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then s8:=query1.fieldbyname('名称').Value;

             with f_RealtyC42.Listview1.Items.Add do
             begin
                  Caption:=s1;
                  SubItems.Add(Query.FieldbyName('客户').Value);
                  SubItems.Add(rr);
                  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);