Реферат на тему: Каждому питомцу значается рацион кормления, который характеризуется номером, званием, типом детский,

Введение

Целью данной курсовой работы является разработка и создание базы данных предметной области "Индивидуальный план преподавателя" в СУБД SQL Server 2008 по новым информационным технологиям на платформе Visual Studio 2010 с использованием языка программирования высокого уровня С# 4.0.

Для достижения цели поставлены инженерные задачи разработать:

1) Информационно-логическую модель предметной области по нотациям Ричарда Баркера;

2) Даталогическую модель реляционной БД, нормализованную до НФБК в СУБД SQL Server 2008 в виде диаграммы схемы отношений;

3) Запросы к БД на уровне представлений и функций в СУБД SQL Server 2008;

4) Мероприятия по защите и обеспечению целостности базы данных;

5) Приложение интерфейса для SQL-сервера базы данных на языке программирования С# в программной среде Visual Studio 2010;

6) Инструкцию по администрированию и пользованию БД.

Система SQL Server 2008 отталкивается от концепции платформы данных Майкрософт: она упрощает управление любыми данными в любой момент времени. Она позволяет хранить в базах данных информацию, полученную из структурированных, полу-структурированных и неструктурированных источников.

В SQL Server 2008 имеется большой набор интегрированных служб, расширяющих возможности использования данных, а именно: составлять запросы, выполнять поиск, проводить синхронизацию, делать отчеты, анализировать данные.

Система SQL Server 2008 позволяет обращаться к данным из любого приложения, разработанного с применением технологий Microsoft .NET и Visual Studio.

Оглавление

- Введение

- Анализ данных предметной области

- Информационно-логическая модель базы данных

- Даталогическая модель базы данных

- Физическое проектирование

- Мероприятия по защите и обеспечению целостности базы данных

- Приложение интерфейса для SQL-сервера базы данных на языке программирования Delphi в программной среде Embarcadero RAD Studio Заключение

- Список используемых источников

- Приложение А Листинг программы

- Приложение Б Скрипты SQL-запросов

Список литературы

1. Роберт Виейра Программирование баз данных Microsoft SQL Server 2005. Базовый курс. М.: ООО "И.Д. Вильямс", 2007. - 832 с.

. Владислав Пирогов SQL Server 2005. Программирование клиент-серверных приложений. Изд-во: БХВ-Петербург, СПб, 2006. - 336 с.

. Библиотека MSDN - http://msdn.microsoft.com/ru-ru/library/ms123401.aspx

. Алан Бьюли Изучаем SQL. Изд-во: "Символ-Плюс", 2007. - 312 с.

. Дунаев В.В. Базы данных. Язык SQL. Изд-во: СПб.: БХВ-Петербург, 2006. - 288 с.

. Алексей Жилинский Самоучитель Microsoft SQL Server 2005. Изд-во: БХВ-Петербург, 2007. - 224 с.

Приложение А

Листинг программы

interface.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, DBConnAdmin, Data.DBXMSSQL, Data.FMTBcd,.StdCtrls, Data.DВ, Data.SqlExpr, inifiles, Vcl.Buttons, Data.DBXSybaseASA,.DBXMySQL, Data.Win.ADODВ, comobj;_nast = class(TForm): TLabel;_Host: TEdit;: TLabel;_nameBD: TEdit;: TLabel;_user: TEdit;: TLabel;: TLabel;_pass: TEdit;: TLabel;: TListBox;: TLabel;_proverka: TBitBtn;_save: TBitBtn;: TADOConnection;: TComboBox;: TCheckBox;: TMemo;SaveInifiles;LoadInifiles;FormCreate(Sender: TObject);CheckBox1Click(Sender: TObject);BitBtn_proverkaClick(Sender: TObject);BitBtn_saveClick(Sender: TObject);

