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

idcard group by cards. fam, cards. idcard »;. Open;. Enabled:=true;;

: 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. idcard where data=«» + Edit4. Text + «» group by cards. fam, cards. idcard »;. Open;. Enabled:=true;;

: 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. idcard where data between «» + Edit4. Text + «» and «» + Edit5. Text + «» group by cards. fam, cards. idcard »;. Open;. Enabled:=true;; ComboBox3. ItemIndex of

: if CheckBox1. Checked then. Close;. SQL. Clear;. SQL. Text:=«select idcard as Індівідуальний_номер, idt as Код_товара, kolvo as Всего_товара, cena as Ціна, summa as Сума from sale where idcard =« »+ Edit3. Text + «» »;. Open;. Enabled:=false;

Продовження додатка Б. 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. idcard where cards. idcard=«» + Edit3. Text + «» group by cards. fam, cards. idcard »;. Open;. Enabled:=false;;

: if CheckBox1. Checked then. Close;. SQL. Clear;. SQL. Text:=«select idcard as Індівідуальний_номер, idt as Код_товара, kolvo as Всего_товара, cena as Ціна, summa as Сума from sale where (data =« »+ Edit4. Text +"" ) and (idcard =« ; »+ Edit3. Text +"" )»;. Open;. Enabled:=false;. Close;. SQL. Clear;. SQL. Text:=«select idcard, sum (summa), sum (skidka) from sale where (data =« »+ Edit4. Text +"" ) and (idcard =« »+ Edit3. Text + «») group by idcard »;. Open;. Enabled:=false;;

: if CheckBox1. Checked then. Close;. SQL. Clear;. SQL. Text:=«select idcard as Індівідуальний_номер, idt as Код_товара, kolvo as Всего_товара, cena as Ціна, summa as Сума from sale where (data between« »+ Edit4. Text +« »and« »+ Edit5. Text +" ") and (idcard=«» + Edit3. Text +" ") »;. Open;. Enabled:=false;

Продовження додатка Б. Close;. SQL. Clear;. SQL. Text:=«select idcard, sum (summa), sum (skidka) from sale where (data between« »+ Edit4. Text +« »and« »+ Edit5. Text +« » ) and (idcard=«» + Edit3. text +" ") group by idcard »;. Open;. Enabled:=false;;. Close;. SQL. Clear;. Text:=«»;. Text:=«»;. Text:=«»; («Неправильно введені дані»);;; TForm2. BitBtn3Click (Sender: TObject);. Enabled:=false;. Enabled:=false;. Close;. SQL. Clear;; TForm2boBox4Change (Sender: TObject); ComboBox4. ItemIndex of

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

: begin. Visible:=True;. Visible:=True;. Visible:=True;. Text:=«»;;;

Продовження додатка Б; TForm2boBox5Change (Sender: TObject); ComboBox5. ItemIndex of

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

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

: begin. Caption:=«С»;. Visible:=T...