//*******生成月报表*********** str := 'declare @shfchg smallint,@fhxx varchar(50) '; str := str + ' EXECUTE htcyerp01' + curgsbh + '..Pro_CkcrkybbWl ''' + curgsbh + ''',''' + curbmbh + ''','; str := str + '''' + DBEdit1.Text + ''',''' + DBEdit2.Text + ''',@shfchg output,@fhxx output '; str := str + ' select @fhxx '; query.close; query.RemoteServer.AppServer.dosql(str); //提交sql语句 query.open;//打开返回值 DBEdit4.Text :=query.Fields[0].AsString ;注意:我刚测试过了,可以正常返回参数