realtyc531.pas

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

                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
                     begin
                         s:='update 车位费用 set 已收全='''+'Y';
                         s:=s+''', 收全日期='''+datetostr(datetimepicker1.date);
                         s:=s+''' where 单号='''+listview3.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 listview4.Items.Count>0 then
        begin
            for i:=0 to listview4.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(listview4.Items.Item[i].Caption);
                query.Parameters.ParamByName('s3').Value:=listview4.Items.Item[i].subitems[0];
                query.Parameters.ParamByName('s4').Value:=listview4.Items.Item[i].subitems[1];
                query.Parameters.ParamByName('s5').Value:=strtofloat(mainform.StdDou2(listview4.Items.Item[i].subitems[2]));
                query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.StdDou2(listview4.Items.Item[i].subitems[3]));
                query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.StdDou2(listview4.Items.Item[i].subitems[4]));
                query.Parameters.ParamByName('s8').Value:=listview4.Items.Item[i].subitems[5];
                query.Parameters.ParamByName('s9').Value:=strtofloat(mainform.StdDou2(listview4.Items.Item[i].subitems[6]));
                query.Parameters.ParamByName('s10').Value:=listview4.Items.Item[i].subitems[7];
                query.Parameters.ParamByName('s11').Value:=listview4.Items.Item[i].subitems[8];
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;

                query.SQL.Clear;
                query.sql.Add('select * from 临时费用 where 单号='''+listview4.Items.Item[i].subitems[8]+'''');
                query.Open;
                if query.RecordCount>0 then d1:=query.fieldbyname('已收金额').Value;

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

                s:='update 临时费用 set 已收金额='+floattostr(d)+' where 单号='''+listview4.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 单号='''+listview4.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 单号='''+listview4.Items.Item[i].subitems[8]+'''';
                         query.SQL.Clear;
                         query.sql.Add(s);
                         DataModuleADO.ADOConnection1.BeginTrans;
                         query.ExecSQL;
                         DataModuleADO.ADOConnection1.CommitTrans;
                     end;
                end;
            end;
        end;

         showmessage('保存成功');

        query.sql.clear;
        Query.SQL.Add('select * from 现金收款单 where 单号 ='''+edit1.text+'''');
        Query.Open;
        if query.recordcount>0 then
        begin
             s1:='-';
             query1.SQL.clear;
             query1.SQL.add('select * from 客户资料 where 客户代码='''+query.fieldbyname('客户').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then  s1:=query1.fieldbyname('客户名称').Value;

             with f_RealtyC53.Listview1.Items.Add do
             begin
                  Caption:=s1;
                  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);
                  SubItems.Add(Query.FieldByName('修订').Value);
                  SubItems.Add(Query.FieldByName('审核').Value);

                  SubItems.Add(Query.FieldByName('备注').Value);
                  SubItems.Add(Query.FieldByName('收据号').Value);
             end;
        end;
        query1.Close;
        query1.free;
        query.Close;
        query.free;
        if f_RealtyC53.listview1.Items.Count > 0 then f_RealtyC53.ListView1.Items.Item[0].Selected := True;

        getId;
        edit2.text:='';
        edit3.text:='';
        edit4.ItemIndex:=edit4.Items.IndexOf('');
        edit5.text:='';
        edit6.text:='';
        edit7.text:='';
        edit8.text:=czy;
        edit9.text:='';
        edit10.text:='';
        listview1.items.clear;
        listview2.items.clear;
        listview3.items.clear;
        listview4.items.clear;
    end;

end;

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

procedure Tf_RealtyC531.Button1Click(Sender: TObject);
begin
    f_RealtyB22:=Tf_RealtyB22.Create(self);
    f_RealtyB22.toolButton6.Visible:=true;
    f_RealtyB22.ShowModal;

    if  f_RealtyB22.bOk=true then
    begin
        edit2.Text:=f_RealtyB22.ListView1.Selected.Caption+'--'+f_RealtyB22.ListView1.Selected.SubItems[0];
    end;
    edit3.text:='0.00';
end;

procedure Tf_RealtyC531.N53Click(Sender: TObject);
begin
    if edit2.Text='' then
    begin
        showmessage('请先选择客户');
        exit;
    end;
    bMod:=false;
    if pagecontrol1.ActivePageIndex=0 then
    begin
        f_RealtyC5311:=Tf_RealtyC5311.create(self);
        f_RealtyC5311.showmodal;
    end;
    if pagecontrol1.ActivePageIndex=1 then
    begin
        f_RealtyC5312:=Tf_RealtyC5312.create(self);
        f_RealtyC5312.showmodal;
    end;

    if pagecontrol1.ActivePageIndex=2 then
    begin
        f_RealtyC5313:=Tf_RealtyC5313.create(self);
        f_RealtyC5313.showmodal;
    end;
    if pagecontrol1.ActivePageIndex=3 then
    begin
        f_RealtyC5314:=Tf_RealtyC5314.create(self);
        f_RealtyC5314.showmodal;
    end;

end;

procedure Tf_RealtyC531.N54Click(Sender: TObject);
begin
    bMod:=true;
    if pagecontrol1.ActivePageIndex=0 then
    begin
        if listview1.SelCount=0 then exit;
        f_RealtyC5311:=Tf_RealtyC5311.create(self);
        f_RealtyC5311.showmodal;
    end;
    if pagecontrol1.ActivePageIndex=1 then
    begin
        if listview2.SelCount=0 then exit;
        f_RealtyC5312:=Tf_RealtyC5312.create(self);
        f_RealtyC5312.showmodal;
    end;
    if pagecontrol1.ActivePageIndex=2 then
    begin
        if listview3.SelCount=0 then exit;
        f_RealtyC5313:=Tf_RealtyC5313.create(self);
        f_RealtyC5313.showmodal;
    end;
    if pagecontrol1.ActivePageIndex=3 then
    begin
        if listview4.SelCount=0 then exit;
        f_RealtyC5314:=Tf_RealtyC5314.create(self);
        f_RealtyC5314.showmodal;
    end;
end;

procedure Tf_RealtyC531.N55Click(Sender: TObject);
begin
    if pagecontrol1.ActivePageIndex=0 then
    begin
        if listview1.SelCount=0 then exit;
        if(Application.MessageBox(PChar('确认要审核所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then exit;
        listview1.Selected.Delete ;
    end;
    if pagecontrol1.ActivePageIndex=1 then
    begin
        if listview2.SelCount=0 then exit;
        if(Application.MessageBox(PChar('确认要审核所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then exit;
        listview2.Selected.Delete ;
    end;

    if pagecontrol1.ActivePageIndex=2 then
    begin
        if listview3.SelCount=0 then exit;
        if(Application.MessageBox(PChar('确认要审核所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then exit;
        listview3.Selected.Delete ;
    end;
    if pagecontrol1.ActivePageIndex=3 then
    begin
        if listview4.SelCount=0 then exit;
        if(Application.MessageBox(PChar('确认要审核所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then exit;
        listview4.Selected.Delete ;
    end;
end;

procedure Tf_RealtyC531.edit4Select(Sender: TObject);
begin
    if edit4.Text='新增结算方式' then
    begin
        mainform.t1:='结算方式';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit4.Items.Add(mainform.t1);
            edit4.ItemIndex:=edit4.Items.IndexOf(mainform.t1);
        end
        else edit4.ItemIndex:=edit4.Items.IndexOf('');
    end;
end;

procedure Tf_RealtyC531.ListView3CustomDrawItem(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.ListView4CustomDrawItem(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.ListView4MouseDown(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.ListView3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    if Button=mbRight then
     PopupMenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;

end.