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

機構設置及編碼功能的實現(二)[1]

2013-11-23 17:42:16  來源: Delphi編程 
    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    雙擊【顯示機構設置】按鈕添加事件處理代碼如下為使儲存從數據表中查找得到的數據在ButtonClick事件處理代碼之前需要添加一個全局變量字符串數組mytable代碼如下
    private
        { Private declarations }
      public
        { Public declarations }
      end;
      //以上為Delphi自動生成的代碼
    type
     Ttable=array[] of string;
     //建立一個列的字符串數組儲存在顯示樹形控件時從組織機構編碼表中讀出的機構編號等信息以供  顯示
    var
      main: Tmain;
      mytable:Ttable;
     //初始化一個數組
     //程序中需要用到的全局變量的聲明
     //下面兩行也是Delphi自動生成的代碼
    implementation
    {$R *dfm}
    //機構設置及編碼功能的實現
    //完成樹形圖的顯示
    procedure TmainButtonClick(Sender: TObject);
    //完成樹形圖的顯示
    var
    pnode:TTreeNode;
    i:integer;
    //pnode為樹節點類型的變量
    scodescodelsname:string;
    ItemLevelParentIndex:integer;
    begin
    adoqueryOpen;
    i:=;
    while not adoqueryEof do
    begin
    scode:=adoqueryFieldByName(類別號)AsString;
    scodel:=adoqueryFieldByName(單位編號)AsString;
    sname:=adoqueryFieldByName(類別)AsString;
    ItemLevel:=adoqueryFieldByName(ItemLevel)AsInteger;
    ParentIndex:=adoqueryFieldByName(ParentIndex)AsInteger;
    //將表中的數據按數據儲存的絕對順序AbsIndex排列依次取出
    //按絕對順序讀出數據可以為本實例的完成提供許多方便
    mytable[i]:=scode;
    mytable[i]:=scodel;
    mytable[i]:=sname;
    i:=i+;
    //儲存類別名單位編號和類別到前面定義好的字符串數組中
    if (ItemLevel=) then
    begin
    treeviewItemsAddFirst(nilsname);
    //如果是第一個節點那麼它沒有父節點其父節點是nil(空)創建第一個節點的數據

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


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