Диплом: Автоматизация управления процессов отгрузки товара в магазине автозапчастей "Korea Motors-Astana"

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
107
fData->cdsParams->Post();
fData->tStatSale->Filtered = F != "";
fData->tStatSale->Filter = F;
}
catch (...) /* finally */ {
}
}
// ---------------------------------------------------------------------------
void __fastcall TfStatSale::bRefreshClick(TObject *Sender) {
//
Load();
}
// ---------------------------------------------------------------------------
void __fastcall TfStatSale::FormActivate(TObject *Sender) {
Load();
}
// ---------------------------------------------------------------------------
void __fastcall TfStatSale::FormKeyPress(TObject *Sender, System::WideChar
&Key)
{
if ((Char(Key) == 27))
Close();
}
// ---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ufUserEditor.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfUserEditor *fUserEditor;
//---------------------------------------------------------------------------
__fastcall TfUserEditor::TfUserEditor(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfUserEditor::bCancelClick(TObject *Sender)
108
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TfUserEditor::bOkClick(TObject *Sender)
{
//
if ( (fData->tUser->State == dsEdit) || (fData->tUser->State == dsInsert)
)
fData->tUser->Post();
Close();
}
//---------------------------------------------------------------------------
void __fastcall TfUserEditor::FormClose(TObject *Sender, TCloseAction
&Action)
{
fData->tUser->Cancel();
}
//---------------------------------------------------------------------------
void __fastcall TfUserEditor::FormKeyPress(TObject *Sender,
System::WideChar &Key)
{
//
if ( Key == Char(27) ) Close();
}
//---------------------------------------------------------------------------

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)