Delphi7持久性业务对象

在Delphi7中，是否有任何方法可以使用数据库中的数据持久化业务对象？

---

不使用组件是可能的。

您可以使用我们的开源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;

---

请参见hcOPF与Delphi 7的配合使用。事实上，它是用Delphi7开发的，因此没有使用一些较新的语言特性。在sourceforge上查看它。

DORM框架刚刚推出。你也可以看看这个。但我想它不会与Delphi 7一起工作。。。源代码还不可用，但是这个概念很有趣。