www.gusucode.com > 精典源码Delphi131：某医院HIS管理系统 > 精典源码Delphi131：某医院HIS管理系统/11064某医院HIS管理系统delphi/辅助模块/人事管理/treelist.txt

            adodataset1.Open;
        while not(adodataset1.Eof) do
        begin
          treeview1.Items.AddChild(l,adodataset1.Fields.Fields[2].AsString);
          adodataset1.Next;
        end;
        adodataset1.Close;
        treeview1.Refresh;

        adodataset2.Open;
        while not(adodataset2.Eof) do
        begin
          treeview1.Items.AddChild(i,adodataset2.Fields.Fields[1].AsString);
          adodataset2.Next;
        end;
        adodataset2.Close;

        adodataset3.Open;
        while not(adodataset3.Eof) do
        begin
          treeview1.Items.AddChild(j,adodataset3.Fields.Fields[1].AsString);
          adodataset3.Next;
        end;
        adodataset3.Close;





a1   select * from GKBZD
a2   select * from GKBZD
a3   select * from Rzwzd
a4   select * from Rxlzd