急!在线等待,有没有TREEVIEW添加,删除,修改的源码?使修改后的结果返回到数据库中! 同上 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 代码我还没有看过,你看看有用吗?(转)在一张表里建一棵树。Table->Field->Index_ID,Parent_ID,Field_NameIndex_ID:是指节点编号。Parent_ID:是指父节点编号。Field_Name:是指树的节点名。____________________________________________|___Index_Id_|___Parent_ID|____Field_Name__||_______1____|____0_______|____浙江省______||_______2____|____1_______|____杭州市______||_______3____|____1_______|____宁波市______||_______4____|____2_______|____西湖区______||_______5____|____0_______|____江苏省______||_______6____|____5_______|____扬州市______||_______7____|____5_______|____苏州市______|结果: +--浙江省 | |__杭州市 | | |__西湖区 | |__宁波市 | +----江苏省 |__扬州市 |__苏州市 procedure TForm1.newtreeview(Node:TTreeNode;ParentID:integer);var tmpNode : TTreeNode; ADOquery1 : TADOQuery;begin ADOQuery1 := TADOQuery.Create(self); ADOQuery1.Connection := ADOConnection1; ADOQuery1.close; ADOQuery1.SQL.clear; ADOQuery1.SQL.Text := 'select * from table where Parent_ID ='+inttostr(ParentID); ADOQuery1.open; if ADOQuery1.recordcount > 0 then begin ADOQuery1.First; while not ADOQuery1.Eof do begin tmpNode := TreeView1.Items.AddChild(Node,ADOQuery1.FieldByName('Field_Name').AsString); Newtreeview(tmpNode,ADOQuery1.FieldByName('Index_ID').AsInteger); ADOQuery1.next; end; end; ADOQuery1.Free;end;procedure TForm1.Button1Click(Sender: TObject);begin newtreeview(nil,0);end; TList中快速查找的问题 如何用delphi调用windows的录音机 谁有Delphi5开发者指南源代码? 郁闷~!转行啊~! help~! Delphi如何释放DLL 求一个定数读取的代码 在C/S中如何分批从SqlServer数据库中取数据?高手请进 :) 多任务问题 大型的财务软件制作?我有规划、有模型、有市场,你有兴趣? 一个指问题,先谢了 数据库还原问题!
(转)
在一张表里建一棵树。
Table->Field->Index_ID,Parent_ID,Field_Name
Index_ID:是指节点编号。
Parent_ID:是指父节点编号。
Field_Name:是指树的节点名。
____________________________________________
|___Index_Id_|___Parent_ID|____Field_Name__|
|_______1____|____0_______|____浙江省______|
|_______2____|____1_______|____杭州市______|
|_______3____|____1_______|____宁波市______|
|_______4____|____2_______|____西湖区______|
|_______5____|____0_______|____江苏省______|
|_______6____|____5_______|____扬州市______|
|_______7____|____5_______|____苏州市______|
结果:
+--浙江省
| |__杭州市
| | |__西湖区
| |__宁波市
|
+----江苏省
|__扬州市
|__苏州市 procedure TForm1.newtreeview(Node:TTreeNode;ParentID:integer);
var
tmpNode : TTreeNode;
ADOquery1 : TADOQuery;
begin
ADOQuery1 := TADOQuery.Create(self);
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Text := 'select * from table where Parent_ID ='+inttostr(ParentID);
ADOQuery1.open;
if ADOQuery1.recordcount > 0 then
begin
ADOQuery1.First;
while not ADOQuery1.Eof do
begin
tmpNode := TreeView1.Items.AddChild(Node,ADOQuery1.FieldByName('Field_Name').AsString);
Newtreeview(tmpNode,ADOQuery1.FieldByName('Index_ID').AsInteger);
ADOQuery1.next;
end;
end;
ADOQuery1.Free;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
newtreeview(nil,0);
end;