MFC的樹形控件怎么添加具有層次性的目錄

我用一個access數據庫來管理圖片資源，需要對這些圖片進行歸門別類，開始在網上Google了很久都沒找到什么什么資料出來，不過自己整理出思路來了。。貼在這可以給需要的人看看。

一、設計數據庫
這里設計了兩張表tbCategores、tbPictures，如下圖所示

圖1 表tbCategores，IDCat是主鍵，自動編號，ParentID是目錄Categores的父目錄ID，為0表示沒有父目錄

圖2 表tbPictures存儲相應下的圖片，有IDCat（外鍵）表明當前圖片（IDpict）屬于哪個目錄

圖3 兩張表的關系

二、代碼
這里給出怎么將表tbCategores填充到Treectrl的代碼，其他代碼可以自行發揮！！

void CGalleryDlg::InitTree()
{

        CMedicalApp *pApp = (CMedicalApp *)AfxGetApp();
        m_treeImages.Create(16,16,ILC_MASK |ILC_COLOR32,3,3);

        m_treeImages.Add(pApp->LoadIcon(IDI_DB ));
        m_treeImages.Add(pApp->LoadIcon(IDI_FOLDER_YELLOW ));
        m_treeImages.Add(pApp->LoadIcon(IDI_FOLDER_YELLOW_OPEN ));
        m_treeFolder.SetImageList(&m_treeImages,TVSIL_NORMAL);

        ADOConn m_AdoConn;
        m_AdoConn.OnInitADOConn();
        CString sDBName = m_AdoConn.GetDBName();

        int i=sDBName.ReverseFind('\\');
        CString nFileText = _T("[") + sDBName.Mid(i+1) + _T("]");

        //insert item
        long                lItemTitle;
        CString                sItemTitle;
       
        // item created
        HTREEITEM        tiTestNode;
        HTREEITEM        tiParentNode;

        //insert root item
        TVINSERTSTRUCT tvInsert;
        tvInsert.hParent = NULL;
        tvInsert.hInsertAfter = NULL;
        tvInsert.item.mask = TVIF_TEXT;
        tvInsert.item.pszText = nFileText.GetBuffer();

        m_treeFolder.DeleteAllItems();
        HTREEITEM h_root=m_treeFolder.InsertItem(&tvInsert);


        //add categroes
        CString  sql;
        sql.Format(_T("select * from tbCategores order by No desc"));
        _RecordsetPtr   pRecordset;
        pRecordset = m_AdoConn.GetRecordset((_bstr_t)sql);

        while(!m_AdoConn.m_pRecordset->adoEOF)
        {
                _variant_t vIDCat, vCategores, vParentID;
                vIDCat = pRecordset->GetCollect("IDCat");
                vCategores= pRecordset->GetCollect("Categores");
                vParentID = pRecordset->GetCollect("ParentID");
               
                sItemTitle = (TCHAR*)(_bstr_t)vCategores;
                lItemTitle = vIDCat.lVal;

                // insert the node
                if(vParentID.vt != VT_NULL)
                        tiParentNode = FindItem((long)(vParentID.lVal));  //查找父節點

                if(vIDCat.lVal==0)
                {
                        tiTestNode = m_treeFolder.InsertItem(sItemTitle,1,2,h_root);
                        m_treeFolder.SetItemData(tiTestNode,lItemTitle);
                }
               
                //for the other nodes
                if( tiParentNode )
                {
                        tiTestNode = m_treeFolder.InsertItem(sItemTitle,1,2, tiParentNode);
                        m_treeFolder.SetItemData(tiTestNode, lItemTitle);
                }

                pRecordset->MoveNext();
        }

        m_treeFolder.Expand(m_treeFolder.GetRootItem(), TVE_EXPAND);

        m_treeFolder.EnableMultiSelect(FALSE);
        m_AdoConn.ExitConnect();
}

//查找某一個節點

HTREEITEM CGalleryDlg::FindItem(long lItemData)
{
        // the tree object
        // the current item
        HTREEITEM    tiItem= m_treeFolder.GetNextItem(TVGN_ROOT,TVGN_ROOT);
        long             lCurrentData;

        while (tiItem)
        {
                m_treeFolder.Expand(tiItem,TVE_EXPAND);

                lCurrentData = (long)m_treeFolder.GetItemData(tiItem);

                if( lCurrentData == lItemData )
                        return tiItem;
                tiItem= m_treeFolder.GetNextItem(tiItem,TVGN_NEXTVISIBLE);
        }

        return NULL;

}

下圖是填充目錄后的Treectrl。