| Class TForm1 (unit MDMain) |
TForm
| Constructors |
| Functions |
procedure btnApplyClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ReconcileError(DataSet: TClientDataSet;
E: EReconcileError; UpdateKind: TUpdateKind;
var Action: TReconcileAction);
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;