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

if ((!Fmain->DB1->Connected) && (!Fmain->Transaction1->Active))

{

Fmain->DB1->Connected = true;

Fmain->Transaction1->Active = true;

}

}

catch (...)

{

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

return;

}

Fmain->Zapr1->Close();

Fmain->Zapr1->SQL->Clear();

Fmain->Zapr1->SQL->Add("select \"Login\", \"Pswd\", \"Fio\", \"UIN\" from \"Users\" where \"Login\" = '"+login+"' and \"Pswd\" = '"+pass+"'");

Fmain->Zapr1->Open();

if (Fmain->Zapr1->RecordCount > 0)

{

Fmain->frRegistration1->Visible=false;

Fmain->frRolePlay1->Visible=true;

Fmain->frRolePlay1->LFio->Caption = Fmain->Zapr1Fio->AsString;

Fmain->user_uin = Fmain->Zapr1UIN->AsInteger;

Fmain->Zapr1->Close();

Fmain->frRolePlay1->RoleCheck(Fmain->user_uin);

Elogin->Clear();

Epswd->Clear();

}

else

{

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

Elogin->Clear();

Epswd->Clear();

Elogin->SetFocus();

}

}

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

{

Elogin->SetFocus(); 

}

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

RolePlay

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

#pragma hdrstop

#include "RolePlay.h"

#include "fmRegistration.h"

#include "Registation.h"

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

#pragma link "RzLabel"

#pragma link "RzCmboBx"

#pragma link "RzBckgnd"

#pragma link "RzButton"

#pragma resource "*.dfm"

TfrRolePlay *frRolePlay;

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

: TFrame(Owner)

{

}

//--------------------------------------------------------------------------void TfrRolePlay::RoleCheck(int user_uin)

{

// Выбираем роль в которой будем работать

try

{

if ((!Fmain->DB1->Connected) && (!Fmain->Transaction1->Active))

{

Fmain->DB1->Connected = true;

Fmain->Transaction1->Active = true;

}

}

catch (...)

{

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

return;

}

Fmain->role->Close();

Fmain->role->SQL->Clear();

Fmain->role->SQL->Add("select * from \"Roles\" where \"User\" = "+IntToStr(user_uin));

Fmain->role->Open();

RzComboBox1->Items->Clear();

if (Fmain->roleKoord->AsInteger == 1)

{

list_of_roles["Координатор"] = "IntKoord.dll";

RzComboBox1->Items->Add("Координатор");

}

if (Fmain->rolePrepod->AsInteger == 1)

{

list_of_roles["Преподаватель"] = "IntPrepod.dll";

RzComboBox1->Items->Add("Преподаватель ");

}

if (Fmain->roleSShabl->AsInteger == 1)

{

list_of_roles["Составитель шаблонов"] = "CrShabl.dll";

RzComboBox1->Items->Add("Составитель шаблонов");

}

if (Fmain->roleSTest->AsInteger == 1)

{

list_of_roles["Составитель тестов"] = "CrTest.dll";

RzComboBox1->Items->Add("Составитель тестов");

}

if (Fmain->roleStud->AsInteger == 1)

{

list_of_roles["Студент"] = "Tester.dll";