请教

unit aaa;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    Table1: TTable;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses main;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
vari,j:integer;mynode:ttreenode;beginwith treeview1 dofor I:= 0 to form1.treeview1.Items.Count-1 dobeginmynode:=items.Add(nil,form1.treeview1.Items[i].text);for j:=0 to form1.treeview1.Items[i].count-1 dobeginItems.AddChild(mynode,form1.treeview1.Items[j].text);end;end;end;
procedure TForm1.Button2Click(Sender: TObject);
vari,j,a1:integer;begintable1.First;table1.Active:=true;a1:= treeview1.Items.count-1;//Treeview1中的总结点数for i:=0 to a1 dobeginif i=0 then //如果是第一个结点begintable1.Insert;table1.FieldByName('cd').asstring:=edit1.text+treeview1.Items[i].Text;endelseif treeview1.Items[i].Index =0 then //如果是某个结点中的第一个子结点beginj:=i-1;table1.insert;table1.FieldByName('cd').asstring:=edit1.text+treeview1.Items[j].Text+'-'+treeview1.Items[i].Text;endelseif copy(treeview1.Items[i].Text,1,1)<>'&' then //如果不是父结点beginj:=i-treeview1.Items[i].Index-1;table1.insert;table1.FieldByName('cd').asstring:=edit1.text+treeview1.Items[j].Text+'-'+treeview1.Items[i].Text;endelseif copy(treeview1.Items[i].Text,1,1)='&' then//如果是父结点begintable1.insert;table1.FieldByName('cd').asstring:=edit1.text+treeview1.Items[i].Text;end;end;end; procedure TForm1.TreeView1click(Sender: TObject); //查找或修改某人在某项的//操作权限vars1:string;begin　s1:=treeview1.Selected.Text;　　　　　　　　　　　　　　／／选中结点with query1 dobeginclose;sql.clear;sql.Add('select * from qx where cd like:v_cd');parambyname('v_cd').asstring:=edit2.text+'%'+s1;prepare;open;end;end;end.