Код программы. Вывод основных уведомлений

fmRegistration

//--------------------------------------------------------------------------#include <vcl.h>

#pragma hdrstop

#include "fmRegistration.h"

#include "DM.h"

//--------------------------------------------------------------------------#pragma package(smart_init)

#pragma link "Registation"

#pragma link "RolePlay"

#pragma link "IBCustomDataSet"

#pragma link "IBDatabase"

#pragma link "IBQuery"

#pragma resource "*.dfm"

TFmain *Fmain;

//--------------------------------------------------------------------------__fastcall TFmain::TFmain(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------------------void __fastcall TFmain::FormCreate(TObject *Sender)

{

//Соединяемся с БД

Fmain->DoubleBuffered=true;

isp.db_path = isp.ReadFString(0, GetCurrentDir()+"\\config.inf");

isp.dll_path = isp.ReadFString(1, GetCurrentDir()+"\\config.inf");

isp.db_user = isp.ReadFString(2, GetCurrentDir()+"\\config.inf");

isp.db_pass = isp.ReadFString(3, GetCurrentDir()+"\\config.inf");

isp.db_path += "\\ITSYSTEM.GDB";

DB1->DatabaseName = isp.db_path;

DB1->Params->Strings[0] = "user_name="+isp.db_user;

DB1->Params->Strings[1] = "password="+isp.db_pass;

if (!DB1->Connected)

{

try

{

DB1->Connected = true;

Transaction1->Active = true;

}

catch(...)

{

Application->MessageBoxA("Невозможно установить соединение с БД", "Проблема соединения", MB_OK + MB_ICONSTOP);

}

}

}

//--------------------------------------------------------------------------void __fastcall TFmain::frRolePlay1RzBitBtn1Click(TObject *Sender)

{

frRolePlay1->RzBitBtn1Click(Sender);

}

//--------------------------------------------------------------------------void __fastcall TFmain::frRegistration1RzBitBtn1Click(TObject *Sender)

{

frRegistration1->RzBitBtn1Click(Sender);

}

//--------------------------------------------------------------------------void __fastcall TFmain::frRegistration1RzBitBtn2Click(TObject *Sender)

{

frRegistration1->RzBitBtn2Click(Sender);

}

//--------------------------------------------------------------------------void __fastcall TFmain::FormClose(TObject *Sender, TCloseAction &Action)

{

DB1->Connected = false;

Transaction1->Active = false;

}

//--------------------------------------------------------------------------void __fastcall TFmain::FormCloseQuery(TObject *Sender, bool &CanClose)

{

if (Application->MessageBoxA("Вы действительно хотите завершить работу с системой?", "Завершение работы", MB_YESNO + MB_ICONQUESTION) == IDYES)

Application->Terminate();

else

CanClose = false;

}

//--------------------------------------------------------------------------void __fastcall TFmain::frRegistration1EpswdKeyDown(TObject *Sender, WORD &Key,

TShiftState Shift)

{

if (Key == VK_RETURN)

frRegistration1->RzBitBtn1->Click();

}

//--------------------------------------------------------------------------void __fastcall TFmain::Image1Click(TObject *Sender)

{

}

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

Registration

//--------------------------------------------------------------------------#include <vcl.h>

#pragma hdrstop

#include "Registation.h"

#include "fmRegistration.h"

#include "RolePlay.h"

#include "DM.h"

//--------------------------------------------------------------------------#pragma package(smart_init)

#pragma link "RzLabel"

#pragma link "RzBckgnd"

#pragma link "RzButton"

#pragma link "RzEdit"

#pragma resource "*.dfm"

TfrRegistration *frRegistration;

//--------------------------------------------------------------------------__fastcall TfrRegistration::TfrRegistration(TComponent* Owner)

: TFrame(Owner)

{

}

//--------------------------------------------------------------------------void __fastcall TfrRegistration::RzBitBtn2Click(TObject *Sender)

{

Fmain->Close();

}

//--------------------------------------------------------------------------void __fastcall TfrRegistration::RzBitBtn1Click(TObject *Sender)

{

// Регистврируемся в системе

AnsiString login, pass;

login = Elogin->Text;

pass = Epswd->Text;

if (login == "")

{

Application->MessageBoxA("Вы не указали имя пользователя", "Неверные данные", MB_OK + MB_ICONEXCLAMATION);

Elogin->SetFocus();

return;

}

if (pass == "")

{

Application->MessageBoxA("Вы не указали пароль", " Неверные данные ", MB_OK + MB_ICONEXCLAMATION);

Epswd->SetFocus();

return;

}

try

{