Блок-схема C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "u_edit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tfrm_edit *frm_edit;
//---------------------------------------------------------------------------
__fastcall Tfrm_edit::Tfrm_edit(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void Tfrm_edit::ClearEdits()
{
 // очистка полей Tedit
 ed_id->Text = "";
 ed_name->Text = "";
 ed_avtor->Text = "";
 ed_izd->Text = "";
 ed_god->Text = "";
 ed_isbn->Text = "";
 ed_otdel->Text = "";
 ed_kstr->Text = "";
 ed_kolvo->Text = "";
 cb_il->Checked = false;
}
//---------------------------------------------------------------------------
void Tfrm_edit::ReadOnly_en()
{
 // нельзя редактировать
 ed_id->ReadOnly = true;
 ed_name->ReadOnly = true;
 ed_avtor->ReadOnly = true;
 ed_izd->ReadOnly = true;
 ed_god->ReadOnly = true;
 ed_isbn->ReadOnly = true;
 ed_otdel->ReadOnly = true;
 ed_kstr->ReadOnly = true;
 ed_kolvo->ReadOnly = true;
 cb_il->Enabled = false;
}
//---------------------------------------------------------------------------
void Tfrm_edit::ReadOnly_dis()
{
 // можно редактировать
 ed_id->ReadOnly = false;
 ed_name->ReadOnly = false;
 ed_avtor->ReadOnly = false;
 ed_izd->ReadOnly = false;
 ed_god->ReadOnly = false;
 ed_isbn->ReadOnly = false;
 ed_otdel->ReadOnly = false;
 ed_kstr->ReadOnly = false;
 ed_kolvo->ReadOnly = false;
 cb_il->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_edit::FormShow(TObject *Sender)
{
 ActiveControl = ed_id; // установить фокус ввода
}
//---------------------------------------------------------------------------
void __fastcall Tfrm_edit::bt_okClick(TObject *Sender)
{
 if (Proverka() != 0)
 {
  Application->MessageBoxA(str_err.c_str(),"Ошибка",
                                MB_OK|MB_ICONSTOP);
  ModalResult = 10;
 }
}
//---------------------------------------------------------------------------
int Tfrm_edit::Proverka()
{
 // проверка правильности значений
 str_err = "";
 
 if (
        (ed_id->Text == "")
        ||(ed_name->Text == "")
        ||(ed_avtor->Text == "")
        ||(ed_izd->Text == "")
        ||(ed_god->Text == "")
        ||(ed_isbn->Text == "")
        ||(ed_kstr->Text == "")
        ||(ed_kolvo->Text == "")
        ||(ed_otdel->Text == "")
    )
 {
  str_err = "Поля не должны быть пустыми";
  return(1);
 }
 
 try
 {
  StrToInt(ed_id->Text);
 }
 catch(...)
 {
  str_err = Label1->Caption + " - некорректное значение";
  return(2);
 }
 
 try
 {
  StrToInt(ed_kstr->Text);
 }
 catch(...)
 {
  str_err = Label6->Caption + " - некорректное значение";
  return(3);
 }
 
 try
 {
  StrToInt(ed_otdel->Text);
 }
 catch(...)
 {
  str_err = Label9->Caption + " - некорректное значение";
  return(4);
 }
 
 try
 {
  StrToInt(ed_kolvo->Text);
 }
 catch(...)
 {
  str_err = Label10->Caption + " - некорректное значение";
  return(5);
 }
 
 str_err = "ok";
 return(0);
}
//---------------------------------------------------------------------------