The unit Unit1;

Interface

USES the
Windows, Messages, SysUtils StrUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList ComCtrls ToolWin, Menus, ExtCtrls, DBGridEhGrouping,
StdCtrls DBCtrls, GridsEh DBGridEh, DB, ADODB, ToolCtrlsEh, Grids, DBGrids,
Mask, DBCtrlsEh;

Type
TForm1=class (TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4 interchange: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
The N8: TMenuItem;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolBar2: TToolBar;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
ToolButton14: TToolButton;
ToolButton15: TToolButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TreeView1: TTreeView;
Panel1: TPanel;
Panel2: TPanel;
Splitter1: TSplitter;
Panel3: TPanel;
ImageList1: TImageList;
PageControl2: TPageControl;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
PageControl3: TPageControl;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
PageControl4: TPageControl;
TabSheet7: TTabSheet;
DBGridEh1: TDBGridEh;
Panel4: TPanel;
For: TButton;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
DBNavigator1: TDBNavigator;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
ComboBox3: TComboBox;
Edit5: TEdit;
Label12: TLabel;
Label13: TLabel;
Edit6: TEdit;
TreeView2: TTreeView;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DataSource2: TDataSource;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
DBGrid1: TDBGrid;
DBDateTimeEditEh1: TDBDateTimeEditEh;
DBDateTimeEditEh2: TDBDateTimeEditEh;
DBDateTimeEditEh3: TDBDateTimeEditEh;
Label14: TLabel;
Label15: TLabel;
ListBox1: TListBox;
Button2: TButton;
Button3: TButton;
ADOQuery4: TADOQuery;
ADOCommand1: TADOCommand;
Procedure FormShow (Sender: TObject);
Procedure TreeView1Expanded (Sender: TObject; Node: TTreeNode);
Procedure TreeView1Change (Sender: TObject; Node: TTreeNode);
Procedure ADOQuery2AfterScroll (DataSet: TDataSet);
Procedure ToolButton10Click (Sender: TObject);
Procedure ToolButton11Click (Sender: TObject);
Procedure Button2Click (Sender: TObject);
Procedure DBGridEh1EditButtonClick (Sender: TObject);
Private
{Private declarations}
Public
Ts: the string;
FDBF: integer;
{Public declarations}
end;

Var
Form1: TForm1;

Implementation
USES unit2.
{$R *. DFM}

Procedure TForm1. ADOQuery2AfterScroll (DataSet: TDataSet);
The begin
Adoquery3. Close;
Adoquery3. SQL. Text:='select * from Products a join on Amy polumbo roductID OrderItems b=p. roductID where orderid=: p1';
Adoquery3. The Parameters. ParamByName (' (p1). The Value:=adoquery2. FieldByName (' orderid '). AsString;
Adoquery3. Open;
end;

Procedure TForm1. Button2Click (Sender: TObject);
The begin
Form2. ShowModal;
end;

Procedure TForm1. DBGridEh1EditButtonClick (Sender: TObject);
The begin
//
end;

Procedure TForm1. FormShow (Sender: TObject);
Var
I: integer;
Xcom: tcomponent;
S: a string;
Node1: ttreenode;
The begin
FDBF:=2;

Listbox1. Visible:=false;
Pagecontrol2. ActivePageIndex:=1;
Pagecontrol3. ActivePageIndex:=0;
Dbnavigator1. The DataSource:=datasource1;
For I:=1 to 9 do
The begin
Xcom:=findcomponent (' toolbutton + inttostr (I));
If xcom<> Nil then
The begin
Ttoolbutton (xcom). Caption:=';

end;
end;

Adoconnection1. Connected:=false;
Adoconnection1. Connected:=true;
Adoquery1. Connection:=adoconnection1;
Adoquery2. Connection:=adoconnection1;
Adoquery3. Connection:=adoconnection1;
Adoquery4. Connection:=adoconnection1;
Ts:='select orderid, orderdate, a.c ustomerid, a.com panyname as customercompany, b.s hipperid, d.com panyname as shipcompany, requireddate and shippeddate, freight, invoiceid, name, operator and invoicedate, OperationDate';
Ts: ts=+ 'from the orders b join customers a on a.c ustomerid=biggest ustomerid join employees c on b.e mployeeid=c.e mployeeid';
nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull