Формирование нескольких баз данных «Лекарства», «Фирмы», «Пациенты», «Врачи», страница 7

Ø      INNER JOIN rgr!пац_врач ;

Ø     ON  Пациенты.идент_пац = Пац_врач.идент_пац ;

Ø      INNER JOIN rgr!врачи ;

Ø     ON  Врачи.идент_врач = Пац_врач.идент_врач;

Ø  WHERE year(пациенты.дата_рождения) > ThisForm.Text1.Value;

Ø  GROUP BY врачи.фамилия_врача;

Ø  HAVING "Кол_во_пациентов" >= 1

Рис. 50 Результат запроса №12

6.13  Запрос №13

Рис. 51 Запрос №13

Ø            Текст запроса:

Ø  SELECT distinct врачи.фамилия_врача,; врачи.имя_врача,врачи.рабочий_телефон,;

Ø  отделения.название_отделения;

Ø   FROM ;

Ø       rgr!пациенты ;

Ø      INNER JOIN rgr!пац_врач ;

Ø     ON  Пациенты.идент_пац = Пац_врач.идент_пац ;

Ø      INNER JOIN rgr!пациенты_лекарства ;

Ø     ON  Пациенты.идент_пац = Пациенты_лекарства.идент_пац ;

Ø      INNER JOIN rgr!лекарства ;

Ø     ON  Лекарства.идент_лек = Пациенты_лекарства.идент_лек ;

Ø      INNER JOIN rgr!лекарства_фирмы ;

Ø     ON  Лекарства.идент_лек = Лекарства_фирмы.идент_лек ;

Ø      INNER JOIN rgr!фирмы ;

Ø     ON  Фирмы.идент_фир = Лекарства_фирмы.идент_фир ;

Ø      INNER JOIN rgr!отделения ;

Ø     ON  Отделения.идент_отд = Пациенты.отделение ;

Ø      INNER JOIN rgr!врачи ;

Ø     ON  Врачи.идент_врач = Пац_врач.идент_врач;

Результат запроса:

Рис. 52 Результат запроса №11

6.14  Запрос №14

Рис. 53 Запрос №14

Ø            Текст запроса:

Ø  Select пациенты.фамилия_пациента, имя_пациента, пациенты.дата_рождения;

Ø  FROM ;

Ø       rgr!пациенты ;

Ø  Where (year(пациенты.дата_рождения)) > ThisForm.Text1.Value

ThisForm.Text1.Value=YEAR(пациенты.дата_рождения)

Результат запроса:

Рис. 54 Результат запроса №14

6.15  Запрос №15

Рис. 55 Запрос №15

Ø            Текст запроса:

Ø  SELECT пациенты.фамилия_пациента,пациенты.номер_палаты,; COUNT(пац_врач.идент_врач) as "Кол_во_врачей";

Ø   FROM ;

Ø       rgr!пациенты ;

Ø      INNER JOIN rgr!пац_врач ;

Ø     ON  Пациенты.идент_пац = Пац_врач.идент_пац ;

Ø      INNER JOIN rgr!врачи ;

Ø     ON  Врачи.идент_врач = Пац_врач.идент_врач;

Ø  GROUP BY пац_врач.идент_врач;

HAVING Кол_во_врачей>1

Результат запроса:

               

Рис. 56 Результат запроса №15

6.16  Запрос №16

Рис. 57 Запрос №16

Ø            Текст запроса:

Ø  Select distinct врачи.фамилия_врача, врачи.имя_врача,; пациенты.фамилия_пациента, имя_пациента, пациенты.дата_рождения;

Ø  FROM ;

Ø       rgr!пациенты ;

Ø      INNER JOIN rgr!пац_врач ;

Ø     ON  Пациенты.идент_пац = Пац_врач.идент_пац ;

Ø      INNER JOIN rgr!врачи ;

Ø     ON  Врачи.идент_врач = Пац_врач.идент_врач;

Ø  Where YEAR(пациенты.дата_рождения) <= ThisForm.Text1.Value;

Результат запроса:

Рис. 58 Результат запроса №16

6.17  Запрос №17

Рис. 59 Запрос №17

Ø            Текст запроса:

Ø        SELECT DISTINCT  врачи.фамилия_врача, врачи.имя_врача,; врачи.рабочий_телефон;

Ø        FROM ;

Ø             rgr!пациенты ;

Ø            INNER JOIN rgr!пац_врач ;

Ø         ON  Пациенты.идент_пац = Пац_врач.идент_пац ;

Ø            INNER JOIN rgr!врачи ;

Ø           ON  Врачи.идент_врач = Пац_врач.идент_врач;

Ø        Where врачи.фамилия_врача NOT IN (SELECT врачи.фамилия_врача;

Ø        FROM ;

Ø             rgr!пациенты ;

Ø            INNER JOIN rgr!пац_врач ;

Ø         ON  Пациенты.идент_пац = Пац_врач.идент_пац ;

Ø            INNER JOIN rgr!врачи ;

Ø           ON  Врачи.идент_врач = Пац_врач.идент_врач;