Реферат Проект і реалізація системи автоматизації роботи співробітників бухгалтерії ХК АкБарс

TObject); SumZPClick (Sender: TObject) ; SumPremClick (Sender: TObject); N4Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); Button3Click (Sender: TObject);

{Private declarations}

{Public declarations};: TMainForm;

{$ R *. dfm} TMainForm.SummProdClick (Sender: TObject); ((NumberOfSeason.Text = 'Введіть номер сезону') or

(NumberOfSeason.Text ='')) then ('Введіть номер сезону'). Active: = False;. Close;. SQL.Clear;. SQL.Add (

'Select sum ([Вартість квитка]) from [Квитки] where [Номер сезону] =' +. Text);. Open;. Active: = True;;; TMainForm.KolBilProdClick (Sender: TObject); ((NumberOfSeason.Text = 'Введіть номер сезону') or

(NumberOfSeason.Text ='')) then ('Введіть номер сезону'). Active: = False;. Close;. SQL.Clear;. SQL.Add ('Select count (*) from [Квитки] where [Номер сезону] = '+. Text);. Open;. Active: = True;;; TMainForm.SumZPClick (Sender: TObject); ((NumberOfSeason.Text =' Введіть номер сезону ') or

(NumberOfSeason.Text ='')) then ('Введіть номер сезону'). Active: = False;. Close;. SQL.Clear;. SQL.Add (

'Select sum ([сума переказу]) from [Переклад заробітної плати] where [Номер сезону] ='

+ NumberOfSeason.Text);. Open;. Active: = True;;; TMainForm.SumPremClick (Sender: TObject); ((NumberOfSeason.Text = 'Введіть номер сезону') or

(NumberOfSeason.Text ='')) then ('Введіть номер сезону'). Active: = False;. Close;. SQL.Clear;. SQL.Add (

'Select sum ([премія]) from [Переклад заробітної плати] where [Номер сезону] ='

+ NumberOfSeason.Text);. Open;. Active: = True;;; TMainForm.Button1Click (Sender: TObject); ((Edit1.Text ='') or (Edit1.Text = ' Введіть номер гравця ')) then (' Введіть номер гравця '). Active: = False;. Close;. SQL.Clear;. SQL.Add (

'Select [Код сезону], [Номер гравця], [Прізвище], [Ім'я], [По батькові] from сезони, команда where сезони. [код гравця] = команда. [номер гравця] and команда. [номер гравця] = '+ Edit1.Text);

ADOQuery1.Open;. Active: = True;;; TMainForm.Button2Click (Sender: TObject); ((Edit1.Text ='') or (Edit1.Text = 'Введіть номер гравця') ) then ('Введіть номер гравця'). Active: = False;. Close;. SQL.Clear;. SQL.Add (

'Select count (*) from сезони, команда where сезони. [код гравця] = команда. [номер гравця] and команда. [номер гравця] =' + Edit1.Text);

ADOQuery1.Open;. Active: = True;;; TMainForm.Button3Click (Sender: TObject); ((Edit1.Text ='') or (Edit1.Text = 'Введіть номер ...