Мета роботи. навчитися підключати до проекту бази даних, створені в Microsoft Access; використовувати їх в програмі.
Хід роботи. створити в Access базу даних «Поліклініка», що складається з трьох таблиць (в назвах полів не повинно бути пробілів.):
1) Відвідини (Номер_медіцінского_поліса, дата_посещенія, діагноз)
Самостійно визначити типи полів, ключові поля, якщо вони необхідні, зв'язати таблиці на схемі даних. Заповнити таблиці записами (не менше 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: = 'Selectfromwhere потрібне поле =: p1'; // формуємо текст запиту, p1 - вводиться параметр запиту
ADOQuery1.Parameters [0] .Value: = edit1.text; // присвоюємо параметру запиту конкретне значення
ADOQuery1.Open; // відкриваємо запит
Інший приклад запиту:
ADOQuery1.Close; // закриваємо запит
ADOQuery1.SQL.Clear; // очищаємо SQL для нового умови запиту
ADOQuery1.SQL.Text: = 'Selectfromwhere потрібне поле like' '' + Edi1.text + '%' ''; // формуємо текст запиту, потрібне поле починається з символів, введених в Edit1.text
ADOQuery1.Open; // відкриваємо запит
Оформити окрему форму для пошуку інформації про лікарів (умови запитів придумати самим).
Організувати запити з декількох таблиць:
- Усіх пацієнтів, які відвідали поліклініку в конкретний день; (Додавши в кінець запиту order by, можна задати угруповання по конкретному полю)
- Усіх пацієнтів, що мають діагноз ...
- Усіх пацієнтів, які народилися пізніше ....
Придумати 3 своїх складних запиту (використовувати в условиях запроса and, or) і оформити їх.