Class TForm1 (unit MDMain)

Inherits from

TForm

Constructors



Functions

procedure btnApplyClick(Sender: TObject);

This will cause Rollback in the calling procedure

procedure btnCancelClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure ReconcileError(DataSet: TClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction);

If the previous step resulted in errors, Reconcile the error datapackets

procedure UpdateClacFields(DataSet: TDataSet);


Properties

Events

Variables

btnApply : TButton;


btnCancel : TButton;


cdsDetail : TCDSProvider;


cdsDetailAmountPaid : TCurrencyField;


cdsDetailcustno : TFloatField;


cdsDetailEmpNo : TIntegerField;


cdsDetailFreight : TCurrencyField;


cdsDetailItemsTotal : TCurrencyField;


cdsDetailOrderNo : TFloatField;


cdsDetailPaymentMethod : TStringField;


cdsDetailPO : TStringField;


cdsDetailSaleDate : TDateTimeField;


cdsDetailShipDate : TDateTimeField;


cdsDetailShipToAddr1 : TStringField;


cdsDetailShipToAddr2 : TStringField;


cdsDetailShipToCity : TStringField;


cdsDetailShipToContact : TStringField;


cdsDetailShipToCountry : TStringField;


cdsDetailShipToPhone : TStringField;


cdsDetailShipToState : TStringField;


cdsDetailShipToZip : TStringField;


cdsDetailShipVIA : TStringField;


cdsDetailTaxRate : TFloatField;


cdsDetailTerms : TStringField;


cdsDetailUpdateStatus : TStringField;


cdsMaster : TCDSProvider;


cdsMasterCompany : TStringField;


cdsMasterCustNo : TFloatField;


cdsMasterUpdateStatus : TStringField;


Database : TDatabase;


DBGrid1 : TDBGrid;


DBGrid2 : TDBGrid;


dsDetail : TDataSource;


dsMaster : TDataSource;


qryDetail : TQuery;


qryMaster : TQuery;



Constructors


Functions


procedure btnApplyClick(Sender: TObject);

This will cause Rollback in the calling procedure


procedure btnCancelClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure ReconcileError(DataSet: TClientDataSet; E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction);

If the previous step resulted in errors, Reconcile the error datapackets


procedure UpdateClacFields(DataSet: TDataSet);


Properties


Events


Variables


btnApply : TButton;


btnCancel : TButton;


cdsDetail : TCDSProvider;


cdsDetailAmountPaid : TCurrencyField;


cdsDetailcustno : TFloatField;


cdsDetailEmpNo : TIntegerField;


cdsDetailFreight : TCurrencyField;


cdsDetailItemsTotal : TCurrencyField;


cdsDetailOrderNo : TFloatField;


cdsDetailPaymentMethod : TStringField;


cdsDetailPO : TStringField;


cdsDetailSaleDate : TDateTimeField;


cdsDetailShipDate : TDateTimeField;


cdsDetailShipToAddr1 : TStringField;


cdsDetailShipToAddr2 : TStringField;


cdsDetailShipToCity : TStringField;


cdsDetailShipToContact : TStringField;


cdsDetailShipToCountry : TStringField;


cdsDetailShipToPhone : TStringField;


cdsDetailShipToState : TStringField;


cdsDetailShipToZip : TStringField;


cdsDetailShipVIA : TStringField;


cdsDetailTaxRate : TFloatField;


cdsDetailTerms : TStringField;


cdsDetailUpdateStatus : TStringField;


cdsMaster : TCDSProvider;


cdsMasterCompany : TStringField;


cdsMasterCustNo : TFloatField;


cdsMasterUpdateStatus : TStringField;


Database : TDatabase;


DBGrid1 : TDBGrid;


DBGrid2 : TDBGrid;


dsDetail : TDataSource;


dsMaster : TDataSource;


qryDetail : TQuery;


qryMaster : TQuery;