137
Рисунок 30 - Главное меню C++ Builder6
Рисунок 31 - Интерфейс справочника “Должности”
138
Рисунок 32 - Интерфейс справочника “Клиенты”
void _ fastca.llTFKLIENT: : ButtonlClick (TObject ^Sender)
{
DH->KLIENT->Insert() ;
DH->KLIENT->Edit() ;
DH->KLIENTFIO->AsString = Edit4-
>Text; DM->KLIENTSERIfl^P->AsString
= Edit5->Text; DM->KLIEHTHOMER_P-
>AsString = Edit8->Text;
DH->KLIENTEMAIL->As String = Ed-
it6->Text; DH->KLIEHTHOBTEL-
>AsString = Edit7->Text; D3Gridl-
>SetFocas();
}
Рисунок33 - Кодкнопки «Добавить»
void __ fa.stca.il TFXLIEHT : : EditlCnange (TOfcject ''Sender)
{
|TLocateDptions SearcnOptions;
Variant locvalaes [] = -[Editl->Text } ;
DM-ЖЕ.1Е1ГГ->LQcate ("FIO
rr
, VarArrayOf (locvalues, 1) ,
SearchOptions«lQPartialKey«loCaseInsensitive) ;
Рисунок 34 - Код поиска клиента по ФИО
139
Рисунок 35 - Интерфейс справочника “Рейсы”
Рисунок 36 - Интерфейс справочника “Продажа”
140
Рисунок 37 - Интерфейс справочника “Бронирование”
void Fastcall TMainForm: iNVClick(TOtject ‘Sender)
{
FGORODA->Snow() ;
>
// -----------------------------------------------------
I
void Fastcall TMainForm: :tJSClick (TOfcject ‘'Sender)
{
FREIS->Sh™ О ;
>
// -----------------------------------------------------------
141
void Fastcall TMainForm::N12Click(TOtject "Sender)
{
FSAMOLET->Show();
Рисунок 38
Рисунок 39 - Подключение к базе данных «AVIA.FDB»
142
Рисунок 40 - Свойства компонента «IBTable»
void fastcallTFSELL::CBChange(TObject *5ender)
{
DM->ost->Close();
DM->ost->SQL->Clear О ;
DM->ost->SQL->Add("select KOLVO_PASS from samolet left join reis on sa-
molet.model = reis.samolet where reis.id = '" + CB->Text + DM->ost-X)pen () ;
Panell->Caption =
n
";
DM->kolvo->Close ();
DM->kolvo->SQL->Clear();
DM->kolvo->SQL->Add("select count ( Nomer_r) as kolvo from sell where
nomer_r =
143
DM->kolvo->Open[);
Panell->Caption = DM->ost->FieldValues["kolvo_pass"] - DM->kolvo-
>FieldValues["
Edit2->Clear();
DM->cena->SQL->Clear();
DM->cena->SQL->Add("select COST_BILET from REIS where ID =
1
" + CB-
>Text +
пш
”);
DM->cena-X)pen ();
if ( ! DM->cena->FieldByName ( "COST_BILET"} ->IsNull}
Edit2->Text = DM->cena-
>FxeldValues[”COST_BIL
ET"]; else Edit2->Text =
"0";
Рисунок 41 - Код запросов «Продажа»
144
Рисунок 42 - Запуск приложения
Рисунок 43 - Добавление города Воронеж
145
Рисунок 44 - Подтверждение удаления записи
Рисунок 45 – Выбор необходимого города
146
Рисунок 46 - Добавление нового клиента
Рисунок 47 - Бронирование