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

如何把ADO中的數據導入到ListBox中

2013-11-23 17:42:19  來源: Delphi編程 
    ——此文章摘自《Delphi開發經驗技巧寶典》定價 特價 購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    本例實現的功能是單擊導入按鈕將表格中的數據全部顯示在ListBox中如圖所示

http://developcsaicn/delphi/images/jpg>
  將ADO中的數據導入到ListBox中

    主要代碼如下
    procedure TFrmOrderByBtnOrderClick(Sender: TObject);
    var
      ID Number Name Telephone: String;
      dePartMent JoinDate Old: String;
    begin
      ListBoxItemsClear;
      ADODataSetDisableControls;
      ADODataSetFirst;
      while not ADODataSetEof do
      begin
       ID := ADODataSetFieldByName(ID)AsString;
       Number := ADODataSetFieldByName(Number)AsString;
       Name := ADODataSetFieldByName(Name)AsString;
       Old := ADODataSetFieldByName(Old)AsString;
       Telephone := ADODataSetFieldByName(Telephone)AsString;
       dePartMent := ADODataSetFieldByName(dePartMent)AsString;
       JoinDate := ADODataSetFieldByName(JoinDate)AsString;
       ListBoxItemsAdd(ID + + Number + + Name + + Old
              + + Telephone + + dePartMent + + JoinDate);
       ADODataSetNext;
      end;
      ADODataSetEnableControls;
    end;


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