justify"> логічна та фізична МОДЕЛІ побудовані на Основі функціональної МОДЕЛІ потреб відділу головного інженера. Для реалізації основних функцій підсістемі створені сутності (табліці) поділяються на два типи:
· Довідники, тоб нормативно-довідкова інформація (сюди відносяться табліці «Автоматизовані Лінії», «Виробники обладнання», «Пакувальні машини»);
· Документи, тоб змінна інформація («Графік ремонтно-профілактичної роботи»; «Рахунки-фактури»; «Звіти з проведення ремонтно-профілактичним роботам»).
логічна та фізична МОДЕЛІ, структура підсістемі планування ремонтно-профілактичних робіт наведені в Додатках А і Б.
На Основі ФІЗИЧНОЇ МОДЕЛІ Було згенеровано системний каталог бази даних в MS SQL 2005. SQL код, Який Забезпечує генерацію, наведень в Додатках В.
2.5 Алгорітмізація функцій системи та описание реалізованіх функцій системи
.5.1 Алгоритми функцій системи
1. Пошуки в Системі реалізуються двома способами Locate та Lookup:
В метод Locate слід Передат список полів, за Якими буде відбуватіся поиск, імена полів розділяють Крапка з комою, ТА значення ціх полів. Параметри поиска задають в Налаштування. Если запис | Полтава, то на ньом встановлюється курсор и метод повертає значення True.
Function Locate (const KeyFields: string; const KeyValues: variant; Options: TLocateOptions): Boolean;
В метод Lookup передається ПЕРЕЛІК полів для поиска, імена якіх розділяються Крапка з комою, а їх значення - комою. Если запис | Полтава, то функція повертає масив значень полів, назви якіх вміщені в параметрі ResultFields.
Function Lookup (const KeyFields: string; const KeyValues: variant; const ResultFields: string): Variant;
Обидва методи автоматично Використовують Швидкий Індексний пошук, ЯКЩО в параметрі KeyFields Задати індексовані поля.
. Підрахунок Загальної кількості бункерів автоматизованих ліній. Дана функція реалізована так:
procedure TForm7.btn4Click (Sender: TObject);.Text:=FloatToStr(DataModule2.tbl1.FieldByName(«кіл_бункера»).AsInteger*DataModule2.tbl1.FieldByName(«Об_єм_бункера»).AsInteger);;
3. Фільтрація організована в Системі методом Filter:
procedure TForm7.btn3Click (Sender: TObject); DataModule2.tbl1 do:=False;:=«Кіл_бункерів =» + edt2.Text;:=True;;;
4. Для друку Звіту в тексті програми на подію Вибори кнопки слід записатися команду:
ADO QuickRep1.Print;
Для попередня перегляду Звіту в режімі Виконання програми запішемо: QuickRep1.Preview.
5. Формування звітів з Вказаною конкретної ремонтно-профілактичної роботи. Для реалізації цієї Функції Створюємо параметрично SQL запит:
SELECT dbo.Брігада.Код_брігаді, dbo.Брігада.Номер_брігаді, dbo.Брігада.Зміна, dbo.Ремонтно_профілактична_робота.Назва,.Ремонтно_профілактична_робота.Норм_викр_людина_годин, dbo.Бригада.Код_ремонт_проф_роботиdbo.Бригада INNER JOIN.Ремонтно_профілактична_робота ON dbo.Бригада.Код_ремонт_проф_роботи=dbo.Ремонтно_профілактична_робота.Код_ремонт_проф_роботи(dbo.Бри...
