510______________________________________________ 9

 Itemlndex = 0  Columns = 2.   , -
 .    .

unsigned short Year, Month, Day;

//-

void_fastcall TForml::TablelCalcFields(TDataSet *DataSet)
(

Date().DecodeDate(&Year,&Month,&Day) ;

TablelAge->Value = Year - TablelYear_b->Value;

t
//-

void   fastcall TForml::RGFClick(TObject *Sender)
{
Tablel->IndexName = "depfio";

if (RGF->ItemIndex == 0)

Tablel->Filtered = false;

else
(
if (RGF->ItemIndex ==2)

Tablel->Filter = "Dep='"+CBDep->Text+"'";

else if (RGF->ItemIndex == 3)
(

Tablel->Filter = "(Year_b<="+IntToStr((int)(Year-SEmin->Value))+
")and(Year_b>="+IntToStr((int)(Year-SEmax->Value))+")";

Tablel->IndexName = "Year";

)
else

Tablel->Filter = "(Dep='"+CBDep->Text+

"')and(Year_b<="+IntTo3tr((int)(Year-SEmin->Value))
+")and(Year_b>="+IntToStr((int)(Year-SEmax->Value))+")"
Tablel->Filtered = true;

)

I

II-

II-

void _fastcall TForrnI::FormCreate(TObject *Sender)
{

CBDep->ItemIndex = 0;

Date().DecodeDate(&Year,&Month,&Day) ;

Tablel->Active = true;

t
//-

II-

void _fastcall TForml::FormDestroy(TObject *Sender)
{
Tablel->Active = false;

t

   .     TablelCalcFields  
 .        ,  
 Year, Month  Day   (   ;'
)     Date  DecodeDate   
FormCreate     OnCreate.    , 7
      Year   
TablelCalcFields  RGFClick.   FormCreate   

Tablel->Active = true;

     (     EI,
      OnDestroy)  