盒子论坛 v2.1

unit teshu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls;

type
  TForm6 = class(TForm)
    tv: TTreeView;
    DBGrid1: TDBGrid;
    procedure tvClick(Sender: TObject);
      private
    { Private declarations }
  public
    { Public declarations }
  end;
   procedure MyCreateSubNodes(tv:TTreeview);
var
  Form6: TForm6;

implementation
uses dm2,uadd;

{$R *.dfm}
procedure MyCreateSubNodes(tv:TTreeview);
var q1,q2:tadoquery;
    i:integer;
begin
q1:=tadoquery.Create(nil);
q2:=tadoquery.Create(nil);
q1.Connection:=dm.ADOConnection1;
q2.Connection:=dm.adoconnection1;
q1.SQL.Add('select * from one');
q2.SQL.Add('select * from two');
q1.Open;
q2.Open;
q1.First;
for i:=0 to q1.RecordCount-1 do
begin
tv.Items.AddChild(tv.Selected,q1.FieldValues['FirstName']);
  //----加入二级目录开始
while not q2.Eof do
begin
  if q2.FieldValues['firstID']=q1.FieldValues['ID'] then
  tv.Items.AddChild(tv.TopItem,q2.FieldValues['secondname']);
  q2.Next;
end;
q1.Next;
end;
q1.Close;
q2.Close;
q1.Free;
q2.Free;
tv.TopItem.Expanded:=true;
end;
----------------------------------------------
我是菜鸟！

作者：

easykey (悠游)	★☆☆☆☆	-
	盒子活跃会员

2004/3/12 14:04:39

1楼：

在uses 子句里加上DB, ADODB
----------------------------------------------

男儿贵展平生志，为国输忠合天地。甲穿虽则失黄金，剑缺犹能生紫气。塞草萋萋兵士苦，胡虏如今勿胡虏。封侯十万始无心，玉关生入君看取。

敬请光临学海Delphi站
http://delphi.studysea.net
学海无涯，让我们共同成长！

信息

登陆以后才能回复