138
FR?equestReturnCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestReturnCommand->Text = "TdssmRemoteData.RequestReturn";
FRequestReturnCommand->Prepare();
}
FRequestReturnCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::RequestReceive()
{
if (F?RequestReceiveCommand == NU?LL)
{
FR?equestReceiveCommand = FD?BXConnection->CreateCommand();
FR?equestReceiveCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestReceiveCommand->Text = "TdssmRemoteData.RequestReceive";
FRequestReceiveCommand->Prepare();
}
FRequestReceiveCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::RequestComplete()
{
if (F?RequestCompleteCommand == NU?LL)
{
FR?equestCompleteCommand = FD?BXConnection->CreateCommand();
FR?equestCompleteCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestCompleteCommand->Text = "TdssmRemoteData.RequestComplete";
FRequestCompleteCommand->Prepare();
}
FRequestCompleteCommand->ExecuteUpdate();
139
}
vo?id __?fastcall Td?ssmRemoteDataClient::RequestRework()
{
if (F?RequestReworkCommand == NU?LL)
{
FR?equestReworkCommand = FD?BXConnection->CreateCommand();
FR?equestReworkCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestReworkCommand->Text = "TdssmRemoteData.RequestRework";
FRequestReworkCommand->Prepare();
}
FRequestReworkCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::RequestClose()
{
if (F?RequestCloseCommand == NU?LL)
{
FR?equestCloseCommand = FD?BXConnection->CreateCommand();
FR?equestCloseCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestCloseCommand->Text = "TdssmRemoteData.RequestClose";
FRequestCloseCommand->Prepare();
}
FRequestCloseCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::RequestAddSpare(int SpareID, do?uble Co?unt)
{
if (F?RequestAddSpareCommand == NU?LL)
140
{
FR?equestAddSpareCommand = FD?BXConnection->CreateCommand();
FR?equestAddSpareCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestAddSpareCommand->Text = "TdssmRemoteData.RequestAddSpare";
FRequestAddSpareCommand->Prepare();
}
FRequestAddSpareCommand->Parameters->Parameter[0]->Value->SetInt32(SpareID);
FRequestAddSpareCommand->Parameters->Parameter[1]->Value->SetDouble(Count);
FRequestAddSpareCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::RequestDeleteSpare(int Re?questSparesID)
{
if (F?RequestDeleteSpareCommand == NU?LL)
{
FR?equestDeleteSpareCommand = FD?BXConnection->CreateCommand();
FR?equestDeleteSpareCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestDeleteSpareCommand->Text = "TdssmRemoteData.RequestDeleteSpare";
FRequestDeleteSpareCommand->Prepare();
}
FRequestDeleteSpareCommand->Parameters->Parameter[0]->Value->SetInt32(RequestSparesID);
FRequestDeleteSpareCommand->ExecuteUpdate();
}
vo?id __?fastcall Td?ssmRemoteDataClient::EquipmentSelect(int Eq?uipmentID)
{
if (F?EquipmentSelectCommand == NU?LL)
{
FE?quipmentSelectCommand = FD?BXConnection->CreateCommand();
141
FE?quipmentSelectCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FE?quipmentSelectCommand->Text = "TdssmRemoteData.EquipmentSelect";
FEquipmentSelectCommand->Prepare();
}
FEquipmentSelectCommand->Parameters->Parameter[0]->Value->SetInt32(EquipmentID);
FEquipmentSelectCommand->ExecuteUpdate();
}
in?t __?fastcall Td?ssmRemoteDataClient::EquipmentAdd()
{
if (F?EquipmentAddCommand == NU?LL)
{
FE?quipmentAddCommand = FD?BXConnection->CreateCommand();
FE?quipmentAddCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FE?quipmentAddCommand->Text = "TdssmRemoteData.EquipmentAdd";
FEquipmentAddCommand->Prepare();
}
FEquipmentAddCommand->ExecuteUpdate();
in?t re?sult = FE?quipmentAddCommand->Parameters->Parameter[0]->Value->GetInt32();
re?turn re?sult;
}
in?t __?fastcall Td?ssmRemoteDataClient::RequestCount()
{
if (F?RequestCountCommand == NU?LL)
{
FR?equestCountCommand = FD?BXConnection->CreateCommand();
FR?equestCountCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FR?equestCountCommand->Text = "TdssmRemoteData.RequestCount";
142
FRequestCountCommand->Prepare();
}
FRequestCountCommand->ExecuteUpdate();
in?t re?sult = FR?equestCountCommand->Parameters->Parameter[0]->Value->GetInt32();
re?turn re?sult;
}
vo?id __?fastcall Td?ssmRemoteDataClient::SetCustomSQL(System::UnicodeString Va?lue)
{
if (F?SetCustomSQLCommand == NU?LL)
{
FS?etCustomSQLCommand = FD?BXConnection->CreateCommand();
FS?etCustomSQLCommand->CommandType = TD?BXCommandTypes_DSServerMethod;
FS?etCustomSQLCommand->Text = "TdssmRemoteData.SetCustomSQL";
FSetCustomSQLCommand->Prepare();
}
FSetCustomSQLCommand->Parameters->Parameter[0]->Value->SetWideString(Value);
FSetCustomSQLCommand->ExecuteUpdate();
}
__?fastcall Td?ssmRemoteDataClient::TdssmRemoteDataClient(TDBXConnection *A?DBXConnection)
{
if (A?DBXConnection == NU?LL)
th?row EI?nvalidOperation("Connection ca?nnot be nil. Ma?ke su?re th?e co?nnection ha?s be?en opened.");
FD?BXConnection = AD?BXConnection;
FI?nstanceOwner = Tr?ue;
}
143
__?fastcall Td?ssmRemoteDataClient::TdssmRemoteDataClient(TDBXConnection *ADBXConnection, bo?ol
AI?nstanceOwner)
{
if (A?DBXConnection == NU?LL)
th?row EI?nvalidOperation("Connection ca?nnot be nil. Ma?ke su?re th?e co?nnection ha?s be?en opened.");
FD?BXConnection = AD?BXConnection;
FI?nstanceOwner = AI?nstanceOwner;
}
__?fastcall Td?ssmRemoteDataClient::~TdssmRemoteDataClient()
{
de?lete FD?SServerModuleCreateCommand;
de?lete Fq?_custom_BeforeOpenCommand;
de?lete Fq?_equipment_BeforeOpenCommand;
de?lete Fq?_equipment_maintenance_schedule_BeforeOpenCommand;
de?lete Fq?_filter_BeforeOpenCommand;
de?lete Fq?_request_BeforeDeleteCommand;
de?lete Fq?_request_BeforeOpenCommand;
de?lete Fq?_request_destinations_BeforeOpenCommand;
de?lete Fq?_request_states_BeforeOpenCommand;
de?lete Fq?_request_users_BeforeOpenCommand;
de?lete Fq?_view_user_BeforeOpenCommand;
de?lete Fq?_request_spares_BeforeOpenCommand;
de?lete Fq?_report_request_BeforeOpenCommand;
de?lete Fq?_report_workshop_BeforeOpenCommand;
de?lete Ft?_subdivision_user_list_BeforeOpenCommand;
de?lete Ft?_user_BeforePostCommand;
de?lete FG?etDateCommand;
144
de?lete FG?etUserTypeIDCommand;
de?lete FR?equestSelectCommand;
de?lete FR?equestAddCommand;
de?lete FR?equestSendToSubdivisionCommand;
de?lete FR?equestReturnCommand;
de?lete FR?equestReceiveCommand;
de?lete FR?equestCompleteCommand;
de?lete FR?equestReworkCommand;
de?lete FR?equestCloseCommand;
de?lete FR?equestAddSpareCommand;
de?lete FR?equestDeleteSpareCommand;
de?lete FE?quipmentSelectCommand;
de?lete FE?quipmentAddCommand;
de?lete FR?equestCountCommand;
de?lete FS?etCustomSQLCommand;
}
//---------------------------------------------------------------------------
#i?nclude <vcl.h>
#pragma hdrstop
#include "ufEquipmentEditor.h"
#include "udmData.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfEquipmentEditor *fEquipmentEditor;
//---------------------------------------------------------------------------
__fastcall TfEquipmentEditor::TfEquipmentEditor(TComponent* Owner)
145
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfEquipmentEditor::FormKeyPress(TObject *Sender, System::WideChar &Key)
{
if (Key == char (27))
{
Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TfEquipmentEditor::bCancelClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TfEquipmentEditor::bOkClick(TObject *Sender)
{
//
if ((dmData->cds_equipment_->State == dsInsert) || (dmData->cds_equipment_->State == dsEdit))
dmData->cds_equipment_->Post();
if ((dmData->cds_equipment_maintenance_schedule_->State == dsInsert) || (dmData-
>cds_equipment_maintenance_schedule_->State == dsEdit))
dmData->cds_equipment_maintenance_schedule_->Post();
if (dmData->cds_equipment_maintenance_schedule_->ApplyUpdates(c_Max_errors) == 0)
Close();
}
146
//---------------------------------------------------------------------------
void __fastcall TfEquipmentEditor::FormClose(TObject *Sender, TCloseAction &Action)
{
dmData->cds_equipment_->Cancel();
dmData->cds_equipment_maintenance_schedule_->Cancel();
dmData->cds_equipment_maintenance_schedule_->CancelUpdates();
}
//---------------------------------------------------------------------------
void __fastcall TfEquipmentEditor::FormShow(TObject *Sender)
{
dmData->RemoteMethods->EquipmentSelect(dmData->cds_equipment_id->Value);
dmData->cds_equipment_maintenance_schedule_->Refresh();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ufReportSettings.h"
#include "udmData.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfReportSettings *fReportSettings;
//---------------------------------------------------------------------------
__fastcall TfReportSettings::TfReportSettings(TComponent* Owner)
: TForm(Owner)
147
{
}
//---------------------------------------------------------------------------
void __fastcall TfReportSettings::Button1Click(TObject *Sender)
{
if ((dmData->cds_view_user_->State == dsInsert) || (dmData->cds_view_user_->State == dsEdit))
dmData->cds_view_user_->Post();
Close();
}
//---------------------------------------------------------------------------
void __fastcall TfReportSettings::FormKeyPress(TObject *Sender, System::WideChar &Key)
{
if (Key == char (27)) { Close ();}
}
//---------------------------------------------------------------------------
void __fastcall TfReportSettings::FormClose(TObject *Sender, TCloseAction &Action)
{
dmData->cds_view_user_->Cancel();
}
//---------------------------------------------------------------------------
void __fastcall TfReportSettings::FormShow(TObject *Sender)
{
//
dmData->cds_view_user_->Refresh();
dmData->cds_view_user_->Edit();
}