Question

急！Delphi中查询数据库并显示的相关代码

implementation
uses unit1,unit4;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
form2.Close;
form1.Show;
end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
with adoquery1 do
begin
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.SQL.add('select * from score where sctestno=:sctestno ');
adoquery1.Open;
end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
adoquery1.Close;
adoquery1.sql.Clear;
adoquery1.SQL.add('select * from score where sctestno=:sctestno');
adoquery1.Open;
if (adoquery1.parameters.ParamByName('sctestno').Value=strtoint(edit1.Text)) then
begin
form2.Hide;
form4.Show;
end;
if (adoquery1.parameters.ParamByName('sctestno').Value<>strtoint(edit1.Text)) then
begin
showmessage('请输入有效值！');
end;
end;
end.
我要在edit中输入信息，如果是信息在数据库中有记录就显示另外一个窗体，但是这段代码运行后都只显示“请输入有效信息”，请帮忙看看哪里出错了，谢谢！

Answer 1

procedure TForm2.Edit1Change(Sender: TObject);事件中adoquery1.SQL.add('select * from score where sctestno=:sctestno ');后面应该加一句adoquery1.parameters.ParamByName('sctestno').Value:='XXXX';
这样查询才会有结果 不然查询结果 是空的。在procedure TForm2.Button1Click(Sender: TObject);中一样，参数都冇赋值，怎么查询？
冇赋值，adoquery1.parameters.ParamByName('sctestno').Value：=‘’当然<>strtoint(edit1.Text)) ,所以总会执行showmessage('请输入有效值！');
这一句啦

Answer 2

:sctestno是你设定的SQL中的参数变量，它的值是需要你去赋予的，不然就为空，所以这一句

(adoquery1.parameters.ParamByName('sctestno').Value<>strtoint(edit1.Text))

在你没给参数变量赋值前永远为True，当然就是总是会执行
showmessage('请输入有效值！') 代码了。