关于网友提出的“ 关于Tquery定义的问题,在家进来看看吧~!!!!来者有分~!!”问题疑问,本网通过在网上对“ 关于Tquery定义的问题,在家进来看看吧~!!!!来者有分~!!”有关的相关答案进行了整理,供用户进行参考,详细问题解答如下:
问题: 关于Tquery定义的问题,在家进来看看吧~!!!!来者有分~!!描述:
源代码如下:
procedure TForm3.autono(const stype:string); //传递的参数是图书类别
var
q:TQuery;
s:string;
begin //先利用SQL查询,得到本类别的最后一个图书编号,
q:=tquery.create(nil);
q.databasename:=dbname;
q.sql.add('select 图书编号 from book_info where 类别='''
+stype+''''+'order by 图书编号');
q.open;
q.last; //指针移动到最后一条记录
s:=q.fieldbyname('图书编号').assring;
q.close;
q.free;
nobox.text:=nextbookno(s); //填写新图书编号
end;
编译时错误如下:
[Error] new.pas(69): Undeclared identifier: 'TQuery'
请问var q:tquery,该怎么改呀,
请高手指点呀
被这个问题困着,下面继续不下去了呀
解决方案1:
DBTables
解决方案2:呵呵, uses TQuery的定义单元DBTables;
解决方案3:就像C++里面的头文件
解决方案4:楼主还要多多努力学习基础知识呀。
解决方案5: 楼主最好这样写
var
q:TQuery;
begin
q:=TQuery.create(self);
try
...
finally
q.Free;
end;
end;
在USES中加入DBTables单元
即可
直接放一个QUERY控制不就好了。。。不写入内容,
应该就可以解决你现在的问题
uses TQuery所在的单元。
TQuery在哪个单元呢?
请打开Delphi帮助,索引,输入TQuery,查找到它的帮助,看unit
这个是因为,TQuery这个类是在DBTables这个单元中定义的,如果不引用这个单元,则Delphi找不到定义过的TQuery类,自然就报错了