提供答案给300分,必须给代码哦

yt2001 2003-01-18 01:06:42
我在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,用什么控件传?比如我要传'三科'这个参数,该如何写呢?
谢谢
...全文
2 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
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;
回复
发动态
发帖子
网络通信/分布式开发
创建于2007-08-02

1565

社区成员

Delphi 网络通信/分布式开发
申请成为版主
社区公告
暂无公告