双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

树形问题(简单问题)

2009-01-17 11:01:45 151 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ou630j 墨衍会员 · AI 创作全网分发关注 + 加入社区

【OpenCV】手眼标定实战：从原理到calibrateHandEye的完整实现本文详细解析了机器人视觉中的手眼标定原理与实战，重点介绍了如何使用OpenCV的calibrateHandEye函数实现从数据采集到结果验证的完整流程。文章深入剖析了AX=XB核心方程，区分了眼在手上与眼在手外两种配置，并提供了详细的代码示例与避坑指南，帮助开发者精准建立相机与机械臂末端的坐标转换关系，是机器人精准抓取的关键技术。阅读详情

比如我有个表table1

id name node
1 A null
2 B null
3 V B
4 G B
5 A1 A
6 A2 A
7 a3 A
8 K NULL
现在我想把他显示在TREEVIEW上面
点写代码啊？各位告诉

显示成
A
A1
A2
A3
B
V
G
K

...全文

人类肠道微生物群落代谢建模 MICOMWeb 是款用户友好型网站，专为人类肠道微生物群落代谢建模设计。该网站旨在解决基因组尺度代谢模型（in silico）构建过程中的３大限制：① 使用 MICOM Python 包进行通量平衡分析时对用户 Python 编程知识的要求；② 支持预定义和用户自定义饮食，以生成专属代谢模型；③ 处理宏基因组鸟枪法测序或 16S 扩增子测序获得的真实丰度数据时，所需的高通量计算基础设施。本文展示了 MICOMWeb 的核心功能，用户可轻松开展虚拟实验，为３个已发表数据集的实验验证生成功能性假设。阅读详情

ou630j

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

ou630j 2009-01-17

打赏
举报

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
q.close;
q.sql.text := 'select * from table1 where code='+QuotedStr(NOde.Text);
q.open;
while not q.eof do
begin
//名称添加到Node的自节点(应该会吧)
q.Next;
end;
end;

加上这段没有用的，都不增加的

bdmh 2009-01-17

打赏
举报

定义 q 为数据集

q.clear;
q.sql.text := 'select * from table1 where code is null'
q.open;
while not q.eof do
begin
//名称添加到treeview(应该会吧)
q.Next;
end;

这样就选出了第一级节点
然后在treeview的expanding事件中

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
begin
q.close;
q.sql.text := 'select * from table1 where code='+QuotedStr(NOde.Text);
q.open;
while not q.eof do
begin
//名称添加到Node的自节点(应该会吧)
q.Next;
end;
end;

fjtxwd 2009-01-17

打赏
举报

这样应该行了,有点问题自己改改
procedure TForm1.FindLeechDom(Leechdomname: String;node: TTreeNode);
var
temp: TQuery;
node1: TTreeNode;
begin
Try
temp := TQuery.Create(Self);
temp.DatabaseName := ExtractFilePath(Application.ExeName);
With temp do
begin
Close;
SQL.Clear;
SQL.Add('select * from table1 where node = :Value');
ParamByName('value').AsString := id;
Open;
end;
while Not Temp.Eof do
begin
node1 := TreeView1.Items.AddChild(node,temp.FieldByName('name').AsString);
FindLeechDom(temp.FieldByName('name').AsString,node1);
temp.Next;
end;
Finally
temp.Free;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
temp: TTreeNode;
begin
With Query1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from table1');
Open;
end;
while not Query1.Eof do
begin
if Query1.FieldByName('node').AsString = '' then
begin
temp := TreeView1.Items.AddChild(TreeView1.Items[0],Query1.FieldByName('name').AsString);
FindLeechDom(Query1.FieldByName('name').AsString,temp);
end;
Query1.Next;
end;
end;

ou630j 2009-01-17

打赏
举报

思想我知道，但我写出来的都错了，所以才问的啊

ou630j 2009-01-17

打赏
举报

思想我知道，但我写出来的都错了，所以才问的啊

bdmh 2009-01-17

打赏
举报

循环吧

