clientunit.h

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

//---------------------------------------------------------------------------
#ifndef ClientUnitH
#define ClientUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Db.hpp>
#include <DBClient.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include "ReconcileUnit.h"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:	// IDE-managed Components
    TRemoteServer *RemoteServer;
    TClientDataSet *DeptClientDataSet;
    TDataSource *DeptDataSource;
    TClientDataSet *EmpClientDataSet;
    TDataSource *EmpDataSource;
    TPanel *DeptPanel;
    TPanel *DeptTopPanel;
    TSpeedButton *DeptApplyBtn;
    TSpeedButton *DeptCancelBtn;
    TDBNavigator *DeptDBNavigator;
    TDBGrid *DeptDBGrid;
    TPanel *EmpPanel;
    TPanel *EmpTopPanel;
    TSpeedButton *EmpApplyBtn;
    TSpeedButton *EmpCancelBtn;
    TDBNavigator *EmpDBNavigator;
    TDBGrid *EmpDBGrid;
    TStatusBar *StatusBar;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall DeptApplyBtnClick(TObject *Sender);
    void __fastcall EmpApplyBtnClick(TObject *Sender);
    void __fastcall DeptClientDataSetReconcileError(
          TClientDataSet *DataSet, EReconcileError *E,
          TUpdateKind UpdateKind, TReconcileAction &Action);
    void __fastcall EmpClientDataSetReconcileError(TClientDataSet *DataSet,
          EReconcileError *E, TUpdateKind UpdateKind,
          TReconcileAction &Action);
    void __fastcall DeptClientDataSetAfterScroll(TDataSet *DataSet);
    void __fastcall DeptCancelBtnClick(TObject *Sender);
    void __fastcall EmpCancelBtnClick(TObject *Sender);
private:	// User declarations
public:		// User declarations
    __fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif