буде керувати реляційної базою даних, що є набір пов'язаних між собою таблиць у форматі FoxPro (Visual *. DBF), доступ до яких здійснюється за допомогою ключів або/та індексів. Відомості в одній таблиці можуть відбивати відомості з іншої, і при зміні відомостей в першій таблиці ці зміни негайно відображаються у другій. p align="justify"> Таким чином буде досягнута несуперечність даних. Таблиці розподілені на типи В«ДовідникиВ» і В«Динамічні даніВ». p align="justify"> Загальна структура бази даних:
Зберігання інформації про працівників та вакансії здійснюється із збереженням цілісності даних при зміні або видаленні записів таблиці.
Зазначені рішення повинні задовольняти вимогам, наведеним у технічному завданні на розробку системи.
Склад функцій комплексів завдань, реалізуються системою:
Автоматизована система повинна виконувати наступні функції:
Забезпечувати цілісне зберігання даних в базі;
Виводити коректні дані у разі пошуку;
Формувати необхідні звіти;
Рішення по складу програмних засобів, мов діяльності, алгоритмам процедур і операцій і методів їх реалізації.
Для реалізації АС буде використовуватися середовище програмування Lazarus і мова програмування FreePascal.
Джерела розробки:
Даний документ розроблявся на підставі ГОСТ 34.698-90 на написання ТЗ на автоматизовані системи управління від 01.01.1992 р.
Додаток 3
SADT і DFD моделі
SADT модель
В
Малюнок 19 - SADT модель
DFD модель
В
Рисунок 20 - DFD модель
Додаток 4
Тексти програм
Form1 (Редактор таблиць) Unit1;
{$ mode objfpc} {$ H +}, SysUtils, DB, dbf, FileUtil, Forms, Controls, Graphics, Dialogs,, DBGrids, StdCtrls, DbCtrls;
{TForm1} = class (TForm): TButton;: TButton; _t: TComboBox;: TDatasource;: TDbf;: TDBGrid; Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormCreate (Sender: TObject) ; FormShow (Sender: TObject); list_tChange (Sender: TObject); MenuItem2Click (Sender: TObject); MenuItem3Click (Sender: TObject); MenuItem4Click (Sender: TObject); MenuItem6Click (Sender: TObject);
{private declarations}
{public declarations};: TForm1;
{$ R *. lfm} Unit2;
{TForm1} t_close (); (Form1.t.State = dsEdit) then Form1.t.Post;. t.Close;; TForm1.MenuItem2Click (Sender: TObject); _close ();. TableName: = list_t . Text;. Open;; TForm1.MenuItem3Click (Sender: TObject); _close ();; TForm1.MenuItem4Click (Sender: TObject);. TableName: = 'rab.dbf';. FieldDefs.Add ('id_r...
