网站建设运营部部长岗位职责/成人再就业技能培训班

为了方便原来D6,D7开发的二层老程序升级为三层，新增了远程方法QuerySql6（）。充分地兼容原来二层SQL的写法。

1）公共方法ParamsToStr（）

function ParamsToStr(params: TParams): string;
var
i: Integer;
p: TParam;
begin
Result := '';
if params = nil then
Exit;
for i := 0 to params.Count - 1 do
begin
p := params[i];
if Result = '' then
Result := Result + p.Name + ':' + p.Value
else
Result := Result + ';' + p.Name + ':' + p.Value;
end;
end;

2）客户端调用远程方法演示，不需要改变原二层SQL语句的写法。

procedure TForm1.Button5Click(Sender: TObject);
var
params: string;
begin
DataSource1.DataSet := ClientDataSet1;
ClientDataSet1.Close;
ClientDataSet1.CommandText := 'select * from t1 where c1=:c1';
ClientDataSet1.ParamByName('c1').Value := '55';
params := ParamsToStr(ClientDataSet1.Params);
ClientDataSet1.Data := methods.QuerySql6('0', ClientDataSet1.CommandText, params);
end;