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

Form1->ins1->SQL->Add("insert into \"Shablons\" (\"Sost\", \"Type\", \"Tema\", \"Time_t\", \"F_level\", \"S_level\", \"T_level\", \"Date_cr\", \"Time_cr\", \"Max_b\", \"O_level\", \"Sr_info\")");

Form1->ins1->SQL->Add("values ("+IntToStr(Form1->id.sost)+","+IntToStr(Form1->id.type_shabl)+","+IntToStr(Form1->id.tema_shabl)+","+IntToStr(time)+","+IntToStr(Form1->id.f_lev)+","+IntToStr(Form1->id.s_lev)+","+IntToStr(Form1->id.t_lev)+",'"+DateToStr(Date())+"','"+TimeToStr(Time())+"',"+IntToStr(Form1->Kol_ball())+","+IntToStr(Form1->id.o_lev)+","+IntToStr(Form1->id.sr_info)+")");

Form1->ins1->ExecQuery();

Form1->Transaction1->CommitRetaining();

Application->MessageBoxA("Создание шаблона успешно завершено.", "Работа с шаблонами", MB_OK + MB_ICONINFORMATION);

Form1->in_progress = false;

Form1->Frame71->Visible = false;

Form1->Frame11->Visible = true;

}

catch (...) {

Form1->Transaction1->RollbackRetaining();

Application->MessageBoxA("Невозможно создать шаблон.Обратитесь к администратору!", "Работа с шаблонами", MB_OK + MB_ICONERROR);

}

}

}

//--------------------------------------------------------------------------void TForm1::EditShabl(int kod_shabl)

{

// Вносим корректировки в существующий шаблон

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();

Form1->ins1->SQL->Add("update \"Shablons\" set \"Sost\"="+IntToStr(Form1->id.sost)+", \"Type\"="+IntToStr(Form1->id.type_shabl)+", \"Tema\"="+IntToStr(Form1->id.tema_shabl)+",");

Form1->ins1->SQL->Add("\"Time_t\"="+IntToStr(time)+", \"F_level\"="+IntToStr(Form1->id.f_lev)+", \"S_level\"="+IntToStr(Form1->id.s_lev)+", \"T_level\"="+IntToStr(Form1->id.t_lev)+", \"Date_cr\"='"+DateToStr(Date())+"', \"Time_cr\"='"+TimeToStr(Time())+"', \"Max_b\"="+IntToStr(Form1->Kol_ball())+", \"O_level\"="+IntToStr(Form1->id.o_lev)+", \"Sr_info\"="+IntToStr(Form1->id.sr_info)+" where \"Sh\" = "+IntToStr(kod_shabl));

Form1->ins1->ExecQuery();

Form1->Transaction1->CommitRetaining();

Application->MessageBoxA("Изменение шаблона успешно завершено.", "Работа с шаблонами", MB_OK + MB_ICONINFORMATION);

Form1->in_progress = false;

Form1->Frame71->Visible = false;

Form1->Frame11->Visible = true;

}

catch (...) {

Form1->Transaction1->RollbackRetaining();

Application->MessageBoxA("Невозможно изменить шаблон! Обратитесь к администратору ", "Работа с шаблонами", MB_OK + MB_ICONERROR);

}

}

}

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

{

Form1->Frame71->Visible=false;

Form1->Frame51->Visible=true;

}

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

{

if (Form1->nshabl)

Form1->NewShabl();

else

Form1->EditShabl(Form1->id.kod_sh);

}

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