gusucode.com > 精典源码Delphi052:标准HIS系统源码程序 > 精典源码Delphi052:标准HIS系统源码程序/精典源码Delphi052:标准HIS系统/标准HIS系统/辅助模块/人事管理/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