Delphi korporatsiyasi tomonidan C++ builder 6

ILOVA

Form2 dagi kodlar
//---------------------------------------------------------------------------


#include
#pragma hdrstop


#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit9.h"
#include "Unit8.h"
#include "Unit7.h"
#include "Unit6.h"
#include "Unit12.h"
#include "Unit11.h"
#include "Unit10.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit18.h"
#include "Unit19.h"
#include "Unit20.h"
#include "Unit21.h"
#include "Unit22.h"
#include "Unit23.h"
#include "Unit24.h"
#include "Unit25.h"
#include "Unit26.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button4Click(TObject *Sender)
{
Form1->Show();
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form3->Show();
Form2->Hide();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
String a=InputBox("Avtokorxona xodimlariga","Parolni kiriting","");
int b=StrToInt(a);
if(b==7777)
{
Form4->Show();
Form2->Hide();
}
else {
ShowMessage("Parol xato");


}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button3Click(TObject *Sender)
{
Form5->Show();
Form2->Hide();
}
//---------------------------------------------------------------------------


Form30 dagi kodlar
//---------------------------------------------------------------------------


#include
#pragma hdrstop


#include "Unit30.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit18.h"
#include "Unit19.h"
#include "Unit2.h"
#include "Unit20.h"
#include "Unit21.h"
#include "Unit22.h"
#include "Unit23.h"
#include "Unit24.h"
#include "Unit25.h"
#include "Unit26.h"
#include "Unit27.h"
#include "Unit28.h"
#include "Unit29.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm30 *Form30;
//---------------------------------------------------------------------------
__fastcall TForm30::TForm30(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm30::RadioGroup1Click(TObject *Sender)
{
if(RadioGroup1->ItemIndex==0)
{
ComboBox1->Visible=true;
ComboBox2->Visible=false;
ComboBox3->Visible=false;
}
if(RadioGroup1->ItemIndex==1)
{
ComboBox1->Visible=false;
ComboBox2->Visible=true;
ComboBox3->Visible=false;
}
if(RadioGroup1->ItemIndex==2)
{
ComboBox1->Visible=false;
ComboBox2->Visible=false;
ComboBox3->Visible=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm30::Button1Click(TObject *Sender)
{
int a=StrToInt(Edit2->Text);
if(a==0)
{
ShowMessage("Avtobus bekatda");
}
else
{
a=a%10;
a=10-a;
Label3->Visible=true;
Label3->Caption="Avtobus "+IntToStr(a)+" minutdan so'ng bekatga yetib keladi";


}
}
//---------------------------------------------------------------------------
void __fastcall TForm30::ComboBox1Change(TObject *Sender)
{
Label1->Visible=true;
Label2->Visible=true;
Edit1->Visible=true;
Edit2->Visible=true;
Button1->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm30::ComboBox2Change(TObject *Sender)
{
Label1->Visible=true;
Label2->Visible=true;
Edit1->Visible=true;
Edit2->Visible=true;
Button1->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm30::ComboBox3Change(TObject *Sender)
{
Label1->Visible=true;
Label2->Visible=true;
Edit1->Visible=true;
Edit2->Visible=true;
Button1->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm30::Button2Click(TObject *Sender)
{
Form2->Show();
Close();
}
//---------------------------------------------------------------------------


Form4 dagi kodlar
//---------------------------------------------------------------------------


#include
#pragma hdrstop


#include "Unit4.h"
#include "Unit2.h"
#include "Unit9.h"
#include "Unit10.h"
#include "Unit8.h"
#include "Unit1.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit3.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit18.h"
#include "Unit19.h"
#include "Unit20.h"
#include "Unit21.h"
#include "Unit22.h"
#include "Unit23.h"
#include "Unit24.h"
#include "Unit25.h"
#include "Unit26.h"
#include "Unit27.h"
#include "Unit28.h"
#include "Unit29.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button6Click(TObject *Sender)
{
Form2->Show();
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
Form10->Show();
Form4->Hide();
Form10->Edit1->Text="";
Form10->Edit2->Text="";
}
//---------------------------------------------------------------------------


void __fastcall TForm4::Button1Click(TObject *Sender)
{
Form9->Show();
Form4->Hide();


}
//---------------------------------------------------------------------------


void __fastcall TForm4::Button3Click(TObject *Sender)
{
String a=InputBox("Kadrlar bo'limiga","Parolni kiriting","");
int b=StrToInt(a);
if(b==6666)
{
Form20->Show();
Form4->Hide();
}
else {
ShowMessage("Parol xato");
}
}
//---------------------------------------------------------------------------


void __fastcall TForm4::Button5Click(TObject *Sender)
{
Form27->Show();
Form4->Hide();
}
//---------------------------------------------------------------------------