зону] =' +
NumberOfSeason.Text);. Open;. Active: = True;;
) Кількість проданих квитків у сезоні:
begin.Active: = False;. Close;. SQL.Clear;. SQL.Add ('Select count (*) from [Квитки] where [Номер сезону] =' +. Text); . Open;. Active: = True;;
) Сумарна зарплата гравців за певний сезон:
begin.Active: = False;. Close;. SQL.Clear;. SQL.Add (
'Select sum ([сума переказу]) from [Переклад заробітної плати] where [Номер сезону] ='
+ NumberOfSeason.Text);. Open;. Active: = True;;
) Сумарна премія гравців за певний сезон:
begin.Active: = False;. Close;. SQL.Clear;. SQL.Add (
'Select sum ([премія]) from [Переклад заробітної плати] where [Номер сезону] ='
+ NumberOfSeason.Text);. Open;. Active: = True;;
За номером гравця з'ясувати
) Список сезонів, в яких грав певний гравець:
begin.Active: = False;. Close;. SQL.Clear;. SQL.Add (
'Select [Код сезону], [Номер гравця], [Прізвище], [Ім'я], [По батькові] from сезони, команда where сезони. [код гравця] = команда. [номер гравця] and команда. [номер гравця] = '+ Edit1.Text);
ADOQuery1.Open;. Active: = True;;
) Кількість сезонів, в яких грав певний гравець:
begin.Active: = False;. Close;. SQL.Clear;. SQL.Add (
'Select count (*) from сезони, команда where сезони. [код гравця] = команда. [номер гравця] and команда. [номер гравця] =' + Edit1.Text);
ADOQuery1.Open;. Active: = True;;
) Назва спеціалізації гравця:
begin
ADOQuery1.Active: = False;
ADOQuery1.Close;. SQL.Clear; 1.SQL.Add (
'Select [Найменування спеціалізації], [Номер гравця], [Прізвище], [Ім'я], [По батькові] from спеціалізація, команда where спеціалізація. [код спеціалізації] = команда. [номер гравця] and команда. [номер гравця] = '+ Edit1.Text);
ADOQuery1.Open;. Active: = True;;
Лістинг модулів
Main;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Spin, Menus, DB, ADODB, Grids, DBGrids, StdCtrls, seasons, players,, Specializ; = class ( TForm): TMainMenu;: TMenuItem;: TMenuItem;: TDBGrid;: TADOConnection;: TADOQuery;: TDataSource;: TGroupBox;: TMenuItem;: TButton;: TEdit;: TButton;: TButton;: TButton;: TMenuItem;: TButton; : TEdit;: TButton;: TButton; N1Click (Sender: TObject); N2Click (Sender: TObject); N3Click (Sender: TObject); SummProdClick (Sender: TObject); KolBilProdClick (Sender: ...
