詠南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;