Дипломная работа: Автоматизация и обеспечение информационной безопасности документооборота организации ООО "Москва Карго"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
76
Приложения.
Приложение 1. Листинг разработанного программного
обеспечения.
//---------------------------------------------------------------------------
#pragmahdrstop
#include "udmReport.h"
//---------------------------------------------------------------------------
#pragmapackage(smart_init)
//#pragmaclassgroup "System.Classes.TPersistent"
#pragmalink "frxChBox"
#pragmalink "frxClass"
#pragmalink "frxDBSet"
#pragmalink "frxDesgn"
#pragmalink "frxExportPDF"
#pragmalink "frxExportRTF"
#pragmaresource "*.dfm"
TdmReport *dmReport;
//---------------------------------------------------------------------------
__fastcallTdmReport::TdmReport(TComponent* Owner)
: TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcallTdmReport::aReportAnalysisExecute(TObject *Sender)
{
dmData->TestActiveConnection();
77
frxEngine->LoadFromFile(ExtractFilePath (Application-
>ExeName) + c_Dir_Report + "\\frxReportAnalysis.fr3", true);
frxEngine->PrepareReport();
frxEngine->ShowPreparedReport();
}
//---------------------------------------------------------------------------
void __fastcallTdmReport::aReportCashFlowExecute(TObject *Sender)
{
//
dmData->TestActiveConnection();
if( (fRangeDateSelector->ShowModal() == mrOk) )
{
dmData->RemoteMethods->SetDate1((int)(fRangeDateSelector-
>Date1));
dmData->RemoteMethods->SetDate2((int)(fRangeDateSelector-
>Date2));
dmData->cdsDates->Refresh();
dmData->cdsReportCashFlow->Refresh();
frxEngine->LoadFromFile(ExtractFilePath (Application-
>ExeName) + c_Dir_Report + "\\frxReportCashFlow.fr3");
frxEngine->PrepareReport();
frxEngine->ShowPreparedReport();
}
}
//---------------------------------------------------------------------------
void __fastcallTdmReport::aReportCurrentOrderExecute(TObject
*Sender)
{
//
dmData->TestActiveConnection();
78
if( (dmData->cdsOrder->RecordCount == 0) ) thrownewException("Заказ
не выбран");
dmData->RemoteMethods->SetCurrentOrder(dmData->cdsOrderКод-
>Value);
dmData->cdsOrderComposition->Refresh();
frxEngine->LoadFromFile(ExtractFilePath (Application-
>ExeName) + c_Dir_Report + "\\frxReportCurrentOrder.fr3", true);
frxEngine->PrepareReport();
frxEngine->ShowPreparedReport();
}
//---------------------------------------------------------------------------
void __fastcallTdmReport::aReportOrderExecute(TObject *Sender)
{
dmData->TestActiveConnection();
if( (fRangeDateSelector->ShowModal() == mrOk) )
{
dmData->RemoteMethods->SetDate1((int)(fRangeDateSelector-
>Date1));
dmData->RemoteMethods->SetDate2((int)(fRangeDateSelector-
>Date2));
dmData->cdsDates->Refresh();
dmData->cdsReportOrder->Refresh();
frxEngine->LoadFromFile(ExtractFilePath (Application-
>ExeName) + c_Dir_Report + "\\frxReportOrder.fr3");
frxEngine->PrepareReport();
frxEngine->ShowPreparedReport();
}
}
//---------------------------------------------------------------------------
79
void __fastcallTdmReport::aReportStorageProductExecute(TObject
*Sender)
{
//
dmData->TestActiveConnection();
dmData->cdsReportStorageProduct->Refresh();
frxEngine->LoadFromFile(ExtractFilePath (Application-
>ExeName) + c_Dir_Report + "\\frxReportStorageProduct.fr3", true);
frxEngine->PrepareReport();
frxEngine->ShowPreparedReport();
}
//---------------------------------------------------------------------------
void __fastcallTdmReport::aReportVoyageExecute(TObject *Sender)
{
dmData->TestActiveConnection();
if( (fRangeDateSelector->ShowModal() == mrOk) )
{
dmData->RemoteMethods->SetDate1((int)(fRangeDateSelector-
>Date1));
dmData->RemoteMethods->SetDate2((int)(fRangeDateSelector-
>Date2));
dmData->cdsDates->Refresh();
dmData->cdsReportVoyage->Refresh();
frxEngine->LoadFromFile(ExtractFilePath (Application-
>ExeName) + c_Dir_Report + "\\frxReportVoyage.fr3");
frxEngine->PrepareReport();
frxEngine->ShowPreparedReport();
}
80
}
//---------------------------------------------------------------------------
/**
* Задает название отдела
*
* @param title Название
*/
public void setTitle(String title) {
this.title = title;
}
/**
* Возвращает коллекцию правил, связанных с отделом
*
* @return Коллекция правил
*/
@XmlTransient
public Collection<DocumentRule> getDocumentRuleCollection() {
return documentRuleCollection;
}
/**
* Задает коллекцию правил, связанных с отделом
*
* @param documentRuleCollection Коллекция правил
*/
public void setDocumentRuleCollection(Collection<DocumentRule>
documentRuleCollection) {
Источник: https://baza.diplomsite.ru/previewfile/1769

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии