本人一直一直用access做数据库,突然改用sql有跟多不习惯 编一简单登陆程序结果老是报错 具体代码如下var
  Form1: TForm1;
  loginok:boolean;implementation
 uses umain;
{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var yhm,mm,sqlstr:string;
begin
yhm:=trim(edit1.Text);
mm:=trim(edit2.Text);
if length(yhm)<1 then
showmessage('用户名不能为空');
if length(mm)<1 then
showmessage('密码不能为空');sqlstr:='select * from user where (user='''+yhm+''') and (ps='''+mm+''')';
if (length(yhm)>0) and (length(mm)>0)
then
begin
with tquery.create(nil) do
try
close;
databasename:='whs';
sql.Clear;
sql.Add(sqlstr);
open;
if recordcount>0 then
begin
showmessage('welcome to use the soft');
loginok:=true;
 frmmain.ShowModal;
 self.Hide;
end
else
begin
loginok:=false;
showmessage('sorry sir the user is invalid');
end;
finally
free;
end;
end;end;错误提示是:general sql error
[microsoft][odbc sql server driver][sql server]在关键字'user'附近有语法错误raised exception class edbengineerror with message'general sql error
请问这是什么问题啊?