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

                                                                                Player.MPlayTime = Player.MPlayTime + Table5PlayTime->AsInteger;

                                                                        }

                                                                }

                                                        }

                                                }

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 2, Player.Name);

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 3, Player.TTrows,"0");

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 8, Player.MTrows,"0");

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 4, Player.TGoals,"0");

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 9, Player.MGoals,"0");

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 5, Player.TSelections,"0");

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 10, Player.MSelections,"0");

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 6, Player.TInterceptions,"0");

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 11, Player.MInterceptions,"0");

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 7, Player.TPlayTime,"0");

                                                SetCellValue(ExcelApplication.OlePropertyGet("Worksheets",Index), Player.Index+6, 12, Player.MPlayTime,"0");

                                                for (int k=1; k<=4; k++)

                                                {

                                                        AnsiString      Str = "B"+AnsiString(Player.Index+6)+":L"+AnsiString(Player.Index+6);

                                                        ExcelApplication.OlePropertyGet("Worksheets",Index).OlePropertyGet("Range", Str.c_str()).OlePropertyGet("Borders").OlePropertyGet("Item", k).OlePropertySet("LineStyle", 1);

                                                }

                                        }

                                }

                        }

                }

                ResetFilterState();

        }

        catch(...)

        {

        }

}

Обновление результатов по таблице матчей

void __fastcall TFormMain::Table3AfterScroll(TDataSet *DataSet)

{

   try

        {

                bool    filtered = Table1->Filtered;

                Table1->Filtered = false;

                TBlobStream *tmpStream;

                Image3->Picture->Bitmap = NULL;

                Image2->Picture->Bitmap = NULL;

                DateTimePicker1->Date = Table3Date->AsDateTime;

                DateTimePicker2->Time = Table3Time->AsDateTime;

                int tmpID = Table3IDTeam1->AsInteger;

                Table1->First();

                while(!Table1->Eof)

                {