mORMot虚拟数据集--TOrmTableDataSet

如何快速显示 OrmTable--可以使用TOrmTableDataSet

这是mormot.db.rad.ui.orm的主要功能

1. type
2.   /// 只读虚拟TDataSet，能够访问TOrmTable
3.   TOrmTableDataSet = class(TVirtualDataSet)
4.   protected
5.     fTable: TOrmTable;  // 关联的TOrmTable实例
6.     {$ifndef UNICODE}  // 如果不是在Unicode版本的Delphi中
7.     fForceWideString: boolean;  // 强制使用WideString字段代替AnsiString
8.     {$endif UNICODE}
9.     fTableShouldBeFreed: boolean;  // 指示TOrmTable实例是否应该随此数据集一起释放
10.     fTempBlob: RawBlob;  // 临时Blob存储
11.     procedure InternalInitFieldDefs; override;  // 初始化字段定义
12.     function GetRecordCount: integer; override;  // 获取记录数
13.     function GetRowFieldData(Field: TField; RowIndex: integer;
14.       out ResultLen: integer; OnlyCheckNull: boolean): pointer; override;  // 获取行字段数据
15.     function SearchForField(const aLookupFieldName: RawUtf8;
16.       const aLookupValue: variant; aOptions: TLocateOptions): integer; override;  // 搜索字段
17.   public
18.     /// 使用提供的TOrmTable初始化虚拟TDataSet
19.     // - 警告：除非设置了TableShouldBeFreed属性为true或使用了CreateOwnedTable()构造函数，否则提供的TOrmTable实例在返回的TOrmTableDataSet实例被使用时必须始终可用
20.     // - 在非Unicode版本的Delphi中，可以设置ForceWideString以强制使用WideString字段代替AnsiString（如果需要）
21.     // - TDataSet在创建时将被打开
22.     constructor Create(Owner: TComponent; OrmTable: TOrmTable {$ifndef UNICODE}; ForceWideString: boolean = false{$endif}); reintroduce;
23.   
24.     /// 初始化拥有TOrmTable的虚拟TDataSet
25.     // - 此构造函数将设置TableShouldBeFreed为TRUE
26.     // - 在非Unicode版本的Delphi中，可以设置ForceWideString以强制使用WideString字段代替AnsiString（如果需要）
27.     // - TDataSet在创建时将被打开
28.     constructor CreateOwnedTable(Owner: TComponent; OrmTable: TOrmTable  {$ifndef UNICODE}; ForceWideString: boolean = false{$endif}); reintroduce;
29.   
30.     /// 从提供的JSON结果初始化虚拟TDataSet
31.     // - 此构造函数将解析提供的JSON内容，并创建一个内部的TOrmTableJson实例来处理数据，根据JSON内容猜测列类型
32.     // - 在非Unicode版本的Delphi中，可以设置ForceWideString以强制使用WideString字段代替AnsiString（如果需要）
33.     // - TDataSet在创建时将被打开
34.     constructor CreateFromJson(Owner: TComponent; const Json: RawUtf8 {$ifndef UNICODE}; ForceWideString: boolean = false{$endif}); reintroduce; overload;
35.   
36.     /// 从提供的JSON结果初始化虚拟TDataSet，并设置预期的列类型
37.     // - 此构造函数将解析提供的JSON内容，并根据列类型创建内部的TOrmTableJson实例来处理数据
38.     // - 在非Unicode版本的Delphi中，可以设置ForceWideString以强制使用WideString字段代替AnsiString（如果需要）
39.     // - TDataSet在创建时将被打开
40.     constructor CreateFromJson(Owner: TComponent; const Json: RawUtf8;
41.       const ColumnTypes: array of TOrmFieldType
42.       {$ifndef UNICODE}; ForceWideString: boolean = false{$endif});
43.         reintroduce; overload;
44.   
45.     /// 从提供的JSON ORM结果初始化虚拟TDataSet
46.     // - 可以设置TOrm类以检索预期的列类型
47.     // - 此构造函数将解析提供的JSON内容，并创建一个内部的TOrmTableJson实例来处理数据
48.     // - 在非Unicode版本的Delphi中，可以设置ForceWideString以强制使用WideString字段代替AnsiString（如果需要）
49.     // - TDataSet在创建时将被打开
50.     constructor CreateFromJson(Owner: TComponent; const Json: RawUtf8; const Tables: array of TOrmClass {$ifndef UNICODE}; ForceWideString: boolean = false{$endif});  reintroduce; overload;
51.   
52.     /// 销毁类实例
53.     destructor Destroy; override;
55.     /// 如果提供的TOrmTable实例应该随此类一起释放
56.     // - Create()将默认设置为FALSE（意味着TOrmTable实例在TOrmTableDataSet实例被使用时必须始终可用）
57.     // - CreateOwnedTable()将在TOrmTableDataSet实例释放时设置并释放TOrmTable实例
58.     // - 您也可以在Create()之后手动设置此属性
59.     property TableShouldBeFreed: boolean  read fTableShouldBeFreed write fTableShouldBeFreed;
60.     /// 访问内部的TOrmTable/TOrmTableJson数据
61.     // - 您可以使用例如SortFields()方法
62.     // - 如果列保持不变，您可以动态更改表内容
63.     property Table: TOrmTable  read fTable write fTable;
64.   end;
66. {************ JSON/ORM 到 TDataSet 包装函数 }
68. type
69.   /// 存储低级别DB.pas字段信息
70.   // - 由GetDBFieldDef()和GetDBFieldValue()函数使用
71.   TDBFieldDef = record
72.     FieldName: string;  // 字段名
73.     DBType: TFieldType;  // 字段类型
74.     DBSize: integer;  // 字段大小
75.     SqlType: TOrmFieldType;  // SQL字段类型
76.     SqlIndex: integer;  // SQL索引
77.     FieldType: POrmTableFieldType;  // 字段类型指针
78.   end;
80. /// 获取低级别DB.pas字段信息
81. // - 准备添加到TDataSet中，如：aDataSet.FieldDefs.Add(FieldName,DBType,DBSize);
82. procedure GetDBFieldDef(aTable: TOrmTable; aField: integer; out DBFieldDef: TDBFieldDef {$ifndef UNICODE}; aForceWideString: boolean = false{$endif});
84. /// 填充DB.pas字段内容
85. // - 例如，由mormot.db.rad.ui.cds.pas中的ToClientDataSet()使用
86. procedure GetDBFieldValue(aTable: TOrmTable; aRow: integer; aField: TField; aDataSet: TDataSet; const DBFieldDef: TDBFieldDef);
88. /// 将JSON结果转换为TDataSet，从JSON中猜测字段类型
89. // - 此函数是TOrmTableDataSet.CreateFromJson()的包装器
90. // - 在非Unicode版本的Delphi中，可以设置aForceWideString以强制使用WideString字段代替AnsiString（如果需要）
91. // - 在Unicode版本的Delphi（2009+）中，将使用string/UnicodeString
92. function JsonToDataSet(aOwner: TComponent; const aJson: RawUtf8 {$ifndef UNICODE}; aForceWideString: boolean = false{$endif}): TOrmTableDataSet;overload; {$ifdef HASINLINE} inline;{$endif}
94. /// 将JSON ORM结果转换为TDataSet，遵循TOrm字段类型
95. // - 此函数是TOrmTableDataSet.CreateFromJson()的包装器
96. // - 在非Unicode版本的Delphi中，可以设置aForceWideString以强制使用WideString字段代替AnsiString（如果需要）
97. // - 在Unicode版本的Delphi（2009+）中，将使用string/UnicodeString
98. function JsonTableToDataSet(aOwner: TComponent; const aJson: RawUtf8; const Tables: array of TOrmClass {$ifndef UNICODE}; aForceWideString: boolean = false{$endif}): TOrmTableDataSet;
100. /// 将JSON结果转换为TDataSet，并给定一组列类型
101. // - 此函数是TOrmTableDataSet.CreateFromJson()的包装器
102. // - 在非Unicode版本的Delphi中，可以设置aForceWideString以强制使用WideString字段代替AnsiString（如果需要）
103. // - 在Unicode版本的Delphi（2009+）中，将使用string/UnicodeString
104. function JsonToDataSet(aOwner: TComponent; const aJson: RawUtf8; const ColumnTypes: array of TOrmFieldType {$ifndef UNICODE}; aForceWideString: boolean = false{$endif}): TOrmTableDataSet;overload;

复制代码

来源：程序园用户自行投稿发布，如果侵权，请联系站长删除
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！

新版吗？好像是停更了吧。

鼓励转贴优秀软件安全工具和文档！

鼓励转贴优秀软件安全工具和文档！

这个好，看起来很实用

分享、互助 让互联网精神温暖你我

喜欢鼓捣这些软件，现在用得少，谢谢分享！

懂技术并乐意极积无私分享的人越来越少。珍惜

谢谢分享，辛苦了

鼓励转贴优秀软件安全工具和文档！

东西不错很实用谢谢分享

懂技术并乐意极积无私分享的人越来越少。珍惜

分享、互助 让互联网精神温暖你我

用心讨论，共获提升！

前排留名，哈哈哈

热心回复！

前排留名，哈哈哈

过来提前占个楼

用心讨论，共获提升！

这个有用。