Class TForm1 (unit MainForm)

Inherits from

TForm

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.

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;