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

: ADOTable3.Delete;

: ADOTable4.Delete;;; TForm2.Edit1Change (Sender: TObject); ((Length (Edit1.Text)> 0) and (Length (ComboBox1.Text)> 0)) then . Filtered: = false; RadioButton1.Checked then.Filter: = Combobox1.Text + 'LIKE' + # 39 + Edit1.Text + '%' + # 39.Filter: = Combobox1.Text + 'LIKE' + # 39 + '%' + Edit1.Text + '%' + # 39;. Filtered: = true; ADOTable1.Filtered: = false;; TForm2.Edit2Change (Sender: TObject); Length (Edit2.Text)> 0 then.Filtered : = false;. Filter: = Combobox2.Text + '=' + # 39 + Edit2.Text + # 39;. Filtered: = true; ADOTable1.Filtered: = false;; TForm2.Edit3Change (Sender: TObject); ( (Length (Edit3.Text)> 0) and (Length (ComboBox3.Text)> 0)) then.Filtered: = false; RadioButton3.Checked then.Filter: = Combobox3.Text + 'LIKE' + # 39 + Edit3.Text + '%' + # 39.Filter: = Combobox3.Text + 'LIKE' + # 39 + '%' + Edit3.Text + '%' + # 39;. Filtered: = true; ADOTable2.Filtered: = false;; TForm2.Edit4Change (Sender: TObject); Length (Edit4.Text)> 0 then.Filtered: = False;. Filter: = ComboBox4.Text + '=' + # 39 + Edit4.Text + # 39 ;. Filtered: = True; ADOTable2.Filtered: = False;;

// Меню у верху. TForm2.N10Click (Sender: TObject); PageControl1.ActivePageIndex of

: if ColorDialog1.Execute then DBGrid2.Color: = ColorDialog1.Color;

: if ColorDialog1.Execute then DBGrid1.Color: = ColorDialog1.Color;

: if ColorDialog1.Execute then DBGrid3.Color: = ColorDialog1.Color;;; TForm2.N13Click (Sender: TObject);. Show;; TForm2.N14Click (Sender: TObject);. Close; ; TForm2.N3Click (Sender: TObject); PageControl1.ActivePageIndex of

: ADOTable1.First;

: ADOTable2.First;

: ADOTable3.First;

: ADOTable4.First;;; TForm2.N4Click (Sender: TObject); PageControl1.ActivePageIndex of

: ADOTable1.Prior;

: ADOTable2.Prior;

: ADOTable3.Prior;

: ADOTable4.Prior;;; TForm2.N5Click (Sender: TObject); PageControl1.ActivePageIndex of

: ADOTable1.Next;

: ADOTable2.Next;

: ADOTable3.Next;

: ADOTable4.Next;;; TForm2.N6Click (Sender: TObject); PageControl1.ActivePageIndex of

: ADOTable1.Last;

: ADOTable2.Last;

: ADOTable3.Last;

: ADOTable4.Last;;; TForm2.N9Click (Sender: TObject);. Show;; TForm2.PageControl1Change (Sender: TObject); pageControl1.ActivePageIndex of

: ADOTable1.Next;

: ADOTable2.Next;; PageControl1.ActivePageIndex of

: begin.Panels [0]. Text: = 'Система управління баз...