2,495
社区成员
发帖
与我相关
我的任务
分享
procedure TDtM.JsSearch(ADOQueryName:TADOQuery;sSql:string; const Param: array of Variant);
var
I, intLen: Integer;
begin
with ADOQueryName do
begin
Close;
SQL.Clear;
sqlstr:=sSql;
SQL.Text := sqlstr;
ParamCheck := True;
intLen := Length(Param);
if intLen > 0 then
begin
for I := 0 to intLen - 1 do
Parameters[I].Value := Param[I];
end;
Open;
end;
end;
procedure TDtM.JsSearch(ClientDataSetName:TClientDataSet;sSql:string; const Param: array of Variant);
var
I, intLen: Integer;
begin
with ClientDataSetName do
begin
Close;
CommandText := sqlstr;
// ParamCheck := True;
intLen := Length(Param);
if intLen > 0 then
begin
for I := 0 to intLen - 1 do
Parameters[I].Value := Param[I];
end;
Open;
end;
end;