Информатика и выч. техника \ Архитектура предприятий

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

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

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

Ø      INNER JOIN rgr!врачи ;

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

Ø   WHERE  отделения.название_отделения = "Нейрохирургия";

При нажатии «Отделение «Нейрохирургия» появляется окно:

Рис. 28 Результат запроса №1

6.2  Запрос №2

Рис. 29 Запрос №2

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

Ø  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;

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

Рис. 30 Результат запроса №2

6.3  Запрос №3

Рис. 31 Запрос №3

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

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

Ø   WHERE  пациенты.диагноз = Thisform.Combo1.value

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

Рис. 32 Результат запроса №3

6.4  Запрос №4

Рис. 33 Запрос №4

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

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

Скачать файл