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

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

Ø  WHERE  отделения.название_отделения = Thisform.Combo2.Value AND пациенты.этаж=2;

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

Рис. 34 Результат запроса №4


6.5  Запрос №5

Рис. 35 Запрос №5

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

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

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

Рис. 36 Результат запроса №5


6.6  Запрос №6

Рис. 37 Запрос №6

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

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

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

Рис. 38 Результат запроса №6


6.7  Запрос №7

Рис. 39 Запрос №7

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

Ø  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

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

     

Рис. 40 Результат запроса №7


6.8  Запрос №8

Рис. 41 Запрос №8

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

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

Ø   FROM ;

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

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

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

Скачать файл