realtyc431.pas

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

        exit;
    end;

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

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

    if edit6.Text='' then
    begin
        showmessage('收费标准不能为空!');
        edit6.SetFocus;
        exit;
    end;

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


    if edit17.text='' then edit17.Text:='-';
    if edit19.text='' then edit19.Text:='-';
    if edit21.text='' then edit21.Text:='-';

    r1:=copy(edit4.Text,1,7);
    r3:=mainform.getNum(edit5.Text);
    r5:=mainform.getNum(edit6.text);

    edit7.Text:=mainform.stddou2(edit7.text);
    edit8.Text:=mainform.stddou2(edit8.text);
    edit9.Text:=mainform.stddou2(edit9.text);
    edit10.Text:=mainform.stddou2(edit10.text);
    edit11.Text:=mainform.stddou2(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);
    edit16.Text:=mainform.stddou2(edit16.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_RealtyC43.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+''',房间='''+mainform.getNum(edit3.Text);
        s:=s+''',客户='''+r1;
        s:=s+''',收费项目='''+r3;
        s:=s+''',收费标准='''+r5;
        s:=s+''',应收日期='''+datetostr(datetimepicker1.Date);
        s:=s+''',计费开始日期='''+datetostr(datetimepicker2.Date);
        s:=s+''',计费结束日期='''+datetostr(datetimepicker3.Date);
        s:=s+''',单价='+edit7.Text;
        s:=s+',金额='+edit8.Text;
        s:=s+',优惠金额='+edit9.Text;
        s:=s+',优惠后金额='+edit10.Text;
        s:=s+',滞纳金截至日期='''+datetostr(datetimepicker4.Date);
        s:=s+''',滞纳金天数='''+edit11.Text;
        s:=s+''',滞纳金='+edit12.Text;
        s:=s+',减免缴滞纳金='+edit13.Text;
        s:=s+',应收滞纳金='+edit14.Text;
        s:=s+',应收金额='+edit15.Text;
        s:=s+',收取滞纳金='''+s1;
        s:=s+''',已收金额='+edit16.Text;
        s:=s+',已收全='''+s2;
        s:=s+''',收全日期='''+edit21.text;
        s:=s+''',备注='''+edit17.text;
        s:=s+''',制单人='''+edit18.text;
        s:=s+''',修订人='''+edit19.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 rr:=query1.fieldbyname('名称').Value;

           query1.SQL.clear;
           query1.SQL.add('select * from 车位 where 编号='''+query.fieldbyname('车位').Value+'''');
           query1.Open;
           if query1.RecordCount>0 then
           begin
               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 s9:=query1.fieldbyname('编号').Value;

           with f_RealtyC43.Listview1.Selected do
           begin
                Caption:=s1;
                SubItems[0]:=rr;
                SubItems[1]:=Query.FieldByName('单号').Value;

                SubItems[2]:=mainform.getName('车位', Query.FieldByName('车位').Value);
                SubItems[3]:=mainform.getName('收费项目', 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]:=Query.FieldByName('审核人').Value;
                SubItems[20]:=Query.FieldByName('审核').Value;

                SubItems[21]:=s6;
                SubItems[22]:=s7;
                SubItems[23]:=s4;
                SubItems[24]:=s5;
                SubItems[25]:=s2;

                SubItems[26]:=s3;
                SubItems[27]:=Query.FieldByName('收费项目').Value;
                SubItems[28]:=Query.FieldByName('计费开始日期').Value;
                SubItems[29]:=Query.FieldByName('计费结束日期').Value;
                SubItems[30]:=Query.FieldByName('收费标准').Value;
                SubItems[31]:=mainform.getName('收费标准',Query.FieldByName('收费标准').Value);
                SubItems[32]:=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+'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)';

        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:=mainform.getNum(edit3.text);
        query.Parameters.ParamByName('s4').Value:=r1;
        query.Parameters.ParamByName('s5').Value:=r3;

        query.Parameters.ParamByName('s6').Value:=r5;
        query.Parameters.ParamByName('s7').Value:=datetostr(datetimepicker1.date);
        query.Parameters.ParamByName('s8').Value:=datetostr(datetimepicker2.date);
        query.Parameters.ParamByName('s9').Value:=datetostr(datetimepicker3.date);
        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:=mainform.StdDou2(edit10.Text);
        query.Parameters.ParamByName('s14').Value:=datetostr(datetimepicker4.date);
        query.Parameters.ParamByName('s15').Value:=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:=mainform.StdDou2(edit14.Text); //
        query.Parameters.ParamByName('s19').Value:=s1;
        query.Parameters.ParamByName('s20').Value:=mainform.StdDou2(edit15.text);

        query.Parameters.ParamByName('s21').Value:=mainform.StdDou2(edit16.Text);
        query.Parameters.ParamByName('s22').Value:=s2;
        query.Parameters.ParamByName('s23').Value:=edit21.text;
        query.Parameters.ParamByName('s24').Value:=edit17.text;
        query.Parameters.ParamByName('s25').Value:=edit18.text;

        query.Parameters.ParamByName('s26').Value:=edit19.text;
        query.Parameters.ParamByName('s27').Value:=copy(datetostr(datetimepicker5.date),1,7);
        query.Parameters.ParamByName('s28').Value:= 'N';
        query.Parameters.ParamByName('s29').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:='-';