專門為ADO二層升三層的詠南中間件(特種用途)

專門為ADO二層升三層的詠南中間件(特種用途)

演示下載：鏈接: https://pan.baidu.com/s/1bulGBIZ6A1nkeErxIrGsGA 密碼: 22dk 

解壓后運行ynmain.exe

DELPHI7 開發的ADO二層C/S程序升級為三層變得異常簡單。

中間件采用INDY9+ADO，在DELPHI7下直接可以編譯。

有意者請向本人索取演示程序。

升級步驟：

1）安裝TynDATASET控件

2）在客戶端將ADOQUERY替換為ynDATASET數據集控件，原ADOQUERY的語法完全不用改，ynDATASET數據集控件兼容ADOQUERY的語法。

演示代碼如下：

procedure TForm1.Button1Click(Sender: TObject);
begin
// 執行查詢SQL
ynDataSet1.Close;
yndataset1.SQL.Clear;
ynDataSet1.SQL.Add('select * from t1 where c1=:c1');
ynDataSet1.Parameters.ParamByName('c1').AsInteger := 1;
ynDataSet1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
// 保存修改后的數據
ynDataSet1.Post;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
// 執行非查詢SQL
ynDataSet1.Close;
ynDataSet1.SQL.Clear;
ynDataSet1.SQL.Add('update t1 set c3=999 where c1=:c1');
ynDataSet1.Parameters.ParamByName('c1').AsInteger := 1;
ynDataSet1.ExecSQL;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
// 執行存儲過程
ynDataSet1.Close;
ynDataSet1.ProcedureName := 'sp_test';
ynDataSet1.Parameters.ParamByName('@c1').AsInteger := 1;
ynDataSet1.Open;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
// 執行存儲過程2
ynDataSet1.Close;
ynDataSet1.ProcedureName := 'sp_test';
ynDataSet1.Parameters.ParamByName('@c1').AsInteger := 1;
ynDataSet1.ExecProc;
end;