         571

   .  Table!   -
  Query 1     SQL  :

Select * from Dep where Dep = :PDep

   Queryl   PDep,     Params
   string.     CBDep  -
,      ComboBox.     
OnChange  :

Queryl->Close();

Queryl->Params->Items[0]->AsString = CBdep->Text;

Queryl->0pen() ;

     Queryl  ,  
 PDep  ,    CBDep,   -
  Open,       .

 CBDep,   DBComboBox   ,   
  .       -
te  :

Queryl->SQL->Clear() ;

Queryl->SQL->Add("Select * from Dep");

Queryl->0pen() ;

Queryl->First() ;

// ComboBox CBdep  
CBdep->Clear() ;

while (!Queryl->Eof)
(

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

Queryl->Next() ;

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

CBdep->ItemIndex = 0;

Queryl->Close();

Queryl->SQL->Clear() ;

Queryl->SQL->Add("Select * from Dep where Dep = :pDep");

Queryl->Params->Items[0]->AsString = CBdep->Text;

Queryl->0pen();

Queryl->First() ;

      Select * from Dep.  
,   ,     CBdep 
 Dep,       .    -
  Queryl      Select * from Dep where
Dep = :pDep.

,   ,  ,   , 
  DBEdit  DBText,    DataSource  Queryl   -
 Proisv.         Data-
SourceS  .

,          Tablel
    Queryl.     -
 2,      ,  Query2,
  DataSource2   Pers.     .

-,     , 
.  Query2    Select * from Pers where Dep = :Dep,
  Dep,   Query2   .    Data-
Source  Query2   DataSourcel,    
Dep.        Dep   
Dep.       ,     -