数据库方面的问题

本人一直一直用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  
  请问这是什么问题啊? 问题点数：20、回复次数：2Top

1 楼fengzhengren（风筝）回复于 2005-06-01 21:00:43 得分 20

user是sqlserver的保留字，需要改为[user]Top

2 楼crystalbutterfly（叶落无声）回复于 2005-06-01 21:24:33 得分 0

哦     谢谢高手啊   呵呵Top

相关问题

• sql
• user

• 帖主：crystalbutterfly
• fengzhengren

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载