Delphi 将数据库表映射为类

Question

我的一个 friend 问我如何在运行时创建一个类来“映射”数据库表。他正在使用 ADO 连接到数据库。

我的答案是，他可以用“从 table_name 选择第一行”填充 ADOQuery，设置与数据库的连接，打开查询，然后通过在 ADOQuery.Fields 上使用循环，他可以获得 FieldName 和 FieldType表中的所有字段。通过这种方式，他可以将表中的所有字段及其类型作为类的成员。

他的问题还有其他解决方案吗？

Answer 1

@RBA，一种方法是定义要映射为“已发布”的类的属性，然后使用 RTTI 循环属性并将数据集行分配给每个属性。

示例:

TMyClass = class
private
  FName: string;
  FAge: Integer;
published
  property Name: string read FName write FName;
  property Age: Integer read FAge write FAge;
end;

现在，进行查询:

myQuery.Sql.Text := 'select * from customers';
myQuery.Open;
while not myQuery.Eof do
begin
  myInstance := TMyClass.create;
  for I := 0 to myQuery.Fields.Count - 1 do
    SetPropValue(myInstance, myQuery.Fields[I].FieldName, myQuery.Fields[I].Value);
  // now add myInstance to a TObjectList, for example
  myObjectList.Add(myInstance);  
  Next;
end;

只有当查询返回的所有字段在类中都完全匹配时，这个简单的示例才有效。

一个更精致的示例(由您决定)应该首先获取类中的属性列表，然后检查返回的字段是否存在于类中。

希望这有帮助，莱昂纳多。