zoukankan      html  css  js  c++  java
  • delphi DBTreeview与数据库连接的数据存取

    //操作:
    procedure TForm1.act_GetListExecute(Sender: TObject);
    begin
       FieldList := TStringList.create;
       TreeView1.items.BeginUpdate; 
       Table1.Close;   // 关键!这样才能在插入、更新、删除表数据后实现实时更新
       Table1.Open;    // 关键!
       Table1.first;
       while not Table1.eof do
         begin
            TreeAddItem(TreeView1, GetFieldList, Table1.getBookmark, false); 
            Table1.next;
         end;
       FieldList.clear;
     
       TreeView1.Alphasort;
       TreeView1.items.Endupdate;
       TreeView1.Refresh;
       TreeView1.FullExpand;     // 全部展开
    end;
     
    //GetFieldList函数:
    function TForm1.GetFieldList: TStringList;
    begin
         FieldList.clear;
         FieldList.add(Table1.fieldbyname('Level1').AsString);
         FieldList.add(Table1.fieldbyname('Level2').AsString);
         FieldList.add(Table1.fieldbyname('Level3').Asstring);
         Result := FieldList;
    end;
  • 相关阅读:
    POJ1700 Crossing River
    Glad to see you! CodeForces
    Summer sell-off CodeForces
    atcoderI
    Selling Souvenirs CodeForces
    Array Division CodeForces
    Tea Party CodeForces
    Atcoder F
    Atcoder E
    Average Sleep Time CodeForces
  • 原文地址:https://www.cnblogs.com/jijm123/p/11336472.html
Copyright © 2011-2022 走看看