C/S三层中应用服务器端如何响应客户端(100分)

  • 主题发起人 主题发起人 fgs
  • 开始时间 开始时间
F

fgs

Unregistered / Unconfirmed
GUEST, unregistred user!
C/S三层中,客户端发给应用服务器端的数据,如果应用服务器端检验后
认为通不过,如何给 客户端通知?
 
你是在调用方法吗?如果是的,Result就可以返回。
如果用的是,datasetprovider控件的话,可以在BeforeUpdateRecord
里判断数据集是否通过,不通过的话,设置Applied=false就可以返回了。
 
服务端响应Provider的ondatarequest事件
客户端调用:flag:=clientdataset.provider.datarequest(sql);
返回值在falg中



 
请详细一点?
 
服务器端:
function TForm1.Provider1DataRequest(Sender: TObject;
Input: OleVariant): OleVariant;
var rstval:string;
begin
Query1.SQL.Text := Input;
rstval:='你的返回值';
result:=rstval;
end;
客户端:
procedure TForm1.Button1Click(Sender: TObject);
var flag:string;
begin
ClientDataset1.Close;
flag:=ClientDataset1.Provider.DataRequest('select name from yourtable where...');
ClientDataset1.Open;
if flag='...' then ...
end;
 
小天不错嘛:-)
 
小天说的对, 由ClientDataSet1.Provider.DataRequest(...)可以得到返回值.
 
BTY:在d5中,datarequest已经是clientdataset.datarequest了。
 
小天加油,0#柴油。。
 
后退
顶部