提供答案给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,用什么控件传?比如我要传'三科'这个参数,该如何写呢?
谢谢
...全文
29 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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;

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