Додаток 9

Програмний код модуля Kadry

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit9.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)

{

Form2->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form3->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form4->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N9Click(TObject *Sender)

{

Form5->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N8Click(TObject *Sender)

{

Form6->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)

{

Form7->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N11Click(TObject *Sender)

{

Form8->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N14Click(TObject *Sender)

{

WinExec("makearh.bat",SW_RESTORE);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N16Click(TObject *Sender)

{

Form9->Show();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Panel1Click(TObject *Sender)

{

Table1->First();

{for (int i = 0; i < Table1->RecordCount; i++)

{if (Table1KLogin->Value==Edit1->Text)

if (Table1KPassword->Value==Edit2->Text)

{

Label4->Caption=Table1KAccess->Value;

Label2->Visible=False;

Label3->Visible=False;

Edit1->Visible=False;

Edit2->Visible=False;

Panel1->Visible=False;

N1->Visible=True;

N4->Visible=True;

N12->Visible=True;

N13->Visible=True;}

Table1->Next();}

}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N17Click(TObject *Sender)

{

WinExec("ExtrArh.exe",SW_SHOW);

Form1->Close();

}

//---------------------------------------------------------------------------

Список літератури

1. Соммервиль Иан. Инженерия програмного обеспечения. – Москва. Издательский Дом «Вильямс», 2002. – 624 с.

2. Гагарина Л. Г. Кокорева Е. В., Виснадул Б. Д. Технология разработки программного обеспечения. Учебное пособие. Москва. Издательский Дом «ФОРУМ», 2003. – 392 с.

3. Иванова Г.С. Технология программирования: Учебник для вузов. - М.: Изд-во МГТУ им. Н.Э. Баумана, 2002. -320 с.

4. Вендоров А. М. Проектирование программного обеспечения экономических информационных систем: Учебник. — М.: Финансы и статистика, 2002. - 352 с

5. Орлов С. Технологии разработки программного обеспечения: Учебник. — СПб.: Питер, 2002. — 464 с.

6. Буч Г., Рамбо Д., Джекобсон А. Язык UML. Руководство пользователя. - М.: ДМК Пресс, 2001.

7. Канер С., Фояк Д., Нгуен Е.К. Тестирование программного обеспечения. - Киев: «ДиаСофг».

8. Архангельский А. Я. Программирование в С++Builder6. – М.: «Издательство БИНОМ», 2003. -1125 с.

1