delphi 树形控件的使用
怎么把数据库里面的值依次绑定上treeview控件,是delphi 自带的控件,刚学习delphi,很多都不会,麻烦指教下!
追问:procedure TForm1.ref;
var
i,j,k: string;
a: integer;
fnode,cnode: TtreeNode; //父节点fnode-----子节点cnode
begintvCompany.Items.Clear;
tvCompany.Items.Add(tvCompany.Selected,'公司信息');
fnode := tvCompany.Items.Item[0];adoQuer.Close;
adoQuer.SQL.Text := 'select * from company';
adoQuer.Open;
Memo1.Visible :=true;
Memo1.Lines.Clear;while adoQuer.Eof = false do
begin
i := adoQuer.FieldByName('companyId').AsString;
j := adoQuer.FieldByName('companyName').AsString;
k := '('+i+')' + j ;
Memo1.Lines.Add(k);
if length(i) = 2 then
begin
cnode := tvCompany.Items.AddChild(fnode,k);
end
else
begin
tvCompany.Items.AddChild(cnode,k);
end;
adoQuer.Next;
end;
adoQuer.First;
tvCompany.Selected := tvCompany.Items.Item[0];
end;
这样就好