main.cpp

AbsDataBase5.16 最新版

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

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

//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
  btCreateTableClick(NULL);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btCreateTableClick(TObject *Sender)
{
TABSAdvFieldDef *fd;

  ABSTable1->Close();
  if (rbByTable->Checked)
    {
      ABSTable1->AdvFieldDefs->Clear();
      ABSTable1->AdvFieldDefs->Add("ID", aftAutoInc);

      fd = ABSTable1->AdvFieldDefs->AddFieldDef();
      fd->Name = "Name";
      fd->DataType = aftString;
      fd->Size = 15;
      fd->DefaultValue->AsString = eDefaultName->Text;

      fd = ABSTable1->AdvFieldDefs->AddFieldDef();
      fd->Name = "Age";
      fd->DataType = aftInteger;
      fd->DefaultValue->AsInteger = StrToInt(eDefaultAge->Text);

      ABSTable1->CreateTable();
    }
  else
    {
      ABSQuery1->SQL->Text = Format(
         "DROP TABLE test; CREATE TABLE test (ID Autoinc, Name Char(15) DEFAULT '%s', Age Integer DEFAULT %d)",
         ARRAYOFCONST((eDefaultName->Text, StrToInt(eDefaultAge->Text))));
      ABSQuery1->ExecSQL();
    }
  ABSTable1->Open();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btInsertClick(TObject *Sender)
{
  ABSTable1->Append();
  ABSTable1->Post();
}
//---------------------------------------------------------------------------