Delphi 7中如何实现持久的业务对象管理？

本文共计322个文字，预计阅读时间需要2分钟。

在Delphi 7中，是否有方法使用来自数据库的数据来保持业务对象的持久性？是否可以不使用组件？您可以使用我们的开源ORM框架，使用SQLite3数据库。拥有完整的RESTful框架，在本地（即在进程中）工作。

有没有办法在Delphi 7中使用来自数据库的数据来保持业务对象的持久性？
是否可以不使用组件. 您可以使用我们的开源ORM框架,使用SQLite3数据库.完整的RESTful框架,在本地(即在进程中)工作,或通过HTTP / 1.1,命名管道或GDI消息远程工作.无需外部dll.适用于Delphi 7至2010年.

所有这些都是在没有任何组件的情况下完成的所有数据库SQL都是从类发布的属性创建的.

例如,人员表在Delphi代码中定义如下：

/// table used for the Babies queries TSQLPeople = class(TSQLRecord) private fName: RawUTF8; fAddress: RawUTF8; fBirthDate: TDateTime; published property Name: RawUTF8 read fName write fName; property Address: RawUTF8 read fAddress write fAddress; property BirthDate: TDateTime read fBirthDate write fBirthDate; end;

您可以使用以下代码访问您的数据：

var People: TSQLPeople; ID: integer; begin // create a new record, since Smith, Jr was just born People := TSQLPeople.Create; try People.Name := 'Smith'; People.Address := 'New York City'; People.BirthDate := Now; ID := Client.Add(People); finally People.Free; end; // retrieve record data People := TSQLPeople.Create(Client,ID); try assert(People.Name='Smith'); finally People.Free; end; end;

见blog.synopse.info/category/Open-Source-Projects/SQLite3-Framework