home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 May / Pcwk0597.iso / borland / cb / setup / cbuilder / data.z / CUSTDATA.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1997-02-28  |  840 b   |  24 lines
  1. //---------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "CustData.h"
  6. //---------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8. TCustomerData *CustomerData;
  9. //--------------------------------------------------------------------- 
  10. __fastcall TCustomerData::TCustomerData(TComponent* AOwner)
  11.     : TDataModule(AOwner)
  12. {
  13. }
  14. //---------------------------------------------------------------------
  15. void __fastcall TCustomerData::LineItemsCalcFields(TDataSet *DataSet)
  16. {
  17.     LineItemsExtendedPrice->Value = 
  18.         LineItemsPrice->Value * ((100 - LineItemsDiscount->Value) / 100);
  19.  
  20.     LineItemsTotal->Value = 
  21.         LineItemsExtendedPrice->Value * LineItemsQty->Value;
  22. }
  23. //--------------------------------------------------------------------- 
  24.