realtye32.pas

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

        Query.Close;
        Query.Free;

        ListView1.Selected.Delete;
        if listview1.Items.Count > 0 then ListView1.Items.Item[0].Selected := True;
    end;

end;

procedure Tf_RealtyE32.Button2Click(Sender: TObject);
Var
    query,query1:TADOQuery;
    s,s1,s2,s3,r1,sItem:string;
begin
    if listview1.SelCount=0 then exit;

    if listview1.Selected.SubItems[14]='Y' then
    begin
         showmessage('已经审核!');
         exit;
    end;

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

    if(Application.MessageBox(PChar('确认要审核所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then
    begin
        query.Close;
        query.free;
        exit;
    end;

    s:='update 租赁合同 set 审核='''+'Y';
    s:=s+''',审核日期='''+datetostr(date);
    s:=s+''',审核人='''+czy;
    s:=s+''' where 单号='''+listview1.Selected.Caption+'''';

    DataModuleADO.ADOConnection1.BeginTrans;
    query.SQL.Text:=s;
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;

    query.SQL.clear;
    query.SQL.Add('select * from 租赁合同租金 where 单号='''+listview1.Selected.Caption+'''');
    query.open;
    if query.RecordCount>0 then
    begin
        s:='update 房间 set 是否已租='''+'Y'+''' where 编号='''+query.fieldbyname('房间').Value+'''';
        DataModuleADO.ADOConnection1.BeginTrans;
        query.SQL.Text:=s;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;
    end;

    showmessage('审核成功!'); 

    listview1.Selected.SubItems[13]:='Y';
    listview1.Selected.SubItems[14]:=datetostr(date);
    listview1.Selected.SubItems[15]:=czy;

    sItem:='租赁项目：'+listview1.Selected.caption;
    s:='select * from 应收款 where 单号='''+listview1.Selected.caption;
    s:=s+''' and 款项类别='''+sItem+'''';

    query.SQL.clear;
    Query.SQL.Add(s);
    query.Open;
    if query.RecordCount=0 then
    begin
        s3:='直接支付';

        s:='insert into 应收款(单号,客户名称,发生日期,应收金额,已收金额,';
        s:=s+'未收金额,承诺付款日期,联系人,联系电话,款项类别,付款类别,应收日期,已退金额) values(:s1,';
        s:=s+':s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13)';

        s1:='-';
        s2:='-';
        query.SQL.Clear;
        query.SQL.add('select * from 客户资料 where 客户代码='''+listview1.Selected.SubItems[1]+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            s1:=Query.FieldByName('联系人').Value ;
            s2:=Query.FieldByName('电话').Value ;
        end;

        query.sql.Clear;
        query.sql.add(s);
        query.Parameters.ParamByName('s1').Value:= listview1.Selected.Caption;
        query.Parameters.ParamByName('s2').Value:= listview1.Selected.SubItems[2];
        query.Parameters.ParamByName('s3').Value:= listview1.Selected.SubItems[0];
        query.Parameters.ParamByName('s4').Value:= strtofloat(listview1.Selected.SubItems[9]);
        query.Parameters.ParamByName('s5').Value:= 0;
        query.Parameters.ParamByName('s6').Value:= strtofloat(listview1.Selected.SubItems[9]);
        query.Parameters.ParamByName('s7').Value:= listview1.Selected.SubItems[0];
        query.Parameters.ParamByName('s8').Value:= s1;
        query.Parameters.ParamByName('s9').Value:= s2;
        query.Parameters.ParamByName('s10').Value:= sItem;
        query.Parameters.ParamByName('s11').Value:= s3;
        query.Parameters.ParamByName('s12').Value:=listview1.Selected.SubItems[0];
        query.Parameters.ParamByName('s13').Value:= 0;

        DataModuleADO.ADOConnection1.BeginTrans;
        query.execsql;
        DataModuleADO.ADOConnection1.CommitTrans;

    end;

    query.close;
    query.free;

end;

procedure Tf_RealtyE32.Button7Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyE32.TreeView1Click(Sender: TObject);
Var
    query,query1,query2,query3,query4,query5:TADOQuery;
    nLevel:integer;
    s,s1,s2,s3,s4,sSTate,sDate:string;
    b:bool;
begin
    listview1.Items.Clear;

    nLevel:=treeview1.Selected.Level;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;
    Query2:=TADOQuery.Create(nil);
    Query2.Connection:=DataModuleADO.ADOConnection1;
    Query3:=TADOQuery.Create(nil);
    Query3.Connection:=DataModuleADO.ADOConnection1;
    Query4:=TADOQuery.Create(nil);
    Query4.Connection:=DataModuleADO.ADOConnection1;
    Query5:=TADOQuery.Create(nil);
    Query5.Connection:=DataModuleADO.ADOConnection1;

    //所有
    //管理区
    //其它


    b:=false;


    if edit5.Text='' then s2:='%';
    if edit5.Text='已审核' then s2:='Y';
    if edit5.Text='未审核' then s2:='N';


    //所有
    if nLevel=0 then
    begin
        b:=true;


        s:='select * from 房间 where 名称 like ''%'+Edit6.text;
        s:=s+'%'' order by 编号 asc';


        query.SQL.Clear;
        Query.SQL.Add(s);
        Query.Open ;
        while not Query.Eof do
        begin
            s:='select * from 租赁合同 where 日期>='''+datetostr(edit1.date);
            s:=s+''' and 日期<='''+datetostr(edit2.date);
            s:=s+''' and 单号 like ''%'+edit3.Text;
            s:=s+'%'' and 客户 like ''%'+edit4.Text;
            s:=s+'%'' and 房间 = '''+Query.FieldByName('编号').Value;
            s:=s+''' and 审核 like ''%'+s2+'%''';

            query4.sql.clear;
            Query4.SQL.Add(s);
            Query4.Open ;
            while not Query4.Eof do
            begin
                s1:='-';
                query5.SQL.Clear;
                query5.SQL.Add('select * from 客户资料 where 客户名称='''+query4.fieldbyname('客户').Value+'''');
                query5.Open;
                if query5.RecordCount>0 then  s1:=query5.fieldbyname('客户代码').Value;


                if query4.FieldByName('合同是否终止').Value='Y'  then sSTate:='合同终止'
                else
                begin
                    sDate:=query4.fieldbyname('截止日期').Value;
                    if sDate>datetostr(date) then sState:='合同中'
                    else sState:='合同过期';
                end;

                with ListView1.Items.Add do
                begin
                    Caption:=Query4.FieldByName('单号').Value;
                    SubItems.Add(Query4.FieldByName('日期').Value);
                    SubItems.Add(mainform.getName('房间', Query4.FieldByName('房间').Value));
                    SubItems.Add(s1);
                    SubItems.Add(Query4.FieldByName('客户').Value);
                    SubItems.Add(Query4.FieldByName('记租日期').Value);

                    SubItems.Add(Query4.FieldByName('截止日期').Value);
                    SubItems.Add(sState);
                    SubItems.Add(Query4.FieldByName('保证金').Value);
                    SubItems.Add(floattostr(Query4.FieldByName('保证金额').Value));
                    SubItems.Add(Query4.FieldByName('租金').Value);
                    SubItems.Add(Query4.FieldByName('操作员').Value);
                    SubItems.Add(Query4.FieldByName('修订').Value);
                    SubItems.Add(Query4.FieldByName('租赁用途').Value);
                    SubItems.Add(Query4.FieldByName('备注').Value);

                    SubItems.Add(Query4.FieldByName('审核').Value);
                    SubItems.Add(Query4.FieldByName('审核日期').Value);
                    SubItems.Add(Query4.FieldByName('审核人').Value);
                end;
                query4.Next;
            end;

            query.Next;
        end;
    end;


    if nLevel>0 then
    begin
        //管理区
        s:='select * from 管理区 where 名称='''+treeview1.Selected.Text+'''';
        Query.SQL.Add(s);
        Query.Open ;
        if query.RecordCount>0 then
        begin
            b:=true;

            s1:=Query.FieldByName('编号').Value;
            s2:=Query.FieldByName('管理处').Value;

            s:='select * from  楼宇 where 管理区 ='''+s1;
            s:=s+''' and 管理处 ='''+s2;
            s:=s+''' order by 编号 asc';


            query1.SQL.Clear;
            Query1.SQL.Add(s);
            Query1.Open ;
            while not Query1.Eof do
            begin
                s:='select * from  房间 where 名称 like ''%'+Edit6.text;
                s:=s+'%'' and 楼宇 ='''+Query1.FieldByName('编号').Value;
                s:=s+''' and 管理区 ='''+s1;
                s:=s+''' and 管理处 ='''+s2;
                s:=s+''' order by 编号 asc';

                query.SQL.Clear;
                Query.SQL.Add(s);
                Query.Open ;
                while not Query.Eof do
                begin

                    s:='select * from 租赁合同 where 日期>='''+datetostr(edit1.date);
                    s:=s+''' and 日期<='''+datetostr(edit2.date);
                    s:=s+''' and 单号 like ''%'+edit3.Text;
                    s:=s+'%'' and 客户 like ''%'+edit4.Text;
                    s:=s+'%'' and 房间 = '''+Query.FieldByName('编号').Value;
                    s:=s+''' and 审核 like ''%'+s2+'%''';

                    query4.sql.clear;
                    Query4.SQL.Add(s);
                    Query4.Open ;
                    while not Query4.Eof do
                    begin
                        s1:='-';
                        query5.SQL.Clear;
                        query5.SQL.Add('select * from 客户资料 where 客户名称='''+query4.fieldbyname('客户').Value+'''');
                        query5.Open;
                        if query5.RecordCount>0 then  s1:=query5.fieldbyname('客户代码').Value;


                        if query4.FieldByName('合同是否终止').Value='Y'  then sSTate:='合同终止'
                        else
                        begin
                            sDate:=query4.fieldbyname('截止日期').Value;
                            if sDate>datetostr(date) then sState:='合同中'
                            else sState:='合同过期';
                        end;

                        with ListView1.Items.Add do
                        begin
                            Caption:=Query4.FieldByName('单号').Value;
                            SubItems.Add(Query4.FieldByName('日期').Value);
                            SubItems.Add(mainform.getName('房间', Query4.FieldByName('房间').Value));
                            SubItems.Add(s1);
                            SubItems.Add(Query4.FieldByName('客户').Value);
                            SubItems.Add(Query4.FieldByName('记租日期').Value);

                            SubItems.Add(Query4.FieldByName('截止日期').Value);
                            SubItems.Add(sState);
                            SubItems.Add(Query4.FieldByName('保证金').Value);
                            SubItems.Add(floattostr(Query4.FieldByName('保证金额').Value));
                            SubItems.Add(Query4.FieldByName('租金').Value);