咏南DELPHI7原生中间件

Posted 2020-09-06 咏南中间件和开发框架

咏南DELPHI7中间件+开发框架

演示下载：链接: https://pan.baidu.com/s/1bulGBIZ6A1nkeErxIrGsGA 密码: 22dk 

解压后运行ynmain.exe

这套开发框架的目的：方便地将DELPHI7老的二层CS程序升级为三层。

中间件技术：INDY9通信，数据引擎（ADO FOR SQLSERVER，ODAC FOR ORALE），数据序列（MSGPACK）。JSON（SUPPEROBJECT）。

通信协议既支持TCP/IP，又支持HTTP REST。

浏览器REST调用并返回JSON数据：

超级小的体积：

与之配套的DELPHI7开发框架演示（一套进销存）：

登录

主界面

插件管理

角色权限

日志

单据查询

单据录入 

 怎样升级？

关键是：咏南3层数据集控件--TYNDataSet

和2层CS数据集的语法非常近似。有了这个控件，学习掌握3层开发变得如此地简单。

新增数据：

procedure Tfunit.btnappendClick(Sender: TObject);
begin
ynDataSet1.Append;
end;

修改数据：

procedure Tfunit.btneditClick(Sender: TObject);
begin
ynDataSet1.Edit;
end;

删除数据：

procedure Tfunit.btndeleteClick(Sender: TObject);
begin
if Application.MessageBox(\'是否删除？\', \'\', MB_YESNO + MB_ICONQUESTION) = 
IDYES then
begin
if ynDataSet1.Delete2 then
ynmsg(\'删除成功\') else
ynmsg(\'删除失败\');
end;
end;

保存数据：

procedure Tfunit.cxButton1Click(Sender: TObject);
begin
if ynDataSet1.Post2 then begin
ynmsg(\'保存成功\');
end

else
ynmsg(\'保存失败\');
end;

取消数据：

procedure Tfunit.cxButton2Click(Sender: TObject);
begin
ynDataSet1.Cancel;
end;

调用存储过程：

function Tfcgrk.updatekc(const action: string): Boolean;
begin
ynDataSet1.Close;
ynDataSet1.ProcedureName := \'sp_kc\';
ynDataSet1.Parameters.ParamByName(\'billtype\').Text := \'采购入库\';
ynDataSet1.Parameters.ParamByName(\'billid\').Text := ynDataSet1.fieldbyname(\'billid\').Text;
ynDataSet1.Parameters.ParamByName(\'action\').Text := action;
Result := ynDataSet1.ExecProc;
end;

事务批提交：

if ynDataSet1.SaveDatas(VarArrayOf([\'tcgrk\', \'tcgrk2\']), VarArrayOf([ynDataSet1.Delta, ynDataSet2.Delta]), 2) then
begin
ynDataSet1.MergeChangeLog;
ynDataSet2.MergeChangeLog;
ynmsg(\'保存成功\');
end else
ynmsg(\'保存失败\');

end;