usearchrecords.cpp

AbsDataBase5.16 最新版

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

#include "uSearchRecords.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ABSMain"
#pragma resource "*.dfm"
AnsiString DataBaseFileName = "..\\..\\Data\\Demos.abs";
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Owner)
{
 dbDemos->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
 dbDemos->Open();
 Table->TableName = "employee";
 Table->Open();
 mLog->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Owner)
{
 Variant v;
 AnsiString info;
 TLocateOptions Options;
 info = "";
 mLog->Lines->Add(DateTimeToStr(Now()));
 switch (rgSMethod->ItemIndex)
  {
  case 0: {
      Table->IndexName = "ByFirstName";
      mLog->Lines->Add("< FindKey method >.  Search text: " + Edit1->Text +".");
      if (!Table->FindKey(&TVarRec(Edit1->Text),0))
       {mLog->Lines->Add(" Result: No records found.");}
      else
       {mLog->Lines->Add(" Result: Record found.");};
      Table->IndexName = "";
     };
  break;
  case 1: {
      v = Table->Lookup("FirstName",Edit1->Text,"FirstName;LastName;PhoneExt");
      mLog->Lines->Add("< Lookup method >.  Search text: " + Edit1->Text +".");
      if (!VarIsNull(v.GetElement(0)))
       {
        mLog->Lines->Add(" Result: Record found.");
        info = " Info: FirstName is "+QuotedStr(String(v.GetElement(0)));

        if (!VarIsNull(v.GetElement(1)))
         {info = info + ", LastName is "+QuotedStr(String(v.GetElement(1)));}
        else
         {info = info + ", LastName is "+QuotedStr("Null");};

        if (!VarIsNull(v.GetElement(2)))
         {info = info + ", PhoneExt is "+QuotedStr(String(v.GetElement(2)));}
        else
         {info = info + ", PhoneExt is "+QuotedStr("Null");};
        mLog->Lines->Add(info);
       }
      else
       mLog->Lines->Add("  Result: No records found.");
     };
  break;
  case 2: {
      mLog->Lines->Add("< Locate method >.  Search text: " + Edit1->Text + ".");
      if (cbCaseSens->Checked)
       {
        Options = Options << loCaseInsensitive;
        info = " Options: CaseSensitive = true";
       }
      else
       {info = " Options: CaseSensitive = false";};
      if (cbPartKey->Checked)
       {
        Options = Options << loPartialKey;
        info = info + ", PartialKey = true.";
       }
      else
       {info = info + ", PartialKey = false.";};
      mLog->Lines->Add(info);
      if (!Table->Locate("FirstName",Edit1->Text,Options))
       {mLog->Lines->Add(" Result: No records found.");}
      else
       {mLog->Lines->Add(" Result: Record found.");};
     };
  break;   
 };
 mLog->Lines->Add(" ");        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::rgSMethodClick(TObject *Owner)
{
 if (rgSMethod->ItemIndex == 2)
  {
   cbCaseSens->Enabled = true;
   cbPartKey->Enabled = true;
  }
 else
  {
   cbCaseSens->Enabled = false;
   cbPartKey->Enabled = false;
  };        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Owner)
{
 mLog->Clear();
}
//---------------------------------------------------------------------------