盒子论坛 v2.1

unit tebie;

interface

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

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

var
  Form6: TForm6;

implementation
uses dm2,db,ADODB;

{$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;

procedure Tform6.tvClick(Sender: TObject);
begin
with dm.ADOQuery1 do
begin
  close;
  sql.Clear;
  sql.Text:='select * from content where secon_dname='+quotedstr(tv.Selected.Text);
  open;
end;
end;

procedure Tform6.FormShow(Sender: TObject);
begin
MyCreateSubNodes(tv);
dm.ADOQuery1.SQL.Text:='select * from content';
dm.ADOQuery1.Open;
end;

end.
----------------------------------------------
我是菜鸟！

作者：

ddzhouqian (007)	★☆☆☆☆	-
	盒子活跃会员

2004/3/12 16:34:53

1楼：

再加一个tadoquery?
----------------------------------------------
-

作者：

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

2004/3/12 16:42:59

2楼：

能不能把提问说得清晰些？
----------------------------------------------

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

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

作者：

zhouljun (252542)	★☆☆☆☆	-
	盒子活跃会员

2004/3/15 9:02:54

3楼：

在这个程序中我用了一个三个都是自定义的函数
procedure tvClick(Sender: TObject);来控制dbgrid
procedure MyCreateSubNodes(tv:TTreeview);来控制treeview
procedure FormShow(Sender: TObject);来控制自动运行上面两个进程！
但为什么不行！我用添加一个按钮分别实现procedure tvClick(Sender: TObject);
procedure MyCreateSubNodes(tv:TTreeview);都行的！

----------------------------------------------
我是菜鸟！

信息

登陆以后才能回复