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

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

    要保存對樹形圖做的改動到相應的數據庫需要為【保存設置】按鈕添加如下代碼
    //保存對樹形圖做的修改
    procedure TmainButtonClick(Sender: TObject);
    //保存對樹形圖所作的全部設置
    var
    itemp:integer;
    namenumberabsindexitemindexitemlevelparentindex:string;
    ordercodessp:string;
    //上面的變量為節點的數據和循環控制變量
    pnode:TTreeNode;
    //樹形圖節點
    begin
    adocommandCommandText:=set IDENTITY_insert 組織機構編碼表 on;
    adocommandExecute;
    //打開SQL SERVER中的組織機構編碼表的插入許可
    adocommandCommandText:=select * into zztemp from 組織機構編碼表;
    adocommandExecute;
    //一般來講在對一個表做大的修改前都需要創建一個臨時表以保存備份
    //根據用戶需要可以從SQL Server中恢復該數據表或者在程序中編寫SQL 語句
    //將備份表的數據重新讀入組織機構
    編碼表中
    adocommandCommandText:=delete from 組織機構編碼表;
    adocommandExecute;
    //清空要操作的表
    adocommandCommandText:=insert into 組織機構編碼表([內部編號]
    [類別][AbsIndex][ItemIndex][ItemLevel][ParentIndex][類別號]
    [單位編號][單位名稱]) values(省醫藥集團
    省醫藥集團);
    adocommandExecute;
    //直接插入首項數據
     
    for i:= to treeviewItemsCount do
    //用treeviewitemscount可以計算樹控件中所有的節點數目
     begin
     pnode:=treeviewItemsItem[i];
     //依次指向樹形圖的所有節點
     name:=pnodeText;
     number:=inttostr(+pnodeAbsoluteIndex);
     //內部編碼設為從開始也可以設為讀者願意使用的任何整數
     absindex:=inttostr(pnodeAbsoluteIndex);
     itemindex:=inttostr(pnodeIndex);
     parentindex:=inttostr(pnodeParentAbsoluteIndex);
     //為節點各項參數讀入數據
     s:=inttostr(pnodeIndex);
      if length(s)= then
       s:=+s
       else
       s:=s;
       order:=s;
       //取子項的本級編號Index也就是類別號
       //由於類別號是兩位整數而本級編號小於的節點的編號是位整數
       //對其進行編碼把例如的index轉為字符串

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

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