realtya32.pas

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

    if pagecontrol1.ActivePageIndex=0 then  s2:='管理区';
    if pagecontrol1.ActivePageIndex=1 then  s2:='楼宇';
    if pagecontrol1.ActivePageIndex=2 then  s2:='房间';
    if pagecontrol1.ActivePageIndex=3 then  s2:='停车场';
    if pagecontrol1.ActivePageIndex=4 then  s2:='车位';


    //所有
    if nLevel=0 then
    begin
        s:='select * from 房产验收 where 验收项目 like ''%'+Edit2.text;
        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 '+s2+' 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
                 s3:=query1.fieldbyname('名称').Value;
                 s4:=query1.fieldbyname('编号').Value;

                 if pagecontrol1.ActivePageIndex=0 then
                 begin
                     with listview1.Items.Add do
                     begin
                          Caption:=s3;
                          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(s4);
                     end;
                 end;

                 if pagecontrol1.ActivePageIndex=1 then
                 begin
                     with listview2.Items.Add do
                     begin
                          Caption:=s3;
                          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(s4);
                     end;
                 end;

                 if pagecontrol1.ActivePageIndex=2 then
                 begin
                     with listview3.Items.Add do
                     begin
                          Caption:=s3;
                          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(s4);
                     end;
                 end;

                 if pagecontrol1.ActivePageIndex=3 then
                 begin
                     with listview4.Items.Add do
                     begin
                          Caption:=s3;
                          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(s4);
                     end;
                 end;

                 if pagecontrol1.ActivePageIndex=4 then
                 begin
                     with listview5.Items.Add do
                     begin
                          Caption:=s3;
                          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(s4);
                     end;
                 end;
            end;

            query.Next;
        end;
    end;



    if nLevel>=0 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 '+s2+' where 管理处='''+query1.fieldbyname('编号').Value;
                s:=s+''' and 名称 like ''%'+Edit1.text+'%''';

                query11.SQL.Clear;
                Query11.SQL.Add(s);
                Query11.Open ;
                while not Query11.Eof do
                begin
                    s:='select * from 房产验收 where 验收项目 like ''%'+Edit2.text;
                    s:=s+'%'' and 类别 = '''+s2;
                    s:=s+''' and 所属单位 = '''+query11.fieldbyname('编号').Value;
                    s:=s+''' order by 所属单位,验收项目 asc';

                    query.SQL.Clear;
                    Query.SQL.Add(s);
                    Query.Open ;
                    while not Query.Eof do
                    begin
                         s3:=query11.fieldbyname('名称').Value;
                         s4:=query11.fieldbyname('编号').Value;

                         if pagecontrol1.ActivePageIndex=0 then
                         begin
                             with listview1.Items.Add do
                             begin
                                  Caption:=s3;
                                  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(s4);
                             end;
                         end;

                         if pagecontrol1.ActivePageIndex=1 then
                         begin
                             with listview2.Items.Add do
                             begin
                                  Caption:=s3;
                                  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(s4);
                             end;
                         end;

                         if pagecontrol1.ActivePageIndex=2 then
                         begin
                             with listview3.Items.Add do
                             begin
                                  Caption:=s3;
                                  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(s4);
                             end;
                         end;

                         if pagecontrol1.ActivePageIndex=3 then
                         begin
                             with listview4.Items.Add do
                             begin
                                  Caption:=s3;
                                  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(s4);
                             end;
                         end;

                         if pagecontrol1.ActivePageIndex=4 then
                         begin
                             with listview5.Items.Add do
                             begin
                                  Caption:=s3;
                                  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(s4);
                             end;
                         end;
                         query.Next;
                    end;
                    query11.Next;
                end;

                query1.Next;
            end;
        end;
    end;



    query.close;
    query.Free;
    query1.close;
    query1.Free;

    if listview1.Items.Count>0 then listview1.Items.Item[0].Selected:=true;
    if listview2.Items.Count>0 then listview2.Items.Item[0].Selected:=true;
    if listview3.Items.Count>0 then listview3.Items.Item[0].Selected:=true;
    if listview4.Items.Count>0 then listview4.Items.Item[0].Selected:=true;
    if listview5.Items.Count>0 then listview5.Items.Item[0].Selected:=true;
end;

procedure Tf_RealtyA32.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if Node.Selected=true then
    begin
        Sender.Canvas.Brush.Color := clMenuHighlight;
        (Sender as TTreeView).Canvas.Font.Color := clWhite;
    end;
end;

procedure Tf_RealtyA32.Button4Click(Sender: TObject);
begin
    TreeView1Click(Sender);    
end;

end.