{$R *.dfm}TForm_nast.BitBtn_proverkaClick(Sender: TObject);CheckBox1.Checked then:='Integrated Security=SSPI;User ID="";'else:='';.Connected:=false;.ConnectionString:='';:=stroka+'User ID='+Edit_user.Text+'; Password='+Edit_pass.Text+';';.ConnectionString:=ADOConnection1.ConnectionString+'Provider='+ComboBox1.Text+';Persist Security Info=False; Initial Catalog='+Edit_nameBD.Text+';Data Source='+Edit_Host.Text+';'+ stroka+Memo1.Lines.Text;.Connected:=true;.GetTableNames(ListBox1.Items,false);;TForm_nast.BitBtn_saveClick(Sender: TObject);;;TForm_nast.CheckBox1Click(Sender: TObject);CheckBox1.Checked then begin_pass.Enabled:=false;_user.Enabled:=false;else begin_pass.Enabled:=true;_user.Enabled:=true;;;TForm_nast.FormCreate(Sender: TObject);FDMOApplication : Variant;: Variant;: integer;(ComboBox1.Items);:='Integrated Security="";';;;TForm_nast.LoadInifiles;FileExists(ExtractFilePath(Application.ExeName)+'Nastroika.ini') then begin:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Nastroika.ini');.Text:=ini.ReadString('SQL','Драйвер','');_Host.Text:=ini.ReadString('SQL','Сервер','');_nameBD.Text:=ini.ReadString('SQL','БД','');_user.Text:=ini.ReadString('SQL','Логин','');_pass.Text:=ini.ReadString('SQL','Пароль','');.Lines.Text:=ini.ReadString('SQL','Параметры','');Ini.ReadString('SQL','Авторизация','')='True' then CheckBox1.Checked:=true else.Checked:=false;CheckBox1.Checked then:='Integrated Security=SSPI;User ID="";'else:='';.Connected:=false;.ConnectionString:='';:=stroka+'User ID='+Edit_user.Text+'; Password='+Edit_pass.Text+';';.ConnectionString:=ADOConnection1.ConnectionString+'Provider='+ComboBox1.Text+';Persist Security Info=False; Initial Catalog='+Edit_nameBD.Text+';Data Source='+Edit_Host.Text+';'+ stroka+Memo1.Lines.Text;.Connected:=true;else begin_nast.Show;('Задайте параметры подключения к БД', mtInformation,[mbok],0);;;TForm_nast.SaveInifiles;:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Nastroika.ini');.WriteString('SQL','Драйвер',ComboBox1.Text);.WriteString('SQL','Сервер', Edit_Host.Text);.WriteString('SQL','БД',Edit_nameBD.Text);.WriteString('SQL','Логин',Edit_user.Text);.WriteString('SQL','Пароль',Edit_pass.Text);.WriteString('SQL','Параметры',Memo1.Lines.Text);CheckBox1.Checked then Ini.WriteString('SQL','Авторизация','True') else.WriteString('SQL','Авторизация','False');.Free;('Данные сохранены',mtInformation,[mbok],0);;.Unit_zona_obit;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DВ, Datasnap.DBClient, SimpleDS,.Grids, Vcl.DBGrids, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons,.Menus, Data.Win.ADODB;_Zona_obit = class(TForm): TPanel;: TDBNavigator;: TDBGrid;: TDataSource;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject; var Action: TCloseAction);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);

{$R *.dfm}TForm_zapros.BitBtn1Click(Sender: TObject);_glavn.ADOQuery1.Active:=false;_glavn.ADOQuery1.SQL.Clear;_glavn.ADOQuery1.SQL.Text:=Memo1.Lines.Text;_glavn.ADOQuery1.Open;Е:Exception dо('Не удалось выполнить запрос: '+Е.Message,mtError,[mbok],0);

end;;TForm_zapros.FormClose(Sender: TObject; var Action: TCloseAction);_glavn.CheckBox1.Checked:=false;;.Unit_vid_mlek;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DВ, Datasnap.DBClient, SimpleDS,.Grids, Vcl.DBGrids, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Buttons,.Menus, Data.Win.ADODB;_vid_mlek = class(TForm): TPanel;: TDBNavigator;: TDBGrid;: TDataSource;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject; var Action: TCloseAction);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);

{$R *.dfm}TForm_vid_mlek.BitBtn_okClick(Sender: TObject);_ok.Visible:=False;_pitom.DBEdit_vid_mlek.Field.AsVariant:=DBGrid1.Fields[0].Value;;;TForm_vid_mlek.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_vid_mlek.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;_ok.Visible:=false;;.Unit_tip_ras;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DВ, Datasnap.DBClient, SimpleDS,.Grids, Vcl.DBGrids, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Buttons,.Mask, Vcl.Menus, Data.Win.ADODB;_tip_ras = class(TForm): TPanel;: TDBGrid;: TDataSource;: TDBNavigator;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;BitBtn_nom_pitClick(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);

