http://www.delphipages.com/comp/dynamic_dbtreeview-6302.html https://files.cnblogs.com/files/jijm123/dbtreeview.zip https://www.componentsource.com/product/expressdbtree ExpressDBTree Suite 下载…

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, DB, DBTables, ComCtrls, Grids, DBGrids, ExtCtrls,  DBCtrls, Mask, ImgList; type  TForm1 = class(TForm)    TreeView1: TTreeView;    ImageL…

//操作: procedure TForm1.act_GetListExecute(Sender: TObject); begin FieldList := TStringList.create; TreeView1.items.BeginUpdate; Table1.Close; // 关键!这样才能在插入.更新.删除表数据后实现实时更新 Table1.Open; // 关键! Table1.first; while not Table1.eof do begin TreeAddItem(Tr…

表结构及记录 object tarea: TFDQuery    Connection = FDConnection1    SQL.Strings = (      'select *'      'from tArea  order by fParentCode')    Left = 160    Top = 240  end object tv: TTreeView    Left = 0    Top = 0    Width = 554    Height = 320    Alig…

tProductType表结构如下 object FDConnection1: TFDConnection    Params.Strings = (      'Database=ClothingTem'      'User_Name=sa'      'Password=123'      'Server=(local)'      'DriverID=MSSQL')    Connected = True    LoginPrompt = False    Left = 464    T…