有没有利用TREEVIEW控件将数据库中的数据按照 ID\PID 关系显示的实例[email protected]
解决方案 »
- delphi中,combox控件里面条目的个数是哪个属性。
- 一个很菜的问题呀。关于动态数组传递的问题,望大侠能够告知一二 ,谢谢了!
- 发的问题没人答或者有人答也答的不对,那贴子还要不要结?
- 开发三层系统,应用服务器使用COM,CORBA中的哪种技术比较好呢?
- 请问如何使用通讯控件连接红外线手机,进行短信发送
- Fastreport 中打印时如何让其不显示打印对话框?
- 一条很简单的SQL语句不会写了,急,解决急揭帖!
- 在delphi中如何实现多副jepg图片存储数据库????
- 请教下关于反编译的问题!急需援助!
- 急急急急急急急急急急急急急急急急急急!!!!
- 类型转换
- 我用Delphi7写程序时,觉得“颜色”属性列表中的可选项太少,可以实现自定以颜色吗?
procedure Tf_power.buildtreedata;
var
getnode:Ttreenode;
begin
getnode:=nil;
with tv_user do
begin
items.Clear;
with dm_data.ClientDataSet_user do
begin
active:=false;
active:=true;
end;
while not dm_data.ClientDataSet_user.Eof do
begin
if (length(dm_data.ClientDataSet_user.Fields[0].AsString)=3) then
begin
getnode:=items.Add(nil,dm_data.ClientDataSet_user.Fields[1].AsString);//+'('+dm_data.ClientDataSet_user.Fields[0].AsString+')');
end
else
begin
if getnode<>nil then
items.AddChild(getnode,dm_data.ClientDataSet_user.Fields[1].AsString);//+'('+dm_data.ClientDataSet_user.Fields[0].AsString+')');
end;
dm_data.ClientDataSet_user.Next;
end;
end;
tv_user.FullExpand;
end;