{$R *.dfm}TForm_tip_ras.BitBtn_nom_pitClick(Sender: TObject);_pitom:=TForm_pitom.Create(Application);_pitom.Show;_pitom.ADOQuery1.Connection:=Form_nast.ADOConnection1;_pitom.ADOQuery1.Open;_pitom.BitBtn_ok.Visible:=true;_glavn.id:='t';;TForm_tip_ras.BitBtn_okClick(Sender: TObject);Form_glavn.id='r' then_ratsion.DBEdit_pitom.Field.Value:=DBGrid1.Fields[0].Value;Form_glavn.id='р' then_pitom.DBEdit2.Field.Value:=DBGrid1.Fields[0].Value;;;TForm_tip_ras.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_tip_ras.FormClose(Sender: TObject; var Action: TCloseAction);_ok.Visible:=false;:= caFree;;.Unit_sved;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls,.ExtCtrls, Vcl.Grids, Vcl.DBGrids, Data.DВ, Datasnap.DBClient, SimpleDS,.Menus, Data.Win.ADODB;_sved = class(TForm): TPanel;: TDBNavigator;_pitom: TDBEdit;: TLabel;_pitom: TButton;: TDBGrid;: TDataSource;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject; var Action: TCloseAction);Button_pitomClick(Sender: TObject);Excel1Click(Sender: TObject);

{$R *.dfm}TForm_sved.Button_pitomClick(Sender: TObject);_pitom:=TForm_pitom.Create(Application);_pitom.Show;_pitom.ADOQuery1.Connection:=Form_nast.ADOConnection1;_pitom.ADOQuery1.Open;_pitom.BitBtn_ok.Visible:=true;_glavn.id:='s';;TForm_sved.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_sved.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;.Unit_sotr;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.FMTBcd, Vcl.ExtCtrls, Vcl.Grids,.DBGrids, Data.DВ, Data.SqlExpr, Datasnap.DBClient, Datasnap.Provider,.DBCtrls, Vcl.StdCtrls, SimpleDS, Vcl.Buttons, Vcl.Menus, Data.Win.ADODB;_sotr = class(TForm): TDBGrid;: TPanel;: TDataSource;: TDBNavigator;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject; var Action: TCloseAction);DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);

{$R *.dfm}TForm_sotr.BitBtn_okClick(Sender: TObject);_ok.Visible:=False;_pitom.DBEdit_sotr.Field.AsVariant:=DBGrid1.Fields[0].Value;;;TForm_sotr.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);ТD: TTransactionDesc;;TForm_sotr.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_sotr.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;_ok.Visible:=false;;.Unit_rasion;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DВ, Datasnap.DBClient, SimpleDS,.Grids, Vcl.DBGrids, Vcl.DBCtrls, Vcl.ExtCtrls, Vcl.StdCtrls, Vcl.Mask,.Menus, Data.Win.ADODB;_ratsion = class(TForm): TPanel;: TDBNavigator;: TDBGrid;: TDataSource;: TLabel;_pitom: TDBEdit;_pitom: TButton;: TPopupMenu;: TMenuItem;: TADOQuery;FormClose(Sender: TObject; var Action: TCloseAction);Button_pitomClick(Sender: TObject);Excel1Click(Sender: TObject);

{$R *.dfm}TForm_ratsion.Button_pitomClick(Sender: TObject);_tip_ras:=TForm_tip_ras.Create(Application);_tip_ras.Show;_tip_ras.ADOQuery1.Connection:=Form_nast.ADOConnection1;_tip_ras.ADOQuery1.Open;_glavn.id:='r';_tip_ras.BitBtn_ok.Visible:=true;;TForm_ratsion.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_ratsion.FormClose(Sender: TObject; var Action: TCloseAction);:= caFree;;.Unit_pitom;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Data.DВ, Datasnap.DBClient, SimpleDS,.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.Mask, Vcl.Grids,.DBGrids, Vcl.Buttons, Vcl.Menus, Data.Win.ADODB;_pitom = class(TForm): TPanel;: TDataSource;: TDBGrid;_nom: TDBEdit;: TLabel;: TLabel;_roj: TDateTimePicker;: TLabel;_pol: TComboBox;: TLabel;: TLabel;: TLabel;: TLabel;: TDBNavigator;_sotr: TBitBtn;_Zona: TBitBtn;: TBitBtn;_zona: TDBEdit;_sotr: TDBEdit;_vid_mlek: TDBEdit;_ok: TBitBtn;: TPopupMenu;: TMenuItem;: TADOQuery;: TDBEdit;: TLabel;: TDBEdit;: TBitBtn;FormClose(Sender: TObject; var Action: TCloseAction);BitBtn_ZonaClick(Sender: TObject);BitBtn_sotrClick(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn_okClick(Sender: TObject);Excel1Click(Sender: TObject);DateTimePicker_rojChange(Sender: TObject);ComboBox_polClick(Sender: TObject);DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);BitBtn2Click(Sender: TObject);

