zoukankan      html  css  js  c++  java
  • 动手生成 Delphi xe DBTreeview

    tProductType表结构如下

    object FDConnection1: TFDConnection
        Params.Strings = (
          'Database=ClothingTem'
          'User_Name=sa'
          'Password=123'
          'Server=(local)'
          'DriverID=MSSQL')
        Connected = True
        LoginPrompt = False
        Left = 464
        Top = 288
      end
      object FDQ: TFDQuery
        Active = True
        Connection = FDConnection1
        SQL.Strings = (
          
            'select * from tProductType  where fParentID like '#39'0%'#39' order by f' +
            'code')
        Left = 464
        Top = 240
      end
      object DataSource1: TDataSource
        DataSet = FDQ
        Left = 320
        Top = 464
      end
    end

    代码如下

    unit Unit1;

    interface

    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
      FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
      FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.MSSQL,
      FireDAC.Phys.MSSQLDef, FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS,
      FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, Vcl.StdCtrls, Vcl.Grids,
      Vcl.DBGrids, Vcl.ComCtrls, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
      Vcl.ExtCtrls;

    type
      TForm1 = class(TForm)
        PageControl1: TPageControl;
        TabSheet1: TTabSheet;
        TabSheet2: TTabSheet;
        tv: TTreeView;
        FDConnection1: TFDConnection;
        FDQ: TFDQuery;
        DataSource1: TDataSource;
        Panel1: TPanel;
        Button2: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);

      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}


    procedure TForm1.Button1Click(Sender: TObject);
    var
    nodes:ttreenodes;
    node:ttreenode ;
    begin
    //     TV.Items.Clear;
    //     nodes:=TV.Items;
    //     FDQ.Active:=true;
    //     node:=nodes.add(nil,FDQ.FieldByName('fCode').Value+'_'+FDQ.FieldByName('fNAME').Value);
    //     FDQ.Next;
    //     while NOT FDQ.Eof  do
    //     BEGIN
    //          if FDQ.FieldByName('fCode').Value<>0 then
    //             nodes.add(node,FDQ.FieldByName('fCode').Value+'_'+FDQ.FieldByName('fNAME').Value);  //一级三兄弟
    //             FDQ.Next;
    //     END;
    //     nodes.GetFirstNode
    end;

    procedure TForm1.Button2Click(Sender: TObject);
      var
        nodes:ttreenodes;
        node:ttreenode ;
        CurItem ,CurItem1:Ttreenode ;
        nodestr:string;
        lastparent,temp:string;
        i,j:integer;
    begin

         TV.Items.Clear;
         nodes:=TV.Items;
         FDQ.Active:=true;
         node:=nodes.add(nil,FDQ.FieldByName('fCode').Value+'_'+FDQ.FieldByName('fNAME').Value);
         FDQ.Next;
         while NOT FDQ.Eof  do
         BEGIN
              if FDQ.FieldByName('fCode').Value<>0 then
                 nodes.add(node,FDQ.FieldByName('fCode').Value+'_'+FDQ.FieldByName('fNAME').Value);  //一级三兄弟
                 FDQ.Next;
         END;
         nodes.GetFirstNode;


       tv.Items.BeginUpdate;
      for I := 1 to 9 do
        begin
          FDQ.SQL.Clear;
          temp:=inttostr(i);
          fdq.SQL.Text:='select * from tProductType  where fcode like '+''''+ temp+'%'  +'''';//+' order by fParentCode';
          fdq.Prepare;
          fdq.open;
          nodes:=Tv.Items;
          CurItem := TV.Items.GetFirstNode;
          if i>1 then
              for j := 1 to i-1 do
              begin
               CurItem1:=CurItem.getNextSibling;
               CurItem:= CurItem1;
              end;
          fdq.First;
          fdq.Next;
          lastparent:=fdq.FieldByName('fParentCode').AsString;
          while not fdq.Eof  do
             begin
                //如 果当前'fParentCode'与上次不一样就查找
              if  lastparent<>fdq.FieldByName('fParentCode').AsString
                then
                 begin
                   CurItem := TV.Items.GetFirstNode;
                    while CurItem <> nil do
                       begin
                        if copy( CurItem.Text,1,pos('_',CurItem.Text)-1) =fdq.FieldByName('fParentCode').Value then
                           begin
                            CurItem.Selected:=true;
                            break;
                            end;
                           CurItem := CurItem.GetNext;
                       end;
                 end ;
                 begin
                     nodes.addchild(CurItem,FDQ.FieldByName('fCode').Value+'_'+FDQ.FieldByName('fNAME').Value);
                     lastparent:=fdq.FieldByName('fParentCode').AsString;
                 end;
              fdq.Next;
             end;
      end; // for I := 0 to 9 do
       tv.Items.EndUpdate;
    end;
    procedure TForm1.Button3Click(Sender: TObject);
    begin
    //showmessage(tv.Items.Count.ToString );
    end;

    end.

    运行结果如下图

  • 相关阅读:
    生成随机数的范围的公式
    正则匹配<img src="xxxxxx" alt="" />标签的相关写法
    js 日常问题记录
    css 三角实例
    /users/products.:format 这种写法的其对应解析字符写法
    package.json 的语法解释
    replace 全局替换 和 数组去空
    js checkbox获取选中的值
    JavaScript基础知识一
    移动 Web 设计
  • 原文地址:https://www.cnblogs.com/jijm123/p/11336346.html
Copyright © 2011-2022 走看看