delphi自带数据库操作

Question

环境：delphi7
我的操作：
1.TOOL--->database desktop--->new table新建个表
2.new--->data module然后在上面放Query和datasource,把datasource的dataset设为这个query
3.在代码中设置数据库的路径
下面是部分代码，运行到下面这里就会出错，虽然简单，但是从来没弄过不知道从哪里下手，网上也找了好久了，大家帮帮忙吧，谢谢了！
   with DataModule1.LogInQuery do
   begin
   close;
   SQL.Clear;
   Active:=True;
   SQL.Add('select * from LogIn where UserID=3;');
   if(RecordCount=0) then begin
   showmessage('没有记录！');
   end
   else
   begin
   if (UserIdEdit.Text=Fields.Fields[2].AsString) and (UserPSEdit.Text=Fields.Fields[3].AsString) then
   showmessage('密码错误！')
   else
   showmessage('登录成功!');
   end;
   end;

Answer 1

with DataModule1.LogInQuery do 
  begin 
  close; 
  SQL.Clear;                        
  Active:=True;                   //你刚clear了sql，就执行active:=true肯定会出错啊，把它挪到下一句的后面
  SQL.Add('select * from LogIn where UserID=3;'); 
  if(RecordCount=0) then begin 
  showmessage('没有记录！'); 
  end 
  else 
  begin 
  if (UserIdEdit.Text=Fields.Fields[2].AsString) and (UserPSEdit.Text=Fields.Fields[3].AsString) then 
  showmessage('密码错误！') 
  else 
  showmessage('登录成功!'); 
  end; 
  end;

Answer 2

二楼的真乃神人也，要多些你这样的人，我在学习DELPHI的路上就轻松多了，感谢你！送上20小分！