Проектування програмного комплексу 'Довідник фармацевта' засобами об'єктно-орієнтованого середовища програмування з використанням бази даних

Зміст

Введення

. Технічне завдання

.1 Постановка задачі

.2 Опис проблеми

.3 Підстави для розробки програми

.4 Призначення проекту

.5 Вибір моделі даних

.6 Вибір засобів для проектування бази даних

.7 Програмні засоби розробки

. Спеціальний розділ

.1 Функціональна модель

.2 Розробка логічних структур бази даних

.3 Формування фізичної структури бази даних

.4 Проектування графічного інтерфейсу

Висновок

Список літератури

Додаток

Введення

Програма написана на мові програмування Borland Delphi 7.0. Цей вибір обумовлений насамперед тим, що Delphi являється досить відомим засобом розробки додатків для Windows©. Вибір мови програмування зумовлений також поширеністю, зручністю, простотою і силою мови. Він однаково легкий як для написання інтерфейсу програми, так і для роботи з базою даних.

Розглядається створення бази даних для підприємства, в даному випадку Довідник Фармацевта. Діяльність даного підприємства здійснюється наступним чином: надають послуги по продажу медикаментів. Отже, необхідно ввести облік руху товарів. Тому доцільно поставить на даній фірмі 1-2 персональних комп’ютера, в яких буде зберігатися вся інформація про послуги та документацію. Дані комп’ютери будуть знаходитись в розпорядженні керуючого (або адміністратора), а також директора підприємства.

Робота підприємства заклечається в надані послуг клієнтам. Робота з клієнтами ділиться на 3 етапи:

1.   Вводиться найменування препарату, його тип, кількість

2.      Здійснюється продаж товару

.        Запис інформації в внутрішній звіт

Таким чином, при заповнених таблиць бази даних медикаментів, їх типів, - швидкість складання документації(чека) значно збільшується, що дозволяє за одиницю часу обслужити більшу кількість клієнтів.

Перш ніж приступити до роботи з базою даних, в першу чергу потрібно вибрати модель представлення даних. Вона повинна відповідати наступним вимогам:

·    Наочність подання інформації;

·        Простота введення інформації;

·        Зручність пошуку та відбору інформації;

·        Можливість швидкої перенастроювання бази даний(додавання нових полів, нових записів, їх видалення).

При розробці БД можна виділити наступні етапи роботи.етап. Постановка проблеми

На цьому етапі формується завдання по створенню БД. В ньому детально описується склад бази, призначені та цілі її створення, а також перечислюються, такі види роботи передбачається здійснюватись в цій базі даних (відбір, доповнення, зміна даних, друк та вивід звіту і т.д.).етап. Аналіз об’єкта

На цьому етапі необхідно розглянути, з яких об’єктів може складатися БД, які властивості цих об’єктів. Після розбиття БД на окремі об’єкти потрібно розглянути властивості кожного з цих об’єктів, іншими словами, встановити, якими параметрами описується кожен об’єкт. Всі ці відомості можна розташувати у вигляді окремих записів і таблиць. Далі необхідно розглянути тип даних кожної окремої одиниці запису(текстовий, числовий). Відомості про типи даних також слід занести в таблицю.етап. Синтез моделі

На цьому етапі проведеного вище аналізу необхідно вибрати певну модель БД. Далі розглядуються переваги та недоліки кожної моделі, зіставити їх з вимогами і завданнями вашої БД і вибрати ту модель, яка зможе максимально забезпечити реалізацію поставленої задачі. Після вибору моделі потрібно намалювати її схему з зазначенням зв’язків між таблицями або вузлами.етап. Способи представлення інформації, програмний інструментарій

Після створення моделі необхідно в залежності від обраного програмного продукту визначити форму подання інформації. У більшості СУБД дані можна зберігати в двох видах:

·    З використанням форм;

·        Без використання форм.

Форма - створений користувачем графічний інтерфейс для введення а базу даних.етап. Синтез комп’ютерної моделі об’єкта і технологія його створення

Після розгляду інструментальних можливостей обраного програмного продукту можна приступити до реалізації БД на комп’ютері. У процесі створення комп’ютерної моделі можна виділити певні стадії, типові для будь якої СУБД.

