ufilter.cpp

AbsDataBase5.16 最新版

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "uFilter.h"
#include "uFilterCond.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ABSMain"
#pragma resource "*.dfm"
TfmCustView *fmCustView;
AnsiString DataBaseFileName = "../../Data/Demos.abs";
//---------------------------------------------------------------------------
__fastcall TfmCustView::TfmCustView(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmCustView::rgDataSetClick(TObject *Sender)
{
AnsiString st;
    /* Is the other Dataset Filtered? Get its filter. */
    if (fmCustView->EmployeeSource->DataSet->Filtered)
      {st = fmCustView->EmployeeSource->DataSet->Filter;}

    switch (rgDataSet->ItemIndex)
      {
      case 0: if (fmCustView->EmployeeSource->DataSet != SQLEmployee)
           {fmCustView->EmployeeSource->DataSet = SQLEmployee;};
              break;
      case 1: if (fmCustView->EmployeeSource->DataSet != Employee)
           {fmCustView->EmployeeSource->DataSet = Employee;};
              break;
      }

    /* Set the Filter of the current Dataset. */
    if (st != "")
    {
      fmCustView->EmployeeSource->DataSet->Filter = st;
      fmCustView->EmployeeSource->DataSet->Filtered = true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfmCustView::SpeedButton1Click(TObject *Sender)
{
 if (RadioGroup1->ItemIndex == 0)
  {
   Label1->Caption = "Unfiltered";
   fmFilterFrm->Show();
  }
 else
  {
   EmployeeSource->DataSet->Filter = "";
   EmployeeSource->DataSet->Filtered = true;
   Label1->Caption = "Filtered";
  }
}
//---------------------------------------------------------------------------

void __fastcall TfmCustView::RadioGroup1Click(TObject *Sender)
{
 if (RadioGroup1->ItemIndex == 0)
  {
    EventsTable1->Close();
    DBGrid2->Enabled = false;
  }
 else
  {
    EventsTable1->Open();
    DBGrid2->Enabled = true;
  }
}
//---------------------------------------------------------------------------

void __fastcall TfmCustView::FormCreate(TObject *Sender)
{
 dbDemos->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
 dbDemos->Open();
 Employee->Open();
 SQLEmployee->Open();
}
//---------------------------------------------------------------------------

void __fastcall TfmCustView::SQLEmployeeFilterRecord(TDataSet *DataSet,
      bool &Accept)
{
 if (RadioGroup1->ItemIndex == 1)
  {
   if (DataSet->FieldByName("HireDate")->AsDateTime >=
    EventsTable1->FieldByName("Event_Date")->AsDateTime)
    {Accept = true;}
  else
  {Accept = false;}
  }
}
//---------------------------------------------------------------------------


void __fastcall TfmCustView::EmployeeFilterRecord(TDataSet *DataSet,
      bool &Accept)
{
 if (RadioGroup1->ItemIndex == 1)
  {
   if (DataSet->FieldByName("HireDate")->AsDateTime >=
    EventsTable1->FieldByName("Event_Date")->AsDateTime)
    {Accept = true;}
  else
  {Accept = false;}
  }
}
//---------------------------------------------------------------------------