詠南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開發框架演示（一套進銷存）：

登陸

主界面

插件管理

角色權限

日誌

單據查詢

單據錄入 

 怎樣升級？

關鍵是：詠南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;