      ______________539

    :

CBEDep->Text = Table2Dep->AsString;

..     CBEDep->Text    -
  Dep?   ,   CBEDep   Style = csDrop-
DownList,       
   , ,   .    
     Text.   
  IndexOf,   CBEDep->Items (  -
  TStrings),   ,     -
 ,       CBEDep->ItemIndex.

        OnAfter-
Scroll  Table2, ..       Tab-
12.         OnChange -
 PageControll, ..   .   
     

Form2->DBMemol->ReadOnly = ! (PageControll->ActivePage == TabEdit);

        
    ,   .

       
.     OnClick  :

AnsiString s;

const AnsiString si =",";

if (Table2Dep->AsString != CBEDep->Text)
s = "";

if (Table2Fam->AsString != EFam->Text)

(

if (s != "")  s += si;

s += " ";

>

if (Form2->DBMemol->Modified)
{
if (s != "") s += si;

s += " ";

}

if (ChangePhoto)
t
if (s != "") s += si;

s += " ";

}

if (s != "")
if (Application->MessageBox(("   "

+s+"?"). str(), "    '
MB YESNO  MB ICONQUESTION) == IDYES)

{
Table2->Edit();

)e

Table2Dep->AsString = CBEDep->Text;

Table2Fam->AsString = EFam->Text;

Table2Nam->AsString = ENam->Text;

Table2Par->AsString = EPar->Text;

Table2Year_b->AsInteger = SEYear->Value;

Table2Sex->AsBoolean = (RGSex->ItemIndex == 0)
CanPost = true;

Table2->Post() ;

CanPost = false;

Form2->DBMemol->Modified = false;

ChangePhoto=faIse;

