delphi学习treeview中从表列名和数据添加为目录并双击自动选中

 

 1 unit Unit2;

 interface

 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
   Vcl.DBGrids, Vcl.ComCtrls, Vcl.StdCtrls;

 type
   TForm2 = class(TForm)
     TreeView1: TTreeView;
     DBGrid1: TDBGrid;
     ADOConnection1: TADOConnection;
     ADOQuery1: TADOQuery;
     DataSource1: TDataSource;
     procedure FormShow(Sender: TObject);
     procedure TreeView1DblClick(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form2: TForm2;

 implementation

 {$R *.dfm}

 procedure TForm2.FormShow(Sender: TObject);
 var
   I: Integer;
   node: TTreeNode;
   MyFuAdq,MyZiAdq: TADOQuery;
 begin
   MyFuAdq := TADOQuery.Create(nil);
   MyZiAdq := TADOQuery.Create(nil);
   try
     MyFuAdq.Connection := ADOConnection1;
     MyZiAdq.Connection := ADOConnection1;
     with MyFuAdq do
     begin
       SQL.Text := 'SELECT TOP 1 * FROM top_order';
       Open;
     end;

       do
     begin
       node := TreeView1.Items.Add(nil, MyFuAdq.FieldDefs[I].Name); {字段名}

       //再次查询每列不同的数据
       with MyZiAdq do
       begin
         Close;
         SQL.Text := 'SELECT DISTINCT '+MyFuAdq.FieldDefs[I].Name+ ' FROM top_order';
         Open;
       end;
       while not MyZiAdq.Eof do
       begin
         TreeView1.Items.AddChild(node, MyZiAdq.FieldByName(MyFuAdq.FieldDefs[I].Name).AsString);
         MyZiAdq.Next;
       end;
     end;

   finally
     MyFuAdq.Free;
     MyZiAdq.Free;
   end;

 end;

 procedure TForm2.TreeView1DblClick(Sender: TObject);
 var
   MyAdq: TADOQuery;
   selectName,selectValue: string;
 begin
   MyAdq := TADOQuery.Create(nil);
   try
     MyAdq.Connection := ADOConnection1;

     //获取选中的内容
     selectName := TreeView1.Selected.Parent.Text;
     selectValue := TreeView1.Selected.Text;

     //选中
     with MyAdq do
     begin
       SQL.Text := 'UPDATE top_trade SET top_xuanzhong = 1 WHERE top_xuhao IN (SELECT DISTINCT top_xuhao FROM top_order WHERE '+selectName+' = '+selectValue.QuotedString+')';
       ExecSQL;
     end;

     //查询
     with ADOQuery1 do
     begin
       Close;
       SQL.Text := 'SELECT top_order.top_title,top_trade.top_xuhao,top_trade.top_xuanzhong FROM top_order FULL JOIN top_trade ON top_order.top_xuhao = top_trade.top_xuhao WHERE top_order.'+selectName+' = '+selectValue.QuotedString;
       Open;
     end;
   finally
     MyAdq.Free;
   end;
 end;

 end.