ою';. Panels [1]. Text: ='';;
: begin.Active: = False;. SQL.Clear;. SQL.ADD ('SELECT * FROM віди_корреспонденціі Where код_кор');. Active: = True;. Panels [0]. Text: = 'Кількість записів' + IntToStr (ADOQuery1. RecordCount);. Panels [1]. Text: ='';;
: begin.Active: = False;. SQL.Clear;. SQL.ADD ('SELECT * FROM кореспонденція Where уч_номер');. Active: = True;. Panels [0]. Text: = 'Кількість записів' + IntToStr (ADOQuery2.RecordCount);. Panels [1]. Text: ='';;
: begin.Active: = False;. SQL.Clear;. SQL.ADD ('SELECT * FROM операції Where код_операціі');. Active: = True;. Panels [0]. Text: = 'Кількість записів' + IntToStr (ADOQuery3.RecordCount);. Panels [1]. Text: ='';;
: begin.Active: = False;. SQL.Clear;. SQL.ADD ('SELECT * FROM співробітники Where код_сотрудніка');. Active: = True;. Panels [0]. Text: = 'Кількість записів' + IntToStr (ADOQuery4.RecordCount);. Panels [1]. Text: ='';;;; TForm2.BitBtn1Click (Sender: TObject);. Show; Change (PageControl1);; TForm2.BitBtn2Click ( Sender: TObject);. Show; Change (PageControl1);; TForm2.BitBtn3Click (Sender: TObject);. Show; Change (PageControl1);; TForm2.BitBtn4Click (Sender: TObject);. Show;; TForm2.BitBtn5Click (Sender : TObject);. Insert;; TForm2.BitBtn6Click (Sender: TObject);. Edit;; TForm2.BitBtn7Click (Sender: TObject);. Delete;; TForm2.BitBtn8Click (Sender: TObject);. Show; Change (PageControl1) ;; TForm2.Ds1Click (Sender: TObject);. Show;; TForm2.Edit5Change (Sender: TObject); ((Length (Edit5.Text)> 0) and (Length (ComboBox5.Text)> 0)) then . Filtered: = false; RadioButton5.Checked then.Filter: = Combobox5.Text + 'LIKE' + # 39 + Edit5.Text + '%' + # 39.Filter: = Combobox5.Text + 'LIKE' + # 39 + '%' + Edit5.Text + '%' + # 39;. Filtered: = true; ADOTable3.Filtered: = false;; TForm2.Edit6Change (Sender: TObject); Length (Edit6.Text)> 0 then.Filtered : = false;. Filter: = Combobox6.Text + '=' + # 39 + Edit6.Text + # 39;. Filtered: = true; ADOTable3.Filtered: = false;; TForm2.Edit7Change (Sender: TObject); ( (Length (Edit7.Text)> 0) and (Length (ComboBox7.Text)> 0)) then.Filtered: = false; RadioButton8.Checked then.Filter: = Combobox7.Text + 'LIKE' + # 39 + Edit7.Text + '%' + # 39.Filter: = Combobox7.Text + 'LIKE' + # 39 + '%' + Edit7.Text + '%' + # 39;. Filtered: = true; ADOTable4.Filtered: = false;; TForm2.Edit8Change (Sender: TObject); Length (Edit8.Text)> 0 then.Filtered: = false;. Filter: = Combobox8.Text + '=' + # 39 + Edit8.Text + # 39 ;. Filtered: = true; ADOTable4.Filtered: = false;; TForm2.Excel1Click (Sender: TObject);. show;;.
Лістинг програмного коду для форми редактора замовлень.
unit Unit7;, Messages, SysUtils, Variants, Classe...
