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)
{
  // create in-memory tables using FieldDefs and IndexDefs set at design-time
  tblOrders->CreateTable();
  tblOrderPositions->CreateTable();
  // add sample data
  tblOrders->Open();
  tblOrderPositions->Open();
  tblOrders->Append();
  tblOrdersCustomerName->Value = "Bob Robber";
  tblOrdersOrderDate->Value = EncodeDate(1990,06,01);
  tblOrders->Post();
  tblOrderPositions->Append();
  tblOrderPositionsOrderID->Value = tblOrders->LastAutoincValue("ID");
  tblOrderPositionsProductName->Value = "Sabre";
  tblOrderPositionsQuantity->Value = 1;
  tblOrderPositions->Post();
  tblOrderPositions->Append();
  tblOrderPositionsOrderID->Value = tblOrders->LastAutoincValue("ID");
  tblOrderPositionsProductName->Value = "Pistol";
  tblOrderPositionsQuantity->Value = 2;
  tblOrderPositions->Post();
  tblOrders->Append();
  tblOrdersCustomerName->Value = "Atom Ant";
  tblOrdersOrderDate->Value = EncodeDate(1992,11,11);
  tblOrders->Post();
  tblOrderPositions->Append();
  tblOrderPositionsOrderID->Value = tblOrders->LastAutoincValue("ID");
  tblOrderPositionsProductName->Value = "Pineapple";
  tblOrderPositionsQuantity->Value = 2;
  tblOrderPositions->Post();
}
//---------------------------------------------------------------------------



void __fastcall TfrmMain::btnAddUsingTableClick(TObject *Sender)
{
  tblOrders->Append();
  tblOrdersCustomerName->Value = edCustomerName->Text;
  tblOrdersOrderDate->Value = dtOrderDate->Date;
  tblOrders->Post();

  tblOrderPositions->Append();
  tblOrderPositionsOrderID->Value = tblOrders->LastAutoincValue("ID");
  tblOrderPositionsProductName->Value = edProduct1->Text;
  tblOrderPositionsQuantity->Value = StrToInt(edQuantity1->Text);
  tblOrderPositions->Post();

  tblOrderPositions->Append();
  tblOrderPositionsOrderID->Value = tblOrders->LastAutoincValue("ID");
  tblOrderPositionsProductName->Value = edProduct2->Text;
  tblOrderPositionsQuantity->Value = StrToInt(edQuantity2->Text);
  tblOrderPositions->Post();

  tblOrderPositions->Append();
  tblOrderPositionsOrderID->Value = tblOrders->LastAutoincValue("ID");
  tblOrderPositionsProductName->Value = edProduct3->Text;
  tblOrderPositionsQuantity->Value = StrToInt(edQuantity3->Text);
  tblOrderPositions->Post();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnAddUsingQueryClick(TObject *Sender)
{
  qryAddOrder->ParamByName("CustomerName")->Value = edCustomerName->Text;
  qryAddOrder->ParamByName("OrderDate")->Value = dtOrderDate->Date;
  qryAddOrder->ExecSQL();

  qryAddOrderPosition->ParamByName("ProductName")->Value = edProduct1->Text;
  qryAddOrderPosition->ParamByName("Quantity")->Value = StrToInt(edQuantity1->Text);
  qryAddOrderPosition->ExecSQL();

  qryAddOrderPosition->ParamByName("ProductName")->Value = edProduct2->Text;
  qryAddOrderPosition->ParamByName("Quantity")->Value = StrToInt(edQuantity2->Text);
  qryAddOrderPosition->ExecSQL();

  qryAddOrderPosition->ParamByName("ProductName")->Value = edProduct3->Text;
  qryAddOrderPosition->ParamByName("Quantity")->Value = StrToInt(edQuantity3->Text);
  qryAddOrderPosition->ExecSQL();

  tblOrders->Refresh();
  tblOrders->Last();
  tblOrderPositions->Refresh();
}
//---------------------------------------------------------------------------