用delphi7设计了一个登陆界面 oracle数据库
要求：用delphi7设计了一个登陆界面，数据库是oracle数据库,在oracle的system权限下有一张userinfo的表，表中有两个字段 username 和password ,现在我想通过登陆界面输入用户名和密码，点确定的时候 系统判断是不是userinfo表中的username和password. 是得话就跳到下一个窗口，不是的话，就提示错误.求高写个简单点的案例.菜鸟求教.谢谢！ //下面是我自己写的.可是运行总报错.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.Value:=combobox1.Text;
parameters.Value:=edit1.Text;
open;
end;
if adoquery1.RecordCount<>0 then
showmessage('登录成功!')
else showmessage('用户名或密码错误');
end;
end. 高手都在潜水.:'(
页:
[1]