Додаток Б.2 Лістинг бібліотеки модуля головного вікна

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

#ifndef mainH

#define mainH

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

#include <System.Classes.hpp>

#include <Vcl.Controls.hpp>

#include <Vcl.StdCtrls.hpp>

#include <Vcl.Forms.hpp>

#include <Vcl.ComCtrls.hpp>

#include <Vcl.ImgList.hpp>

#include <Vcl.CheckLst.hpp>

#include <Vcl.Menus.hpp>

#include <Registry.hpp>

#include <Data.DB.hpp>

#include <Vcl.ExtCtrls.hpp>

#include <Vcl.Imaging.pngimage.hpp>

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

class TWindow: public TForm

{

__published: // IDE-managed Components

TTreeView *RegView;

TListView *FoundList;

TCheckListBox *ChooseBox;

TLabel *Label1;

TLabel *Label2;

TButton *SearchBtn;

TMainMenu *MainMenu;

TMenuItem *N1;

TMenuItem *N2;

TCheckBox *FullWord;

TCheckBox *LookRegister;

TEdit *SearchText;

TImage *Image1;

TMenuItem *N3;

TMenuItem *N4;

TMenuItem *N5;

TMenuItem *N6;

TMenuItem *N7;

void __fastcall SearchBtnClick(TObject *Sender);

void __fastcall SearchTextKeyPress(TObject *Sender, System::WideChar &Key);

private: // User declarations

public:

__fastcall TWindow(TComponent* Owner);

};

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

extern PACKAGE TWindow *Window;

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

#endif

Додаток В.1 Лістинг модуля вікна очікування

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

#include <vcl.h>

#pragma hdrstop

#include "dbthread.h"

#include "wait.h"

USEFORM("main.cpp", Window);

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TWaiting *Waiting;

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

__fastcall TWaiting::TWaiting(TComponent* Owner)

: TForm(Owner)

{

dbCreate *DBC;

DBC = new dbCreate(true);

DBC->Start();

}

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

Додаток В.2 Лістинг бібліотеки модуля вікна очікування

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

#ifndef waitH

#define waitH

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

#include <System.Classes.hpp>

#include <Vcl.Controls.hpp>

#include <Vcl.StdCtrls.hpp>

#include <Vcl.Forms.hpp>

#include <Vcl.ExtCtrls.hpp>

#include <Vcl.Imaging.pngimage.hpp>

#include <Vcl.ActnList.hpp>

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

class TWaiting: public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TLabel *Label2;

TImage *Image1;

private: // User declarations

public: // User declarations

__fastcall TWaiting(TComponent* Owner);

};

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

extern PACKAGE TWaiting *Waiting;

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

#endif