main.cpp

AbsDataBase5.16 最新版

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

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ABSMain"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  InitTables();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  //tSrc->BatchMove(tSrc, rgType->ItemIndex, "pk_code");
  tDst->BatchMove(tSrc, rgType->ItemIndex,"");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  InitTables();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::tDstAfterBatchMove(TObject *Sender)
{
  pb->Position = 100;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::tDstBeforeBatchMove(TObject *Sender)
{
  pb->Position = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::tDstBatchMoveProgress(TObject *Sender,
      int PercentDone, bool &Continue)
{
  pb->Position = PercentDone;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::InitTables()
{
      tSrc->Close();
      tSrc->FieldDefs->Clear();
      tSrc->FieldDefs->Add("id", ftAutoInc, 0, False);
      tSrc->FieldDefs->Add("name", ftString, 10, False);
      tSrc->FieldDefs->Add("code", ftInteger, 0, False);
      tSrc->FieldDefs->Add("address", ftString, 10, False);
      tSrc->IndexDefs->Clear();
      tSrc->IndexDefs->Add("pk_code","code",TIndexOptions()<<ixPrimary);
      tSrc->CreateTable();
      tSrc->Open();

      tSrc->Insert();
      tSrc->FieldByName("name")->AsString = "Johnny";
      tSrc->FieldByName("code")->AsInteger = 10;
      tSrc->FieldByName("address")->AsString = "USA";
      tSrc->Post();

      tSrc->Insert();
      tSrc->FieldByName("name")->AsString = "Piter";
      tSrc->FieldByName("code")->AsInteger = 12;
      tSrc->FieldByName("address")->AsString = "Germany";
      tSrc->Post();


      tDst->Close();
      tDst->FieldDefs->Clear();
      tDst->FieldDefs->Add("code", ftInteger, 0, False);
      tDst->FieldDefs->Add("name", ftString, 10, False);
      tDst->FieldDefs->Add("lastname", ftString, 10, False);
      tDst->IndexDefs->Clear();
      tDst->IndexDefs->Add("pk_code","code",TIndexOptions()<<ixPrimary);
      tDst->CreateTable();
      tDst->Open();

      tDst->Insert();
      tDst->FieldByName("code")->AsInteger = 10;
      tDst->FieldByName("name")->AsString = "John";
      tDst->FieldByName("lastname")->AsString = "Smith";
      tDst->Post();

      tDst->Insert();
      tDst->FieldByName("code")->AsInteger = 11;
      tDst->FieldByName("name")->AsString = "Andrew";
      tDst->FieldByName("lastname")->AsString = "Harrison";
      tDst->Post();

  pb->Position = 0;
}
//---------------------------------------------------------------------------