reconcileunit.h

Direct Oracle Access 非常好的Oracle数据库直接访问组件包 支持个版本的Delphi及C++ Builder 有源码

//---------------------------------------------------------------------------
#ifndef ReconcileUnitH
#define ReconcileUnitH
//---------------------------------------------------------------------------

#include <SysUtils.hpp>
#include <Windows.hpp>
#include <Messages.hpp>
#include <Classes.hpp>
#include <Graphics.hpp>
#include <Controls.hpp>
#include <Forms.hpp>
#include <Dialogs.hpp>
#include <StdCtrls.hpp>
#include <Grids.hpp>
#include <DB.hpp>
#include <DBTables.hpp>
#include <DBClient.hpp>
#include <ExtCtrls.hpp>

//---------------------------------------------------------------------------
class TFieldData {
  public:
    TField     *Field;
    AnsiString  NewValue;
    AnsiString  OldValue;
    AnsiString  CurValue;
    AnsiString  EditValue;
    bool Edited;
};

//---------------------------------------------------------------------------
class TReconcileErrorForm : public TForm {
  __published:  // IDE-managed Components
    TLabel *Label1;
    TLabel *UpdateType;
    TLabel *Label3;
    TImage *IconImage;
    TStringGrid *UpdateData;
    TRadioGroup *ActionGroup;
    TButton *CancelBtn;
    TButton *OKBtn;
    TCheckBox *ConflictsOnly;
    TMemo *ErrorMsg;
    TCheckBox *ChangedOnly;
    void __fastcall DisplayFieldValues(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall UpdateDataSetEditText (TObject *Sender,
      int ACol, int ARow, const AnsiString Value);
    void __fastcall UpdateDataSelectCell(TObject *Sender, int Col, int Row,
      bool &CanSelect);
  private:  // User declarations
    int FCurColIdx, FNewColIdx, FOldColIdx;
    TList *FDataFields;
    TDataSet *FDataSet;
    TUpdateKind FUpdateKind;
    EReconcileError *FError;
    void __fastcall AdjustColumnWidths();
    void __fastcall InitDataFields();
    void __fastcall InitUpdateData(bool HasCurValues);
    void __fastcall AddAction(TReconcileAction Action);
    void __fastcall InitReconcileActions();
  public: // User declarations
    void __fastcall SetFieldValues(TDataSet *DataSet);
    __fastcall TReconcileErrorForm(TComponent* Owner);
    __fastcall TReconcileErrorForm(TComponent* Owner, TDataSet *DataSet,
      TUpdateKind UpdateKind, EReconcileError *Error);
};

//---------------------------------------------------------------------------
extern PACKAGE TReconcileErrorForm *ReconcileErrorForm;
extern PACKAGE TFieldData *PFieldData;

TReconcileAction HandleReconcileError(TComponent* Owner, TDataSet *DataSet,
  TUpdateKind UpdateKind, EReconcileError *ReconcileError);

#endif