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

Запросы

Запрос №1

Найти поставщиков лекарств, назначенных пациентам в заданном (выбор) отделении (кардиологии, терапии и т.д.) больницы.

Внешний вид запроса:

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

SELECT Companies.Название as Поставщик, Drugs.Название as Лекарство, Drugs.Срок_годности, Patients.Фамилия, Patients.Имя, Patients.Отчество, Patients.Палата;

FROM Companies, Drugs, Patients, Drug_Comp, Pati_Drug, Detachment;

WHERE;

Patients.Отделение = Detachment.id_detach AND Detachment.название = ThisForm.Combo1.Value AND Pati_Drug.id_patient = Patients.id_patient AND;

            Pati_Drug.id_drug = Drugs.id_drug AND Drugs.id_drug = Drug_Comp.id_drug AND;

            Drug_Comp.id_company = Companies.id_company;

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

Запрос №2

Найти номера палат, в которых пациенты принимают лекарства, поставляемые заданными (выбор) фирмами.

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

SELECT Patients.Фамилия, Patients.Имя, Patients.Отчество, Patients.Год_рождения, Patients.Диагноз, Drugs.Название as Лекарство, Detachment.название as Отделение, Patients.Палата, Patients.Койка;

FROM Drugs, Patients, Companies, Detachment, Drug_Comp, Pati_Drug;

WHERE;

            Drug_Comp.id_company = Companies.id_company AND Companies.название = ThisForm.Combo1.Value AND;

            Pati_Drug.id_patient = Patients.id_patient AND Patients.Отделение = Detachment.id_detach AND;

            Pati_Drug.id_drug = Drugs.id_drug AND Drugs.id_drug = Drug_Comp.id_drug

Результат запроса (фармаком):

Запрос №3

Найти срок годности лекарств, назначенных пациентам с заданным (выбор) диагнозом.

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

SELECT Patients.Фамилия, Patients.Имя, Patients.Отчество, Drugs.Название as Лекарство, Drugs.Срок_годности, Detachment.Название as Отделение, Patients.Палата, Patients.Койка;

FROM Patients, Drugs, Pati_drug, Detachment;

WHERE;

            Patients.Диагноз = ThisForm.Combo1.Value AND Pati_Drug.id_Drug = Drugs.id_drug AND;

            Pati_Drug.id_patient = Patients.id_patient AND Detachment.id_detach = Patients.Отделение

Результат запроса (аритмия сердца):

Запрос №4

Найти телефоны врачей, закрепленных за пациентами палат заданного (выбор) отделения.

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

SELECT Distinct Doctors.Фамилия, Doctors.Имя, Doctors.Отчество, Doctors.Телефон;

FROM Patients, Doctors, Doct_pati, Detachment;

WHERE;

            Patients.Отделение = Detachment.id_detach AND Detachment.название = ThisForm.Combo1.Value AND;

            Doct_pati.id_patient = Patients.id_patient AND Doct_pati.id_doctor = Doctors.id_doctor

Результат запроса (кардиология):

Запрос №5

Найти названия лекарств, назначенных пациентам, заданным (выбор) врачом.

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

SELECT Patients.Фамилия, Patients.Имя, Patients.Отчество, Drugs.Название as Лекарство, Detachment.Название as Отделение, Patients.Палата, Patients.Койка;

FROM Patients, Doctors, Doct_pati, Drugs, Pati_drug, Detachment;

WHERE;

            Doctors.Фамилия = ThisForm.Combo1.Value AND Doctors.id_doctor = Doct_pati.id_doctor AND;

            Doct_pati.id_patient = Patients.id_patient AND Pati_Drug.id_Drug = Drugs.id_drug AND;

            Pati_Drug.id_patient = Patients.id_patient AND Detachment.id_detach = Patients.Отделение;

Результат запроса (Глазычева):

Запрос №6

Найти номера коек и диагнозы всех пациентов заданной (выбор) палаты.

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

SELECT Patients.Фамилия, Patients.Имя, Patients.Отчество, Patients.Диагноз, Detachment.Название as Отделение, Patients.Палата, Patients.Койка;

FROM Patients, Detachment;

WHERE;

            Patients.Палата = VAL(ThisForm.Text1.Value) AND Detachment.id_detach = Patients.Отделение

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

Запрос №7

Найти имена пациентов, которым назначено заданное (выбор) лекарство.

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

SELECT Patients.Фамилия, Patients.Имя, Patients.Отчество, Patients.Год_рождения, Patients.Диагноз, Detachment.название as Отделение, Patients.Палата, Patients.Койка;