关于将数据库读入treeview的问题?((100分)

  • 主题发起人 主题发起人 laoli
  • 开始时间 开始时间
L

laoli

Unregistered / Unconfirmed
GUEST, unregistred user!
能否将一个数据库一次性按类别读入treeview里(不论节点多少),
然后,在程序运行中,无论点击哪一个节点都可以,用一个事件来触发
查询,查询当前点击节点的相关字段。最好能提供相关代码.........
 
procedure TForm1.CreateTree(ID: Integer; Node: TTreeNode);
//¶¯Ì¬´´½¨Ê÷
var
iPartID:Integer;
TreeNode: TTreeNode;
myQuery:TQuery;
const
SQLStr1='select * from systemtree where pid=%d';
begin
myQuery:=TQuery.Create(Self);
try
with myQuery do
begin
DatabaseName:='aaa';
SQL.Add(Format(SQLStr1,[Id]));
Open;
while not Eof do
begin
iPartID:=FieldByName('id').AsInteger;
TreeNode:=tvTree.Items.AddChild(Node,FieldByName('id').Asstring);
TreeNode.StateIndex:=iPartID;
CreateTree(iPartID,TreeNode);
Next;
end;
Close;
end;
finally
myQuery.Free;
end;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
tvTree.Items.Clear;
CreateTree(1,nil);
end;

 
有更好的,支持多层数据库的吗?
 
接受答案了.
 
后退
顶部