Sql запросы реализованные в курсовом проекте

Добавление данных в таблицу “Специализация”

begin

ADOQuery1.close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Text := (

'insert into специализация([Код специализации],[Наименование специализации],[Информация]) values(' + Edit1.Text + ' , ' + char(39) + Edit2.Text + char(39) + ' , ' + char(39) + Edit3.Text + char(39) + ')');

ADOQuery1.Execsql;

end

Добавление данных в таблицу “Сезон”

begin

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Text := (

'insert into сезон([Номер сезона],[Название сезона],[Дата начала сезона],[Дата конца сезона],[Бюджет клуба]) values(' + Edit1.Text + ' , ' + Edit2.Text + ' , ' + char(39) + Edit3.Text + char(39) + ',' + char(39) + Edit4.Text + char(39) + ',' + char(39) + Edit5.Text + char(39) + ')');

ADOQuery1.Execsql;

end

По номеру сезона определить

1)Сумму продаж от билетов в сезоне:

begin

ADOQuery1.Active := False;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(

'Select sum([Стоимость билета]) from [Билеты]where [Номер сезона]=' +

NumberOfSeason.Text);

ADOQuery1.Open;

ADOQuery1.Active := True;

end;

2)Количество проданных билетов в сезоне:

begin

ADOQuery1.Active := False;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('Select count(*) from [Билеты]where [Номер сезона]=' +

NumberOfSeason.Text);

ADOQuery1.Open;

ADOQuery1.Active := True;

end;

3)Суммарная зарплата игроков за определенный сезон:

begin

ADOQuery1.Active := False;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(

'Select sum([сумма перевода]) from [Перевод заработной платы]where [Номер сезона]='

+ NumberOfSeason.Text);

ADOQuery1.Open;

ADOQuery1.Active := True;

end;

4) Суммарная премия игроков за определенный сезон:

begin

ADOQuery1.Active := False;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(

'Select sum([премия]) from [Перевод заработной платы]where [Номер сезона]='

+ NumberOfSeason.Text);

ADOQuery1.Open;

ADOQuery1.Active := True;

end;

По номеру игрока выяснить

1) Список сезонов, в которых играл определенный игрок:

begin

ADOQuery1.Active := False;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(

'Select [Код сезона],[Номер игрока],[Фамилия],[Имя],[Отчество] from сезоны,команда where сезоны.[код игрока]=команда.[номер игрока] and команда.[номер игрока]=' + Edit1.Text);

ADOQuery1.Open;

ADOQuery1.Active := True;

end;

2) Количество сезонов, в которых играл определенный игрок:

begin

ADOQuery1.Active := False;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(

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

ADOQuery1.Open;

ADOQuery1.Active := True;

end;

3) Название специализации игрока:

begin

ADOQuery1.Active := False;

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(

'Select [Наименование специализации],[Номер игрока],[Фамилия],[Имя],[Отчество] from специализация,команда where специализация.[код специализации]=команда.[номер игрока] and команда.[номер игрока]=' + Edit1.Text);

ADOQuery1.Open;

ADOQuery1.Active := True;

end;