显示第一条记录的按钮有问题

Question

写了一个显示第一条记录的按钮,但是出现如下错误,不知道为什么,麻烦高人解答:

Answer 1

代码如下:procedure TInfo.Button17Click(Sender: TObject);      //第一条
var
    MS:TstringStream;
begin
    with ADOQuery1 do
    ADOQuery1.First;
    edit2.Text:=ADOQuery1.FieldByName('StuName').AsString;
    edit1.Text:=ADOQuery1.FieldByName('StuID').AsString;
    edit3.Text:=ADOQuery1.FieldByName('StuBirth').AsString;
    edit4.Text:=ADOQuery1.FieldByName('StuClass').AsString;
    edit5.Text:=ADOQuery1.FieldByName('StuFather').AsString;
    edit6.Text:=ADOQuery1.FieldByName('StuMother').AsString;
    edit8.Text:=ADOQuery1.FieldByName('FathTele').AsString;
    edit9.Text:=ADOQuery1.FieldByName('MothTele').AsString;
    edit7.Text:=ADOQuery1.FieldByName('StuTeaName').AsString;
    //image1.Picture.Graphic := nil;
    if ADOQuery1.FieldByName('StuPicture').isNull=false then   //显示图片
        begin
        MS:=TstringStream.Create('');
        TBlobField(ADOQuery1.FieldByName('StuPicture')).SaveToStream(MS);
        MS.Position := 0;
        image1.Picture.Graphic.LoadFromStream(MS);
        MS.Free;
        end;
end;

Answer 2

ADOQuery1.Active:=true;//先打开数据集
ADOQuery1.First; 

Answer 3

ADOQuery1.Active:=true;//先打开数据集 
ADOQuery1.close;
ADOQuery1.sql.add('select * from tablename ');  //加入你要查询的sql语句
ADOQuery1.open;
ADOQuery1.First; 

Answer 4

ADOQuery1.Active:=true;//先打开数据集 
ADOQuery1.close; 
ADOQuery1.sql.clear;
ADOQuery1.sql.add('select * from tablename ');  //加入你要查询的sql语句 
ADOQuery1.open; 
ADOQuery1.First; 

Answer 5

还是不行啊
还是出现那句话:Missing SQL property

Answer 6

ADOQuery1.Active:=true;//先打开数据集    <--这行语句不能要, 还没设置SQL查询语句就打开的话, 会出现"Missing SQL property"错误//下面顺序的语句组没问题, 不过不应该放在[首记录]按钮的Click事件中
ADOQuery1.close; 
ADOQuery1.sql.clear; 
ADOQuery1.sql.add('select * from tablename ');  //加入你要查询的sql语句 
ADOQuery1.open; //这条语句才是[首记录]按钮的Click事件中应该执行的
ADOQuery1.First;