kbmMW已经包含了非常精细的功能来确定和解释数据库中表的元数据。

在下一版本中,这个功能将得到进一步加强,可以导入现有数据库中的表,自动创建与表相匹配的ORM实体类。

这意味着你能够使用kbmMW的ORM智能来查询表,将数据保存回表并操纵表元数据,例如添加,更改或删除字段、索引以及需要能够升级数据库用于匹配已更改的ORM表实体类的更高版本的表。

当你意识到需要更改数据库表以允许其他或不同的字段时,ORM的设计目标之一始终是抽象掉所需的所有枯燥工作。在kbmMW中,它就像更改ORM类一样简单,并使用kbmMW的ORM来创建表的CreateOrUpgrade。这已经在早期的REST相关文章中介绍过。

在下一个即将发布的kbmMW版本中,ORM本身实现了生成Delphi类的代码能力,该代码与ORM实体类对应的任何表相匹配。由于ORM已经支持分析现有的表结构以确定现有的ORM类是否与实际的表结构不同,为了能够自动升级它,它是下一个逻辑步骤,能够使用有关表结构的知识和元数据生成全新的数据库表Delphi实体类。

ImportDBSchema工具实现了ORM实体类的Delphi代码生成,现在我来演示这个工具的用法:

因为复杂的部分已经在kbmMW的内部实现,所以该工具的代码就变的非常简单了。基本上它使用FireDAC支持的任何数据库,包括:SQLite,MSSQL,MySQL,Oracle,Interbase / Firedac和PostgreSQL,用户可以从连接的数据库中选择一个或多个表,然后调用kbmMW的ORM相关代码,最终生成这些表的实体类代码。

表格表示kbmMW语言,从表中建立足够的元数据信息,以便能够使用kbmMW的ORM注册TkbmMWORMTable,启用查询等,而无需实际拥有ORM类。

但由于TkbmMWORMTable包含kbmMW的ORM运行所需的所有元数据,因此它也可以用作生成新ORM表类的源。ORM类显然使您可以非常轻松地将表的字段和记录作为具有属性的常规对象进行访问。

事实上,导入包括生成ORM类的表,归结为调用这两个ORM方法:

var
tbl:TkbmMWORMTable;
begin
...
tbl:=MyORM.SurfaceDynamicTable('actualdbtablename',true);
MyORM.GenerateDelphiClass(tbl...);
...
end;

让我们尝试利用一个MySQL数据库导入一个表。

在这种情况下,我们使用匿名用户名在服务器ensembldb.ensembl.org上选择名为aedes_aegypti_core_48_1b的数据库。

可以在此页面上找到连接信息:https//www.ensembl.org/info/data/mysql.html

单击“连接到数据库”将打开FireDAC对话框,在该对话框中设置数据库的连接信息:

单击“确定”,将显示该数据库中的所有表的列表,选择其中一些表,然后单击“导入所选表”。
现在,系统会提示我们输入单元文件名,用于保存生成的实体类。

由于我们选择了两个表,因此该单元将包含两个类。单击“确定”后,将开始导入。可能需要一段时间。

让我们看看生成的单元,我称之为ensembl.pas

unit ensembl;

interface

