连接SQL2000出错,提示不能使用空白的对象或列名,换了几种方式,还是有错误(20分)

代码如下:
procedure TForm1.cmdOkClick(Sender: TObject);
var
aname,apassword,sqlstr:string;
a,b:integer;
begin
if(length(trim(name_edit.Text))>0) or (length(trim(password_edit.Text))>0)then
begin
aname:=trim(name_edit.Text);
apassword:=trim(password_edit.Text);
[red]sqlstr:='select * from loginmaster where (loginID=""+aname+"&quot and (loginPSW=""+apassword+"&quot';[/red]
with TQuery.Create(nil) do
try
sessionName:=database1.sessionName;
DatabaseName:=database1.databaseName;
close;
SQL.Clear;
SQL.Add(sqlstr);
open;
if recordCount>0 then
begin
First;
form1.Close;
end
else
begin
showmessage('请确认登陆的用户名和密码是否正确!');
name_edit.SetFocus;
name_edit.SelectAll;
end;
finally
free;
end;
end
else
begin
showmessage('请输入登录用户名和密码!');
name_edit.SelectAll;
end;
end;
我是新手,刚学不久,书我是看过了,改了很多遍,还是不成功.
来这麻烦大家了.主要是实现窗口登录的.我的分也不多了,希望大家慷慨相助~

database1 控件有没有设置？

procedure TForm1.cmdOkClick(Sender: TObject);
var
query:tquery;
a,b:integer;
begin
if( trim(name_edit.Text)<>'') or (trim(password_edit.Text)<>'')then
begin
aname:=trim(name_edit.Text);
apassword:=trim(password_edit.Text);
sqlstr:='select * from loginmaster where loginID='''+name_edit.Text+''' and loginPSW='''+password_edit.Text''''';

谢谢楼上的!可以了!不过你最后那里多了个引号呀~
database1控件我有设,我想就是SQL语句那里出问题了~