先筛选出 node=null的记录,然后添加到treeview,然后循环这几条记录,选出node=节点text的记录,再添加到treeview,依次类推

建议
第一次只筛选node=null的记录,然后在treeview的expanding事件中再查找属于他的子记录,类似于windows的资源管理器

再有,数据库的设计建议如下

id pid name code(如果需要)

pid为父级记录的id

kye_jufei 2009-01-17

打赏
举报

fyi



procedure TRES_BOM_VIEW_F.btnSB_SearchClick(Sender: TObject);//點擊按鈕生成樹的過程

begin

  inherited;

  try

    RES_LOADING_F:=TRES_LOADING_F.Create(Self);

    RES_LOADING_F.Label1.Caption:='正在檢索相關數據......';

    RES_LOADING_F.Show;

    RES_LOADING_F.Update;

    CREATETREEVIEWMODEL;//過程名

  finally

    RES_LOADING_F.Close;

  end;

end;



procedure TRES_BOM_VIEW_F.CREATETREEVIEWMODEL;

var

  iLoop:Integer;

  Master,MasterNode:TTreeNode;

begin

  adoq_getop.Close;

  //SELECT distinct PARN_TYP FROM WWW where parn_typ<>'.' and parn_typ is not null order by PARN_TYP desc

  adoq_getop.SQL.Text:='SELECT distinct PARN_TYP FROM WWW where parn_typ<>''.'' and parn_typ is not null order by PARN_TYP desc';

  adoq_getop.Open;

  adoq_getop.First;

  cx_TV.Items.BeginUpdate;

  cx_TV.Items.Clear;

  Master:=cx_TV.Items.Add(nil,'昆盈BOM表檢視');

  while not adoq_getop.Eof do

  begin

    if adoq_getop.FieldByName('PARN_TYP').AsString<>'' then

    begin

      Screen.Cursor:=crSQLWait;

      MasterNode:=cx_TV.Items.AddChild(Master,VarToStr(adoq_getop.FieldValues['PARN_TYP']));

      Application.ProcessMessages;

      qry_op.Close;

      qry_op.SQL.Text:='SELECT DISTINCT PARN_LITM FROM WWW WHERE PARN_TYP='''+ VarToStr(adoq_getop.FieldValues['PARN_TYP'])+''' GROUP BY PARN_LITM';

      qry_op.Open;

      for iLoop:=0 to qry_op.RecordCount -1 do

      begin

        cx_TV.Items.AddChild(MasterNode,VarToStr(qry_op.FieldValues['PARN_LITM']));

        qry_op.Next;

      end;

      Application.ProcessMessages;

      cx_TV.Items.EndUpdate;

      Screen.Cursor:=crDefault;

    end;

    adoq_getop.Next;

    Application.ProcessMessages;

  end;

 {

  ThreadTView:=cx_TV;

  ViewThread:=TExpandLH.Create;

  ViewThread.Resume;

  }

end;



多層可用遞歸生成:

private

    procedure CreateTreeModel;

    procedure CreateSubTree(isR:boolean;FNodeName:string;Node:TTreeNode=nil);

 { Private declarations }



procedure TForm1.CreateTreeModel;

var

  iLoop:Integer;

  aa:TTreeNode;

begin

  ADOQuery1.Close;

  ADOQuery1.SQL.Text:='SELECT PARN_TYP FROM bom GROUP BY PARN_TYP';

  ADOQuery1.Open;

  ADOQuery1.First;

  TreeView1.Items.BeginUpdate;

  TreeView1.Items.Clear;

  aa:=TreeView1.Items.Add(nil,'BOM');

  Screen.Cursor:=crSQLWait;

  Application.ProcessMessages;

  for iLoop:=0 to ADOQuery1.RecordCount -1 do

  begin

    TreeView1.Items.AddChild(aa,VarToStr(ADOQuery1.FieldValues['PARN_TYP']));

    ADOQuery1.Next;

  end;

  Application.ProcessMessages;

  TreeView1.Items.EndUpdate;

  TreeView1.Items[0].Expand(False);

  Screen.Cursor:=crDefault;

end;



procedure TForm1.CreateSubTree(isR:boolean;FNodeName:string;Node:TTreeNode=nil);

var

  mLocalName:string;

  TreeNode:TTreeNode;

  Ads_Tmp,adoq_op:TADODataSet;

begin

    if isR then

    begin

      Ads_Tmp:=TADODataSet.Create(Self);

      Ads_Tmp.Connection:=ADOConnection1;

      with Ads_Tmp do

      try

        Close;

        //CommandText:='Select distinct PARN_LITM from bom Where PARN_TYP ='+'''' + FNodeName+'''';

        CommandText:='Select distinct PARN_LITM from bom Where PARN_TYP ='+'''' + FNodeName+''' and PARN_LITM like ''3%''';

        Open;

        First;

        TreeView1.Items.BeginUpdate;

        Screen.Cursor:=crSQLWait;

        Application.ProcessMessages;

         while not Eof do

         begin

           mLocalName:=Trim(FieldbyName('PARN_LITM').Asstring);

           TreeNode:=TreeView1.Items.AddChild(Node,Trim(FieldByName('PARN_LITM').AsString));

           CreateSubTree(False,mLocalName,TreeNode);

           Next;

         end;

         Application.ProcessMessages;

         TreeView1.Items.EndUpdate;

         Screen.Cursor:=crDefault;

        finally

          Ads_Tmp.Free;

        end;

      end

      else

      begin

          adoq_op:=TADODataSet.Create(Self);

          adoq_op.Connection:=ADOConnection1;

          with adoq_op do

          try

            Close;

            CommandText:='Select CHLD_LITM from bom Where PARN_TYP='+''''+sTmp+''''+' and  PARN_LITM ='+'''' + FNodeName+''''+' group by CHLD_LITM';

            Open;

            First;

            TreeView1.Items.BeginUpdate;

            Screen.Cursor:=crSQLWait;

            Application.ProcessMessages;

            while not Eof do

             begin

               mLocalName:=Trim(FieldbyName('CHLD_LITM').Asstring);

               TreeNode:=TreeView1.Items.AddChild(Node, Trim(FieldByName('CHLD_LITM').AsString));

               CreateSubTree(False,mLocalName,TreeNode);

               Next;

             end;

             Application.ProcessMessages;

             TreeView1.Items.EndUpdate;

             Screen.Cursor:=crDefault;

            finally

              adoq_op.Free;

            end;

      end;

end;





procedure TForm1.Button1Click(Sender: TObject);

begin

  sTmp:=TreeView1.Selected.Text;

  CreateSubTree(True,TreeView1.Selected.Text,TreeView1.Selected);

end;

VIP_Rainbow 2009-01-17

打赏
举报

随便写的,你试试行不行
procedure InitTree(Tree:TTreeView);
var
Root:TTreeNode;
RootQy:Tadoquery;
procedure CreateChild(node:TTreeNode;nodeName:string);
var
tempNode:TTreeNode;
tempQy:Tadoquery;
begin
tempQy:=Tadoquery.create(application);
tempQy.Connection:=ADOConnection1;
tempQy.SQL.Text:='select * from 表 where Node<>null and node='''+nodeName+'''';
tempQy.Open;
while not tempQy.Eof do
begin
tempNode:=Tree.Items.AddChild(node,tempQy.FieldValues['Name']);
CreateChild(tempNode,tempQy.FieldValues['Name']);
end;
end;
begin
RootQy:=Tadoquery.create(application);
RootQy.Connection:=ADOConnection1;
RootQy.SQL.Text:='select * from 表 where Node=null';
Rootqy.Open;
while not Rootqy.Eof do
begin
Root:=Tree.Items.AddFirst(nil,Rootqy.FieldValues['name']);
CreateChild(Root,Rootqy.FieldValues['name']);
Rootqy.Next;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
InitTree(TreeView1);
end;

✦双11狂欢大促✦

树形问题(简单问题)

相关推荐

双11狂欢大促