Стадія 1. Запуск СУБД, створення нового файлу бази даних або відкриття створеної раніше бази.

Стадія 2.Створення вихідної таблиці чи таблиць.

Стадія 3. Створення екранних форм.

Стадія 4. Заповнення БД.етап. Робота з створеною базою даних

Робота з БД включає себе такі дії, як:

·    Пошук потрібних відомостей;

·        Сортування даних;

·        Відбір даних;

·        Вивід на друк;

·        Зміна та доповнення даних.

1. Технічне завдання

.1 Постановка задачі

Розробити програмний комплекс(Довідник фармацевта). Ця програма повинна виконувати всі основні операції, пов’язані з прийомом-продажем фармацевтичних товарів в аптечному пункті. Для розробки даного продукту використовується об’єктна-орієнтована мова програмування Borland Delphi 7.0 з вбудованими можливостями програмування баз даних Microsoft Access що входить до розширеного пакету програма Microsoft Office.

.2 Опис проблеми

Програмний комплекс (Довідник Фармацевта) призначений для введення обліку прийому-продажу товарів на фармацевтичних підприємствах. Даний проект допомагає автоматизувати одну з задач фармацевтичного працівника. Головне завдання, яке ставилось перед автором при створені цієї програми це її відповідність рівню розвитку комп’ютерної техніки та програмного забезпечення на сьогоднішній день і можливість більш глибокого і детального аналізу отриманих знань студентами в ході практичних занять. Використання розробленого програмного комплексу дозволяє здійснити автоматизацію процесу прийому товарів в аптечному пункті, а також пошук потрібного найменування товару та відстеження залишків продукції на складі.

Запропонована до розгляду розроблена програма легко і швидко встановлюється, розроблена для комп’ютерів IBM PC або сумісних з ними. Даний комплекс можна використовувати в аптечних кіосках і на не великих фармацевтичних підприємствах.

1.3 Підстави для розробки програми

Ефективність використання програми (Довідник Фармацевта) визначається зменшенням часу, що витрачається на пошук потрібної інформації при продажу лікарських препаратів фармацевтами. Одним з основних шляхів зменшення цього часує автоматизація системи пошуку та перегляду даних. Межі застосування таких систем, область розв’язуваних ними завдань, ефективність практичного використання багато в чому визначаються можливостями програмного забезпечення. Ці можливості повинні забезпечувати простоту і оперативність доступу до зібраної інформації, гнучкість її використання і наочність представлення, а також дозволяти вирішувати основні завдання фармацевта. Створений проект полегшить роботу продавців-фармацевтів та завідуючих аптеками.

.4 Призначення проекту

Програмний комплекс (Довідник Фармацевта) відповідає перерахованим вище вимогам і включає в себе такі функції:

1. Облік лікарських препаратів та їх поставок.

2. Можливість пошуку потрібного препарату.

3. Додавання, редагування та виділення даних в таблиці.

4. Можливість формування звіту з продажу в програмі Excel з подальшим друком на принтері .

5. Сортування даних.

6. Ведення довідників постачальників, міст і типів лікарів.

Програма проста в обігу і поєднує в собі інтуїтивно зрозумілий графічний інтерфейс, що особливо необхідний в сучасних умовах. Програмний комплекс (Довідних Фармацевта) по суті, це вже готове комплексне рішення для ведення обліку прийому продажу товарів в аптечному пункті.

1.5 Вибір моделі даних

Сучасні СУБД є об’єктно-орієнтованими і реляційними. Основною одиницею є об’єкт, має властивості і зв’язки між об’єктами.

БД може бути застосована на одній моделі або на сукупності кількох моделей. Будь-яку модель даних можна розглядати як об’єкт який характеризується своїми властивостями над нею як над об’єктом можна проводити будь-які дії СУБД використовують кілька моделей даних: ієрархічну, мережеву та реляційну. Основна відмінність таких моделей в подані взаємозв’язку між об’єктами.