uses
DB,
Math,
Classes,
System.Generics.Collections,
kbmMWGlobal,
kbmMWObjectMarshal,
kbmMWNullable,
kbmMWORM,
kbmMWRTTI; type [kbmMW_Table('name:aedes_aegypti_core_48_1b.dna')]
TAedes_aegypti_core__1b_dna = class
private
FSeq_region_id:integer;
FSequence:string;
public
[kbmMW_Field('name:seq_region_id, primary:true', ftInteger)]
[kbmMW_NotNull]
property Seq_region_id:integer read FSeq_region_id write FSeq_region_id; [kbmMW_Field('name:sequence', ftWideMemo)]
[kbmMW_NotNull]
property Sequence:string read FSequence write FSequence; end; [kbmMW_Table('name:aedes_aegypti_core_48_1b.gene')]
TAedes_aegypti_core__1b_gene = class
private
FGene_id:integer;
FBiotype:string;
FAnalysis_id:word;
FSeq_region_id:integer;
FSeq_region_start:integer;
FSeq_region_end:integer;
FSeq_region_strand:byte;
FDisplay_xref_id:kbmMWNullable<integer>;
FSource:string;
FStatus:kbmMWNullable<string>;
FDescription:kbmMWNullable<string>;
FIs_current:byte;
public
[kbmMW_Field('name:gene_id, primary:true', ftInteger)]
[kbmMW_NotNull]
property Gene_id:integer read FGene_id write FGene_id; [kbmMW_Field('name:biotype', ftString, )]
[kbmMW_NotNull]
property Biotype:string read FBiotype write FBiotype; [kbmMW_Field('name:analysis_id', ftSmallInt)]
[kbmMW_NotNull]
property Analysis_id:word read FAnalysis_id write FAnalysis_id; [kbmMW_Field('name:seq_region_id', ftInteger)]
[kbmMW_NotNull]
property Seq_region_id:integer read FSeq_region_id write FSeq_region_id; [kbmMW_Field('name:seq_region_start', ftInteger)]
[kbmMW_NotNull]
property Seq_region_start:integer read FSeq_region_start write FSeq_region_start; [kbmMW_Field('name:seq_region_end', ftInteger)]
[kbmMW_NotNull]
property Seq_region_end:integer read FSeq_region_end write FSeq_region_end; [kbmMW_Field('name:seq_region_strand', ftShortInt)]
[kbmMW_NotNull]
property Seq_region_strand:byte read FSeq_region_strand write FSeq_region_strand; [kbmMW_Field('name:display_xref_id', ftInteger)]
property Display_xref_id:kbmMWNullable<integer> read FDisplay_xref_id write FDisplay_xref_id; [kbmMW_Field('name:source', ftString, )]
[kbmMW_NotNull]
property Source:string read FSource write FSource; [kbmMW_Field('name:status', ftWideString, )]
property Status:kbmMWNullable<string> read FStatus write FStatus; [kbmMW_Field('name:description', ftWideMemo)]
property Description:kbmMWNullable<string> read FDescription write FDescription; [kbmMW_Field('name:is_current', ftShortInt)]
[kbmMW_NotNull]
property Is_current:byte read FIs_current write FIs_current; end; implementation initialization TkbmMWRTTI.EnableRTTI([TAedes_aegypti_core__1b_dna, TObjectList<TAedes_aegypti_core__1b_dna>,
TAedes_aegypti_core__1b_gene, TObjectList<TAedes_aegypti_core__1b_gene>]);
kbmMWRegisterKnownClasses([TAedes_aegypti_core__1b_dna, TObjectList<TAedes_aegypti_core__1b_dna>,
TAedes_aegypti_core__1b_gene, TObjectList<TAedes_aegypti_core__1b_gene>]); end.

您可能会注意到,每个类名都包含架构/数据库名称和表名称。如果您只想将表名作为类名的一部分,请在导入之前选中“不要在类名中包含模式名称”复选框。

在一些相当罕见的情况下,数据库表可能已经定义了某些kbmMW未知的数据类型。在这种情况下,导入仍将发生,但有问题的字段将使用UNKNOWN数据类型进行标记。

kbmMW还尝试确定其他索引和音序器信息,并生成与之匹配的相关属性。然而,如果推断这些类型的信息失败,那么它将被忽略优先级,它将被忽略,因此继续生成基本的ORM表类。

现在,通过将此单元添加到您的应用程序,并设置MySQL kbmMW连接池以指向我们用于导入的相同(或类似)服务器,我们现在可以使用ORM轻松地从这两个表中查询数据。

var
lst:TObjectList<TAedes_aegypti_core__1b_dna>;
begin
lst:=MyORM.QueryList<TAedes_aegypti_core__1b_dna>([],mwoqoGT);
...
end;

在上面的示例中,我们将获得大于2000的主键的TAedes_aegypti_core_48_1b_dna对象列表。

如果对列表中的任何对象进行了任何更改,则可以通过以下方式轻松将更改解析回数据库

MyORM.Persist(lst);

使用ORM,使用这两个表的正确结构创建我们自己的数据库也非常容易。数据库甚至不必是基于MySQL的数据库。它可能是kbmMW的ORM支持的任何一个。

MyOtherORM.CreateOrUpgradeTable([TAedes_aegypti_core__1b_dna,TAedes_aegypti_core__1b_gene])

关于如何以一种新的现代面向对象方式轻松地重用现有数据库,这就结束了这一点。

如果您喜欢我所展示的内容,请通过分享我们的博客和艺术品来传播关于kbmMW的信息。

https://components4developers.blog/2018/11/15/rest-easy-with-kbmmw-17-database-6/

