library RDB;

uses
  SysUtils, Classes, Rubies, Pythia,
{$IFDEF VCL}
  Graphics, DBGrids, DBCtrls, 
{$ELSE}
  QGraphics,
{$ENDIF}
  DB, RDBHandle,
  uRDB,
  uFieldDef,
  uIndexDef,
  uField,
  uParam,
  uDataSource,
  uDataSet,
  uClientDataSet,
  uDataSetProvider,

  uColumn,
  uDBGrid,
{$IFDEF VCL}
  uDBCtrlGrid,
{$ENDIF}
  uDBNavigator,
  uDBEdit,
  uDBText,
  uDBImage,
  uDBListBox,
  uDBComboBox,
  uDBCheckBox,
  uDBRadioGroup,
  uDBLookupListBox,
  uDBLookupComboBox,
  uDBRichEdit,
//  uDBChart,
//  uJDBGrid,
  uDBMemo;

{$E so}

procedure Init_rdb;
begin
  PhiStart;

  mRDB := ap_mPhi;

  rb_eDatabaseError := rb_define_class_under(mRDB, 'DatabaseError', ap_eStandardError);

  Init_FieldDef;
  Init_IndexDef;
  Init_Param;
  Init_Field;
  Init_DataSource;
  Init_DataSet;
  Init_ClientDataSet;
  Init_DataSetProvider;

  Init_Column;
  Init_DBGrid;
{$IFDEF VCL}
  Init_DBCtrlGrid;
{$ENDIF}
  Init_DBNavigator;
  Init_DBEdit;
  Init_DBText;
  Init_DBImage;
  Init_DBListBox;
  Init_DBComboBox;
  Init_DBCheckBox;
  Init_DBRadioGroup;
  Init_DBLookupListBox;
  Init_DBLookupComboBox;
  Init_DBRichEdit;
//  Init_DBChart;
//  Init_JDBGrid;
  Init_DBMemo;
end;

exports
  Init_rdb;

exports
  ap_cDataSource,
  ap_iDataSource;

exports
  RDBGetHandle;

begin
end.