Ієрархічна модель БД являє собою сукупність елементів, розташованих в порядку їх розташування від загального до приватного і утворюють повернуте дерево. Воно будується за принципом: один тип об’єкта є головним все інше підлеглим. Встановлюється зв'язок "один до багатьох" тобто для деякого основного типу існує кілька підлеглих типів об’єктів. Інакше, головний тип іменується вихідним типом а підлеглі породженими. У підлеглих типів можуть бути в свою чергу підлеглі типи. Найвищий в ієрархії вузол називають кореневим. Якщо структура даних виявляється складніша, ніж звичайна, простота структури ієрархічної бази даних ставала її недоліком.

У зв’язку з цим була розроблена нова мережева модель даних. Вона була поліпшеною ієрархічною моделлю в якій один запис міг брати участь у кількох відносинах. У мережевій моделі такі стосунки називались множинними. Мережева модель даних будується за принципом "головний і підлеглий тип одночасно" тобто, будь-який тип даних одночасно може породжувати кілька підлеглих типів і бути підлеглим для декількох головних. Мережева модель схожа на ієрархічну. Вона має ті ж основні складові (вузол, рівень, зв'язок), проте характер їх відносин принципово різний. У мережевій моделі прийнятий вільний зв'язок між елементами різних видів

Мережеві бази даних мають ряд переваг:

·    Гнучкість. Множині відносини дозволяли мережевій базі даних зберігати дані, структура якої була складніша ієрархічної.

Як ієрархічна так і мережева база даних - інструменти програмістів. Реалізація користувача запитів часто затягується на тижні і місяці і до моменту появи програми інформація яку вона дає часто виявляється марною.

Недоліки ієрархічно і мережевої моделі призвели до появи нової реляційної моделі бази даних. Реляційна модель була спробою спростити структуру бази даних. Реляційною називається база даних в якій всі дані доступні користувачеві організовані у вигляді таблиці а всі операції над ними зводяться до операцій над таблицями.

Термін "реляційний" вказує на сам перед про те що така модель зберігання даних побудована на взаємовідносинах складових їх частин. У найпростішому випадку він являє собою двовимірний масив або двомірну таблицю а при створені складних інформаційних моделей складає сукупність взаємопов’язаних таблиць. Кожен рядок такої таблиці являється записом а стовпець полем. Порядок записів в таблиці може бути довільним і може характеризуватися кількістю полів, типом даних.

Реляційна модель даних має такі властивості:

·    Кожен елемент таблиці один елемент даних.

·        Всі поля в таблиці є однорідними тобто мають один тип.

·        Кожне поле має унікальне ім’я.

·        Однакові записи в таблиці відсутні.

Всі сучасні засоби СУБД підтримують реляційну модель даних.

Основна ідея реляційного підходу полягає в тому, щоб представити довільну структуру у вигляді двовимірної таблиці, тобто нормалізувати структуру.

Кожен запис в таблиці повинен мати первинний ключ, тобто ідентифікатор, значення якого однозначно визначає цей і лише цей запис. Первинний ключ повинен володіти двома властивостями.

1. Однозначна ідентифікація запису: запис повинен однозначно визначатися значенням ключа.

2. Відсутність надмірності: ніяке поле не можна видалити з ключа не порушуючи при цьому властивість однозначної ідентифікації.

Кожне значення первинного ключа має бути унікальним. В іншому випадку неможливо відрізнити один запис від іншого. Вказівка ключа це єдиний спосіб відрізнити один запис від іншого. Зазвичай використовують придумані розробником спеціальні цифрові значення код, табельні номери і т.д.

.6 Вибір засобів для проектування бази даних

інтерфейс access delphi постачальник

Мета інфологічного моделювання забезпечення найбільших природних для людини способу збору і представлення тієї інформації яку передбачається зберігати в створюваній базі даних. Тому інфологічну модель даних намагаються будувати за аналогією з природною мовою (останній не може бути використаний в чистому вигляді через складність комп’ютерної обробки текстів і неоднозначності будь якої природної мови). Основними конструктивними елементами інфологічних моделей є сутності зв’язки між нити та їх властивості.

Сутність будь який помітний об’єкт (об’єкт який ми можемо відрізнити від іншого), інформацію про який потрібно зберігати в базі даних. Сутностями можуть бути люди місця літаки рейси. Необхідно розрізняти такі поняття, як тип сутності і екземпляр сутності. Поняття тип сутності відноситься до набору однорідних особистостей предметів подій які виступають за ціле. Примірник сутності відноситься до конкретної речі в наборі. Наприклад типом сутності може бути місто а екземпляром Київ.

Атрибут пойменована характеристика сутності. Його найменування повинне бути унікальним для конкретного типу сутності але може бути однаковим для різних типів сутності. Атрибути використовуються для визначення того яка інформація повинна бути зібрана про сутність

Абсолютна відмінність між типами сутності і атрибутами відсутня. Атрибут є таким тільки в зв’язку з типом сутності .

Ключ мінімальний набір атрибутів за значенням яких можна знайти потрібний екземпляр сутності. Мінімальність означає що виключення з набору деякого атрибута не дозволяє ідентифікувати сутність по тій що залишилася.

Зв'язок асоціювання двох або більше сутностей. Якби призначення бази даних було тільки збереження окремих не пов’язаних між собою даних то її структура могла би бути дуже простою. Проте одна з основних вимог до бази даних це забезпечення можливості відшукання одних сутностей за значенням інших для чого потрібно встановлювати між ними певні зв’язки. А так як в реальних базах даних нерідко містяться сотні і навіть тисячі сутностей то теоретично між ними може бути встановлено мільйони зв’язків. Наявність такої безлічі зв’язків визначається складність інфологічних моделей.

.7 Програмні засоби розробки

Розглянемо більш докладно продукти компанії Microsoft а саме Visual FoxPro. Database Desktop, Access. Найцікавішою рисою цих пакетів є їх великі можливості інтеграції спільної роботи і використання даних так як дані пакети є продуктами одного виробника а також використовують подібні технології обміну даних.FoxPro відрізняється високою швидкістю має вбудовану об’єктна-орієнтовану мову програмування з використанням xBase, SQL, діалекти яких вбудовані в багатьох СУБД. Має високий рівень об’єктної моделі. При використані в обчислювальних мережах забезпечує як монопольний так і роздільний доступ користувачів до даних

Для роботи з таблицями БД при проектуванні програми зручно використовувати програму Database Desktop - це утиль багато чим схожий на Paradox, яка розставляє разом з Delphi для інтерактивної роботи з таблицями різних форматів локальних баз даних - Paradox и dBase, а також SQL-серверних баз даних InterBase, Oracle, Informix, Sybase (з використанням SQL Links). Виконуваний файл утилю називається DBD.EXE, розташований він як правило в директорії так званої DBD.

Вона дозволяє виконувати наступні дії:

·    Створення таблиці;

·        Зміна структури;

·        Редагування записів.

Крім того з допомогою Database Desktop можна виконувати і інші дії над БД(створення редагування виконання візуальних записів операції з псевдонімами) .входить до складу найпопулярнішого пакету Microsoft Office. Основні переваги:знайомим багатьом кінцевим користувачам і має високу стійкість даних простий в освоєні може використовуватись не професійним програмістом дозволяє готувати звіти з баз даних різних форматів. Призначення для створення звітів довільної програми на підставі різних даних і розробки некомерційних додатків.

Зазначені програмні продукти мають можливість візуального проектування інтерфейсу користувача програмує тільки їх зміни у відповідь на будь які події

Для розробки бази даних вибрано MS Access через простоту використання.

Створення прикладних програм та додатків Delphi виконується і інтегрованому середовищі розробки IDE (Integrated Development Environment). IDE служить для організації взаємодії з програмістом і включає в себе пару вікон, що містять різні керуючі елементи. За допомогою засобів інтегрованого середовища розробник може зручно проектувати інтерфейсну частину програми а також писати програмний код і пов’язувати його з керуючими елементами. При цьому вся робота по створенню додатка включаючи налагодження відбувається в інтегрованому середовищі розробки. Інтегроване середовище Delphi являє собою багато віконну систему. Вид інтегрованого середовища розробки може відрізнятись в залежності від налаштувань.

2. Спеціальний розділ

.1 Функціональна модель

Діаграми SADT (Structured Analysis and Design Technique - технологія структурного аналізу і проектування) були розроблені в 1973 році Дугласом Россом. Основне призначення цього методу це декомпозиція або розбиття основних функцій на під функції. Програмною реалізацією даного метода є програма BP Win.

Опишемо основи функціонування даного об’єкту тобто "Довідник Фармацевта" за допомогою програми BP Win.

На нульовому рівні вхідними даними служать:інформація про ліки замовлення. Побічно на дане підприємство впливають закони статут підприємства. Співробітники та обладнання має також велике значення. Вихідними даними є: дохід звіти і відповіді на замовлення.

мал.2.1 Функціональна діаграма - 0 рівень

В результаті, можна розробити логічний ланцюжок БД, використовуючи програму ERWin.

.2 Розробка логічних структур бази даних

мал. 2.2 Логічна структура БД

2.3 Формування фізичної структури бази даних

2.4 Проектування графічного інтерфейсу

Головна форма

мал.2.3 Головна форма

Опис роботи:

Відображення основної інформації з таблиць БД ліки та склад.

Рядок Найти: здійснює пошук ліків за початковими літерами в його назві.

мал.2.4 Відбір даних за умовою

Рядок Постачальника: здійснює пошук постачальника за його кодом в таблиці Постачальники з відображенням назви ліків його кількості на складі і дати поставки і висновок результату в окремій формі "Результат пошуку".

мал.2.5 Результат пошуку

Розділ Замовлення:

Назва - вибір ліків

Дата - вказати дату

Ціна - вказати ціни ліків

Кількість - вказати кількість товару

Сума - підрахунок загальної суми замовлень

При натисканні на кнопки Ок проводиться продаж ліків з занесенням інформації в таблицю Замовлення з відображенням його у формі Звіт з продажу.

Меню Редагувати:

мал.2.6. Меню Редагувати

Додати запис - здійснює виклик форми Додати / редагувати ліки зі занесенням доданих даних.

мал.2.7 Форма Додати / редагувати ліки

Редагувати запис - здійснює виклик форми Додати / редагувати ліки з оновленням виправлених даних в таблицях Ліки та Склад

рис.2.8 Форма Додати / редагувати ліки

Меню Звіти

мал.2.9 Меню Звіти

Здійснює виклик форми Звіти по продажам.

мал.2.10 Форма Звіт по продажам

мал.2.11 Меню Постачальник

Виконується запит форми Постачальники.

мал.2.12 Форма Постачальники

Кнопка Додати - здійснює виклик форми Додати / редагувати постачальника із занесенням доданих даних в таблицю Постачальники.

мал.2.13 Форма Додати / редагувати постачальника

Кнопка Редагувати - здійснює виклик форми Додати / редагувати постачальника з оновленням виправлених даних в таблицю Постачальник.

мал.2.14 Форма Додати / редагувати постачальника

Кнопка Видалити - здійснює видалення поточного запису з таблиці Постачальники.

Кнопка Вихід - закриває форму.

Меню Довідник

мал.2.15 Меню довідник

Здійснює виклик форм Міста і Типи ліків.

мал.2.16 Форма Міста

мал.2.17 Форма Тип ліків

Меню Сортування

мал.2.18 Меню сортування

Здійснює сортування ліків по назві або по ціні в таблиці Ліки.

Меню Вихід

мал.21. Меню Вихід

Висновок

В процесі створення програми "Довідник фармацевта" були вивчені матеріали з предметної області, також були розглянуті принципи роботи інтерфейсу ADO для роботи в СУБД. В результаті було створено додаток що включає в себе програму, файл бази даних.

Даний проект являє собою демонстрацію лише дуже спрощену модель Бази Даних. Але в цій роботі виконані всі основні вимоги та функції такі як:

1.   Пошук та фільтрація даних

2.      Навігація по таблиці з даними

.        Оформлення вихідної документації у вигляді звіту

Ці можливості допомагають ввести звітну документацію, формувати підсумки роботи зберігати дані про ліки та їх ціни, постачальників, і т.п.

З додатко не складно працювати навіть недосвідченому користувачеві. Вона барвисто оформлена щоб користувачеві було приємно працювати в даній програмі.

Даний проект може бути більш детально і ретельно доопрацьований в майбутньому що може принести його розробка чи мало прибутку.

Список літератури

1.   Орлов С.А. Технологии разработки программного обеспечения/ С. Орлов - СПб.: Питер, 2002. - 464 с.

2.      Технология разработки программного обеспечения. Л.Г. Гагарина,

.        Е.В. Кокорева, Б.Д. Виснадул. Форум, Инфра-М, 2008

.        Access. Часть 1 (для пользователей). Учебное пособие. - СПб., 2005.

.        Вероника Михеева, Ирина Харитонова "MS Access 2000", БВХ-Петербург, 2000г.

.        ГОСТ 2.105-95. Единая система конструкторской документации. Общие требования к текстовым документам. Межгосударственный совет по стандартизации, метрологии и сертификации. - М.: Издво стандартов, 1996. - 36 с.

7.     Дарахвелизе П.Г., Марков Е.П."Delphi 4", СПб.:,БВХ-Санкт-Петербург 1999.-816 с., ил.

8.      Фленов Михаил "Библия Delphi" 2001г. http://www.cydsoft.com/vr-online.

.        "Королевство Delphi" http://www.delphikingdom.com/

.        "Советы по Delphi" http://www.webmachine.ru/

.        Кандзюба С.П., Громов В. Н, "Delphi 6/7. Базы данных и приложения", DiaSoft, 2002 г.

.        Алексей Федоров, Наталия Елманова, "ADO в Delphi", bhv-Санкт-Петербург, 2002 г.

.        А. Жуков, "Изучаем Delphi", Питер, 2000

.        В. Фаронов, "Программирование баз данных в Delphi", Питер, 2004

.        Ф. Гофман, А. Хоменко "Работа с базами данных в Delphi", bhv-Санкт-Петербург

.        В. Фаронов, "Delphi 5. Руководство программиста", Нолидж, 2001

.        Вероника Михеева, Ирина Харитонова "MS Access 2000"

Додаток

Unit1; //Головне вікно програми, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, Menus, ImgList, StdCtrls, DBCtrls, Mask, Buttons;= class(TForm): TDBGrid;: TMainMenu;: TImageList;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TDBGrid;: TEdit;: TLabel;: TMenuItem;: TMenuItem;: TMenuItem;: TGroupBox;: TMenuItem;: TLabel;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TDBLookupComboBox;: TBitBtn;: TBitBtn;: TLabel;: TEdit;: TBitBtn;: TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;FormClose(Sender: TObject; var Action: TCloseAction);N4Click(Sender: TObject);N5Click(Sender: TObject);N8Click(Sender: TObject);N9Click(Sender: TObject);Edit1Change(Sender: TObject);N7Click(Sender: TObject);N13Click(Sender: TObject);N14Click(Sender: TObject);N11Click(Sender: TObject);N16Click(Sender: TObject);N18Click(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);DBLookupComboBox1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10;

{$R *.dfm}

//Процедура збереження даних при закриті формиTForm1.FormClose(Sender: TObject; var Action: TCloseAction);DataModule2.ADOTable1.Modified then.ADOTable1.Post;DataModule2.ADOTable2.Modified then.ADOTable2.Post;;

//Процедура добавлення нового запису в таблицю з лікамиTForm1.N4Click(Sender: TObject);.ADOTable1.Insert;.ADOTable2.Insert;.ShowModal;;

//Процедура редагування виділеного запису в таблиці з лікамиTForm1.N5Click(Sender: TObject);.ShowModal;;

//Процедура сортиртування таблиці по назві препаратівTForm1.N8Click(Sender: TObject);.ADOTable1.IndexFieldNames:='Назва';;

//Процедура сортиртування таблиці по ціні препаратаTForm1.N9Click(Sender: TObject);.ADOTable1.IndexFieldNames:='Цена';;

//Процедура пошуку по введеним першим буквам назвиTForm1.Edit1Change(Sender: TObject);Length(Edit1.Text)>0 then.ADOTable1.Filtered:=true.ADOTable1.Filtered:=false;.ADOTable1.Filter:='Название>'''+Edit1.Text+'''';;

//Процедура вивода таблиці ПостачальникTForm1.N7Click(Sender: TObject);.Show;;

//Процедура вивода довідника МістаTForm1.N13Click(Sender: TObject);.Show;;

//Процедура вивода довідника Тип ЛіківTForm1.N14Click(Sender: TObject);.Show;;

//Процедура закритя програмиTForm1.N11Click(Sender: TObject);.Close;;

//Процедура добавлення замовлення в таблицю ліківTForm1.BitBtn1Click(Sender: TObject);.ADOTable6.Post;.ADOQuery2.Active:=false;.ADOQuery2.SQL.Clear;.ADOQuery2.SQL.Add('UPDATE Склад');.ADOQuery2.SQL.Add('SET Склад.[кількість на складі]=Склад.[Кількість на складі]-'''+DBEdit4.Text+'''');.ADOQuery2.SQL.Add('WHERE Склад.[Код] LIKE '''+DBEdit1.Text+'''');.ADOQuery2.ExecSQL;.ADOTable2.Refresh;.ADOTable6.Refresh;;

//Процедура створення нового замовленняTForm1.BitBtn2Click(Sender: TObject);.ADOTable6.Insert;;

//Процедура пошуку по введеному номеру замовленняTForm1.BitBtn3Click(Sender: TObject);.ADOQuery1.Active:=false;.ADOQuery1.SQL.Clear;.ADOQuery1.SQL.Add('Select Постачальник.[Код постачальника], Ліки.[Назва], Склад.[Кількість на складі], Склад.[Дата поставки]');.ADOQuery1.SQL.Add('FROM Постачальники INNER JOIN (Склад INNER JOIN Ліків ON Склад.[Ключ]=Ліки.[Ключ]) ON Постачальники.[Код постачальника]=Склад.[Код постачальника]');.ADOQuery1.SQL.Add('WHERE Постачальник.[Код постачальника] LIKE '''+Edit2.Text+'''');.ADOQuery1.Active:=true;.ShowModal;;

//Процедура перегляду списка назв ліківTForm1.DBLookupComboBox1Click(Sender: TObject);.ADOQuery3.Active:=false;.ADOQuery3.SQL.Clear;.ADOQuery3.SQL.Add('Select Ліки.[Ключ], Ліки.[Ціна]');.ADOQuery3.SQL.Add('FROM Ліки');.ADOQuery3.SQL.Add('WHERE Ліки.[Ключ] LIKE '''+DBEdit6.Text+'''');.ADOQuery3.Open;.Text:=DataModule2.ADOQuery3.FieldValues['Ціна'];.ADOQuery3.Active:=True;.ADOTable6.Refresh;;.

Unit2; //Модуль ідключення бази даних до програми, Classes, DB, ADODB;= class(TDataModule): TADOConnection;: TADOTable;: TDataSource;: TADOTable;: TDataSource;DSDesigner: TAutoIncField;DSDesigner3: TWideStringField;DSDesigner5: TDateTimeField;DSDesigner6: TBCDField;DSDesigner: TAutoIncField;DSDesigner2: TDateTimeField;DSDesigner3: TWideStringField;DSDesigner4: TWideStringField;: TADOTable;: TADOTable;: TADOTable;: TDataSource;: TDataSource;: TDataSource;DSDesigner2: TWideStringField;DSDesigner6: TIntegerField;DSDesigner: TWideStringField;DSDesigner2: TWideStringField;DSDesigner3: TWideStringField;DSDesigner4: TWideStringField;DSDesigner5: TWideStringField;DSDesigner: TAutoIncField;DSDesigner2: TWideStringField;DSDesigner: TAutoIncField;DSDesigner2: TWideStringField;: TADOTable;: TDataSource;DSDesigner: TAutoIncField;DSDesigner2: TDateTimeField;DSDesigner3: TIntegerField;DSDesigner5: TWideStringField;DSDesigner6: TBCDField;Field: TIntegerField;: TADOQuery;: TDataSource;_: TWideStringField;: TADOQuery;: TDataSource;: TADOQuery;: TDataSource;: TADOQuery;ADOTable6CalcFields(DataSet: TDataSet);

{ Private declarations }

{ Public declarations };: TDataModule2;Unit9;

{$R *.dfm}TDataModule2.ADOTable6CalcFields(DataSet: TDataSet);.ADOTable6Field.Value:=DataModule2.ADOTable6DSDesigner6.AsInteger*DataModule2.ADOTable6DSDesigner3.AsInteger;;.

Unit3; //Форма добавлення редагування ліків, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Mask, DBCtrls, ComCtrls, Buttons, ExtCtrls;= class(TForm): TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TDBLookupComboBox;: TDBEdit;: TBitBtn;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBLookupComboBox;: TImage;: TLabel;BitBtn1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm3;Unit2, Unit1;

{$R *.dfm}

//Процедура збереженого введеного або зміненого препаратаTForm3.BitBtn1Click(Sender: TObject);DataModule2.ADOTable1.Modified then.ADOTable1.Post;DataModule2.ADOTable2.Modified then.ADOTable2.Post;;;.

Unit4; //Форма Постачальник, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, Menus, StdCtrls;= class(TForm): TDBGrid;: TButton;: TButton;: TButton;: TButton;FormClose(Sender: TObject; var Action: TCloseAction);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm4;Unit2, Unit5, Unit1, Unit3;

{$R *.dfm}TForm4.FormClose(Sender: TObject; var Action: TCloseAction);DataModule2.ADOTable3.Modified then.ADOTable3.Post;;

//Процедура добавлення нового препаратаTForm4.Button1Click(Sender: TObject);.ADOTable3.Edit;.ADOTable3.Insert;.Show;;

//Процедура змінення існуючого препаратаTForm4.Button2Click(Sender: TObject);.Show;;

//Процедура видалення препаратаTForm4.Button3Click(Sender: TObject);Application.MessageBox(PChar('Ти дійсно хочеш видалити '

+DataModule2.ADOTable3DSDesigner.AsString), 'Увага!!!',_OKCANCEL)=id_OK then.ADOTable3.Delete;;

//Закритя формиTForm4.Button4Click(Sender: TObject);.Close;;.

Unit5; //Модуль добавлення редагування постачальника, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DBCtrls, StdCtrls, Mask;= class(TForm): TLabel;: TDBEdit;: TLabel;: TDBEdit;: TLabel;: TLabel;: TDBEdit;: TLabel;: TDBLookupComboBox;: TButton;: TDBComboBox;Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm5;Unit2, Unit1, Unit4, Unit3;

{$R *.dfm}TForm5.Button1Click(Sender: TObject);.ADOTable3.Post;.Close;;.

Unit6; //Модуль довідника Місто, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, StdCtrls, Buttons;= class(TForm): TDBGrid;: TButton;: TButton;FormClose(Sender: TObject; var Action: TCloseAction);Button1Click(Sender: TObject);Button2Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm6;Unit1, Unit2;

{$R *.dfm}TForm6.FormClose(Sender: TObject; var Action: TCloseAction);DataModule2.ADOTable4.Modified then.ADOTable4.Post;;TForm6.Button1Click(Sender: TObject);.Close;;TForm6.Button2Click(Sender: TObject);.ADOTable4.Edit;.ADOTable4.Insert;;.

unit Unit7; //Модуль довідника Тип ліків, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, DBGrids;= class(TForm): TDBGrid;: TButton;: TButton;Button2Click(Sender: TObject);Button1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm7;Unit2;

{$R *.dfm}TForm7.Button2Click(Sender: TObject);.Close;;TForm7.Button1Click(Sender: TObject);.ADOTable5.Edit;.ADOTable5.Insert;;.

Unit9; //Модуль формування звіту по продажам, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, StdCtrls, Buttons, RpRave, RpDefine, RpCon,, DB, ADODB, ComCtrls;= class(TForm): TDBGrid;: TBitBtn;FormCreate(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm9;Unit2, Unit1;

{$R *.dfm}TForm9.FormCreate(Sender: TObject);DataModule2.ADOTable6.Modified then.ADOTable6.Post;;.

unit Unit10; //Модуль вивода результата пошуку в талблиці, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids;= class(TForm): TDBGrid;

{ Private declarations }

{ Public declarations };: TForm10;Unit2;

{$R *.dfm}.