      _______________537

Tablel->Active = true;

Tabiel->First() ;

CBdep->Clear() ;

while (!Tablel->Eof)
{

CBdep->Items->Add(TablelDep->AsString) ;

Tablel->Next() ;

)
CBdep->Items->Add(" ") ;

CBEDep->ItemIndex = 0;

Tablel->First();

    ,      -
,   CBDep,          
Dep    Tablel.       ,
          . -
       ,    -
    .

     ,  
,     TDBEdit,   
Proisv.           
  DataSource3  ,      Dep.  -
      CBDep      -
 .

     Tpers  TDBGrid, -
         DataSource2  Table2,
   Pers.   ,   
 Tablel.   Table2   MasterSource = DataSo-
urcel  MasterFields = Dep.

   CBDep    ,   
    ,     OnChange -
 CBDep  :

if (CBdep->ItemIndex == CBdep->Items->Count-l)
f

Table2->MasterFields = "";

Table2->IndexFieldNames = "Fam;Nam;Par";

)

else

. 1

Table2->MasterFields = "Dep";

Table2->IndexFieldNames = "Dep;Fam;Nam;Par";

}
TPers->SetFocus() ;

      ( ),   -
     MasterFields   Table2 -
   .     -
  Tpers.   ,       
  Tpers      CBDep.

        -
     ,    -
,    .   OnClick    :

Table2Dep->Visible = CheckBoxl->Checked;

          -
   Dep  .

         ...,
    Form2,    
.        9.7 (. . 9.40).