1565
社区成员
- 主页
提供答案给300分，必须给代码哦
我在mts中加了一个method,代码如下：
procedure Txxx.Method1(var qq: OleVariant);
begin
with adoquery1 do
begin
sql.Add('select * from xm where 申报科室=''三科''');
adoquery1.Open;
end;
end;
那么请问我在客户端该如何调用这个过程。
并且如果传递一个参数给 methdo1中的qq，用什么控件传？比如我要传'三科'这个参数，该如何写呢？
谢谢
procedure Txxx.Method1(var qq: OleVariant);
begin
with adoquery1 do
begin
sql.Add('select * from xm where 申报科室=''三科''');
adoquery1.Open;
end;
end;
那么请问我在客户端该如何调用这个过程。
并且如果传递一个参数给 methdo1中的qq，用什么控件传？比如我要传'三科'这个参数，该如何写呢？
谢谢
...全文
请发表友善的回复…
发表回复
Tspeng 2003-01-18
以下代吗我没有测试，你可是试试看：
procedure Txxx.method1(var qq:olevariant);
begin
with adoquery1 do
begin
try
Params.ParamByName('param').asString:='三科';
except
on EDatabaseError do
Params.CreateParam(ftString, 'param', ptInput);
do
begin
AsString:='三科';
end;
end;
end;
end;