REST easy with kbmMW #17 – Database 6 – Existing databases的更多相关文章

  1. REST easy with kbmMW #3 – SSL

    我在前两篇文章中展示了“REST easy with kbmMW”文章,如何使用kbmMW制作REST服务器,以及如何使用该REST服务器轻松地从数据库返回和存储数据,所有这些都在不到30行的真实数据 ...

  2. REST easy with kbmMW #14 – DB Controlled login

    介绍 关于如何使用授权和登录管理来构建应用服务器还存在一些问题,其中之一就是用户及其角色如何在在数据库中定义.该文将解释使用TkbmMWAuthorizationManager解决此问题的一种方法.有 ...

  3. Use ALTER DATABASE to Move Databases

    Use ALTER DATABASE to Move Databases Follow Our Daily Tips •facebook.com/TechNetTips• twitter.com/Te ...

  4. A SQLiteConnection object for database '/data/data/.../databases/....db' was leaked!

      详细异常: A SQLiteConnection object for database '/data/data/.../databases/....db' was leaked!  Please ...

  5. REST easy with kbmMW #15 – Handling HTTP POST

    我被问到有关如何通过基于kbmMW智能服务(Smart Service)的REST处理POST的问题. 这篇博客文章解释了典型的POST各种形式的访问,以及如何在kbmMW中处理它们. POST变种W ...

  6. REST easy with kbmMW #24 使用kbmMW实现JSON/XML/YAML转换成对象

    你想过没有,把一个给定的xml或json生成一个Delphi类,并通过这个类完成对xml或json的读写操作吗? 不管有没有,现在kbmMW为我们实现了,看下面这行代码: var s:string; ...

  7. REST easy with kbmMW #21 – Delphi client stubs

    在之前的博文中,我提到新的存根生成器框架具有生成Delphi客户端存根所需的功能,使得开发Delphi智能客户端非常容易,完全支持编译时的类型检查和IDE类/属性帮助. 我没想到会把它包含在即将发布的 ...

  8. REST easy with kbmMW #20 – OpenAPI and Swagger UI

    即将推出的kbmMW更新不仅是一些bug修正,同时将包含一个新的主要功能:客户端存根生成器框架. 那什么是客户端存根生成器框架呢? 他是一个基于kbmMW smart services,可以生成由各种 ...

  9. REST easy with kbmMW #16 – Multiple servers using HTTP.sys transport

    前文写过使用HTTP.sys转输层(TkbmMWHTTPSysServerTransport),实现一个kbmMW应用服务器. 如果在一台服务器上,同时运行多个,基于TkbmMWHTTPSysServ ...

随机推荐

  1. dedecms自定义表单时间时间戳值类型的转换方法

    找网站找的别人的方法,记录一下 修改/dede/templets/diy_list.htm,在第42行else前面加上以下代码: else if($fielddata[1]=='datetime') ...

  2. Leetcode 714 - Node

    1. 题目要求 Your are given an array of integers prices, for which the i-th element is the price of a giv ...

  3. pygame

    pip install msgpack-python pip install msgpack 离线安装下载地址 Downloading https://files.pythonhosted.org/p ...

  4. yum源仓库搭建

    系统:centos7 一.安装nginx yum install -y nginx yum  install -y createrepo   安装建yum源仓库的工具,可以用来建立yum仓库yum  ...

  5. hpu_newoj_1028-exgcd

    The Elevator   描述 全是电梯. Philo正处于高度为0的一个平台上,在他面前的一个平面,全是上上下下的电梯. Philo想要离开这里,请你帮帮他. 电梯世界规则:这里的电梯所能到达的 ...

  6. Leetcode 869. 重新排序得到 2 的幂

    869. 重新排序得到 2 的幂  显示英文描述 我的提交返回竞赛   用户通过次数102 用户尝试次数134 通过次数103 提交次数296 题目难度Medium 从正整数 N 开始,我们按任何顺序 ...

  7. Spring Boot的数据访问:CrudRepository接口的使用

    示例 使用CrudRepository接口访问数据 创建一个新的Maven项目,命名为crudrepositorytest.按照Maven项目的规范,在src/main/下新建一个名为resource ...

  8. 关于cf[转]

    还不怎么熟悉cf呢.. 你应当知道的关于Codeforces的事情 Codeforces简称: cf(所以谈论cf的时候经常被误会成TX的那款游戏).网址: codeforces.com 这是一个俄国 ...

  9. 一、Redis数据备份与恢复

    Redis里的数据都是保存在内存中,关闭服务器必须进行数据备份. 1.Redis的数据持久化 bgsave做镜像全量持久化,AOF做增量持久化. bgsave的原理:fork和cow(copy on  ...

  10. django学习之——模版

    为了减少模板加载调用过程及模板本身的冗余代码,Django 提供了一种使用方便且功能强大的 API ,用于从磁盘中加载模板, 要使用此模板加载API,首先你必须将模板的保存位置告诉框架. 设置的保存文 ...