Реферат Розробка та впровадження системи аналізу та статистики даних

p (Sender: TObject; var Key: Word;: TShiftState); ComboBox1. ItemIndex of

: begin. Filtered:=false;. Filter:=«idt =» «» + Edit1. Text + «*» + «» «»;. Filtered:=True; Edit1. Text=«» then Table1. Filtered:=false;;

: begin. Filtered:=false;. Filter:=«idt =» «» + Edit1. Text + «*» + «» «»;. Filtered:=True; Edit1. Text=«» then Table1. Filtered:=false;;

: begin. Filtered:=false;. Filter:=«idcard =» «» + Edit1. Text + «*» + «» «»;. Filtered:=True; Edit1. Text=«» then Table1. Filtered:=false;;;; TForm2. BitBtn1Click (Sender: TObject);. Filtered:=false;. Text:=«»;. Text:=«»;; TForm2. Edit2KeyUp (Sender: TObject; var Key: Word;: TShiftState); ComboBox1. ItemIndex of

: begin. Filtered:=false;. Filter:=«idcard =» «» + Edit2. Text + «*» + «» «»;

Продовження додатка Б. Filtered:=true; Edit2. Text=«» then Table1. Filtered:=false;;

: begin. Filtered:=false;. Filter:=«namerus =» «» + Edit2. Text + «*» + «» «»;. Filtered:=true; Edit2. Text=«» then Table1. Filtered:=false;;

: begin. Filtered:=false;. Filter:=«fam =» «» + Edit2. Text + «*» + «» «»;. Filtered:=true; Edit2. Text=«» then Table1. Filtered:=false;;;; TForm2. TabSheet2Show (Sender: TObject);. Close;. Active:=false;. ItemIndex:=0;. ItemIndex:=0;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Enabled:=false;. Enabled:=false;; TForm2. TabSheet1Show (Sender: TObject);. Close;. Close;. Text:=«»;. Text:=«»;. Caption:=«Пошук по Тавара»;. Caption:=«Пошук по Картки»;. Filtered:=false;

Продовження додатка Б. Filter:=«»;. TableName:=«sale. db »;. Filtered:=false;. Active:=true;. ItemIndex:=0;; TForm2. TabSheet3Show (Sender: TObject);. Active:=false;. Close;. Text:=«»;. Text:=«»;. Caption:=«Пошук по Тавара»;. Caption:=«Пошук по Картки»;. Filtered:=false;. Filter:=«»;. TableName:=«sale. db »;. Filtered:=false;. Active:=true;. ItemIndex:=0;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;. Enabled:=false;. Enabled:=false;; TForm2boBox2Change (Sender: TObject); ComboBox2. ItemIndex of

: begin. Visible:=False;. Visible:=false;. Visible:=false;;

: begin. Visible:=True;. Visible:=True;. Visible:=True;

Продовження додатка Б. Text:=«»;;;; TForm2. FormCreate (Sender: TObject);. ActivePage:=TabSheet1;; TForm2boBox3Change (Sender: TObject); ComboBox3. ItemIndex of

: begin. Visible:=false;. Visible:=false;. Visible:=false;. Visible:=false;;

: begin. Caption:=«За»;. Visible:=True;. Visible:=True;. Visible:=false;. Visible:=false;;

: begin. Caption:=«С»;. Visible:=True;. Visible:=True;. Visible:=True;. Visible:=True;;;; TForm2. BitBtn2Click (Sender: TObject);. Enabled:=true; ComboBox2. ItemIndex=0 thenComboBox3. ItemIndex of

: begin. Close;

Продовження додатка Б. SQL. Clear;. SQL. Text:=«select fam as Прізвище, idcard as Індівідуальний_номер, sum (summa) as Сумма_покупак, sum (skidka) as Скідкі_прі_покупках from cards inner join sale on cards. idcard=sale....