home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
borland
/
cb
/
setup
/
cbuilder
/
data.z
/
DM1.H
< prev
next >
Wrap
C/C++ Source or Header
|
1997-02-28
|
3KB
|
66 lines
//----------------------------------------------------------------------------
//Borland C++Builder
//Copyright (c) 1987, 1997 Borland International Inc. All Rights Reserved.
//----------------------------------------------------------------------------
//---------------------------------------------------------------------------
#ifndef DM1H
#define DM1H
//---------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include <vcl\DBTables.hpp>
#include <vcl\DB.hpp>
//---------------------------------------------------------------------------
// Declare constants we're interested in.
//
const int eKeyViol = 9729;
const int eRequiredFieldMissing = 9732;
const int eForeignKey = 9733;
const int eDetailsExist = 9734;
class TDM : public TDataModule
{
__published: // IDE-managed Components
TTable *Customer;
TFloatField *CustomerCustNo;
TStringField *CustomerCompany;
TDataSource *CustomerSource;
TTable *Orders;
TFloatField *OrdersOrderNo;
TFloatField *OrdersCustNo;
TDateTimeField *OrdersSaleDate;
TDateTimeField *OrdersShipDate;
TIntegerField *OrdersEmpNo;
TDataSource *OrdersSource;
TTable *Items;
TFloatField *ItemsOrderNo;
TFloatField *ItemsItemNo;
TFloatField *ItemsPartNo;
TIntegerField *ItemsQty;
TFloatField *ItemsDiscount;
TDataSource *ItemsSource;
void __fastcall CustomerPostError(TDataSet *DataSet,
EDatabaseError *E, TDataAction &Action);
void __fastcall CustomerDeleteError(TDataSet *DataSet,
EDatabaseError *E, TDataAction &Action);
void __fastcall CustomerCustNoChange(TField *Sender);
void __fastcall CustomerAfterPost(TDataSet *DataSet);
void __fastcall OrdersPostError(TDataSet *DataSet,
EDatabaseError *E, TDataAction &Action);
void __fastcall ItemsPostError(TDataSet *DataSet,
EDatabaseError *E, TDataAction &Action);
void __fastcall OrdersDeleteError(TDataSet *DataSet,
EDatabaseError *E, TDataAction &Action);
private: // User declarations
public: // User declarations
virtual __fastcall TDM(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern TDM *DM;
//---------------------------------------------------------------------------
#endif