//---------------------------------------------------------------------------
USEFORM("Unit5.cpp", Form5);
USEFORM("Unit4.cpp", Form4);
USEFORM("Unit7.cpp", Form7);
USEFORM("Unit6.cpp", Form6);
USEFORM("Unit3.cpp", Form3);
USEFORM("Unit2.cpp", Form2);
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit8.cpp", Form8);
USEFORM("Unit9.cpp", Form9);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
try
{
Application->Initialize();
Application->MainFormOnTaskBar = true;
Application->CreateForm(__classid(TForm5), &Form5);
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TForm2), &Form2);
Application->CreateForm(__classid(TForm3), &Form3);
Application->CreateForm(__classid(TForm4), &Form4);
Application->CreateForm(__classid(TForm6), &Form6);
Application->CreateForm(__classid(TForm7), &Form7);
Application->CreateForm(__classid(TForm8), &Form8);
Application->CreateForm(__classid(TForm9), &Form9);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit1.h"
#include "Unit5.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DELETEDATA1Click(TObject *Sender)
{
int x = MessageDlg("o'chirasizmi?",mtConfirmation,TMsgDlgButtons()<if(x==mrYes){
ASOSIYTAB->Delete();
} else{Abort();}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EDITDATA1Click(TObject *Sender)
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::INSERTDATA2Click(TObject *Sender)
{
Form2->ShowModal();
Form1->ASOSIYTAB->Insert();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
#include "Unit5.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit5.h"
#include "Unit4.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::code_Change(TObject *Sender)
{
if(code_->Text=="123456") {
Form1->ShowModal();
Form3->code_->Clear();
Form3->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Label1Click(TObject *Sender)
{
Form3->Close();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit4.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit5.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
Form4->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn4Click(TObject *Sender)
{
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::BitBtn2Click(TObject *Sender)
{
Form6->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::CREATOR1Click(TObject *Sender)
{
Form8->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm5::INSTRUMENS1Click(TObject *Sender)
{
Form9->Memo1->Lines->LoadFromFile("HOTELSM.txt");
Form9->ShowModal();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit6.h"
#include "Unit1.h"
#include "Unit5.h"
#include "Unit4.h"
#include "Unit3.h"
#include "Unit2.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::REQUESTS1Click(TObject *Sender)
{
Form7->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Label2Click(TObject *Sender)
{ if(RadioButton3->Checked){
String nom = Edit1->Text;
tablisapoisk->Filtered=false;
tablisapoisk->Filter="NAME:='"+nom+"'";
tablisapoisk->Filtered=true;}
if(RadioButton4->Checked){
String YULDUZ = Edit1->Text;
tablisapoisk->Filtered=false;
tablisapoisk->Filter="STARS:='"+YULDUZ+"'";
tablisapoisk->Filtered=true;}
if(RadioButton2->Checked){RadioButton4->Checked=false;RadioButton3->Checked=false;}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit7.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::RadioGroup1Click(TObject *Sender)
{
if( RadioGroup1->ItemIndex==0)
{
Form7->Label5->Visible=false;
Form7->Label4->Visible=false;
Label3->Visible=true;
Label6->Visible=true;
Label9->Visible=true;
Label7->Visible=false;
Label8->Visible=false;
Label10->Visible=false;
Label11->Visible=false;
}
if( RadioGroup1->ItemIndex==1)
{
Form7->Label5->Visible=false;
Form7->Label3->Visible=false;
Form7->Label4->Visible=true;
Label7->Visible=true;
Label10->Visible=true;
Label8->Visible=false;
Label9->Visible=false;
Label11->Visible=false;
Label6->Visible=false;
}
if( RadioGroup1->ItemIndex==2)
{Form7->Label3->Visible=false;
Form7->Label4->Visible=false;
Form7->Label5->Visible=true;
Label8->Visible=true;
Label11->Visible=true;
Label6->Visible=false;
Label9->Visible=false;
Label7->Visible=false;
Label10->Visible=false;
}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit8.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include "Unit9.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm9 *Form9;
//---------------------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
Do'stlaringiz bilan baham: