> Для адміністрування конфігураційної бази даних була розроблено додатки «Адміністратор БД» (малюнок 2.11).
На даній формі адміністратор інформаційної системи отримує повний доступ до всіх таблиць конфігураційної бази даних. Адміністратор може вибирати зі списку необхідну таблицю для редагування. Інформація з обраної таблиці з'являється в таблиці форми, а поля поточного запису для зручності виносяться на окрему панель.
Малюнок 2.11 - Адміністратор БД
2.3.2 Розробка інтерфейсу модуля бізнес-логіки
Використання підвантажуваних DLL для виклику процедур і функцій бізнес-логіки, що обробляють клієнтські запити, дозволяє зробити розробляється більш гнучким. Модель програмування на основі DLL дозволяє домогтися модульності всіх елементів системи.
Отримавши команду завантажити програму, операційна система створює процес, який має в своєму розпорядженні 4 Гбайт віртуальної пам'яті, в якій виконується програма. Після створення процесу створюється об'єкт відображення файлу, який відображає виконуваний файл в адресний простір процесу. Виконуваний файл саме відображається з жорсткого диска, минаючи завантаження всього способу в RAM або копіювання в сторінковий файл. Після відображення виконуваного файлу в пам'ять ОС по заданому зсуву від початку образу переходить до адресою, в якому записані імена всіх DLL, використовуваних даним EXE-модулем. Всі DLL розшукуються в системі і відображаються в той самий процес. При цьому для кожної DLL створюється свій об'єкт відображення файлу. Якщо деякі DLL звертаються, у свою чергу, до інших DLL, останні також відображаються в адресний простір програми.
Після припинення виконання програми образ кожного DLL-файлу видаляється з пам'яті разом з відповідним об'єктом відображення файлу. Процес продовжується до видалення способу EXE - файлу і об'єкта головного процесу разом з усім, що ще залишилося в просторі процесу, включаючи області пам'яті, розподілені програмою.
Організація бізнес-логіки в модулі може бути проведена кількома способами. Функції бізнес-логіки, що належать тому чи іншому модулю, можуть бути представлені у вигляді диспетчерського інтерфейсу (IDispatch), що досить зручно з погляду розробника серверної сторони (пошук необхідної функції проводиться самим інтерфейсом). Але даний варіант пов'язаний зі складністю реалізації інтерфейсу цього типу клієнтом, необхідністю попередньої реєстрації модуля в системі, а також зниженням продуктивності через специфіку виклику його методів. Розглянута проблема може бути вирішена набагато простіше, з використанням динамічно-завантажуваних бібліотек, що надають сервера всю необхідну інформацію через експортовані функції.
Для забезпечення універсальності розроблюваної системи бібліотеки, що містять методи бізнес-логіки демонстраційного сервера додатків, повинні експортувати наступні функції:
function GetModuleInfo (ModelInfo: TModelInfo): string; stdcall;
function GetProc (procname: string): string; stdcall;
Функція GetModuleInfo призначена для передачі сервера інформації про завантажуваний модулі бізнес-логіки й приймає покажчик на структуру TModelInfo, яку повинна заповнити:
TModelInfo=record: string ;: double ;;
Поле description містить опис спричиненої DLL, а version номер версії.
Функція GetProc дозволяє отримати по лексеме, отриманої в результаті синтаксичного розбору ім'я процедури, необхідної для опрацювання надходження запиту.
Розглянутий інтерфейс дозволяє мінімізувати кількість звернень сервера до пам'яті модуля і зменшити ймовірність виняткових ситуації, пов'язаних зі зверненням з неправильним адресами, на етапі завантаження модуля.
Модуль бізнес-логіки MemoryProc.dll содердітся необхідні процедури і функції обробці нереляційних запитів.
Процедура GetDataFromMemory по вхідному набору параметрів формує набір даних для відправки їх клієнтського додатку у форматі XML.
procedure GetDataFromMemory (var CDSetBuf: TClientDataSet; ParamsList: DynArrayOfVariant); містить масив параметрів різного типу, заданих в текстовому вигляді. На основі даного масиву складається SQL-запит на вибірку до бази даних. Вихідні дані, отримані в результаті виконання запиту, необхідно перетворити у формат XML, щоб надалі додати їх у клієнтський набір даних CDSetBuf. Це перетворення відбувається за допомогою методу XMLFieldDescription.
procedure XMLFieldDescription (FieldName, FieldType: string; Length: integer=0);
Дана процедура формує запис XMLFieldDescr, що містить зн...
