void __fastcall TFormReportUchebKartStud::ToolBtnPreviewClick(TObject *Sender) { try { CreateWordDocument(); } catch(...) { Application->MessageBox("Работа с MS Word не возможна. Просмотр отчета невозможен.","Ошибка.",MB_OK|MB_ICONEXCLAMATION); Close(); } }
//--------------------------------------------------------------------------- void __fastcall TFormReportBUCityMounth::ToolBtnPreviewClick( TObject *Sender) { try { pFormSelDate->ShowModal(); CreateWordDocument(); } catch(...) { Application->MessageBox("–абота с MS Word не возможна. ѕросмотр отчета невозможен.","ќшибка.",MB_OK|MB_ICONEXCLAMATION); Close(); } }
//--------------------------------------------------------------------------- void __fastcall TFormReportDocZachislenie::ToolBtnPreviewClick( TObject *Sender) { try { pFormList->ShowModal(); CreateWordDocument(); } catch(...) { Application->MessageBox("Работа с MS Word не возможна. Просмотр отчета невозможен.","Ошибка.",MB_OK|MB_ICONEXCLAMATION); Close(); } }
//--------------------------------------------------------------------------- void __fastcall TFormReportBULast2::ToolBtnPreviewClick(TObject *Sender) { TFormSelectYear* form = new TFormSelectYear(this); try { if ( mrOk == form->ShowModal()) { firstyear = form->ComboBoxFirstYear->Text; secondyear = AnsiString(firstyear.ToInt() + 1); // создадим таблицу с данными CreateBuhData(); // определим кол-во строк в таблице MYSQL_RES *result; MYSQL_ROW row; mysql_query(mysql, " SELECT COUNT(*) FROM full_table"); long count = 0; if (result = mysql_store_result(mysql)) if (row = mysql_fetch_row(result)) count = AnsiString(row[0]).ToInt(); mysql_free_result(result); if (count) CreateWordDocument(count); else MessageBox(Handle, "Произошла ошибка. Обратитесь к разработчику.","Ошибка",MB_OK|MB_ICONERROR); mysql_query(mysql, "drop temporary table if exists full_table"); } } catch(...) { Application->MessageBox("Работа с MS Word не возможна. Просмотр отчета невозможен.","Ошибка.",MB_OK|MB_ICONEXCLAMATION); Close(); } delete form; }
//--------------------------------------------------------------------------- void __fastcall TFormReportForma3::ToolBtnPreviewClick(TObject *Sender) { TFormSelectDate* form = new TFormSelectDate(this); try { form->ShowModal(); Word Year, Month, Day; TDateTime dtPresent = form->GetSelectedDate(); DecodeDate(dtPresent, Year, Month, Day); curr_year = AnsiString(Year); CreateData(); CreateWordDocument(); DestroyData(); } catch(...) { Application->MessageBox("Работа с MS Excel не возможна. Просмотр отчета невозможен.","Ошибка.",MB_OK|MB_ICONEXCLAMATION); Close(); } delete form; }