538___________________________________________ 91

       .   !
  PageControll  TPageControI.   !
  . 9.48.        '
    9.5.5,     ,   "
.  Editi       OnChan
ge :

if (CBdep->Text == " ")

Tabie2->FindNearest(bTVarRec(Editl->Text),0) ;

else
{
TLocateOptions SearchOptions;

Variant locvalues[] = (CBdep->Text, Editl->Text};

Table2->Locate("Dep;Fam", VarArrayOf(locvalues,1),

S ea r chOpt i ons 1  Par tialKeyloCase Insensitive) ;

}

     PageControll  
,   . 9.49.     -
  .     , , -
      ,   
  .

         -
, ,        (  -
   ).    ...    
  .    
  Modified  DBMemol,   -
  (. . 9.40),   .    -
      ,  -
        Clipboard,      -
 DBImagel     Clipboard   Ctr
 ,        -
lick ,   .      -
 ChangePhoto,        true.

          
 ,    . .. , ,
 Edit,   DBEdit.     
       .   TPers   
     Options  dgEditing = false,  
       .

        2  -
     OnAfterScroll  2 :

if (PageControll->ActivePage == TabEdit)
(

RGF->ItemIndex = 0;

CBEDep->ItemIndex = CBEDep->Items->IndexOf(Table2Dep->AsString) ;

EFam->Text = Table2Fam->AsString;

ENam->Text = Table2Nam->AsString;

EPar->Text = Table2Par->AsString;

SEYear->Value = Table2Year_b->AsInteger;

if (Table2Sex->AsBoolean)
RGSex->ItemIndex = 0;

else RGSex->ItemIndex = 1;

}

       

CBEDep->ItemIndex = CBEDep->Items->IndexOf(Table2Dep->AsString);