mCtrls, Grids, DBGrids, DB, ADODB;
type TTREEForm = class(TForm) TreeView1: TTreeView; DBTREEGrid: TDBGrid; ADOTREETable: TADOTable; ADOTREENODE20Query: TADOQuery; DataTREESource: TDataSource; ADOTREENODE21Query: TADOQuery; procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end;
var TREEForm: TTREEForm; node1,node2: ttreenode; //定义节点 aa:string; implementation
uses MAINUnit1;
{$R *.dfm}
procedure TTREEForm.FormShow(Sender: TObject); begin //在 TREEVIEW 里列出信息 with ADOTREENODE20Query do begin Close; SQl.Clear; SQL.Add('select * from treenr order by 种类'); Open; end; ADOTREENODE20Query.First;//从第一条记录开始 while not ADOTREENODE20Query.Eof do begin //select distinct 种类 from treenr
//添加根节点 node2:= TreeView1.Items.Add(node1,ADOTREENODE20Query.FieldValues['种类']); with ADOTREENODE21Query do begin
Close; SQl.Clear; SQL.Add('select 种类,种类编号,种类内容 from treenr where 种类 =:zl'); Parameters.ParamByName('zl').Value:= ADOTREENODE20Query.FieldByName('种类').AsString; Open; end; ADOTREENODE21Query.First;//从第一条记录开始 while not ADOTREENODE21Query.Eof do begin //node2.ImageIndex := 1; //添加子节点 TreeView1.Items.AddChild(node2,ADOTREENODE21Query.fieldbyname('种类内容').asstring) ; ADOTREENODE21Query.next;//下一条记录 end; ADOTREENODE20Query.Next;//下一条记录 end; end;
end. 此帖子包含附件:
大小:26.1K