如何实现从数据库导出数据到treeview控件

2002-05-16 01:54:54 199 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

python建立简单的人事管理系统（五） t = ttk.Treeview(r5, show='headings', height=10,columns=('工号', '姓名', '性别', '出生日期', '职位'))【show='headings'隐藏首列【就是#0列】，height显示10行，columns对应的列】t['columns']=('1', '2', '3', '4', '5')【list，tuple均可】【设置5列对应str类型的1，2，3，4，5，】t.column('1',text='工号')【设置第一列的列标题】阅读详情

正做前端为delphi,后端为sql的数据库编程,如何实现从后端类别表中按类别导出到treeview控件,类别为四层！望高手赐教！！！！

...全文

避开ego_planner仿真的第一个坑：深度相机、点云与odom话题配置全指南本文详细解析了ego_planner仿真中深度相机、点云与odom话题配置的关键问题，帮助开发者避开常见陷阱。从数据流架构到具体配置细节，包括深度相机的内外参匹配、点云数据规范要求以及odom话题的验证方法，提供了全面的实战指南和优化建议。阅读详情

starrynight

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

mrzho 2002-07-01

打赏
举报

Billy_Chen28 2002-05-16

打赏
举报

参考：
procedure TForm5.LoadTreeView;
var
strsql:string;
begin
try

// DataModule3.ADOTable3.open;
// DataModule3.ADOTable3.Locate('DTname',RzComboBox1.Text,[lopartialkey]);
// tid:=inttostr(DataModule3.ADOTable3.FieldByName('id').value);
strsql:='select * from T where NodeType="bs"';
DQ.Active :=false;
DQ.SQL.Clear ;
DQ.SQL.Add(strsql);
DQ.Active :=true;
DQ.Filtered :=true;
DQ.Filter := 'Parent=0';
U_DiGui(0,RzTreeView1.TopItem );//从当前0层开始递归建树
except
showmessage('字典里没有数据！');
end;
end;
procedure TForm5.U_DiGui(parentID:Cardinal;ParentNode:TTreeNode);
var
tmpTBData:array of TableData;
i,j:integer;
tmpNode:TTreeNode;

begin
j:=DQ.RecordCount;
setlength(tmpTBData,j);//保存递规上一层结点值
for i:=0 to j-1 do begin
tmpTBData[i].ID := Cardinal(DQ.fieldbyname('ID').value);
tmpTBData[i].Name := DQ.fieldbyname('Name').value;
tmpTBData[i].ParentID := Cardinal(DQ.fieldbyname('Parent').value);
DQ.Next;
end;
for i:=0 to j-1 do begin //递规调用建立所有结点
tmpNode:=RzTreeView1.Items.AddChild(ParentNode,tmpTBData[i].Name);
// tmpNode.ImageIndex:=2;
new(pData);
pData^.ID:=tmpTBData[i].ID;
tmpNode.Data:=pData;
DQ.Filter := 'Parent=' + IntToStr(Integer(tmpTBData[i].ID));
if DQ.RecordCount >0 then begin
U_DiGui(tmpTBData[i].ID,tmpNode );
end;
end;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
LoadTreeView;
rzTreeView1.TopItem.Expanded:=true;
end;

王集鹄 2002-05-16

打赏
举报

//参考
http://www.csdn.net/Expert/TopicView1.asp?id=688364

function DataSetToTreeNode(mDataSet: TDataSet;
mTreeView: TTreeView; mTreeNode: TTreeNode;
mParentText: string): Boolean;
const
cFieldNameParent = 'UpperTreeId';
cFieldNameTreeName = 'TreeName';
cFieldNameTreeId = 'TreeId';
cFieldNames = cFieldNameParent + ';' + cFieldNameTreeName + ';' + cFieldNameTreeId;
var
vTreeNode: TTreeNode;
vFieldValues: Variant;
begin
Result := False;
if not Assigned(mDataSet) then Exit;
if not Assigned(mTreeView) then Exit;
if not mDataSet.Active then Exit;
mDataSet.Filtered := False;
mDataSet.Filter := Format('%s=%s', [cFieldNameParent, QuotedStr(mParentText)]);
mDataSet.Filtered := True;
if mDataSet.RecordCount = 0 then Exit;
mDataSet.First;
while not mDataSet.Eof do begin
vTreeNode := mTreeView.Items.AddChild(mTreeNode,
mDataSet.FieldByName(cFieldNameTreeName).AsString);
vFieldValues := mDataSet[cFieldNames];
DataSetToTreeNode(mDataSet, mTreeView, vTreeNode,
mDataSet.FieldByName(cFieldNameTreeID).AsString);
///////Begin 恢复位置
mDataSet.Filtered := False;
mDataSet.Filter := Format('%s=%s', [cFieldNameParent, QuotedStr(mParentText)]);
mDataSet.Filtered := True;
mDataSet.Locate(cFieldNames, vFieldValues, []);
///////End 恢复位置
mDataSet.Next;
end;
Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TreeView1.Items.Clear;
DataSetToTreeNode(Table1, TreeView1, nil, 'NULL');
end;

zhangchao_7622 2002-05-16

打赏
举报

从Query中一条一条提取数据写入TREEVIEW中呀。

nodefault 2002-05-16

打赏
举报

to mrzho(mrzhou):
你看看我的問題吧.和這個問題比較相似.
http://www.csdn.net/expert/topic/727/727520.xml?temp=.424328

mrzho 2002-05-16

打赏
举报

http://soesite.com/howa/img/a.JPG
应该是你要的结果，在TREEVIEW里的内容所有都是从数据库里来的。
你参都一下？

DeathCat 2002-05-16

打赏
举报

你的库结构呢？

如何实现从数据库导出数据到treeview控件

相关推荐