機構設置及編碼功能的實現（二）[2]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    end
    else
    begin
    pnode:=treeviewItemsItem[ParentIndex];
    treeviewItemsAddChild(pnodesname);
    //根據記錄的父節點屬性依次為所有記錄創建樹形圖
    end;
    adoqueryNext;
    end;
    end;      

    這樣程序運行時單擊【顯示機構設置】按鈕就可以在窗體左邊的Treeview中顯示根據數據庫中機構編碼和互相之間關系生成的機構樹如圖所示讀者可以將Treeview控件的AutoExpand屬性設置為true讓Treeview中的節點在顯示時自動全部展開

http://developcsaicn/delphi/images/jpg>
圖  顯示樹結構

right>[http://developcsaicn/delphi/htm>]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24924.html