摘要：
上面是数据表。painfo=^Tainfo;Tainfo=recordbh,cname,lastbh:string[100];end;procedure TForm1.SetTreeView(atreenode: TTreeNode; aIndex: string); //递归函数varadoquery: TAdoquery;temp: TTreeNode;pif: PAInfo;beginadoquery := TAdoquery.Create(nil);try with adoquery do begin Connection := self.ADOConnection1; close; 阅读全文
摘要：
新手来看:如何设计表结构便于treeview显示？食品饮料类--饮料类--果汁类--山楂汁--柠檬汁--碳酸类--可口可乐--百事可乐--酒类--啤酒类--烟台啤酒--青岛啤酒--白酒类--茅台--五粮液办公设备类--…………以此类推请问该如何建表，便于用treeview显示，而且能反映他们之间的类别关系方法二：一个表字段如下：id(自动编号)fullname(文本)ProgramID(文本)programID是5位一段的数字，比如食品饮料类：00001饮料类：0000100001果汁类：000010000100001山楂汁：00001000010000100001柠檬汁:0000100001 阅读全文
摘要：
1.选取增加的节点var Nodeo: TTreeNode; begin Nodeo := TreeView1.Selected; TreeView1.Items.AddChild(Nodeo, '子节点 '); ADOQuery1.Edit; DBGrid.Fields[1].AsString := '子节点 '; ADOQuery1.Post; ... end;2.给你整个递归的 (一)procedure TFrmMain.Button1Click(Sender: TObject);var GNode:TTreeNode;begin with dm.... 阅读全文
摘要：
unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, DB, ADODB, StdCtrls;type PNodeInfo=^TNodeInfo; TNodeInfo=record ID:string; FullName:string; Url:string; end; TForm3 = class(TForm) ADOConnection1: TADOConnection; ADOQuery1: TADOQue 阅读全文
摘要：
TreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集。一、针对TTreeNodes,也就是 TreeView.Items,有这些属性：1、count，节点个数。2、item[index] ,通过index得到节点。二、针对TTreeNodes,也就是 TreeView.Items,常用的添加节点的操作有：AddFirst添加第一个根节点。由此函数添加的节点总排在前面，除非后来又使用此函数添加了一个节点，则后添加的节点将排在前面。该函数返回新添加的节点。AddChildFirst添加第一个子节点，要 阅读全文