1.5 Керівництво програміста.

Дана програма написана в системі розробки програмного забезпечення Delphi 7.0. Ця система є дуже зручною і простою для розробки програм.

Для установки програми необхідно скопіювати архівний файл kadry2008.exe з дискети на жорсткий диск комп’ютера і розпакувати його. З’явиться папка so_project, яку необхідно відкрити. Ця папка містить в собі програму.

Програма складається із наступних модулів:

1) відображення стартової форми;

2) відображення головної форми редагування форми П-2;

3) відображення форми для початкового вводу інформації та редагування інформації про підрозділи та співробітників;

4) відображення форми видачі статистичних відомостей (до пенсійного фонду, склад ювілярів, дні народження та пенсіонери.

5) календар.

Модуль відображення стартової форми складається із наступних процедур і змінних:

procedure TForm1.Button1Click(Sender: TObject); {Вигрузка заставки і продовження дії програми} – на вході маємо стартову форму, на виході – головну.

Модуль відображення головної форми складається із наступних процедур і змінних:

FormP2: TformP2 — (типу даних, який описує усі компоненти , розташовані на формі, та методи обробки реакціїї цих компонентів на явища (натискання, активацію та ін.)

KeyInNumberED : String — зміна, яка має значення номера режиму, в якому знаходиться програма;

Процедури, повьязані з редагуванням полів форми П-2:

procedure DBComboBoxStreetKeyPress(Sender: TObject; var Key: Char);

procedure DBEditPlace_BornKeyPress(Sender: TObject; var Key: Char);

procedure DBEditUnemloyReasonKeyPress(Sender: TObject; var Key: Char);

procedure DBEditPlaceLastWorkKeyPress(Sender: TObject; var Key: Char);

procedure DBComboBoxYear_End_UnivercityKeyPress(Sender: TObject;

var Key: Char);

procedure DBEditNumber_DiplomaKeyPress(Sender: TObject; var Key: Char);

procedure DBEditPasport_NKeyPress(Sender: TObject; var Key: Char);

procedure DBEditZIPKeyPress(Sender: TObject; var Key: Char);

procedure DBComboBoxBuilding_NKeyPress(Sender: TObject; var Key: Char);

procedure DBComboBoxAppartment_NKeyPress(Sender: TObject;

var Key: Char).

До допоміжних бібліотек відносяться допоміжні бібліотеки для друку інформації (unit Prn_Proc;) та обробки календарних дат (unit All_Proc;).

До складу останньої входять наступні процедури :

Function IsSovmest(Sovmest:Integer):Boolean; - функція, яка визначає чиє співробітник сумісником;

function IsPension(Sex:String; Age:real): Boolean; - функція, яка визначає чиє співробітник пенсіонерои;

Function Age(BirthDay : tDateTime) : real; - функція обрахунку віку співробітника за його днем народження

Procedure setUkrainian; - процедура застосування українського регістру і мови в программі;

Procedure setEnglish;- процедура застосування англійської клавіатури та кодової таблиці.

До складу першої бібліотеки входять, наприклад, наступні процедури:

Процедури і функції форматованого друку форм :

{Print procedures and function}

procedure BeginReport(Orientation : TPrinterOrientation;tDevice:String132; Title :String132);

procedure EndReport;

function Pad(InStr : String132; TotalLen : Integer) : String132;

function LPad(InStr : String132; TotalLen : Integer) : String132;

procedure PrintHeader(ReportName,SystemTitle,ReportTitle,Criteria : String132);

function Center(InStr : String; TotalLen : Integer) : String132;

function PrintLine(TotalLen:Integer): String132;

function PrintSingleLine(TotalLen:Integer): String132;

function getNowDate:String;

Procedure PrintShapka;

Procedure PrintMainShapka;

Процедури і функції обробки календарних дат :

Function ValidYear(Year : String): Boolean;

{Перевірка року}

Function ValidDate(Year,Month,Day : String):Boolean;

{DATE controls}

Function NextMonth(Month:Integer):Word;

function getMonth(curMonth:Byte):String;

Procedure MonthName(ThisMonth:Byte;

Var NameMonth:string);

{назва місяця}

Function CalcYearMonthDays(BeginJob,EndJob : tDateTime):String;

{розрахунок днів до стажу}

Procedure DecodeStage(Stage:String; Var Year,Month,Day : String);

{повернення днів, місяців. років}

Function Add2Stage(FirstStage,SecondStage : String):String;

{додаток 2 стажів один до одного}

Function Add3Stage(FirstStage,SecondStage,ThirdStage : String):String;

{додаток 3 стажів один до одного}