Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Программные модулиЗапросы к БД: 1.поиск по специализации врача: procedure TForm1.Button4Click(Sender: TObject); begin Form7.ShowModal; end;
2.поиск по группе крови пациента:
procedure TForm1.Button5Click(Sender: TObject); begin Form8.ShowModal; end;
3.поиск по страховой компании:
procedure TForm1.Button6Click(Sender: TObject); begin Form9.ShowModal; end; Интерфейс программы
Рисунок 3 – Главная форма
Рисунок 4 - Таблица: Врачи
Рисунок 5 - Таблица: Пациенты
Рисунок 6 - Таблица: Приёмы
Рисунок 7 - Таблица: Курсы лечения
Рисунок 8 - Таблица: Регистрационная карта
Рисунок 9 – Запрос: Поиск врачей по специализации
Рисунок 10 - Запрос: Поиск пациентов по группе крови
Рисунок 11Запрос: Поиск пациентов по страховой компании
Рисунок 12 - Отчёт: Отчёт о текущих врачах
Рисунок 13 - Отчёт: Отчёт о ожидающих пациентах
|