treeview控件如何连接数据库?

Question

treeview控件如何连接显示数据库得内容?
怎么样才能实现树型控件的添加删除来实现数据库的添加删除
有没有这方面的书籍(pdf版)啊?在哪能下载到呢?
谢谢各位前辈来指点一下

Answer 1

可以在FAQ中看看。Delphi自带的没有连结数据库的功能，需要自己写代码。

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
var
MyTreeNode1:TTreeNode;
begin
  ADOtree.close;
  ADOtree.sql.clear;
  ADOtree.sql.add('select ID from tbTree order by ID');
  ADOtree.Open;
  while not ADOtree.Eof do
    begin
     with treeview1.Items do
  begin
     MyTreeNode1 := Add(nil,trim(ADOtree.fields[0].asstring));//增加根节点
      with ADOchild do
      begin
       close;
       SQL.Clear;
       SQL.Add('select name from treeviewtest where ID='''+Trim(ADOtree.Fields[0].asstring)+''''+' order by name');
       Active:=true;
       Open;
       While Not ADOchild.Eof do
            begin
            treeview1.Items.AddChild(mytreenode1,trim(ADOchild.Fields[0].AsString));
            ADOchild.Next;
            end;
       end;
       ADOtree.Next;
   end;
   end;
   end;

Answer 3

使用Dev 的Devexpress DBTree 控件
可以到
http://www.51delphi.com/delphi/soft?type=数据库下载

Answer 4

TreeView不属数据感知控件，不能直接和数据库关联，需要写代码控制

Answer 5

有兄弟来顶一把吧
怎么实现程序一运行就自动来显示treeview连接数据库显示数据呢
为什么我程序运行后的treeview控件上面没有显示,
我的代码没有问题
谢谢各位

Answer 6

with cds DO begin
first;
while not Eof do begin
  Treevew.items.add(nil,FieldByName.('字段名').AsString);
  Next;
end;
用一个循环搞定

Answer 7

接上  写以下内容
删除
var Text,SQL:string;
Text:=Treeview1.Selected.Text;//得到条件
SQL:='delete 表名 where '字段名'='''+Text+'''';
QRY1.SQL.ADD(SQL);
QRY1.OPEN;//执行删除语句