在delphi中，如何将treeview与数据库相连？代码越简单越好

Question

用ado控件比较间接还是bde的？代码是什么样的？急问！！！

Answer 1

type
  BMRecord = record
    BMBM : string; //编码
  end;
  pBMRecord = ^BMRecord;var
   BMRecord: pBMRecord;
begin
TreeList := TList.Create;
  with Adoquery1 do
  begin
    TreeList.Clear;
    First;
    while not Eof do
    begin
      New(BMRecord);
      BMRecord.BMBM := FieldByName('BMBH').AsString;
      TreeList.Add(BMRecord);
      Next;
    end;
  end;
end;

Answer 2

有没有不用ADO的呀??
在TWinForm中做这个怎么做?