www.gusucode.com > 精典源码Delphi070:龙邦进销存源码源码程序 > 精典源码Delphi070:龙邦进销存源码源码程序/精典源码Delphi070:龙邦进销存源码/龙邦进销存源码/FastReport2.5/Demos/cb5demo/Unit4.cpp
//--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit4.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "FR_DBSet" #pragma link "FR_DSet" #pragma resource "*.dfm" TCustomerData *CustomerData; //--------------------------------------------------------------------------- __fastcall TCustomerData::TCustomerData(TComponent* Owner) : TDataModule(Owner) { } //--------------------------------------------------------------------------- void __fastcall TCustomerData::LineItemsCalcFields(TDataSet *DataSet) { LineItemsExtendedPrice->Value = LineItemsPrice->Value * ((100 - LineItemsDiscount->Value) / 100); LineItemsTotal->Value = LineItemsExtendedPrice->Value * LineItemsQty->Value; } //---------------------------------------------------------------------------