572_____________________________________________ 10

  CBdep       - -
          .

       .  
     Query2  DataSource,     SQL
 Query2      OnChange
 CBdep :

String s = "Select * from pers ";

Query2->Close () ;

Query2->SQL->Clear () ;

if (CBdep->ItemIndex == CBdep->Items->Count - 1)
Query2->SQL->Add(s+" order by Fam,Nam,Par");

else
(
Query2->SQL->Add(s+"where Dep = :Dep order by Dep,Fam,Nam,Par");

Query2->ParamByName("Dep")->AsString = CBdep->Text;

)
Query2->0pen() ;

  CBdep     ,   -
: Select * from pers order by Fam,Nam,Par,  -
   .       CBdep  -
: Select * from pers where Dep = :Dep order by Dep,Fam,Nam,Par, 
     Dep.    
   Query2->ParamByName("Dep")->AsString  
  CBdep.

 ,       ,  
SQL  Query2    Select * from Pers where Dep = :Dep
order by Dep,Fam,Nam,Par      OnCreate  -
:

Query2->ParamByName("Dep")->AsString = CBdep->Text;

Query2->Active = true;

 ,   Table   Query. -
 ,          
    .       
     FindNearest,   
     Locate.   Query  
 FindNearest.        Loca-
te, , ,   Query   ,   Tab-
le:   OnChange  ,    -
,   :

TLocateOptions SearchOptions;

Query2->Locate ( "Fam" , Edit l->Text, SearchOptionsloPartialKeyloCa-
selnsensitive);

     ,     Fam
      Editl.  loCaselnsensitive  -
    ,    ,   loParti-
alKey         
.

  ,        .
       .     -
   . 10.6.

         , 
     Table (.  9.12).    
  OnAfterScroll  Query2.     
    .     