unit1.~pas

用来设计treeview的模块可以用来学习treeview的用法以及操作方法

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, ImgList, StdCtrls, Grids, DBGrids, DB, ADODB,
  DBClient;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ToolButton2: TToolButton;
    ImageList3: TImageList;
    e1: TEdit;
    db1: TDBGrid;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    procedure ToolButton2Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure e1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
e1.Text:=treeview1.Selected.Text;
end;

procedure TForm1.e1Change(Sender: TObject);
begin
if e1.Text='信息科' then
begin
db1.Visible:=true;
end
else
db1.Visible:=false;
end;
end.