87
: TForm(Owner)
{
}
//
void fastcall TMainForm::N7Click(TObject *Sender)
{
FGORODA->Show();
}
//
void fastcall TMainForm::N5Click(TObject *Sender)
{
FREIS->Show();
}
//
void fastcall TMainForm::N12Click(TObject *Sender)
{
FSAMOLET->Show();
}
//
void fastcall TMainForm::N6Click(TObject *Sender)
{
FAVIACOMPANY-
>Show();
}
//
void fastcall TMainForm::N10Click(TObject *Sender)
{
FDOLJNOSTI->Show();
}
//
void fastcall TMainForm::N8Click(TObject *Sender)
{
FKLIENT->Show();
}
//
void fastcall TMainForm::N9Click(TObject *Sender)
{
FSOTRUDNIKI->Show();
}
//
void fastcall TMainForm::N11Click(TObject *Sender)
{
FKLASS->Show();
}
//
void fastcall TMainForm::N1Click(TObject *Sender)
{
FSELL->Show();
}
//
void fastcall TMainForm::N2Click(TObject *Sender)
{
FBRONIROVANIE-
>Show();
}
//
88
void fastcall TMainForm::N4Click(TObject *Sender)
{
Close();
}
89
«REIS.cpp»
#include
<vcl.h> #pragma
hdrstop #include
"REIS.h" #include
"DataModule.h"
#include "Main.h"
#include
"GORODA.h"
#include
"BRONIROVANIE.h"
#include
"ReportReis.h"
//
#pragma
package(smart_init)
#pragma resource
"*.dfm" TFREIS
*FREIS;
//
fastcall TFREIS::TFREIS(TComponent* Owner)
: TForm(Owner)
{
}
//
void fastcall TFREIS::FormCreate(TObject *Sender)
{
DM->GORODA-
>Active = true; DM-
>GORODA->First();
while (!DM->GORODA->Eof) {
CB3->Items->Add(DM-
>GORODANAME->AsString); CB4-
>Items->Add(DM->GORODANAME-
>AsString); DM->GORODA->Next(); }
DM->AVIA-
>Active = true; DM-
>AVIA->First();
while (!DM->AVIA->Eof) {
CB1->Items->Add(DM-
>AVIANAME->AsString); DM->AVIA-
>Next(); }
DM->SAMOLET-
>Active = true; DM-
>SAMOLET->First();
while (!DM->SAMOLET->Eof) {
CB2->Items->Add(DM-
>SAMOLETMODEL->AsString); DM-
>SAMOLET->Next(); }
90
}
//
void fastcall TFREIS::Button1Click(TObject *Sender)
{
DM->REIS-
>Insert(); DM-
>REIS->Edit();
DM->REISID->AsString = Edit1->Text;
DM->REISCOMPANY-
>AsString = CB1->Text; DM-
>REISSAMOLET->AsString = CB2-
>Text;
DM->REISGOROD_OTPR-
>AsString = CB3->Text; DM-
>REISGOROD_PRIB->AsString = CB4-
>Text;
DM->REISDATA_OTPR->AsString =
DateTimePicker1->Date; DM->REISDATA_PRIB-
>AsString = DateTimePicker3->Date; DM-
>REISTIME_OTPR->AsString =
DateTimePicker2->Time; DM->REISTIME_PRIB-
>AsString = DateTimePicker4->Time; DM-
>REISCOST_BILET->AsString = Edit2->Text;
DBGrid1->SetFocus();
}
//
void fastcall TFREIS::Button3Click(TObject *Sender)
{
if (DM->REIS->Modified) DM->REIS->Post();
}
91
//
void fastcall TFREIS::Button4Click(TObject *Sender)
{
CB1->Clear();
CB2->Clear();
CB3->Clear();
CB4-
>Clear();
Edit1-
>Clear();
Edit2-
>Clear();
}
//
void fastcall TFREIS::Button2Click(TObject *Sender)
{
if (Application-
>MessageBox("Действительно хотите удалить
запись?","Подтвердите удаление записи",
MB_YESNO +
MB_ICONEXCLAMATION) == IDYES)
DM->REIS->Delete();
}
//
void fastcall TFREIS::Button5Click(TObject *Sender)
{
RepReis->QuickRep1->Preview();
}
//
void fastcall TFREIS::Edit3Change(TObject *Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit3->Text};
DM->REIS->Locate("GOROD_OTPR",
VarArrayOf(locvalues,1),
SearchOptions<<loPartialKey<<loCaseInsensit
ive);
}
//
void fastcall TFREIS::Edit4Change(TObject *Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit3->Text};
DM->REIS->Locate("GOROD_PRIB",
VarArrayOf(locvalues,1),
SearchOptions<<loPartialKey<<loCaseInsensit
ive);
}
«Sell.cpp»
92
#include
<vcl.h> #pragma
hdrstop #include
"SELL.h" #include
"DataModule.h"
#include "Main.h"
#include "REIS.h"
#include
"ReportSell.h"
//
#pragma
package(smart_init)
#pragma resource
"*.dfm" TFSELL
*FSELL;
//
fastcall TFSELL::TFSELL(TComponent* Owner)
: TForm(Owner)
{
}
//
void fastcall TFSELL::FormCreate(TObject *Sender)
{
93
CB->Clear();
DM->REIS-
>Active = true; DM-
>REIS->First();
while (!DM->REIS->Eof) {
CB->Items->Add(DM-
>REISID->AsString); DM->REIS-
>Next(); }
CB1->Clear();
DM->KLIENT-
>Active = true; DM-
>KLIENT->First();
while (!DM->KLIENT->Eof) {
CB1->Items->Add(DM-
>KLIENTFIO->AsString); DM-
>KLIENT->Next(); }
CB2->Clear();
DM->BRONIROVANIE-
>Active = true; DM-
>BRONIROVANIE->First();
while (!DM->BRONIROVANIE->Eof) {
CB2->Items->Add(DM-
>BRONIROVANIEID->AsString); DM-
>BRONIROVANIE->Next(); }
CB3->Clear();
DM->SOTRUDNIKI-
>Active = true; DM-
>SOTRUDNIKI->First();
while (!DM->SOTRUDNIKI->Eof) {
CB3->Items->Add(DM-
>SOTRUDNIKIFIO->AsString); DM-
>SOTRUDNIKI->Next(); }
CB4->Clear();
DM->KLASS-
>Active = true; DM-
>KLASS->First();
while (!DM->KLASS->Eof) {
CB4->Items->Add(DM-
>KLASSNAME->AsString); DM-
>KLASS->Next(); }
}
//
void fastcall TFSELL::Button1Click(TObject *Sender)
{
DM->SELL-
>Insert(); DM-
>SELL->Edit();
DM->SELLNOMER_R-
>AsString = CB->Text; DM-
94
>SELLFIO_K->AsString = CB1-
>Text; DM->SELLNOMER_B-
>AsString = CB2->Text;
DM->SELLSOTRUDNIK-
>AsString = CB3->Text; DM-
>SELLDATA->AsString = DTP-
>Date;
DM->SELLNAME_C->AsString = CB4->Text;
DM->SELLOPLATA->AsString = Edit2->Text;
}
//
void fastcall TFSELL::Edit1Change(TObject *Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit1->Text};
DM->SELL->Locate("FIO_K",
VarArrayOf(locvalues,1),
SearchOptions<<loPartialKey<<loCaseInse
nsitive);
}
//
void fastcall TFSELL::Edit3Change(TObject *Sender)
{
TLocateOptions
SearchOptions; Variant
locvalues[] = {Edit3->Text};
DM->SELL->Locate("SOTRUDNIK",
VarArrayOf(locvalues,1),
SearchOptions<<loPartialKey<<loCaseInsensi
tive);
}
95
//
void fastcall TFSELL::CBChange(TObject *Sender)
{
DM->ost->Close();
DM->ost->SQL->Clear();
DM->ost->SQL->Add("select KOLVO_PASS from
samolet left join reis on samolet.model = reis.samolet
where reis.id = '" + CB->Text + "'"); DM->ost->Open();
Panel1-
>Caption = "";
DM->kolvo-
>Close();
DM->kolvo->SQL->Clear();
DM->kolvo->SQL->Add("select count ( Nomer_r) as
kolvo from sell where nomer_r = '" + CB->Text + "'");
DM->kolvo->Open();
Panel1->Caption = DM->ost->FieldValues["kolvo_pass"] -
DM->kolvo-
>FieldValues
["kolvo"]; Edit2-
>Clear();
DM->cena->SQL->Clear();
DM->cena->SQL->Add("select COST_BILET from REIS where
ID = '" + CB-
>Text + "'");
DM->cena->Open();
if (!DM->cena-
>FieldByName("COST_BILET")->IsNull)
Edit2->Text = DM->cena-
>FieldValues["COST_BILET"]; else Edit2-
>Text = "0";
}
//
void fastcall TFSELL::CB4Change(TObject *Sender)
{
Edit2-
>Clear();
CBChange(CB
); float a,
b;
if (CB4->ItemIndex ==
0) a = 1; if (CB4-
>ItemIndex == 1) a = 1.5;
if (CB4->ItemIndex == 2) a
= 2; b = StrToFloat(Edit2-
>Text) * a; Edit2->Text =
FloatToStr(b);
}
//
void fastcall TFSELL::Button4Click(TObject *Sender)
{
96
RepSell->QuickRep1->Preview();
}
//
void fastcall TFSELL::Button2Click(TObject *Sender)
{
if (Application-
>MessageBox("Действительно хотите удалить
запись?","Подтвердите удаление записи",
MB_YESNO +
MB_ICONEXCLAMATION) == IDYES)
DM->SELL->Delete();
}
//
void fastcall TFSELL::Button3Click(TObject *Sender)
{
if (DM->SELL->Modified) DM->SELL->Post();
}
//
void fastcall TFSELL::Button5Click(TObject *Sender)
{
FREIS->Show();