procedure TForm1.InitTree;
var
strsDBName:Tstrings;
I:Integer;
begin
strsDBName := TStringList.Create;
try
strsDBName.Clear;
session.GetAliasNames(strsDBName);
TreeView1.Items.Clear;
for i := 0 to strsDBName.Count - 1 do
begin
TreeView1.Items.AddChild(nil,strsDBName[i]);
end;
finally
strsDBName.Free;
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
InitTree;
end;
procedure TForm1.TreeView1DblClick(Sender: TObject);
var
strsTableName:TStrings;
strDBname:string;
TNodeTemp:TTreeNode;
I : integer;
begin
//展开树;
if TreeView1.Items.Count = 0 then exit;
TNodeTemp := TreeView1.Selected;
strDBname := TreeView1.Selected.Text;
strsTableName := TStringList.Create;
try
strsTableName.Clear;
Session.GetTableNames(strDBname,'',true,true,strsTableName);
for i := 0 to strsTableName.Count - 1 do
TreeView1.Items.AddChild(TNodeTemp,strsTableName[i]);
TNodeTemp.Expand(true);
finally
strsTableName.Free;
end;
end;
procedure TForm1.TreeView1Click(Sender: TObject);
begin
//得道数据
if TreeView1.Selected.Level = 1 then
begin
Query1.Close;
Query1.SQL.Clear;
Query1.DatabaseName := TreeView1.Selected.Parent.Text;
Query1.SQL.Add('select * from ' + TreeView1.Selected.Text);
Query1.Open;
end;
end;