ado.Close;
ado.SQL.Clear;
ado.SQL.Add('select * from userinfo where ID=:A');
ado.Parameters.ParamByName('A').Value:=trim(edit1.Text);
ado.Open;
ado.SQL.Clear;
ado.SQL.Add('select * from userinfo where ID=:A');
ado.Parameters.ParamByName('A').Value:=trim(edit1.Text);
ado.Open;
其中:ado为ADOQuery控件