unit  Unit25;

 interface 

 uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, DBClient, DBTables, StdCtrls, Provider;

 type 
  TForm25 =  class (TForm)
    Table1: TTable;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    ClientDataSet1CustNo: TFloatField;
    ClientDataSet1Company: TStringField;
    ClientDataSet1Addr1: TStringField;
    ClientDataSet1Addr2: TStringField;
    ClientDataSet1City: TStringField;
    ClientDataSet1State: TStringField;
    ClientDataSet1Zip: TStringField;
    ClientDataSet1Country: TStringField;
    ClientDataSet1Phone: TStringField;
    ClientDataSet1FAX: TStringField;
    ClientDataSet1TaxRate: TFloatField;
    ClientDataSet1Contact: TStringField;
    ClientDataSet1LastInvoiceDate: TDateTimeField;
    ClientDataSet1Test: TStringField;
    Button1: TButton;
    DataSetProvider1: TDataSetProvider;
     procedure  ClientDataSet1CalcFields(DataSet: TDataSet);
     procedure  Button1Click(Sender: TObject);
   private 
     { Private declarations } 
   public 
     { Public declarations } 
   end ;

 var 
  Form25: TForm25;

 implementation 

 {$R *.dfm} 

 procedure  TForm25.Button1Click(Sender: TObject);
 begin 
  ClientDataSet1.Data := DataSetProvider1.Data;
 end ;

 procedure  TForm25.ClientDataSet1CalcFields(DataSet: TDataSet);
 begin 
ClientDataSet1Test.Value := 'Всякое';
 end ;

 end .

 object  Form25: TForm25
  Left =  0 
  Top =  0 
  Caption = 'Form25'
  ClientHeight =  466 
  ClientWidth =  554 
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = - 11 
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch =  96 
  TextHeight =  13 
   object  DBGrid1: TDBGrid
    Left =  22 
    Top =  114 
    Width =  524 
    Height =  147 
    DataSource = DataSource1
    TabOrder =  0 
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = - 11 
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
   end 
   object  DBGrid2: TDBGrid
    Left =  22 
    Top =  276 
    Width =  487 
    Height =  147 
    DataSource = DataSource2
    TabOrder =  1 
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = - 11 
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
   end 
   object  Button1: TButton
    Left =  452 
    Top =  22 
    Width =  75 
    Height =  25 
    Caption = 'Button1'
    TabOrder =  2 
    OnClick = Button1Click
   end 
   object  Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'customer.db'
    Left =  142 
    Top =  98 
   end 
   object  ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    OnCalcFields = ClientDataSet1CalcFields
    Left =  362 
    Top =  42 
     object  ClientDataSet1Test: TStringField
      FieldKind = fkInternalCalc
      FieldName = 'Test'
      Size =  250 
     end 
     object  ClientDataSet1CustNo: TFloatField
      FieldName = 'CustNo'
     end 
     object  ClientDataSet1Company: TStringField
      FieldName = 'Company'
      Size =  30 
     end 
     object  ClientDataSet1Addr1: TStringField
      FieldName = 'Addr1'
      Size =  30 
     end 
     object  ClientDataSet1Addr2: TStringField
      FieldName = 'Addr2'
      Size =  30 
     end 
     object  ClientDataSet1City: TStringField
      FieldName = 'City'
      Size =  15 
     end 
     object  ClientDataSet1State: TStringField
      FieldName = 'State'
     end 
     object  ClientDataSet1Zip: TStringField
      FieldName = 'Zip'
      Size =  10 
     end 
     object  ClientDataSet1Country: TStringField
      FieldName = 'Country'
     end 
     object  ClientDataSet1Phone: TStringField
      FieldName = 'Phone'
      Size =  15 
     end 
     object  ClientDataSet1FAX: TStringField
      FieldName = 'FAX'
      Size =  15 
     end 
     object  ClientDataSet1TaxRate: TFloatField
      FieldName = 'TaxRate'
     end 
     object  ClientDataSet1Contact: TStringField
      FieldName = 'Contact'
     end 
     object  ClientDataSet1LastInvoiceDate: TDateTimeField
      FieldName = 'LastInvoiceDate'
     end 
   end 
   object  DataSource1: TDataSource
    DataSet = Table1
    Left =  58 
    Top =  64 
   end 
   object  DataSource2: TDataSource
    DataSet = ClientDataSet1
    Left =  170 
    Top =  34 
   end 
   object  DataSetProvider1: TDataSetProvider
    DataSet = Table1
    Left =  262 
    Top =  16 
   end 
 end