home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 April
/
Chip_1997-04_cd.bin
/
prezent
/
cb
/
data.z
/
DM1.H
< prev
next >
Wrap
C/C++ Source or Header
|
1997-01-16
|
3KB
|
66 lines
//----------------------------------------------------------------------------
//Borland C++ Builder
//Copyright (c) 1987 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