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

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

#pragma hdrstop

#include "Unit5.h"

#include "Unit4.h"

#include "Main.h"

#include "Unit6.h"

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

#pragma link "RzBckgnd"

#pragma link "RzButton"

#pragma link "RzEdit"

#pragma link "RzLabel"

#pragma link "RzSpnEdt"

#pragma resource "*.dfm"

TFrame5 *Frame5;

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

: TFrame(Owner)

{

}

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

{

Form1->Frame51->Visible=false;

Form1->Frame41->Visible=true;

Form1->Frame41->Time_Group->ItemIndex = Form1->id.time_t;

}

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

{

// Разбираемся с кол-вом вопросом по уровням сложности

if ((F_Level->Value == 0) && (S_Level->Value == 0) && (T_Level->Value == 0)) {

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

return;

}

Form1->id.f_lev = F_Level->Value;

Form1->id.s_lev = S_Level->Value;

Form1->id.t_lev = T_Level->Value;

Form1->Frame71->Lfl->Caption = IntToStr(Form1->id.f_lev);

Form1->Frame71->Lsl->Caption = IntToStr(Form1->id.s_lev);

Form1->Frame71->Ltl->Caption = IntToStr(Form1->id.t_lev);

Form1->Frame51->Visible=false;

//      Form1->Frame61->Visible=true;

Form1->Frame71->Visible=true;

}

//-----------------------------------------------------------------Папка “Main\Units” Unit7

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

#pragma hdrstop

#include "Unit7.h"

#include "Unit6.h"

#include "Main.h"

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

#pragma link "RzBckgnd"

#pragma link "RzButton"

#pragma link "RzLabel"

#pragma resource "*.dfm"

TFrame7 *Frame7;

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

: TFrame(Owner)

{

}

//--------------------------------------------------------------------------int TForm1::Kol_ball()

{

// Считаем максимальный балл

int max = (Form1->id.f_lev * 5) + (Form1->id.s_lev * 10) + (Form1->id.t_lev * 15);

return max;

}

//--------------------------------------------------------------------------int TFrame7::r_param()

{

// Конвертируем время

int time;

switch (Form1->id.time_t)

{

case 0:

{

time = 15;

break;

}

case 1:

{

time = 20;

break;

}

case 2:

{

time = 25;

break;

}

case 3:

{

time = 30;

break;

}

case 4:

{

time = 0;

break;

}

}

if (!Form1->DB1->Connected)

{

Form1->DB1->Connected = true;

Form1->Transaction1->Active = true;

}

return time;

}

//--------------------------------------------------------------------------void TForm1::NewShabl()

{

// Создаем новый шаблон

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

{

try {

int time = Frame7->r_param();

Form1->id.type_shabl = Form1->id.temp_type;

Form1->ins1->Close();

Form1->ins1->SQL->Clear();