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);
      ABSTable1->AdvFieldDefs->Add("Name", aftString,15);
      fd = ABSTable1->AdvFieldDefs->AddFieldDef();
      fd->Name = "Age";
      fd->DataType = aftInteger;
      fd->MinValue->AsInteger = StrToInt(eMin->Text);
      fd->MaxValue->AsInteger = StrToInt(eMax->Text);
      ABSTable1->CreateTable();
    }
  else
    {
      ABSQuery1->SQL->Text = Format(
         "DROP TABLE test; CREATE TABLE test (ID Autoinc, Name Char(15), Age Integer MINVALUE %d MAXVALUE %d)",
         ARRAYOFCONST((StrToInt(eMin->Text), StrToInt(eMax->Text))));
      ABSQuery1->ExecSQL();
    }
  ABSTable1->Open();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::Button2Click(TObject *Sender)
{
  ABSTable1->Append();
  ABSTable1->FieldByName("Age")->AsInteger = StrToInt(eMin->Text);
  ABSTable1->Post();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::Button1Click(TObject *Sender)
{
  ABSTable1->Append();
  ABSTable1->FieldByName("Age")->AsInteger = StrToInt(eMax->Text)+1;
  ABSTable1->Post();
}
//---------------------------------------------------------------------------