求助：想实现点击按钮“下一张”就会显示下一张图片的函数

代码如下。

但是这段代码可编译却无法实现观看下一张图片的功能。

我将图片名加后缀放入access的表里。

 

void __fastcall TForm_General::Button_NextClick(TObject *Sender)
{
       
        String strSQL = " select * from tujie where ID =";
        strSQL += "'"+Label_Page->Caption+"'";
        ado->Close();
        ado->SQL->Clear();
        ado->SQL->Add(strSQL);
        try
        {
        ado->Open();
        ado->Active= true;
        }
        catch(...)
        {
        return;
        }
    ado->Next();
    if(ado->Eof)
    {
    ado->First();
    }
    Image_tujie->Picture->LoadFromFile("form_general//image//"+ado->FieldByName("image")->AsString);

//这是图片
    Memo_tujie->Lines->Clear();
    Memo_tujie->Lines->LoadFromFile("form_general//data//tujie//"+ado->FieldByName("words")->AsString);

//这是配套图片的结束文字，在access里面它俩相关联。
    Label_Page->Caption=ado->FieldByName("ID")->AsString;
   
}