Разработка информационно-поисковой системы на основе Borland Database Engine, драйвер – Paradox, страница 16

                        if(Table1ID->AsString == tmpID)

                        {

                                tmpStream = new TBlobStream(Table1Emblem,bmRead);

                                Image3->Picture->Bitmap->LoadFromStream(tmpStream);

                                delete tmpStream;

                        }

                        Table1->Next();

                }

                tmpID = Table3IDTeam2->AsInteger;

                Table1->First();

                while(!Table1->Eof)

                {

                        if(Table1ID->AsString == tmpID)

                        {

                                tmpStream = new TBlobStream(Table1Emblem,bmRead);

                                Image2->Picture->Bitmap->LoadFromStream(tmpStream);

                                delete tmpStream;

                        }

                        Table1->Next();

                }

                if(EnableFilters)

                        Table1->Filtered = filtered;

                if(Table3->RecordCount != 0 && Table3ID->AsInteger != NULL && EnableFilters)

                {

                        Table4->Filter = "IDMatch=" + Table3ID->AsString;

                        Table4->Filtered = true;

                        Table5->Filter = "(IDMatch=" + Table3ID->AsString + ")and(IDPlayer=" + Table2ID->AsString + ")";

                        Table5->Filtered = true;

                        UpdateResults();

                }

        }

        catch(...)

        {

                Application->MessageBox("Ошибка чтения данных!","Ошибка",MB_OK+MB_ICONERROR);

        }

}

Установка фильтра для таблицы команд

void __fastcall TFormMain::SpeedButton7Click(TObject *Sender)

{

        try

        {

                if(!SpeedButton7->Down)

                {

                        Table1->Filter = "";

                        Table1->Filtered = false;

                }

                else

                {

                        AnsiString      tmpStr1;

                        AnsiString      tmpStr2;

                        if(SpeedButton8->Down)

                                tmpStr2 = "or";

                        else

                                tmpStr2 = "and";

                        if(CheckBox8->Checked)

                                tmpStr1 += "(Name = '" + Edit18->Text + "')";

                        if(CheckBox9->Checked)

                        {

                                int tmpID = 0;

                                Table6->First();

                                while(!Table6->Eof)

                                {

                                        if(Table6Name->AsString == Edit17->Text)

                                        {

                                                tmpID = Table6ID->AsInteger;

                                                break;

                                        }

                                        Table6->Next();

                                }

                                if(tmpStr1 != "")

                                        tmpStr1 += tmpStr2+"(IDCountry = '" + IntToStr(tmpID) + "')";

                                else

                                        tmpStr1 += "(IDCountry = '" + IntToStr(tmpID) + "')";

                        }

                        if(EnableFilters)

                        {

                                Table1->Filter = tmpStr1;

                                Table1->Filtered = true;

                        }

                }

        }

        catch(...)

        {