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
void __fastcall TMainForm::EmpApplyBtnClick(TObject *Sender)
{
  EmpClientDataSet->ApplyUpdates(1);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::DeptClientDataSetReconcileError(
      TClientDataSet *DataSet, EReconcileError *E, TUpdateKind UpdateKind,
      TReconcileAction &Action)
{
  Action = HandleReconcileError(this, DataSet, UpdateKind, E);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::EmpClientDataSetReconcileError(
      TClientDataSet *DataSet, EReconcileError *E, TUpdateKind UpdateKind,
      TReconcileAction &Action)
{
  Action = HandleReconcileError(NULL, DataSet, UpdateKind, E);
}
//---------------------------------------------------------------------------
// Use the AfterScroll event to make the master/detail link
void __fastcall TMainForm::DeptClientDataSetAfterScroll(TDataSet *DataSet)
{
  EmpClientDataSet->Provider->SetParams(DeptClientDataSet->FieldByName("DEPTNO")->Value);
  if (EmpClientDataSet->Active) EmpClientDataSet->Refresh(); 
}
//---------------------------------------------------------------------------
// Cancel the updates
void __fastcall TMainForm::DeptCancelBtnClick(TObject *Sender)
{
  DeptClientDataSet->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::EmpCancelBtnClick(TObject *Sender)
{
  EmpClientDataSet->CancelUpdates();
}
//---------------------------------------------------------------------------