熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

機構設置及編碼功能的實現(三)

2013-11-23 17:42:10  來源: Delphi編程 
    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價 特價 購買>>

    為實現在選取Treeview控件中某個節點時在右邊文本框中顯示它的相應數據應為Treeview的onClick事件添加如下代碼
    //顯示選中的某個節點的全部信息
    procedure TmainTreeViewClick(Sender: TObject);
    var
    temp:integer;
    pnode:TTreeNode;
    begin
    //顯示當前所選取的節點的名稱也就是單位名
    editText:=treeviewSelectedText;
    //顯示當前選取節點的父節點的名稱也就是上級單位名
    //如果當前選取的時節點時第一個主節點則直接顯示省醫藥集團
    if treeviewSelectedParentIndex<> then
    editText:=treeviewSelectedParentText
    else
    editText:=省醫藥集團;
    //顯示選中的節點的級號和編號
    editText:=mytable[treeviewSelectedAbsoluteIndex+];
    temp:=length(editText);
    temp:=round(temp/);
    editText:=inttostr(temp);
    //index是指某單元在該級別中的序號而absolute則是在整個樹中的絕對序號
    //將儲存在字符串數組中的與當前節點相對應的信息提取出來顯示在窗體上
    if treeviewSelectedParentindex<> then
    editText:=mytable[treeviewSelectedParentAbsoluteIndex+]
    else
    editText:=;
    //允許對某個所選取的節點進行刪除修改名稱增加子節點等功能
    buttonEnabled:=true;
    buttonEnabled:=true;
    buttonEnabled:=true;
    buttonEnabled:=true;
    end;      

    這樣在用鼠標單擊樹結構圖中某一個節點的時候右邊的文本框中就可以自動顯示出該節點所對應的數據中的單位名稱單位編號上級單位名稱和上級單位編號效果如前面的圖所示


From:http://tw.wingwit.com/Article/program/Delphi/201311/24917.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.