realtyc531.pas

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

    Action := caFree;
end;

//Close*************************************
procedure Tf_RealtyC531.NN6Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyC531.ToolButton10Click(Sender: TObject);
begin
     close;
end;

procedure Tf_RealtyC531.ListView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
     if Button=mbRight then
     PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;

procedure Tf_RealtyC531.m(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
   if   Item.Selected = true then
    begin
          Sender.Canvas.Brush.Color   :=   clMenuHighlight;
          (Sender   as   TListView).Canvas.Font.Color   :=  clWhite;
    end;
end;

procedure Tf_RealtyC531.ListView2CustomDraItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if Item.Selected then
    begin
        Sender.Canvas.Brush.Color:=clmenuHighlight;
        (Sender as TListview).Canvas.Font.Color:=clwhite;
    end;
end;

procedure Tf_RealtyC531.Button7Click(Sender: TObject);
Var
    query,query1:TADOQuery;
    s,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,stemp,stemp1,stemp2:string;
    i,j:integer;
    r1:string;
    d,d1,d2,d3,d4:double;
begin
    r1:=copy(edit2.Text,1,7);
    if edit1.Text='' then
    begin
        showmessage('单号不能为空!');
        edit1.SetFocus;
        exit;
    end;

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

    if edit4.Text='' then
    begin
        showmessage('结算方式不能为空!');
        edit4.SetFocus;
        exit;
    end;
    edit3.Text:=mainform.stddou2(edit3.text);
    if edit5.text='' then edit5.Text:='-';
    if edit6.text='' then edit6.Text:='-';

    if edit8.text='' then edit8.Text:='-';
    if edit7.text='' then edit7.Text:='-';
    if edit9.text='' then edit9.Text:='-';
    if edit10.text='' then edit10.Text:='-';


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

    if f_RealtyC53.bMod then
    begin
        s:='update 现金收款单 set 单号='''+edit1.Text;
        s:=s+''',日期='''+datetostr(datetimepicker1.Date);
        s:=s+''',客户='''+r1;
        s:=s+''',结算方式='''+edit4.Text;
        s:=s+''',金额='+edit3.Text;
        s:=s+',发票号='''+edit5.Text;
        s:=s+''',收据号='''+edit6.Text;
        s:=s+''',备注='''+edit7.Text;
        s:=s+''',操作员='''+edit8.Text;
        s:=s+''',修订='''+edit9.Text;
        s:=s+''',制单时间='''+datetostr(date);
        s:=s+''' where 单号='''+f_RealtyC53.listview1.Selected.subitems[0]+'''';

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


        DataModuleADO.ADOConnection1.BeginTrans;
        query.sql.clear;
        query.SQL.Text:='delete  from 现金收款单常规费用 where 单号='''+f_RealtyC53.listview1.Selected.subitems[0]+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;


        DataModuleADO.ADOConnection1.BeginTrans;
        query.sql.clear;
        query.SQL.Text:='delete  from 现金收款单抄表费用 where 单号='''+f_RealtyC53.listview1.Selected.subitems[0]+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        DataModuleADO.ADOConnection1.BeginTrans;
        query.sql.clear;
        query.SQL.Text:='delete  from 现金收款单车位费用 where 单号='''+f_RealtyC53.listview1.Selected.subitems[0]+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;


        DataModuleADO.ADOConnection1.BeginTrans;
        query.sql.clear;
        query.SQL.Text:='delete  from 现金收款单临时费用 where 单号='''+f_RealtyC53.listview1.Selected.subitems[0]+'''';
        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 单号='''+listview2.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;
                if query.RecordCount>0 then d1:=query.fieldbyname('已收金额').Value;

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

                s:='update 临时费用 set 已收金额='+floattostr(d)+' where 单号='''+listview3.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 单号='''+listview3.Items.Item[i].subitems[8]+'''');
                query.Open;
                if query.recordcount>0 then
                begin
                     if query.FieldByName('应收金额').value=query.FieldByName('已收金额').value then