Posted via ActualForum NNTP Server 1.4

function ReadDataset(SourceDataset :TDataSet) :OleVariant;
var  dsp : TDatasetProvider;
begin
  Result := NULL;

  dsp := TDatasetProvider.Create(nil);
  try
     sourcedataset.DisableControls;
     try
       if sourcedataset.Active then sourcedataset.First; 
       dsp.DataSet := sourcedataset;
       result := dsp.data;
     finally
       SourceDataSet.EnableControls;
     end
   finally
     dsp.Free;
   end;
end;

Posted via ActualForum NNTP Server 1.4

Posted via ActualForum NNTP Server 1.4

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

[/quot]

Упс, не может быть, не верю! Работает! Как я не догнал....

[SRC delphi]procedure TForm1.Button1Click(Sender: TObject);
var Field :TField;
begin
  with cds1 do begin
    with fielddefs do
    begin
      Clear;
      Add('field1',ftinteger);
    end;

    createdataset;
    Append;
    FieldByName('field1').AsInteger := 1;
    post;
  end;

  with cds2 do
  begin

    Field := TIntegerField.Create(Self);
    Field.FieldKind := fkdata;
    Field.FieldName := 'field1';
    Field.dataset := CDS2;

    Field := TIntegerField.Create(Self);
    Field.FieldKind := fkCalculated;
    Field.FieldName := 'field2';
    Field.dataset := CDS2;
    //Fields.Add(Field);


    data := cds1.data;
  end;

end;

procedure TForm1.CDS2CalcFields(DataSet: TDataSet);
begin
  dataset.FieldByName('field2').AsInteger := 2;
end;

Posted via ActualForum NNTP Server 1.4

Posted via ActualForum NNTP Server 1.4

Posted via ActualForum NNTP Server 1.4