лиці 3.6.
Таблиця 3.6? Опис таблиці users
IDідентіфікатор записи, використовується первинний ключFAMILIAфамілія куратора, тип сімвольнийIMIAімя куратора, тип сімвольнийOTCHESTVOотчество куратора, тип символьныйDOLZHNOSTнаименование займаної посади в структурі організації, тип символьний
В результат проектування бази даних представлений на малюнку 3.2.
Малюнок 3.1? Схема бази даних
3.2 Розробка алгоритму роботи програмного забезпечення
Робота Системи починається з «введення імені користувача», що включає в себе роботу керівника, економіста.
У роботу керівників входять обов'язки:
контроль термінів виконання етапів договорів;
продуктивність обліку правильності оцінки договорів;
перегляд і друк звітних документів.
У роботу економіста входять обов'язки:
введення даних в довідники;
введення з договорів додаткових даних;
введення додаткових угод до договору;
введення при вступі акту виконаних робіт.
Рисунок 3.2 Схема роботи алгоритму системи
3.3 Розробка програмного забезпечення
Алгоритм роботи Системи представлений на малюнку 3.1 і малюнку 3.2. Схема алгоритму наочно демонструє модель поведінки Системи. Аналізуючи докладніше кожен блок здійснюємо написання коду програми.
Блок 1. Блок початку роботи Системи, умовно можна вважати момент первісного звернення до системи.
Блок 2. Здійснюється висновок форми запиту на введення ідентифікатора користувача і пароля. Вид форми представлений на малюнку 3.3:
Малюнок 3.3? Форма ідентифікації користувача
Login.pas Модуль форми введення імені користувача і пароля
unit Login;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxTextEdit, cxLabel, cxControls, cxContainer, cxEdit, cxGroupBox;=class (TForm): TcxGroupBox ;: TcxLabel;: TcxTextEdit;: TcxLabel;: TcxButton;: TcxButton;: TcxTextEdit; FormShow (Sender: TObject); btnOKClick (Sender: TObject); btnCancelClick (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction ); FormDestroy (Sender: TObject);: Integer; procedure Execute (var UserName, UserPass: string; var ExecResult: Boolean); procedure CloseForm;;
{$ R *. dfm} LoginDlg: TLoginDlg; procedure TLoginDlg. Execute (var UserName, UserPass: string; var ExecResult: Boolean); LoginDlg=nil then:=TLoginDlg. Create (nil);. LoginResult:=0; not LoginDlg. Showing then. Show; LoginDlg. LoginResult=0 do:=LoginDlg.teUP. Text;;;. BtnOKClick (Sender: TObject);:=1;:=mrOK;; TLoginDlg.btnCancelClick (Sender: TObject);. Close;. Terminate;; TLoginDlg. FormClose (Sender: TObject; var Action: TCloseAction);:=caFree;; procedure TLoginDlg. CloseForm; TLoginDlg. FormDestroy (Sender: TObject);:=nil;;:=nil;.
Блок 3 Kurators.pas Модуль форми довідника кураторів. Здійснює контроль термінів виконання етапів договорів; веде правильність оцінки договорів; друк звітних документів.
Малюнок 3.4? Kurators.pas модуль форми довідни...
