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

{

// Отсчитываем время

if ((info.time_ost_m == 0) && (info.time_ost_s == 0)) {

STOP_ALL();

}

if (info.time_ost_s == 0) {

info.time_ost_s = 59;

info.time_ost_m -= 1;

}

else {

info.time_ost_s -= 1;

}

if (info.time_ost_s < 10) {

Label1->Caption = " Осталось : " + IntToStr(info.time_ost_m) + ":0" +IntToStr(info.time_ost_s);

}

else {

Label1->Caption = " Осталось : " + IntToStr(info.time_ost_m) + ":" +IntToStr(info.time_ost_s);

}

}

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

{

answering();  

}

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

Delete_shabl

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

#pragma hdrstop

#include "delete_shabl.h"

#include "Main.h"

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

#pragma link "RzBckgnd"

#pragma link "RzButton"

#pragma link "RzChkLst"

#pragma link "RzLstBox"

#pragma link "RzPanel"

#pragma link "RzLabel"

#pragma resource "*.dfm"

TFrame9 *Frame9;

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

: TFrame(Owner)

{

}

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

{

Form1->Frame91->Visible=false;

Form1->Frame11->Visible=true;

}

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

Main

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

#pragma hdrstop

#include "Main.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit6.h"

#include "Unit7.h"

#include "sp_shabl.h"

#include "delete_shabl.h"

#include "Unit3_1.h"

#include "Unit3_2.h"

#include "Unit3_3.h"

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

#pragma link "RzButton"

#pragma link "Unit1"

#pragma link "Unit2"

#pragma link "Unit3"

#pragma link "Unit4"

#pragma link "Unit5"

#pragma link "Unit6"

#pragma link "Unit7"

#pragma link "IBCustomDataSet"

#pragma link "IBDatabase"

#pragma link "IBQuery"

#pragma link "IBSQL"

#pragma link "sp_shabl"

#pragma link "delete_shabl"

#pragma link "Unit3_1"

#pragma link "Unit3_2"

#pragma link "Unit3_3"

#pragma resource "*.dfm"

TForm1 *Form1;

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

: TForm(Owner)

{

}

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

{

Application->Terminate();   

}

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

{

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

Form1->DoubleBuffered=true;

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

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

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

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

DB1->DatabaseName = id.db_path;

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

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

try

{

DB1->Connected = true;

Transaction1->Active = true;