查询的问题(100)

procedure TForm1.Button2Click(Sender: TObject);begin SQLQuery1.Close; SQLQuery1.SQL.Clear; SQLQuery1.SQL.Add('select * from logintable where username=''' + Edit1.Text + '''and passwords='''+edit2.Text + ''''); If SQLQuery1.RecordCount>0 Then showmessage('登陆成功') else showmessage('登陆不成功')end;在程序中加入了以上的代码编译后，不能运行，出现下列提示信息：Exception EClassNotEound in module Project1.exe at 0001CD36.Class TQuery not found.

。。。 SQLQuery1.open; If SQLQuery1.RecordCount>0 Then。。。

单元没有引用吧？

uses DB, DBTables;

顶楼下的~~~...