begin
   if (edit1.Text='') or (edit2.Text='')then
   begin
      application.MessageBox('登录信息不能为空！','提示信息',mb_ok);
      edit1.SetFocus;
   end
   else
   begin
     with adoquery1 do
     begin
     Close;
     SQL.Clear;
     SQL.Add('select * from user where username=:a and userpass=:b');//查找用户信息
     showmessage(adoquery1.SQL.Text);
     Parameters.ParamByName('a').Value:=trim(Edit1.Text);
     Parameters.ParamByName('b').Value:=trim(Edit2.Text);
     Open;
     if RecordCount>0 then   //判断是否存在
       begin
       loginfrm.Hide;
       guanliyuanfrm.Show;
       end
     else                   
       begin
       application.MessageBox('密码或用户名有误！','提示信息',mb_ok);
       edit1.Text:='';
       edit1.SetFocus;
       end
     end
     end;
end;

不知道错哪里了，百度上和书上的代码都一样的，到了做系统的时候就出错了，好急！！！求帮忙！！！

SQL.Add('select * from user where username=:a and userpass=:b');//查找用户信息============这个位置应该是有问题，修改修改看看

没有看到连接数据库的代码

我也描述不清楚，方便加下QQ吗，毕业设计做不出来，好急啊

这个跟书上和网上的代码都一样了，不知道该怎么改好，好急的

mysql 数据库  ？？？  我没接触过呢

不过据说一般不使用odbc连接数据库 挺麻烦的  使用ado控件不好吗

举例：
StrXingHao:=Combobox1.Text;
adodataset1.Active:=false;//刷新
'select * from BackLabelModel where model='''+StrXingHao+'''';  //注意此处的转意标点，可以设置断点，运行查看；BackLabelModel为数据库中表名，可根据自己数据库中表名修改，model为列名。
adodataset1.Active:=true;

未定义参数类型