{$R *.dfm}TForm_pitom.BitBtn1Click(Sender: TObject);_vid_mlek:=TForm_vid_mlek.Create(Application);_vid_mlek.Show;_vid_mlek.ADOQuery1.Connection:=Form_nast.ADOConnection1;_vid_mlek.ADOQuery1.Open;_vid_mlek.BitBtn_ok.Visible:=true;;TForm_pitom.BitBtn2Click(Sender: TObject);_glavn.id:='р';_tip_ras:=TForm_tip_ras.Create(Application);_tip_ras.Show;_tip_ras.ADOQuery1.Connection:=Form_nast.ADOConnection1;_tip_ras.ADOQuery1.Open;_tip_ras.BitBtn_ok.Visible:=true;;TForm_pitom.BitBtn_okClick(Sender: TObject);Form_glavn.id='s' then_sved.DBEdit_pitom.Field.Value:=DBGrid1.Fields[0].Value;;;TForm_pitom.BitBtn_sotrClick(Sender: TObject);_sotr:=TForm_sotr.Create(Application);_sotr.Show;_sotr.ADOQuery1.Connection:=Form_nast.ADOConnection1;_sotr.ADOQuery1.Open;_sotr.BitBtn_ok.Visible:=true;;TForm_pitom.BitBtn_ZonaClick(Sender: TObject);_Zona_obit:=TForm_Zona_obit.Create(Application);_Zona_obit.Show;_Zona_obit.ADOQuery1.Connection:=Form_nast.ADOConnection1;_Zona_obit.ADOQuery1.Open;_Zona_obit.BitBtn_ok.Visible:=true;;TForm_pitom.ComboBox_polClick(Sender: TObject);.Fields[3].Value:=ComboBox_pol.Text;;TForm_pitom.DateTimePicker_rojChange(Sender: TObject);.Fields[2].Value:=DateTimePicker_roj.Date;;TForm_pitom.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);Button оf: begin.Fields[2].Value:=DateTimePicker_roj.Date;.Fields[3].Value:=ComboBox_pol.Text;;;;TForm_pitom.Excel1Click(Sender: TObject);_glavn.ExportToExcel(DBGrid1);;TForm_pitom.FormClose(Sender: TObject; var Action: TCloseAction);_ok.Visible:=false;:= caFree;;.Unit_main;.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ExtCtrls, Vcl.StdCtrls,.ComCtrls, Vcl.Grids, Vcl.DBGrids, Data.DВ, Datasnap.DBClient, SimpleDS,ComObj,.Win.ADODB;_glavn = class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TDBGrid;: TCheckBox;: TDataSource;: TPopupMenu;: TMenuItem;: TADOQuery;N2Click(Sender: TObject);N4Click(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);N5Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);N10Click(Sender: TObject);CheckBox1Click(Sender: TObject);N11Click(Sender: TObject);N1Click(Sender: TObject);Excel1Click(Sender: TObject);N12Click(Sender: TObject);N13Click(Sender: TObject);N14Click(Sender: TObject);N3Click(Sender: TObject);

