Components for Delphi and C++ Builder.

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 580
  ClientWidth = 968
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 8
    Top = 8
    Width = 945
    Height = 241
    DataSource = DataSource1
    DynProps = <>
    IndicatorOptions = [gioShowRowIndicatorEh]
    TabOrder = 0
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object DBGridEh2: TDBGridEh
    Left = 8
    Top = 272
    Width = 945
    Height = 297
    DataSource = DataSource2
    DynProps = <>
    IndicatorOptions = [gioShowRowIndicatorEh]
    TabOrder = 1
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString =
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=NP;Data Source=server'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 72
    Top = 112
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    Parameters = <>
    SQL.Strings = (
      'select top 10  * from NP_FundTrade')
    Left = 160
    Top = 112
    object ADOQuery1rec_id: TIntegerField
      FieldName = 'rec_id'
      ReadOnly = True
    end
    object ADOQuery1tr_no: TStringField
      FieldName = 'tr_no'
      Size = 50
    end
    object ADOQuery1tr_Amount: TBCDField
      FieldName = 'tr_Amount'
      Precision = 18
    end
    object ADOQuery1tr_CreateID: TStringField
      FieldName = 'tr_CreateID'
      Size = 50
    end
    object ADOQuery1tr_CreateTime: TDateTimeField
      FieldName = 'tr_CreateTime'
    end
  end
  object MemTableEh1: TMemTableEh
    Active = True
    FieldDefs = <
      item
        Name = 'rec_id'
        DataType = ftInteger
        Precision = 15
      end
      item
        Name = 'tr_no'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'tr_Amount'
        DataType = ftBCD
        Precision = 18
        Size = 4
      end
      item
        Name = 'tr_CreateID'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'tr_CreateTime'
        DataType = ftDateTime
      end>
    IndexDefs = <>
    Params = <>
    DataDriver = DataSetDriverEh1
    StoreDefs = True
    Left = 160
    Top = 168
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 264
    Top = 168
  end
  object DataSource2: TDataSource
    DataSet = cds
    Left = 344
    Top = 320
  end
  object dsp2: TDataSetProvider
    DataSet = MemTableEh1
    Left = 200
    Top = 320
  end
  object cds: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp2'
    Left = 272
    Top = 320
  end
  object DataSetDriverEh1: TDataSetDriverEh
    ProviderDataSet = ADOQuery1
    Left = 264
    Top = 112
  end
end

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBGridEhGrouping, ToolCtrlsEh,
  DBGridEhToolCtrls, DynVarsEh, MemTableDataEh, Data.DB, DataDriverEh,
  Datasnap.DBClient, Datasnap.Provider, MemTableEh, Data.Win.ADODB, GridsEh,
  DBAxisGridsEh, DBGridEh;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    MemTableEh1: TMemTableEh;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    dsp2: TDataSetProvider;
    cds: TClientDataSet;
    DBGridEh1: TDBGridEh;
    DBGridEh2: TDBGridEh;
    DataSetDriverEh1: TDataSetDriverEh;
    ADOQuery1rec_id: TIntegerField;
    ADOQuery1tr_no: TStringField;
    ADOQuery1tr_Amount: TBCDField;
    ADOQuery1tr_CreateID: TStringField;
    ADOQuery1tr_CreateTime: TDateTimeField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.