main.cpp

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

//---------------------------------------------------------------------------
#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::btnInitClick(TObject *Sender)
{
  tEmployeeMemory->Close();
  if (tEmployeeMemory->Exists)
    tEmployeeMemory->DeleteTable();
  tEmployeeDemos->CopyTable(tEmployeeDemos->TableName, tEmployeeMemory->DatabaseName, "");
  // Drop All Indexes
  tEmployeeMemory->Open();
  tEmployeeMemory->Close();
  tEmployeeMemory->RestructureIndexDefs->Clear();
  tEmployeeMemory->RestructureTable();
  tEmployeeMemory->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::rbTableClick(TObject *Sender)
{
  mSQL->Enabled = rbQuery->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnRestructureClick(TObject *Sender)
{
 Integer i;

 tEmployeeMemory->Close();
 try {
   if (rbQuery->Checked) {
     Query->SQL->Text = mSQL->Text;
     Query->ExecSQL();
   } else {
     tEmployeeMemory->RestructureFieldDefs->DeleteFieldDef("LastName");
     tEmployeeMemory->RestructureFieldDefs->Find("FirstName")->Name = "Name";
     tEmployeeMemory->RestructureTable();
   }
 } __finally {
   tEmployeeMemory->Open();
 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  dbDemos->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
  dbDemos->Open();
  btnInitClick(NULL);
}
//---------------------------------------------------------------------------