{$R *.dfm}TForm_glavn.Excel1Click(Sender: TObject);(DBGrid1);;TForm_glavn.ExportToExcel(DBgrid: TDBGrid);,j,index,z: Integer;,sheet: Variant;:= CreateOleObject('Excel.Application');.Visible := False;.WorkBooks.Add(-4167);.WorkBooks[1].WorkSheets[1].name := 'Export';:=ExcelApp.WorkBooks[1].WorkSheets['Export'];:=2; //Загоняем с первой строки.DataSource.DataSet.First;z := 0 tо DBGrid.FieldCount-1 dо.cells[index-1,z+1]:=dbgrid.Columns[z].Title.caption;i:=1 tо DBGrid.DataSource.DataSet.RecordCount doj:=1 tо DBGrid.FieldCount dо.cells[index,j]:=DBGrid.fields[j-1].asstring;(index);.DataSource.DataSet.Next;;.Range[ sheet.cells[1,1], sheet.cells[ExcelApp.ActiveSheet.UsedRange.Rows.Count,ExcelApp.ActiveSheet.UsedRange.Columns.Count]].Columns.AutoFit;.Visible := true;;TForm_glavn.CheckBox1Click(Sender: TObject);CheckBox1.Checked then begin_zapros.Show;else Form_zapros.Close;;TForm_glavn.N10Click(Sender: TObject);_tip_ras:=TForm_tip_ras.Create(Application);_tip_ras.Show;_tip_ras.ADOQuery1.Connection:=Form_nast.ADOConnection1;_tip_ras.ADOQuery1.Open;;TForm_glavn.N11Click(Sender: TObject);.Visible:=true;;TForm_glavn.N12Click(Sender: TObject);_zapros.Memo1.Clear;_zapros.Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'1.txt');_zapros.BitBtn1.Click;;TForm_glavn.N13Click(Sender: TObject);_zapros.Memo1.Clear;_zapros.Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'2.txt');_zapros.BitBtn1.Click;;TForm_glavn.N14Click(Sender: TObject);_zapros.Memo1.Clear;_zapros.Memo1.Lines.LoadFromFile(ExtractFilePath(Application.ExeName)+'3.txt');_zapros.BitBtn1.Click;;TForm_glavn.N1Click(Sender: TObject);.Visible:=false;;TForm_glavn.N2Click(Sender: TObject);_nast.Show;;TForm_glavn.N3Click(Sender: TObject);('Группа З09 ПОВТ(у) Шарафиев Р.Н.', mtInformation, [mbok],0);;TForm_glavn.N4Click(Sender: TObject);_sotr:=TForm_sotr.Create(Application);_sotr.Show;_sotr.ADOQuery1.Connection:=Form_nast.ADOConnection1;_sotr.ADOQuery1.Open;;TForm_glavn.N5Click(Sender: TObject);_pitom:=TForm_pitom.Create(Application);_pitom.Show;_pitom.ADOQuery1.Connection:=Form_nast.ADOConnection1;_pitom.ADOQuery1.Open;;TForm_glavn.N6Click(Sender: TObject);_Zona_obit:=TForm_Zona_obit.Create(Application);_Zona_obit.Show;_Zona_obit.ADOQuery1.Connection:=Form_nast.ADOConnection1;_Zona_obit.ADOQuery1.Open;;TForm_glavn.N7Click(Sender: TObject);_vid_mlek:=TForm_vid_mlek.Create(Application);_vid_mlek.Show;_vid_mlek.ADOQuery1.Connection:=Form_nast.ADOConnection1;_vid_mlek.ADOQuery1.Open;;TForm_glavn.N8Click(Sender: TObject);_sved:=TForm_sved.Create(Application);_sved.Show;_sved.ADOQuery1.Connection:=Form_nast.ADOConnection1;_sved.ADOQuery1.Open;;TForm_glavn.N9Click(Sender: TObject);_ratsion:=TForm_ratsion.Create(Application);_ratsion.Show;_ratsion.ADOQuery1.Connection:=Form_nast.ADOConnection1;_ratsion.ADOQuery1.Open;;.

Приложение Б

Скрипты SQL-запросов

Полная информация по типу и имени питомца зоопарка;

select Вид_млекопитающих.Наименование аs Вид_млекопитающих, Питомец.Имя, Питомец.Дата_рождения, Питомец.Пол, Сотрудник.Имя аs Имя_ответственного_сотрудника, Тип_рациона.Название аs Название_Типа_рациона, Рацион.Список_продуктов from Вид_млекопитающих,Питомец,Сотрудник, Рацион, Тип_рациона where Вид_млекопитающих.Наименование='Слон' and Питомец.Имя='Пышка' and Питомец.Вид_млекопитающего=Вид_млекопитающих.Наименование and Питомец.Номер_сотрудника=Сотрудник.Номер and Питомец.Номер_Типа_рациона=Тип_рациона.Номер_типа and Рацион.Номер_типа=Тип_рациона.Номер_типа;

Список сотрудников, работающих семейными парами - ФИО, дата рождения, телефон;

select Сотрудник.Имя, Сотрудник.Отчество, Сотрудник.Фамилия, Сотрудник.Телефон, Сотрудник.Дата_рождения from Сотрудник where Сотрудник.Код_супруга<>'';

Перечень всех животных на текущую дату и номера их рационов.

select Питомец.Имя, Питомец.Дата_рождения, Питомец.Пол, Рацион.Наименование, Рацион.Список_продуктов from Питомец, Рацион, Тип_рациона, Седения_о_животном where Питомец.Номер_питомца=Седения_о_животном.Номер_питомца and Тип_рациона.Номер_типа=Питомец.Номер_Типа_рациона and Рацион.Номер_типа=Тип_рациона.Номер_типа;