main.cpp

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

//---------------------------------------------------------------------------
#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)
{
  /* field defs are assigned at design-time
  calculated field is created by Fields Editor */
  ABSTable1->CreateTable();
  ABSTable1->Open();
  ABSTable1->Insert();
  ABSTable1->FieldByName("price")->AsFloat = 95;
  ABSTable1->FieldByName("quantity")->AsInteger = 10;
  ABSTable1->Post();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::ABSTable1CalcFields(TDataSet *DataSet)
{
   ABSTable1->FieldByName("cost")->AsFloat =
     ABSTable1->FieldByName("price")->AsFloat *
     ABSTable1->FieldByName("quantity")->AsInteger;
}
//---------------------------------------------------------------------------