Class TReconcileErrorForm (unit ReconcileErrorDialog2) |
Inherits from
TForm
constructor CreateForm(DataSet: TDataSet; UpdateKind: TUpdateKind;
Error: EReconcileError);
- TReconcileErrorForm
procedure DisplayFieldValues(Sender: TObject);
Update the grid based on the current display options
procedure FormCreate(Sender: TObject);
Event handlers
procedure FormDestroy(Sender: TObject);
Do not localize
procedure UpdateDataSelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
Enable the editing in the grid if we are on the NewValue column and the
current reconcile action is raCorrect
procedure UpdateDataSetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
Set the Edited flag in the DataField list and save the value
procedure AdjustColumnWidths;
procedure InitDataFields;
Create a list of the data fields in the dataset, and store string values
associated with NewValue, OldValue, and CurValue in string variables
to make display switching faster
procedure InitReconcileActions;
Update the reconcile action radio group based on the valid reconcile actions
procedure InitUpdateData(HasCurValues: Boolean);
Initialize the column indexes and grid titles
procedure SetFieldValues(DataSet: TDataSet);
For fields that the user has edited, copy the changes back into the
NewValue property of the associated field
ActionGroup : TRadioGroup;
CancelBtn : TButton;
ChangedOnly : TCheckBox;
ConflictsOnly : TCheckBox;
ErrorMsg : TMemo;
IconImage : TImage;
OKBtn : TButton;
UpdateData : TStringGrid;
UpdateType : TLabel;
FCurColIdx : Integer;
FDataFields : TList;
FDataSet : TDataSet;
FError : EReconcileError;
FNewColIdx : Integer;
FOldColIdx : Integer;
FUpdateKind : TUpdateKind;
constructor CreateForm(DataSet: TDataSet; UpdateKind: TUpdateKind;
Error: EReconcileError);
TReconcileErrorForm
procedure DisplayFieldValues(Sender: TObject);
Update the grid based on the current display options
procedure FormCreate(Sender: TObject);
Event handlers
procedure FormDestroy(Sender: TObject);
Do not localize
procedure UpdateDataSelectCell(Sender: TObject; Col, Row: Integer;
var CanSelect: Boolean);
Enable the editing in the grid if we are on the NewValue column and the
current reconcile action is raCorrect
procedure UpdateDataSetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
Set the Edited flag in the DataField list and save the value
procedure AdjustColumnWidths;
procedure InitDataFields;
Create a list of the data fields in the dataset, and store string values
associated with NewValue, OldValue, and CurValue in string variables
to make display switching faster
procedure InitReconcileActions;
Update the reconcile action radio group based on the valid reconcile actions
procedure InitUpdateData(HasCurValues: Boolean);
Initialize the column indexes and grid titles
procedure SetFieldValues(DataSet: TDataSet);
For fields that the user has edited, copy the changes back into the
NewValue property of the associated field
ActionGroup : TRadioGroup;
CancelBtn : TButton;
ChangedOnly : TCheckBox;
ConflictsOnly : TCheckBox;
ErrorMsg : TMemo;
IconImage : TImage;
OKBtn : TButton;
UpdateData : TStringGrid;
UpdateType : TLabel;
FCurColIdx : Integer;
FDataFields : TList;
FDataSet : TDataSet;
FError : EReconcileError;
FNewColIdx : Integer;
FOldColIdx : Integer;
FUpdateKind : TUpdateKind;