tms xdata 中实现CRUD功能

1、创建vcl工程。

2、放置edit+button组件。

3、创建和销毁的代码。

uses
     XData.Client;

 private
       Client:TXdataClient;

procedure TForm1.FormCreate(Sender: TObject);
begin
  client:=TXDataClient.Create;
  Client.Uri:=Edit1.Text;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
     Client.Free;
end;

4、读取R、更新（U）、删除（D）代码。

procedure TForm1.Button1Click(Sender: TObject);
var

persons:tpersons;
begin

//查询
       persons:=client.get<Tpersons>(2);
       button1.caption:=persons.name;
//更新
       persons.name:=Edit2.Text;
       Client.Put(persons);

//删除
       Client.Delete(persons);
end;

5、创建（C）代码代码。

var

persons:tpersons;
begin
    try
      persons:=Tpersons.Create;      
      persons.name:='李四';
      Client.Post(persons);
    finally
      persons.Free;
    end;
end;

结果。