码迷,mamicode.com
首页 > Windows程序 > 详细

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

时间:2017-05-03 18:18:59      阅读:230      评论:0      收藏:0      [点我收藏+]

标签:字段   imp   treenode   query   source   integer   复制   sql   where   

技术分享



1 unit Unit2; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 7 Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids, 8 Vcl.DBGrids, Vcl.ComCtrls, Vcl.StdCtrls; 9 10 type 11 TForm2 = class(TForm) 12 TreeView1: TTreeView; 13 DBGrid1: TDBGrid; 14 ADOConnection1: TADOConnection; 15 ADOQuery1: TADOQuery; 16 DataSource1: TDataSource; 17 procedure FormShow(Sender: TObject); 18 procedure TreeView1DblClick(Sender: TObject); 19 private 20 { Private declarations } 21 public 22 { Public declarations } 23 end; 24 25 var 26 Form2: TForm2; 27 28 implementation 29 30 {$R *.dfm} 31 32 procedure TForm2.FormShow(Sender: TObject); 33 var 34 I: Integer; 35 node: TTreeNode; 36 MyFuAdq,MyZiAdq: TADOQuery; 37 begin 38 MyFuAdq := TADOQuery.Create(nil); 39 MyZiAdq := TADOQuery.Create(nil); 40 try 41 MyFuAdq.Connection := ADOConnection1; 42 MyZiAdq.Connection := ADOConnection1; 43 with MyFuAdq do 44 begin 45 SQL.Text := ‘SELECT TOP 1 * FROM top_order‘; 46 Open; 47 end; 48 49 for I := 0 to MyFuAdq.FieldDefs.Count - 1 do 50 begin 51 node := TreeView1.Items.Add(nil, MyFuAdq.FieldDefs[I].Name); {字段名} 52 53 //再次查询每列不同的数据 54 with MyZiAdq do 55 begin 56 Close; 57 SQL.Text := ‘SELECT DISTINCT ‘+MyFuAdq.FieldDefs[I].Name+ ‘ FROM top_order‘; 58 Open; 59 end; 60 while not MyZiAdq.Eof do 61 begin 62 TreeView1.Items.AddChild(node, MyZiAdq.FieldByName(MyFuAdq.FieldDefs[I].Name).AsString); 63 MyZiAdq.Next; 64 end; 65 end; 66 67 68 finally 69 MyFuAdq.Free; 70 MyZiAdq.Free; 71 end; 72 73 end; 74 75 procedure TForm2.TreeView1DblClick(Sender: TObject); 76 var 77 MyAdq: TADOQuery; 78 selectName,selectValue: string; 79 begin 80 MyAdq := TADOQuery.Create(nil); 81 try 82 MyAdq.Connection := ADOConnection1; 83 84 //获取选中的内容 85 selectName := TreeView1.Selected.Parent.Text; 86 selectValue := TreeView1.Selected.Text; 87 88 //选中 89 with MyAdq do 90 begin 91 SQL.Text := ‘UPDATE top_trade SET top_xuanzhong = 1 WHERE top_xuhao IN (SELECT DISTINCT top_xuhao FROM top_order WHERE ‘+selectName+‘ = ‘+selectValue.QuotedString+‘)‘; 92 ExecSQL; 93 end; 94 95 96 //查询 97 with ADOQuery1 do 98 begin 99 Close; 100 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; 101 Open; 102 end; 103 finally 104 MyAdq.Free; 105 end; 106 end; 107 108 end.
技术分享

 

 

 

技术分享

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

标签:字段   imp   treenode   query   source   integer   复制   sql   where   

原文地址:http://www.cnblogs.com/ddxxxb/p/6803193.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!