如果你比我还菜,你就这样写: var commandt:string; begin if CommandText='''''''' then Exit; if Copy(Commandtext,1,8)<>''''minercxy'''' then Exit; commandt:=Copy(CommandText,9,length(CommandText)-8); if not(poAllowCommandTet in Options) then DatabaseError(SCannotChangeCommandText); CheckDataSet; IProviderSupport(DataSet).PSSetCommandText(CommandT); end;
发布问题,编译Provider单元并将Provider.dcu文件和并入应用服务器目录中,编译应用服务器。这样Tclientdataset必须提供 ''''minercxy''''+''''select * from ...'''' 这样的命令才能被服务器承认。