用delphi7设计了一个登陆界面 oracle数据库

love?/y

要求：用delphi7设计了一个登陆界面，数据库是oracle数据库,在oracle的system权限下有一张userinfo的表，表中有两个字段 username 和password ,现在我想通过登陆界面输入用户名和密码，点确定的时候 系统判断是不是userinfo表中的username和password. 是得话就跳到下一个窗口，不是的话，就提示错误.求高写个简单点的案例.菜鸟求教.谢谢！

love?/y

//下面是我自己写的.可是运行总报错.
procedure TForm1.Button3Click(Sender: TObject);

begin
with adoquery1 do
begin
  adoquery1.Close;
  ADOQuery1.SQL.clear;
  ADOQuery1.SQL.Add('select * from yz_userinfo Where SYHMC='''+trim(combobox1.Text)+''' And SPWD='''+Trim(edit1.text)+'''');
  parameters[0].Value:=combobox1.Text;
  parameters[1].Value:=edit1.Text;
  open;
end;
if adoquery1.RecordCount<>0 then
   showmessage('登录成功!')
else showmessage('用户名或密码错误');

end;
end.

love?/y

高手都在潜水.:'(