unit1.cpp

一个小的冰酒公司的销售系统。可以进行数据插入

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAccount *Account;
//---------------------------------------------------------------------------
__fastcall TAccount::TAccount(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------











void __fastcall TAccount::Table8CalcFields(TDataSet *DataSet)
{

  Table8->FieldByName("IW Cost")->Value=Table8->FieldByName("Qty")
  ->Value*Table8->FieldByName("IWPrice")->Value;

  Table8->FieldByName("Tax")->Value=Table8->FieldByName("Qty")
  ->Value*Table8->FieldByName("IWPrice")->Value*0.2;

  Table8->FieldByName("DownPayment")->Value=Table8->FieldByName("Qty")
  ->Value*Table8->FieldByName("IWPrice")->Value*0.3;
}
//---------------------------------------------------------------------------





void __fastcall TAccount::Table11CalcFields(TDataSet *DataSet)
{

   Table11->FieldByName("IW Cost")->Value=Table11->FieldByName("Qty")
  ->Value*Table11->FieldByName("IWPrice")->Value;

  Table11->FieldByName("Tax")->Value=Table11->FieldByName("Qty")
  ->Value*Table11->FieldByName("IWPrice")->Value*0.2;

  Table11->FieldByName("DownPayment")->Value=Table11->FieldByName("Qty")
  ->Value*Table11->FieldByName("IWPrice")->Value*0.3;
}
//---------------------------------------------------------------------------















void __fastcall TAccount::BitBtn1Click(TObject *Sender)
{
  Table10->Close();
  Table10->IndexFieldNames="CNo";
  Table10->Open() ;
  Table10->SetKey();
  Table10->FieldByName("CNo")->AsString=Edit1->Text;
  Table10->GotoKey();
}
//---------------------------------------------------------------------------

void __fastcall TAccount::BitBtn2Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TAccount::BitBtn3Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TAccount::BitBtn4Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TAccount::BitBtn5Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TAccount::BitBtn6Click(TObject *Sender)
{
  Table7->Close();
  Table7->IndexFieldNames="CNo";
  Table7->Open() ;
  Table7->SetKey();
  Table7->FieldByName("CNo")->AsString=Edit3->Text;
  Table7->GotoKey();
}
//---------------------------------------------------------------------------

void __fastcall TAccount::BitBtn7Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TAccount::BitBtn8Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------

void __fastcall TAccount::BitBtn9Click(TObject *Sender)
{
  Close();        
}
//---------------------------------------------------------------------------