Разработка автоматизированной информационной системы «Отель»

 

void __fastcall TForm1::Edit3KeyPress(TObject *Sender, char &Key)

{

if((Key>='0')&&(Key<='9')||(Key==VK_BACK))

return;

else Key=0;

 

}

//---------------------------------------------------------------------------

 

 

void __fastcall TForm1::Edit5KeyPress(TObject *Sender, char &Key)

{

if((Key>='0')&&(Key<='9')||(Key==VK_BACK))

return;

else Key=0;

}

//---------------------------------------------------------------------------

 

 

void __fastcall TForm1::N2Click(TObject *Sender)

{

  Form2->Show();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::N3Click(TObject *Sender)

{

Form3->Show();       

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::sls1Click(TObject *Sender)

{

Form4->Show();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::nxns1Click(TObject *Sender)

{

Form5->Show();       

}

//--------------------------------------------------------------------------

void __fastcall TForm1::Edit6Change(TObject *Sender)

{

   AnsiString s;

if(Edit6->Text!="")

{

s=Edit6->Text;

Table2->Filtered=true;

Table2->Filter="Id="+s;

}

else   Table2->Filtered=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Edit6KeyPress(TObject *Sender, char &Key)

{

  if((Key>='0')&&(Key<='9')||(Key==VK_BACK))

return;

else Key=0;

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::Edit7Change(TObject *Sender)

{

    AnsiString s;

if(Edit7->Text!="")

{

s="'"+Edit7->Text+"*"+"'";

Table2->Filtered=true;

Table2->Filter="Usluga="+s;

}

else   Table2->Filtered=false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N5Click(TObject *Sender)

{

Table1->Edit();

Table1->Post();

Table2->Edit();

Table2->Post();

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::N6Click(TObject *Sender)

{ int i=0;

if (MessageDlg("Вы уверены, что хотите очистить таблицу?",mtConfirmation,TMsgDlgButtons() << mbYes << mbNo,0) == mrYes)

        {

for(i=0;i<=Form1->DataSource1->DataSet->RecordCount+1;i++)

        {

        Table1->Edit();

        DataSource1->DataSet->Delete();

        Table1->Edit();

        Table1->Post();

        }

        }

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::N7Click(TObject *Sender)

{

int i=0;

if (MessageDlg("Вы уверены, что хотите очистить таблицу?",mtConfirmation,TMsgDlgButtons() << mbYes << mbNo,0) == mrYes)

        {

for(i=0;i<=Form1->DataSource2->DataSet->RecordCount+1;i++)

        {

        Table2->Edit();

        DataSource2->DataSet->Delete();

        Table2->Edit();

        Table2->Post();

        }

        }

}

//---------------------------------------------------------------------------

 

void __fastcall TForm1::N8Click(TObject *Sender)

{

Form6->Show();

}

//---------------------------------------------------------------------------

 

Unit 2:

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit2.h"

#include "Unit1.h"

#include "Unit3.h"

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm2 *Form2;

//---------------------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

 

void __fastcall TForm2::Button1Click(TObject *Sender)

{    int a;

    Form1->Table1->Edit();

Form1->Table1Vid->Value=Form2->Table1Vid->Value;

Form1->Table1Price->Value=Form2->Table1Price->Value;

Form1->Table1->Edit();

  Form1->Edit1->Text=IntToStr(Form1->Table1OData->Value-Form1->Table1Data->Value);

   a=StrToInt(Form1->Edit1->Text);

Form1->Table1Price->Value=a*(Form1->Table1Price->Value);

Form2->Close();

}

//---------------------------------------------------------------------------

Unit 3:

 

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit3.h"

#include "Unit2.h"

#include "Unit1.h"

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

void __fastcall TForm3::Button1Click(TObject *Sender)

{

 

  Form1->Table1->Edit();

Form1->Table1Nomer->Value=Form3->Table1Nomera->Value;

Form3->Table1->Edit();

Form3->DataSource1->DataSet->Delete();

Form3->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button2Click(TObject *Sender)

{

Form1->Table1->Edit();

Form1->Table1Nomer->Value=Form3->Table2Nomera->Value;

Form3->Table2->Edit();

Form3->DataSource2->DataSet->Delete();

Form3->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button3Click(TObject *Sender)

{

Form1->Table1->Edit();

Form1->Table1Nomer->Value=Form3->Table3Nomera->Value;

Form3->Table3->Edit();

Form3->DataSource3->DataSet->Delete();

Form3->Close();

}

//---------------------------------------------------------------------------

 

Unit4:

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit4.h"

#include "Unit3.h"

#include "Unit2.h"

#include "Unit1.h"

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

//---------------------------------------------------------------------------

__fastcall TForm4::TForm4(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

 

 

void __fastcall TForm4::Button1Click(TObject *Sender)

{

Form1->Table2->Edit();

Form1->Table2Usluga->Value=Form4->Table1Usluga->Value;

Form1->Table2Price->Value=Form4->Table1Price->Value;

Form4->Close();

}

//---------------------------------------------------------------------------

Unit5:

//---------------------------------------------------------------------------

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit4.h"

#include "Unit3.h"

#include "Unit2.h"

#include "Unit1.h"

#include "Unit5.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

//---------------------------------------------------------------------------

__fastcall TForm5::TForm5(TComponent* Owner)

        : TForm(Owner)

{

}

//---------------------------------------------------------------------------

 

 

void __fastcall TForm5::Button1Click(TObject *Sender)

{

Form1->DataSource1->DataSet->First();

Form1->DataSource2->DataSet->First();

 int s=0, i=0;

for(i=Form1->DataSource1->DataSet->FindFirst();i<=Form1->DataSource1->DataSet->RecordCount;i++)

{

if(Form1->Table1Id->Value==StrToFloat(Edit1->Text))

{

  Table1->Edit();

  Table1F->Value=Form1->Table1F->Value;

  Table1Name->Value=Form1->Table1Name->Value;

  Table1LName->Value=Form1->Table1LName->Value;

  Table1Id->Value=Form1->Table1Id->Value;

  Table1Data->Value=Form1->Table1Data->Value;

  Table1OData->Value=Form1->Table1OData->Value;

  Table1Price->Value=Form1->Table1Price->Value;

}

Form1->DataSource1->DataSet->Next();

}

 

 

 

for(i=Form1->DataSource2->DataSet->FindFirst();i<=Form1->DataSource2->DataSet->RecordCount;i++)

{

 

  if(Form1->Table2Id->Value==StrToFloat(Edit1->Text))

   {

    Table1->Edit();

    s=s+Form1->Table2Price->Value;

    Table1UPrice->Value=s;

   }

  Form1->DataSource2->DataSet->Next();

}

Table1->Edit();

Table1Itog->Value=Table1Price->Value+Table1UPrice->Value;

}

//---------------------------------------------------------------------------

 

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ Б

 

Список файлов, содержащихся на диске

 

1. Отель– папка с исходными файлами программы.

2. Мараков_курсовой_проект – папка с файлами пояснительной записки к курсовомупроекту.