TClientDataSet refresh after Post

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WideStrings, FMTBcd, SqlExpr, DB, Grids, DBGrids, Provider, DBClient,
  StdCtrls, ExtCtrls, DBCtrls;

type
  Tdm1 = class(TForm)
    ClientDataSet1: TClientDataSet;
    DataSetProvider1: TDataSetProvider;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    SQLConnection: TSQLConnection;
    SQLTable1: TSQLTable;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    DBNavigator1: TDBNavigator;
    DBNavigator2: TDBNavigator;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure createeverything;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm1: Tdm1;

implementation

{$R *.dfm}


var
  username,password:string;
  sqlcustomer1,sqlcustomer2:tsqltable;
  provcustomer1,provcustomer2:tdatasetprovider;
  cdscustomer1,cdscustomer2:tclientdataset;
  dscustomer1,dscustomer2:tdatasource;


procedure Tdm1.Button2Click(Sender: TObject);
begin
cdscustomer1.Post;
cdscustomer1.ApplyUpdates(0);
end;

procedure Tdm1.Button3Click(Sender: TObject);
begin
cdscustomer2.Post;
cdscustomer2.ApplyUpdates(0);
end;

procedure tdm1.createeverything;
begin
sqlcustomer1:=tsqltable.Create(nil);
sqlcustomer2:=tsqltable.Create(nil);

sqlcustomer1.SQLConnection:=sqlconnection;
sqlcustomer2.SQLConnection:=sqlconnection;

sqlcustomer1.TableName:='customer';
sqlcustomer2.TableName:='customer';

sqlcustomer1.Active:=true;
sqlcustomer2.Active:=true;

provcustomer1:=tdatasetprovider.Create(nil);
provcustomer2:=tdatasetprovider.Create(nil);

provcustomer1.Constraints:=true;
provcustomer1.Exported:=true;
provcustomer1.ResolveToDataSet:=false;
provcustomer1.UpdateMode:=upwhereall;

provcustomer2.Constraints:=true;
provcustomer2.Exported:=true;
provcustomer2.ResolveToDataSet:=false;
provcustomer2.UpdateMode:=upwhereall;

provcustomer1.Name:='customer1';
provcustomer2.Name:='customer2';

provcustomer1.DataSet:=sqlcustomer1;
provcustomer2.DataSet:=sqlcustomer2;

cdscustomer1:=tclientdataset.Create(nil);
cdscustomer2:=tclientdataset.Create(nil);

cdscustomer1.ProviderName:=provcustomer1.Name;
cdscustomer2.ProviderName:=provcustomer2.Name;

with Cdscustomer1.FieldDefs do
begin
  Clear;
  with AddFieldDef do
  begin
    Name := 'ID';
    DataType := ftInteger;
  end; //with AddFieldDef do
  with AddFieldDef do
  begin
    Name := 'company';
    DataType := ftString;
    Size := 30;
  end; //with AddFieldDef do
{  with AddFieldDef do
  begin
    Name := 'Date of Birth';
    DataType := ftDate;
  end; //with AddFieldDef do
  with AddFieldDef do
  begin
    Name := 'Active';
    DataType := ftBoolean;
  end; //with AddFieldDef do}
end; //with ClientDataSet1.FieldDefs

with Cdscustomer2.FieldDefs do
begin
  Clear;
  with AddFieldDef do
  begin
    Name := 'ID';
    DataType := ftInteger;
  end; //with AddFieldDef do
  with AddFieldDef do
  begin
    Name := 'company';
    DataType := ftString;
    Size := 30;
  end; //with AddFieldDef do
{  with AddFieldDef do
  begin
    Name := 'Date of Birth';
    DataType := ftDate;
  end; //with AddFieldDef do
  with AddFieldDef do
  begin
    Name := 'Active';
    DataType := ftBoolean;
  end; //with AddFieldDef do}
end; //with ClientDataSet1.FieldDefs


cdscustomer1.CreateDataSet;
cdscustomer2.CreateDataSet;

dscustomer1:=tdatasource.Create(nil);
dscustomer2:=tdatasource.Create(nil);

cdscustomer1.Active:=true;
cdscustomer2.Active:=true;

dscustomer1.DataSet:=cdscustomer1;
dscustomer2.DataSet:=cdscustomer2;

dbgrid1.DataSource:=dscustomer1;
dbgrid2.DataSource:=dscustomer2;
dbnavigator1.DataSource:=dscustomer1;
dbnavigator2.DataSource:=dscustomer2;

end;

procedure Tdm1.Button1Click(Sender: TObject);
begin
username:=edit1.Text;
password:=edit2.Text;
dm1.SQLConnection := TSQLConnection.Create(nil);
dm1.SQLConnection.DriverName := 'MySQL';
dm1.SQLConnection.LibraryName := 'dbexpmys30.dll';
dm1.SQLConnection.VendorLib := 'libmysql.dll';
dm1.SQLConnection.GetDriverFunc := 'getSQLDriverMYSQL';
dm1.SQLConnection.Params.Clear;
dm1.SQLConnection.Params.Add('DriverName=MySQL');
dm1.SQLConnection.Params.Add('HostName=192.168.0.2');
dm1.SQLConnection.Params.Add('Database=mss');
dm1.SQLConnection.Params.Add('User_Name='+username);
dm1.SQLConnection.Params.Add('Password='+password);
dm1.SQLConnection.Params.Add('BlobSize=1000');
dm1.SQLConnection.Params.Add('LocaleCode=0000');
dm1.SQLConnection.Params.Add('Compressed=False');
dm1.SQLConnection.Params.Add('Encrypted=False');
dm1.SQLConnection.Params.Add('connecttimeout=120');
dm1.SQLConnection.Params.Add('autoreconnect=1');
dm1.SQLConnection.Params.Values['FetchAll'] := 'True';
dm1.sqlconnection.loginprompt:=false;

dm1.SQLConnection.Open;
createeverything;

end;


end.

Select allOpen in new window