clientunit.cpp

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

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "ClientUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
  DeptClientDataSet->Active = true;
  EmpClientDataSet->Active  = true;
}
//---------------------------------------------------------------------------
// Apply the updates in the dept table
void __fastcall TMainForm::DeptApplyBtnClick(TObject *Sender)
{
  DeptClientDataSet->ApplyUpdates(1);
}
//---------------------------------------------------------------------------
// Apply the updates in the demp table
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
// Cancel the updates
void __fastcall TMainForm::DeptCancelBtnClick(TObject *Sender)
{
  DeptClientDataSet->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::EmpClientDataSetNewRecord(TDataSet *DataSet)
{
  EmpClientDataSet->FieldByName("DEPTNO")->Value = DeptClientDataSet->FieldByName("DEPTNO")->Value;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::DeptClientDataSetReconcileError(
      TCustomClientDataSet *DataSet, EReconcileError *E,
      TUpdateKind UpdateKind, TReconcileAction &Action)
{
  Action = HandleReconcileError(this, DataSet, UpdateKind, E);
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::EmpClientDataSetReconcileError(
      TCustomClientDataSet *DataSet, EReconcileError *E,
      TUpdateKind UpdateKind, TReconcileAction &Action)
{
  Action = HandleReconcileError(NULL, DataSet, UpdateKind, E);
}
//---------------------------------------------------------------------------