Библиография

1. Емалетдинова Л. Ю, Владимирова Н. Л., Новикова С. В. «Структурированный язык запросов SQL к базам данных в многопользовательских системах: Учебное пособие для студентов технической кибернетики и информатики». Казань: Изд-во Казан. гос. техн. ун-та, 2002, 59 стр.

2. Емалетдинова Л. Ю, Валитова Н. Л., М. А. Разина «Проектирование программного и информационного обеспечения автоматизированных информационных систем». Казань: Изд-во Казан. гос. техн. ун-та, 2005, 81 стр.

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;