main.pas

来自「这是delphi 的入门代码是我们为了一次考试而准备的」· PAS 代码 · 共 55 行

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, StdCtrls;

type
  Tmainfr = class(TForm)
    TreeView1: TTreeView;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    Button1: TButton;
    ADODataSet2: TADODataSet;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainfr: Tmainfr;

implementation

{$R *.dfm}

procedure Tmainfr.FormShow(Sender: TObject);
var
node1:TTreeNode;
str1:string;
begin
  ADODataSet1.Close;
  ADODataSet1.CommandText:='select * from depttree where deptno like '+#39+#95+#95+#39;
  ADODataSet1.Open;
  while not ADODataSet1.Eof do
  begin
    node1:=TreeView1.Items.Add(nil ,ADODataSet1.FieldByName('dept').AsString);
    str1:=ADODataSet1.FieldByName('deptno').AsString+#95+#95;
    ADODataSet2.Close;
    ADODataSet2.CommandText:='select * from depttree where deptno like'+#39+str1+#39;
    ADODataSet2.Open;
    while not ADODataSet2.Eof do
    begin
      TreeView1.Items.AddChild(node1 ,ADODataSet2.FieldByName('dept').AsString);
      ADODataSet2.Next;
    end;
    ADODataSet1.Next;
  end;
end;

end.