通过样例01,学习到了数据单元的定义方法,静态服务器的创建方式,以及ORM的基本使用方法,现在来看看样例02 - Embedded SQLite3 ORM,同样从字面意思猜测它应该是介绍嵌入式SQLite3数据库的ORM方法.
通过例02的源码,可以发现只有Project02.dpr工程文件源码,并没有pas单元文件,在例01里边简单做过说明,是因为例02共用01的所有单元,所以看到的项目管理界面和例01是一样的,仅仅有2行工程代码有点变动,如下:
{ 嵌入式数据库引擎初始化 }
Form1.Database := TSQLRestServerDB.Create(Form1.Model, ChangeFileExt(ExeVersion.ProgramFileName, '.db3'));
{ 根据Model(SampleData单元中的定义)创建表格 }
TSQLRestServerDB(Form1.Database).CreateMissingTables;
因为Unit1.pas单元代码就是例01的,所以直接运行程序看看,同样输入3组测试数据:
a MessageA,b MessageB,c MessageC
然后借助sqliteadmin打开例2文件夹下的Project02.db3文件,可以看到数据的存储情况.
添加和查找的过程就是CRUD中的Create和Read,下面试试Update和Delete,先把界面改造一下,添加2个按钮Update和Delete,再添加一个显示日志的Memo,具体界面如下: