起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 139|回复: 3

请看看出了什么错?新手**

[复制链接]
发表于 2007-11-8 13:05:13 | 显示全部楼层 |阅读模式
参数组赋值.取数据表里的信息,赋值给参数.使用TQUERY,编译后提示没有定义mQuery.
请帮忙看看哪里出错!
谢谢


unit YWCSZ1;

interface

uses
  Business.System,Business.Model;

type
  TYWCSZ1 = class(TBizParamGroup)
    ParamCWZQ: TBizParam;
    procedure ParamCWZQGetValue(Sender: TObject; var Value: Variant);
  private
    {private declarations}
  public
    {public declarations}
  end;

  implementation

procedure TYWCSZ1.ParamCWZQGetValue(Sender: TObject; var Value: Variant);
var
  mQuery : TQuery;
begin
mQuery:=TQuery.Create(nil);
mQuery.ConnectionString:='DATABASEURL=Biz:\TTLMCMSPACE\TTLAPP.DATABASE';
mQuery.CommandText:='select FCONTENT from TTL_COMMONCODE where FCODE="CWD"' ;
{IF NOT mQuery.Active then}
try
      mQuery.open;
      mQuery.Excute;
      value:= mQuery.Fields.FieldByName('FCONTENT').AsString;
      mQuery.close;
finally
  mQuery.free;
end;
end;

end.
回复

使用道具 举报

发表于 2007-11-8 13:12:15 | 显示全部楼层
uses 处加上Business.Data
回复 支持 反对

使用道具 举报

发表于 2007-11-13 09:05:02 | 显示全部楼层
楼主,请反馈一下结果,谢谢配合
回复 支持 反对

使用道具 举报

发表于 2007-11-16 13:33:19 | 显示全部楼层
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-6-30 09:20 , Processed in 0.059575 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表