ufiltercond.cpp

AbsDataBase5.16 最新版

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

#include "uFilterCond.h"
#include "uFilter.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmFilterFrm *fmFilterFrm;
//---------------------------------------------------------------------------
__fastcall TfmFilterFrm::TfmFilterFrm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmFilterFrm::FormCreate(TObject *Sender)
{
  for(int i = 0;i < fmCustView->EmployeeSource->DataSet->FieldCount;i++)
    ListBox1->Items->Add(fmCustView->Employee->Fields->Fields[i]->FieldName);
}
//---------------------------------------------------------------------------
void __fastcall TfmFilterFrm::Memo1Change(TObject *Sender)
{
 int i;
  ComboBox1->Text = Memo1->Lines->Strings[0];
  for (i = 1; i < Memo1->Lines->Count; i++)
    ComboBox1->Text = ComboBox1->Text + " " + Memo1->Lines->Strings[i];
}
//---------------------------------------------------------------------------
void __fastcall TfmFilterFrm::cbCaseSensitiveClick(TObject *Sender)
{
    if (cbCaseSensitive->Checked)
      {fmCustView->EmployeeSource->DataSet->FilterOptions =
       fmCustView->EmployeeSource->DataSet->FilterOptions >> foCaseInsensitive;}
    else
      {fmCustView->EmployeeSource->DataSet->FilterOptions =
       fmCustView->EmployeeSource->DataSet->FilterOptions << foCaseInsensitive;}
}
//---------------------------------------------------------------------------
void __fastcall TfmFilterFrm::cbNoPartialCompareClick(TObject *Sender)
{
    if (cbNoPartialCompare->Checked)
      {fmCustView->EmployeeSource->DataSet->FilterOptions =
       fmCustView->EmployeeSource->DataSet->FilterOptions >> foNoPartialCompare;}
    else
      {fmCustView->EmployeeSource->DataSet->FilterOptions =
       fmCustView->EmployeeSource->DataSet->FilterOptions << foNoPartialCompare;}
}
//---------------------------------------------------------------------------

void __fastcall TfmFilterFrm::ListBox1DblClick(TObject *Sender)
{
  if (Memo1->Text != "")
    {Memo1->Text = Memo1->Text + " ";};
  Memo1->Text = Memo1->Text + ListBox1->Items->Strings[ListBox1->ItemIndex];        
}
//---------------------------------------------------------------------------
void __fastcall TfmFilterFrm::ComboBox1Change(TObject *Sender)
{
  Memo1->Lines->Clear();
  Memo1->Lines->Add(ComboBox1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfmFilterFrm::ListBox2DblClick(TObject *Sender)
{
  if (Memo1->Text != "")
    {Memo1->Text = Memo1->Text + " "+ ListBox2->Items->Strings[ListBox2->ItemIndex];};
}
//---------------------------------------------------------------------------
void __fastcall TfmFilterFrm::BtnApplyFilterClick(TObject *Sender)
{
    if (ComboBox1->Text != "")
     {
      fmCustView->EmployeeSource->DataSet->Filter = ComboBox1->Text;
      fmCustView->EmployeeSource->DataSet->Filtered = true;
      fmCustView->Label1->Caption = "Filtered";
     }
    else
     {
      fmCustView->EmployeeSource->DataSet->Filter = "";
      fmCustView->EmployeeSource->DataSet->Filtered = false;
      fmCustView->Label1->Caption = "Unfiltered";
     }
}
//---------------------------------------------------------------------------
void __fastcall TfmFilterFrm::BtnClearClick(TObject *Sender)
{
  AnsiString st;
  Memo1->Lines->Clear();
  fmCustView->Label1->Caption = "Unfiltered";
  st = ComboBox1->Text;
  ComboBox1->Text = "";
  if ((ComboBox1->Items->IndexOf(st)) == -1)
    {ComboBox1->Items->Add(st);}
}
//---------------------------------------------------------------------------
void __fastcall TfmFilterFrm::BtnCloseClick(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------