C++ ЕНФ (3семестр) / LABA_3 / 3.1.1 / Unit1

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
//__property Db::TDataSource* MasterSource = {read=GetDataSource, write=SetDataSource};
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ExitButtonClick(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------


void __fastcall TForm1::CalculateButtonClick(TObject *Sender)
{
 ShellExecute(Form1,"open","Calc",NULL,NULL,SW_SHOWNORMAL);        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FindButtonClick(TObject *Sender)
{
TLocateOptions SearchOptions;
Table->Locate(ComboBox->Text,Edit1->Text,SearchOptions);
/*Table->Filtered=true;
Table->Filter="Name='"+Edit1->Text+"'"; */

}
//---------------------------------------------------------------------------


void __fastcall TForm1::ApplicationEvents1ActionExecute(
      TBasicAction *Action, bool &Handled)
{
 Form1->StatusBar1->Panels->Items[2]->Text=Application->Hint;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TableCalcFields(TDataSet *DataSet)
{
 int i=1;
 if(!TableSaleBool->Value) i=0;
 TableAPrice->Value=(100-i*(TableSale->Value))*(TablePrice->Value)*(TableAmount->Value)/100;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::AboutButtonClick(TObject *Sender)
{
 AboutForm = new TAboutForm(this);
 AboutForm->ShowModal();
 AboutForm->Free();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 unsigned short year,month,day;
 Date().DecodeDate(&year,&month,&day);
 Form1->StatusBar1->Panels->Items[0]->Text =
        FloatToStr(year)+"."+FloatToStr(month)+"."+
        FloatToStr(day)+"  "+TimeToStr(Now());

}
//---------------------------------------------------------------------------






void __fastcall TForm1::Button1Click(TObject *Sender)
{ int i=2;
 //RGF->ItemIndex==2;
 if(RBNF->Checked==true)
        Table->Filtered=false;
    else
     {
      if(RBN->Checked==true)
        {Table->Filter="Name='"+CBName->Text+"'";
         Table->IndexFieldNames="Name";}
        else
         {
          if(RBP->Checked==true)
            {Table->Filter="(Price>="+IntToStr(SEMin->Value)+
                ")and(Price<="+IntToStr(SEMax->Value)+")";
             Table->IndexFieldNames="Price";}
            else
             {
              if(RBA->Checked==true)
                Table->Filter="(Name='"+CBName->Text+"')and(Price>="+
                         IntToStr(SEMin->Value)+")and(Price<="+
                         IntToStr(SEMax->Value)+")";
              Table->IndexFieldNames="Name";
             }
         }
       Table->Filtered=true;
     }
}
//---------------------------------------------------------------------------




void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Table->Active=true;        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 Table->Active=false;        
}
//---------------------------------------------------------------------------