Цель работы: научиться подключать к проекту базы данных, созданные в Microsoft Access; использовать их в программе.
Ход работы: создать в Access базу данных «Поликлиника», состоящую из трёх таблиц (в названиях полей не должно быть пробелов!!!):
1) Посещения (Номер_медицинского_полиса, дата_посещения, диагноз)
2) Пациент (Номер_медицинского_полиса, ФИО, пол, дата_рождения, адрес, место_работы, должность, номер_участка)
3) Врач (Номер_участка, ФИО_врача, рабочий_телефон).
Самостоятельно определить типы полей, ключевые поля, если они необходимы, связать таблицы на схеме данных. Заполнить таблицы записями (не менее 10 записей в каждой таблице). Сохранить базу в будущую папку проекта.
Начать новый проект в Delphi. Сохранить его.
Добавить на форму компоненты с вкладки ADO: ADOConnection, ADOTable, с вкладки DataAccess компонент DataSource, с вкладки DBControl компонент DBGrid.
Настроить ADOConnection1: свойство ConnectionString – выбрать Use ConnectionString – Build: Поставщики OLE DB – выбрать Microsoft Jet 4.0 OLE DB Provider, на вкладке Подключение выбрать свою базу данных, задать относительный путь (.\ название_ базы_данных.mdb); на вкладке Дополнительно установить права доступа Read/Write, а предыдущий флажок убрать.
Свойство LoginPrompt (запрос пароля на открытие базы) установить false.
Настроить DataSource1: свойство DataSet – ADOTable1.
Настроить ADOTable1: свойство Connection -- ADOConnection1, TableName – Пациент.
Настроить DBGrid1: свойство DataSource -- DataSource1.
Свойство Active у ADOTable1 выставить true.
Если всё сделали правильно, в DBGrid’е будут отображаться записи из таблицы Пациент.
Добавить на форму DB Navigator. Присоединить его к DBGrid’у. Скрыть все кнопки, отвечающие за изменения БД. Сам DBGrid сделать readonly.
Оформить форму как «Просмотр данных о пациенте».
Создать ещё одну форму. Оформить её как «Внесение данных о пациентах».
Вместо DBGrid использовать другие компоненты с вкладки DataControl, для полей Пол и Номер участка использовать DBComboBox’ы. У компонентов DBEdit настраиваются два свойства: DataSource и DataField.
Аналогично оформить форму для внесения данных о врачах, форму для внесения данных о посещениях больными врача.
Организовать переход от формы к форме.
Создать новую форму «Поиск данных о пациенте».
Добавить на эту форму компоненты DataSource, ADOConnection, ADOQuery, настроить их.
Добавить на форму компоненты для вывода информации о пациенте по запросу (можно использовать DBCtrlGrid, на нём разместить остальные компоненты).
Организовать запросы по: фамилии, по дате рождения, номеру медицинского полиса, и т. п.
Использовать процедуры:
ADOQuery1.Close; // закрываем запрос
ADOQuery1.SQL.Clear; // очищаем SQL для нового условия запроса
ADOQuery1.SQL.Text:=' Select {нужные поля} from {нужная таблица (таблицы)} where нужное поле=:p1'; // формируем текст запроса, p1 – вводимый параметр запроса
ADOQuery1.Parameters[0].Value:=edit1.text; //присваиваем параметру запроса конкретное значение
ADOQuery1.Open; // открываем запрос
Другой пример запроса:
ADOQuery1.Close; // закрываем запрос
ADOQuery1.SQL.Clear; // очищаем SQL для нового условия запроса
ADOQuery1.SQL.Text:=' Select {нужные поля} from {нужная таблица (таблицы)} where нужное поле like ’’’+Edi1.text+’%’’’; // формируем текст запроса, нужное поле начинается с символов, введенных в Edit1.text
ADOQuery1.Open; // открываем запрос
Оформить отдельную форму для поиска информации о врачах (условия запросов придумать самим).
Организовать запросы из нескольких таблиц:
- Всех пациентов, посетивших поликлинику в конкретный день; (добавив в конец запроса order by, можно задать группировку по конкретному полю)
- Всех пациентов, имеющих диагноз …
- Всех пациентов, родившихся позже ….
Придумать 3 своих сложных запроса (использовать в условиях запроса and, or) и оформить их.
