单表建tree.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 45 行

procedure TMainoForm.FormCreate(Sender: TObject);
var
 __Node:array[0..30] of TTreeNode;
 __c: array[0..30] of String;
 i,j:integer;
begin
 MainGrid.Refresh;
{*************************建立学生树型列表***********************************}
 i:=0;
 j:=0;
 With StuQuery do
 begin
   Close;
   SQL.Clear;
   SQL.Add('select distinct zy from "student.db"');
   SQL.Add('as one');
   Open;

   while not Eof do
   begin
     __c[i]:= fieldbyname('zy').AsString;
     If i<30 then
       i:=i+1
     else
       showmessage('The c of array is not enough !');
     next;
   end;

   while j<i do
   begin
     __Node[j]:=TreeView1.Items.Add(nil,__c[j]);
     Close;
     SQL.Clear;
     SQL.Add('select distinct bj from "student.db"');
     SQL.Add('Where zy ='''+__c[j]+'''');
     Open;
     While not EOF do
     begin
       TreeView1.Items.AddChild(__Node[j],StuQuery.fieldbyname('bj').AsString);
       next;
     end;
     j:=j+1;
   end;
 end;