        _____________577

Query->0pen() ;

//

void _fastcall TFormI::BWhereClick(TObject *Sender)

{

if (Regim == RFields)
ADDS(" FROM PERS");

ADDS(" WHERE") ;

Regim = RWhere;

)

//

void _fastcail TFormI::CBOpChange(TObject *Sender)
(

if ((Regim == REnd) || (MSQL->Lines->Count < 1))

ShowMessage("      ");

else ADDS(" "+CBOp->Text);

t

//

void   fastcall TFormI::BOrderClick(TObject *Sender)
(

if (Regim == RFields)
ADDS(" FROM PERS");

ADDS(" ORDER BY");

Regim = ROrder;

)

//

void   fastcall TFormI::BGroupClick(TObject *Sender)
{

if (Regim == RFields)
I         ADDS(" FROM PERS") ;

ADDS(" GROUP BY") ;

Regim = ROrder;

)

     .    -
 Regim  :

enum TRegim {RNone, RFields, RWhere, ROrder, REnd) Regim;

   ,       -
 .     Regim   RNone.
       Regim   -
         . 
     ,  ,  -
  . ,     
 BexecClick  Regim ,     -
 RNone,  ,  ,       ,
    .      -
        . 
         .

     ADDS,   
    ,   MSQL.    
          .
,           -
   :

void _fastcall ADDS(String s) ;

 FormCreate    OnCreate . 
     CBFields    
.      GetFieldNames,  
       TStrings,     -
 .