with dmClient.cdsPatientOut do
begin
Close;
Params[0].AsDateTime:=Date;
Params[1].AsDateTime:=Date;
Execute;
end;cdsPatientOut的CommandText:=Select * from Patient where EnterDate>:BeginDateTime and EnterDate<:EndDateTime,运行时说不能在打开的数据集上进行这个操作用Open和Execute都不行。
应该是先把ClientDataSet close再操作CommandText
dmClient.Fitered := true;
这样来控制比较好吧
2、设置好客户端的控件属性
3、procedure TForm1.Button1Click(Sender: TObject);
begin
ClientDataSet1.Close;
ClientDataSet1.CommandText:='select * from p1 where p1f1=:t';
ClientDataSet1.Params.ParamByName('t').Value:=Trim(edit1.text);
ClientDataSet1.Open;
end;
取消就没问题了...