delphi orm
<p>delphi orm</p><p>以计量单位为例。</p>
<p>1）定义单位data-model，实际项目，为了加快开发速度，会使用工具从数据表自动生成data-model。</p>
<p><img src="https://img2023.cnblogs.com/blog/368779/202309/368779-20230910075701859-525740001.png"></p>
<p> 生成的计量单位data-model</p>
<div class="cnblogs_Highlighter">
<pre class="brush:csharp;gutter:true;">unit danwei.model;
/// <author>cxg 2023-8-30</author>
interface
type //定义 数据模型(data-model)
Tdanwei = record
unitid: string;
unitname: string;
end;
implementation
end.
</pre>
</div>
<p>2）以服务端查询为例</p>
<div class="cnblogs_Highlighter">
<pre class="brush:csharp;gutter:true;">procedure TRESTdanwei.select(const req: TRequest; const res: TResponse);
begin
var pool: TDBPool := GetDBPool('1');
var db: TDB := pool.Lock;
try
try
var where: string;
if req.Body <> nil then
where := TEncoding.UTF8.GetString(TBytesStream(req.Body).Bytes);
var sql: string;
if where = '' then
sql := 'select * from tunit'
else
sql := 'select * from tunit where ' + where;
db.select(sql);
var data: TData<Tdanwei>; //泛型data-model
SetLength(data.rows, db.qry.RecordCount);
var i: Integer := 0;
db.qry.First;
while not db.qry.Eof do //将dataset数据填充进泛型data-model
begin
data.rows.unitid := db.qry.FieldByName('unitid').AsString;
data.rows.unitname := db.qry.FieldByName('unitname').AsString;
db.qry.Next;
Inc(i);
end;
res.Send(TSerial<TData<Tdanwei>>.json(data)); //序列data-model为json
except
on E: Exception do
begin
res.Send(error(E.Message));
writelog('TRESTdanwei.select()' + E.Message);
end;
end;
finally
pool.Unlock(db);
end;
end;
</pre>
</div>
<p>3）以delphi客户端查询为例</p>
<p>var data: TData<Tdanwei>; //泛型data-model<br>var crud: TRest<TData<Tdanwei>>; //泛型rest CRUD接口</p>
<div class="cnblogs_Highlighter">
<pre class="brush:csharp;gutter:true;">procedure TForm1.Button5Click(Sender: TObject);
//查询
begin
crud.resource := 'danwei';//资源=计量单位
crud.where := 'unitid like ''1%''';
data := crud.select;
FDMemTable1.DisableControls;
FDMemTable1.EmptyDataSet;
for var row: Tdanwei in data.rows do //将泛型data-model数据填充进内存表dataset
FDMemTable1.AppendRecord();
FDMemTable1.First;
FDMemTable1.EnableControls;
end;
</pre>
</div>
<p>4）跨平台、语言的客户端以apipost工具查询为例</p>
<p><img src="https://img2023.cnblogs.com/blog/368779/202309/368779-20230910080902494-782808864.png"></p>
<p> </p>
<p> </p>
<p> </p>
</div>
<div id="MySignature" role="contentinfo">
<p>本文来自博客园，作者：{咏南中间件}，转载请注明原文链接：https://www.cnblogs.com/hnxxcxg/p/17690719.html</p><br><br>
来源：https://www.cnblogs.com/hnxxcxg/p/17690719.html
頁:
[1]