我有一些用 Delphi 编写的业务对象，带有一个自定义的数据库持久性方案，最终可以满足我的需求。好，很好。现在是 GUI 实现的时候了。问题就从这里开始了。
如何将我的对象正确绑定到 GUI？
我无法使用数据感知控件，因为我将所有数据访问组件都隔离到 ORM 层，所以我开始使用 RTTI 单元编写一些“对象感知”控件（我正在使用 Delphi 2010），但我有感觉我走错了路……
关于如何仅使用 VCL 控件解决此问题的一些想法？
【问题讨论】：
标签： delphi oop user-interface
您有几种将 ORM 与用户界面链接的模式。
例如参见Model GUI Mediator 模式。简而言之，您编写了一个观察者，它将 ORM 内容反映到 UI 组件中，反之亦然。这已在 tiOpf framework for Delphi 中实现（此链接有视频）。
另一种方法是在运行时映射数据：像往常一样设计表单，然后在 OnShow 事件中填写内容，然后是“保存”或“ OK”按钮将验证然后将内容保存到 ORM 记录中。这是在main Sample application of our framework 中所做的。在这个简单的示例中易于编码，但如果您有很多字段和验证要操作，则可能会导致意大利面条式代码。
最后一种方法是让你的 ORM 创建表单。
在我们的框架中，您可以在专用结构中定义有关每个表的一些 UI 属性。然后 a single unit will create a form with all editable fields 你的 ORM 对象。指向其他记录的链接将显示为组合框，布尔值显示为复选框，集合显示为单选框，等等。然后过滤（例如从左侧或右侧的空格中修剪文本字段）和验证（例如确保字段值是唯一的或有效的 IP 地址）处理not in the UI part, but in the business logic itself, i.e. the ORM。
恕我直言，必须保持真正的多层架构。也就是说，UI 必须主要依赖于业务逻辑。例如，数据验证必须是 ORM 的一部分，而不是 UI。例如，如果您决定将 Web 客户端添加到您的 Delphi 客户端应用程序中，则无需再次编写验证代码：这对两个客户端都是通用的，与 UI 实现细节分开。
【讨论】：
你可以做的（虽然我没有代码示例）是使用组合
类助手的缺点是它们不受官方支持，并且您无法将任何字段添加到您正在帮助的类中。
拦截器类只是与祖先同名的后代类：
uses
stdctrls;
type
TButton = class(stdctrls.TButton)
end;
您可以将拦截器类放在它们自己的单元中，并在任何您想要的地方使用它。只需确保在标准单元之后包含这些单元，以便在运行时使用您的后代。
拦截器类的好处：
带有绑定接口/命令接口的拦截器控件伪样例：
uses
stdctrls;
type
ICommandAction = interface(IInterface)
function IsEnabled: Boolean;
procedure Execute;
procedure Update;
end;
IBindSingle = interface(IInterface)
function GetValueFromControl: string;
procedure LoadValueIntoControl(const aValue: string);
end;
TButton = class(stdctrls.TButton, ICommandAction)
protected
function IsEnabled: Boolean;
procedure Execute;
procedure Update;
end;
TEdit = class(stdctrls.TEdit, IBindSingle)
function GetValueFromControl: string;
procedure LoadValueIntoControl(const aValue: string);
end;
实施可能是这样的：
function TButton.IsEnabled: Boolean;
begin
Result := Self.Enabled;
end;
procedure TButton.Execute;
begin
Self.Action.Execute;
end;
procedure TButton.Update;
begin
Self.Action.Update;
end;
function TEdit.GetValueFromControl: string;
begin
Result := Self.Text;
end;
procedure LoadValueIntoControl(const aValue: string);
begin
Self.Text := aValue;
end;
【讨论】：
我现在的客户过去（在我来之前）制作了自己的“映射器”类。 它们的数据对象具有字段（即对象），您可以将这些字段映射到控件。我使用类似 MVC 的方法扩展了框架：
edtTarraCode: TAdvEdit;
procedure TframTarraTab.InitMapping;
begin
...
Mapper.AddMapping(edtTarraCode, Controller.DataModel.tarID);
...
end;
为每个控件创建一个简单的“映射”类：
TMappingAdvEdit = class(TBaseEditMapping)
protected
procedure InitControl; override;
procedure AppData2Control; override;
procedure Control2AppData; override;
end;
没有火箭科学，同时可能有更好的解决方案可用（这在 D6 和更低版本中有效 :-)）但它对客户来说已经足够好了。
顺便说一句：还使用了数据对象生成器。因此，如果数据库中的某个字段发生更改（例如 tarra.tarid 更改为 tareID），我们会收到编译器错误，因为“tarid”不再存在。这比“固定字符串”映射（运行时错误）要好得多。
【讨论】：
目前无法仅使用 VCL 控件来执行此操作。我知道 Lazarus 有一套基于 RTTI 的数据感知控件；你可能想看看他们的一些基本想法。但这比你一开始想象的要困难。例如，与数据集不同，对象在其成员的值发生变化时没有内置的信号机制。这意味着除非您的数据绑定控件完全拥有该对象并且没有其他任何东西可以访问它，否则一些其他代码可能会更改某些值，然后该更改不会反映在 UI 中。
在过去的几年里，我从 Delphi 团队听到了各种关于扩展对象模型或 RTTI 模型以实现更好的数据绑定的信息，但无论是什么，都还需要几年的时间。
【讨论】：
查看http://www.inovativa.com.br 上的 EverClassy 数据集。它可能会满足您的需求。 EverClassy Dataset 是一个 Delphi 数据集，旨在由对象而不是来自数据库系统的记录填充。
使用此组件，您将有机会将您的域对象与数据件组件进行互操作，这将为您构建 GUI 提供强大的能力。
【讨论】：