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

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

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

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

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

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

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

Ø      INNER JOIN rgr!фирмы ;

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

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

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

Ø      INNER JOIN rgr!врачи ;

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

Ø   WHERE пациенты.этаж=2;

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

Рис. 42 Результат запроса №8

6.9  Запрос №9

Рис. 43 Запрос №9

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

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

Ø  FROM ;

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

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

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

Ø      INNER JOIN rgr!врачи ;

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

Ø  WHERE;

Ø        пациенты.этаж = ThisForm.Text1.Value;

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

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

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

Рис. 44 Результат запроса №9

6.10  Запрос №10

Рис. 45 Запрос №10

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

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

Ø  YEAR(DATE())-YEAR(пациенты.дата_рождения) AS возраст;

Ø  FROM ;

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

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

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

Ø  INNER JOIN rgr!врачи ;

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

Ø  WHERE  YEAR(DATE())-YEAR(пациенты.дата_рождения) > (SELECT (AVG(YEAR(DATE()) - YEAR(пациенты.дата_рождения)));

Ø   FROM ;

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

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

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

Ø   INNER JOIN rgr!врачи ;

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

Ø   WHERE пациенты.этаж=1 AND пациенты.отделение_н="Кардиология");

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

Рис. 46 Результат запроса №10

6.11  Запрос №11

Рис. 47 Запрос №11

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

Ø  SELECT пациенты.фамилия_пациента,пациенты.имя_пациента,врачи.фамилия_врача,; врачи.имя_врача;

Ø   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  Врачи.идент_врач = Пац_врач.идент_врач;

 WHERE   пациенты.фамилия_пациента= Thisform.Combo1.Value;

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

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

6.12  Запрос №12

Рис. 49 Запрос №12

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

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

Ø   FROM ;

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