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;
}