main.cpp

AbsDataBase5.16 最新版

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

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ABSMain"
#pragma resource "*.dfm"
TForm1 *Form1;

const AnsiString DataBaseFileName = "..\\..\\Data\\Demos.abs";

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TStringList *tables;
  Integer i;

  dbDemos->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
  dbDemos->Open();
  tables = new TStringList;
  try {
    dbDemos->GetTablesList(tables);
    for (i=0; i<tables->Count; i++)
      lvTables->Items->Add()->Caption = tables->Strings[i];
  } __finally {
    delete tables;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::lvTablesChange(TObject *Sender, TListItem *Item,
      TItemChange Change)
{
  if (AnsiCompareText(Item->Caption, "Dictionary") != 0) {
    lbSelectedTable->Caption = Item->Caption;
    ABSTable1->Close();
    ABSTable1->TableName = Item->Caption;
    ABSTable1->Open();
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  dbDemos->Close();
}
//---------------------------------------------------------------------------