写作日期:2019-10-28 作者:习践无界
开发环境:Delphi XE 10.1 Update 2
服务器:FDConnection1–>FDQuery1–>DataSetProvider1
客户端:SQLConnection1–>DSProviderConnection1–>ClientDataSet5
procedure TFrame01_Frame.Button3Click(Sender: TObject);
begin
ClientDataSet5.Close;
// FormID、Opid是传入值,doccode是传出值 注意参数不能带@,传出值不要加output,传入、传出类型已在CreateParam时指定了
ClientDataSet5.CommandText := ’ Execute _sysP_NewDocCode :FormID,:Opid,:doccode ';
ClientDataSet5.Params.Clear; ClientDataSet5.Params.CreateParam(ftString,‘FormID’,ptInput);
ClientDataSet5.Params.CreateParam(ftString,‘Opid’,ptInput);
ClientDataSet5.Params.CreateParam(ftString,‘doccode’,ptOutput);
ClientDataSet5.Params.ParamByName(‘FormID’).Size := 30;
ClientDataSet5.Params.ParamByName(‘FormID’).Value :=‘Sale2002’;
ClientDataSet5.Params.ParamByName(‘Opid’).Size := 20;