www.pudn.com > JsDbTree7.rar > Unit1.pas


unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ImgList, ExtCtrls, JsDbTree, Grids, DBGrids, DB, ADODB, ComCtrls, 
  StdCtrls; 
 
type 
  TForm1 = class(TForm) 
    PageControl1: TPageControl; 
    TabSheet1: TTabSheet; 
    TabSheet2: TTabSheet; 
    ADOConnection1: TADOConnection; 
    ADOQuery1: TADOQuery; 
    ADOQuery2: TADOQuery; 
    DataSource1: TDataSource; 
    DataSource2: TDataSource; 
    DBGrid1: TDBGrid; 
    DBGrid2: TDBGrid; 
    JsDbTree1: TJsDbTree; 
    JsDbTree2: TJsDbTree; 
    Splitter1: TSplitter; 
    Splitter2: TSplitter; 
    ImageList1: TImageList; 
    Panel1: TPanel; 
    Edit1: TEdit; 
    Edit2: TEdit; 
    Label1: TLabel; 
    Label2: TLabel; 
    Panel2: TPanel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Edit3: TEdit; 
    Edit4: TEdit; 
    DBGrid3: TDBGrid; 
    procedure FormShow(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
procedure TForm1.FormShow(Sender: TObject); 
begin 
JsDbTree1.TreeRefresh; 
JsDbTree2.TreeRefresh; 
end; 
 
end.