| Class TForm1 (unit MainForm) |
TForm
| Constructors |
| Functions |
procedure DetailBeforeClose(DataSet: TDataSet);
procedure FormCreate(Sender: TObject);
procedure MyApplyUpdates(Database: TDatabase; const DataSets: array of TDBDataSet);| Properties |
| Events |
| Variables |
Database1 : TDatabase;
DataSource1 : TDataSource;
DataSource2 : TDataSource;
DBGrid1 : TDBGrid;
DBMemo1 : TDBMemo;
DBNavigator : TDBNavigator;
Detail : TQuery;
DetailDEPT_NO : TStringField;
DetailPROJECTED_BUDGET : TFloatField;
DetailPROJ_ID : TStringField;
DetailYEAR : TIntegerField;
EditPRODUCT : TDBEdit;
EditPROJ_ID : TDBEdit;
EditPROJ_NAME : TDBEdit;
EditTEAM_LEADER : TDBEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Master : TQuery;
MasterPRODUCT : TStringField;
MasterPROJ_DESC : TMemoField;
MasterPROJ_ID : TStringField;
MasterPROJ_NAME : TStringField;
MasterTEAM_LEADER : TSmallintField;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
ScrollBox : TScrollBox;| Constructors |
| Functions |
procedure DetailBeforeClose(DataSet: TDataSet);
procedure FormCreate(Sender: TObject);
procedure MyApplyUpdates(Database: TDatabase; const DataSets: array of TDBDataSet);This method works around a problems in TDBDataSet.ApplyUpdates. Specifically, it eliminates the call to Resync which causes lost updates when trying to apply updates in a master/detail relationship using TQueries.
| Properties |
| Events |
| Variables |
Database1 : TDatabase;
DataSource1 : TDataSource;
DataSource2 : TDataSource;
DBGrid1 : TDBGrid;
DBMemo1 : TDBMemo;
DBNavigator : TDBNavigator;
Detail : TQuery;
DetailDEPT_NO : TStringField;
DetailPROJECTED_BUDGET : TFloatField;
DetailPROJ_ID : TStringField;
DetailYEAR : TIntegerField;
EditPRODUCT : TDBEdit;
EditPROJ_ID : TDBEdit;
EditPROJ_NAME : TDBEdit;
EditTEAM_LEADER : TDBEdit;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
Master : TQuery;
MasterPRODUCT : TStringField;
MasterPROJ_DESC : TMemoField;
MasterPROJ_ID : TStringField;
MasterPROJ_NAME : TStringField;
MasterTEAM_LEADER : TSmallintField;
Panel1 : TPanel;
Panel2 : TPanel;
Panel3 : TPanel;
ScrollBox : TScrollBox;