咏南DELPHI7中间件+开发框架

咏南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中间件+开发框架_第1张图片

超级小的体积:

咏南DELPHI7中间件+开发框架_第2张图片

与之配套的DELPHI7开发框架演示(一套进销存):

登录

咏南DELPHI7中间件+开发框架_第3张图片

主界面

咏南DELPHI7中间件+开发框架_第4张图片

插件管理

咏南DELPHI7中间件+开发框架_第5张图片

角色权限

咏南DELPHI7中间件+开发框架_第6张图片

日志

咏南DELPHI7中间件+开发框架_第7张图片

单据查询

咏南DELPHI7中间件+开发框架_第8张图片

单据录入 

咏南DELPHI7中间件+开发框架_第9张图片

 怎样升级?

关键是:咏南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;

你可能感兴趣的:(咏南DELPHI7中间件+开发框架)