求助 delphi7+Access 编程问题
delphi7 +Access编写管理系统 登录时时出现标准表达式数据类型不匹配问题。在有的计算机上可以运行，但在有的计算机上无法运行是怎么回事。代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
lasttime,aname,apass,sqlstr:string; //定义四个字符串变量 aname和apass分别用来存放用户输入的用户名和密码 ,sqltr用来存放查询语句
begin
inc(logintimes);
if logintimes>maxtimes then //如果登陆次数 logintimes大于允许的最大次数maxtimes时
begin
showmessage('你已经超过充许验证次数！，将退出登录系统！');
application.Terminate; //终止应用程序执行
end
else
begin
if (length（edit1.Text)>0) or (length(edit2.Text)>0) then
begin
aname:=trim(quotedstr(edit1.Text)); //取得用户输入的用户名
apass:=trim(quotedstr(edit2.Text)); //取得用户输入的密码
password:=apass;
sqlstr:='select * from t_user where (username='+aname+') and (userpass='+apass+')';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlstr);
ADOQuery1.open; //执行SQL语句查询
if ADOQuery1.RecordCount>0 then //如果得到的记录大于0条，说明找到满足条件的记录,说明用户名密码成功
begin //验证通过后，更新用户的登陆时间和登陆次数
admin:=aname;
form2.statusbar1.panels[1].text:=admin;
lasttime:=DateTimeToSTR(date);
sqlstr:='update t_user set times=times+1,lasttime='+lasttime+' where (username='+aname+')';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(sqlstr);
ADOQuery1.ExecSQL; //执行SQL语句更新
form2.show;
form1.visible:=false;
end
else
begin
showmessage('请确认登录的用户名和密码是否正确！');
edit1.SetFocus; //取得输入焦点
edit1.SelectAll; //选择文本框中的所有内容
end
end
end
end;
