urange.cpp

来自「AbsDataBase5.16 最新版」· C++ 代码 · 共 59 行

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

#include "uRange.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)#pragma link "ABSMain"

#pragma resource "*.dfm"
const AnsiString DataBaseFileName = "..\\..\\..\\Data\\Demos.abs";
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 dbDemos->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
 dbDemos->Open();
 Table->Open();
 Table->IndexName = "ByVenue";
 Table->First();
 while (!Table->Eof)
  {
   cmbEndRange->Items->Add(Table->FieldByName("Venue")->AsString);
   cmbStartRange->Items->Add(Table->FieldByName("Venue")->AsString);
   Table->Next();
  }
   cmbStartRange->ItemIndex = 0;
   cmbEndRange->ItemIndex = 3;     
}
//---------------------------------------------------------------------------

void __fastcall TForm1::btRangeClick(TObject *Sender)
{
 if (btRange->Caption == "Apply")
  {
   Table->IndexName = "ByVenue";
   Table->SetRangeStart();
   Table->FieldByName("Venue")->AsString = cmbStartRange->Text;
   Table->KeyExclusive = cbStartKeyExclusive->Checked;
   Table->SetRangeEnd();
   Table->FieldByName("Venue")->AsString = cmbEndRange->Text;
   Table->KeyExclusive = cbEndKeyExclusive->Checked;
   Table->ApplyRange();
   btRange->Kind = bkCancel;
  }
 else
  {
   Table->CancelRange();
   btRange->Kind = bkOK;
   btRange->Caption = "Apply";
  }
}
//---------------------------------------------------------------------------