Реферат База даних "Поштове відділення"

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;

...