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