realtyc25.pas

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

    end
    else b:=true;
    if b=true then close;
end;

procedure Tf_RealtyC25.TreeView1Click(Sender: TObject);
Var
    query,query1,query2,query3,query4:TADOQuery;
    nLevel,i:integer;
    s,s1,s2,s3,s4,s5,s6,r1,r2,r3,r4: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;

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


    b:=false;


    //所有
    if nLevel=0 then
    begin
        b:=true;
        s:='select * from 房间收费项目设置  order by 房间编号 asc';

        query.SQL.Clear;
        Query.SQL.Add(s);
        Query.Open ;
        while not Query.Eof do
        begin
            s:='select * from 房间 where 编号 ='''+query.fieldbyname('房间编号').value;
            s:=s+''' and 名称 like ''%'+edit1.text+'%''';
            query1.sql.clear;
            query1.sql.add(s);
            query1.open;
            if query1.recordcount>0 then
            begin
                r1:=query1.fieldbyname('管理区').value;
                r2:=query1.fieldbyname('楼宇').value;
                s3:=query1.fieldbyname('名称').value;
                s4:=query1.fieldbyname('建筑面积').value;


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

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

                s1:='-';
                query2.SQL.Clear;
                query2.SQL.Add('select * from 入伙登记 where 房间='''+Query.FieldByName('房间编号').Value+'''');
                query2.Open;
                if query2.RecordCount>0 then s1:=query2.fieldbyname('客户').Value;

                with ListView1.Items.Add do
                begin
                    Caption:=mainform.getName('管理区',r1);
                    SubItems.Add(mainform.getName('楼宇',r2));
                    SubItems.Add(Query.FieldByName('房间编号').Value);
                    SubItems.Add(s3);
                    SubItems.Add(s4);
                    SubItems.Add(s5);
                    SubItems.Add(s6);
                    SubItems.Add(Query.FieldByName('开始计费日期').Value);
                    SubItems.Add(Query.FieldByName('收费帐号').Value);
                    SubItems.Add(Query.FieldByName('收取').Value);
                    SubItems.Add(s1);

                    {query1.sql.clear;
                    query1.sql.add('select * from 房间收费项目设置明细 where 房间编号='''+query.fieldbyname('房间编号').value+'''and 收费项目编号='''+query.fieldbyname('收费项目编号').value+'''');
                    query1.open;
                    i:=query1.recordcount;
                    if i>1 then subitems.Add('分摊');
                    if i=1 then SubItems.Add(Query1.FieldByName('客户').Value);
                    if i=0 then SubItems.Add('');     }
                end;
            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;

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

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


            query1.SQL.Clear;
            Query1.SQL.Add(s);
            Query1.Open ;
            while not Query1.Eof do
            begin
                s:='select * from 房间收费项目设置  order by 房间编号 asc';
                query.SQL.Clear;
                Query.SQL.Add(s);
                Query.Open ;
                while not Query.Eof do
                begin
                    s:='select * from 房间 where 编号 ='''+query.fieldbyname('房间编号').value;
                    s:=s+''' and 名称 like ''%'+edit1.text;
                    s:=s+'%'' and 楼宇 ='''+Query1.FieldByName('编号').Value;
                    s:=s+''' order by 编号 asc';

                    query2.SQL.Clear;
                    Query2.SQL.Add(s);
                    Query2.Open ;
                    if query2.RecordCount>0 then
                    begin
                        s3:=query2.fieldbyname('名称').value;
                        s4:=query2.fieldbyname('建筑面积').value;

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

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

                        s1:='-';
                        query2.SQL.Clear;
                        query2.SQL.Add('select * from 入伙登记 where 房间='''+Query.FieldByName('房间编号').Value+'''');
                        query2.Open;
                        if query2.RecordCount>0 then s1:=query2.fieldbyname('客户').Value;

                        with ListView1.Items.Add do
                        begin
                            Caption:=mainform.getName('管理区',r1);
                            SubItems.Add(mainform.getName('楼宇',Query1.FieldByName('编号').Value));
                            SubItems.Add(Query.FieldByName('房间编号').Value);
                            SubItems.Add(s3);
                            SubItems.Add(s4);
                            SubItems.Add(s5);
                            SubItems.Add(s6);
                            SubItems.Add(Query.FieldByName('开始计费日期').Value);
                            SubItems.Add(Query.FieldByName('收费帐号').Value);
                            SubItems.Add(Query.FieldByName('收取').Value);
                            SubItems.Add(s1);


                            {query3.sql.clear;
                            query3.sql.add('select * from 房间收费项目设置明细 where 房间编号='''+query.fieldbyname('房间编号').value+'''and 收费项目编号='''+query.fieldbyname('收费项目编号').value+'''');
                            query3.open;
                            i:=query3.recordcount;
                            if i>1 then subitems.Add('分摊');
                            if i=1 then SubItems.Add(Query3.FieldByName('客户').Value);
                            if i=0 then SubItems.Add('');  }
                        end;
                    end;
                    query.Next;
                end;
                query1.Next;
            end;
        end;



        //楼宇
        s:='select * from 楼宇 where 名称='''+treeview1.Selected.Text+'''';
        query1.SQL.Clear;
        Query1.SQL.Add(s);
        Query1.Open ;
        if query1.RecordCount>0 then
        begin
            b:=true;

            s:='select * from 房间收费项目设置  order by 房间编号 asc';
            query.SQL.Clear;
            Query.SQL.Add(s);
            Query.Open ;
            while not Query.Eof do
            begin
                s:='select * from 房间 where 编号 ='''+query.fieldbyname('房间编号').value;
                s:=s+''' and 名称 like ''%'+edit1.text;
                s:=s+'%'' and 楼宇 ='''+Query1.FieldByName('编号').Value;
                s:=s+''' order by 编号 asc';

                query2.SQL.Clear;
                Query2.SQL.Add(s);
                Query2.Open ;
                if query2.RecordCount>0 then
                begin
                    s3:=query2.fieldbyname('名称').value;
                    s4:=query2.fieldbyname('建筑面积').value;

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

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

                    s1:='-';
                    query2.SQL.Clear;
                    query2.SQL.Add('select * from 入伙登记 where 房间='''+Query.FieldByName('房间编号').Value+'''');
                    query2.Open;
                    if query2.RecordCount>0 then s1:=query2.fieldbyname('客户').Value;

                    with ListView1.Items.Add do
                    begin
                        Caption:=mainform.getName('管理区',Query1.FieldByName('管理区').Value);
                        SubItems.Add(mainform.getName('楼宇',Query1.FieldByName('编号').Value));
                        SubItems.Add(Query.FieldByName('房间编号').Value);
                        SubItems.Add(s3);
                        SubItems.Add(s4);
                        SubItems.Add(s5);
                        SubItems.Add(s6);
                        SubItems.Add(Query.FieldByName('开始计费日期').Value);
                        SubItems.Add(Query.FieldByName('收费帐号').Value);
                        SubItems.Add(Query.FieldByName('收取').Value);
                        SubItems.Add(s1);

                        {query3.sql.clear;
                        query3.sql.add('select * from 房间收费项目设置明细 where 房间编号='''+query.fieldbyname('房间编号').value+''' and 收费项目编号='''+query.fieldbyname('收费项目编号').value+'''');
                        query3.open;
                        i:=query3.recordcount;
                        if i>1 then subitems.Add('分摊');
                        if i=1 then SubItems.Add(Query3.FieldByName('客户').Value);
                        if i=0 then SubItems.Add(''); }
                    end;
                end;
                query.Next;
            end;
        end;
    end;



    if b=false then
    begin
        s:='select * from 组织机构 where 名称 = '''+treeview1.Selected.Text+'''';

        query.SQL.Clear;
        Query.SQL.Add(s);
        Query.Open ;
        if query.RecordCount>0 then
        begin
            s1:=Query.FieldByName('stampt').Value;

            s:='select * from 组织机构 where 组织机构类别='''+'管理处';
            s:=s+''' and stampt like '''+s1+'%''';

            query1.SQL.Clear;
            Query1.SQL.Add(s);
            Query1.Open ;
            while not Query1.Eof do
            begin
                s:='select * from 管理区 where 管理处 ='''+Query1.FieldByName('编号').Value;
                s:=s+''' order by 编号 asc';

                query2.SQL.Clear;
                Query2.SQL.Add(s);
                Query2.Open ;
                while not Query2.Eof do
                begin
                    s:='select * from 楼宇 where 管理区 ='''+Query2.FieldByName('编号').Value;
                    s:=s+'''  and 管理处 ='''+Query2.FieldByName('管理处').Value;
                    s:=s+''' order by 编号 asc';

                    query3.SQL.Clear;
                    Query3.SQL.Add(s);
                    Query3.Open ;
                    while not Query3.Eof do
                    begin