dit ;: TImageList; ToolButton1Click (Sender: TObject); ToolButton3Click (Sender: TObject); ToolButton5Click (Sender: TObject); ToolButton7Click (Sender: TObject); ToolButton9Click (Sender: TObject); ToolButton11Click (Sender: TObject); Edit1Change (Sender: TObject); Edit2Change (Sender: TObject); Edit3Change (Sender: TObject); N3Click (Sender: TObject); N4Click (Sender: TObject); N5Click (Sender: TObject); N6Click (Sender: TObject); Edit4Change (Sender: TObject ); PageControl1Change (Sender: TObject); BitBtn1Click (Sender: TObject); BitB tn2Click (Sender: TObject); BitBtn3Click (Sender: TObject); BitBtn5Click (Sender: TObject); BitBtn6Click (Sender: TObject); BitBtn7Click (Sender: TObject); Edit5Change (Sender: TObject); Edit6Change (Sender: TObject); N9Click (Sender: TObject); N14Click (Sender: TObject); N10Click (Sender: TObject); N13Click (Sender: TObject); Ds1Click (Sender: TObject); BitBtn4Click (Sender: TObject); BitBtn8Click (Sender: TObject); Edit7Change ( Sender: TObject); Edit8Change (Sender: TObject); ToolButton12Click (Sender: TObject); Excel1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm2;: variant;: integer;: integer;, k, j: integer; Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$ R *. dfm} TForm2.ToolButton1Click (Sender: TObject); pageControl1.ActivePageIndex of
: ADOTable1.First;
: ADOTable2.First;
: ADOTable3.First;
: ADOTable4.First;;; TForm2.ToolButton3Click (Sender: TObject); pageControl1.ActivePageIndex of
: ADOTable1.Prior;
: ADOTable2.Prior;
: ADOTable3.Prior;
: ADOTable4.Prior;;; TForm2.ToolButton5Click (Sender: TObject); pageControl1.ActivePageIndex of
: ADOTable1.Next;
: ADOTable2.Next;
: ADOTable3.Next;
: ADOTable4.Next;;; TForm2.ToolButton7Click (Sender: TObject); pageControl1.ActivePageIndex of
: ADOTable1.Last;
: ADOTable2.Last;
: ADOTable3.Last;
: ADOTable4.Last;;; TForm2.ToolButton9Click (Sender: TObject); pageControl1.ActivePageIndex of
: AdoTable1.Insert;
: ADOTable2.Insert;
: ADOTable3.insert;
: begin.Insert;. Show;;;; TForm2.ToolButton11Click (Sender: TObject); pageControl1.ActivePageIndex of
: ADOTable1.Edit;
: ADOTable2.Edit;
: ADOTable3.Edit;
: ADOTable4.Edit;;; TForm2.ToolButton12Click (Sender: TObject); pageControl1.ActivePageIndex of
: ADOTable1.Delete;
: ADOTable2.Delete;
...