Ilmiy loyiha mavzusi: Spravochnik Farg’ona shahri dorixonalarida mavjud dorilar bazasini yaratish mundarija kirish

Ilova 

Dasturning asosiy kod qismi 

Bosh oyna
//--------------------------------------------------------------------------- 
#include  
#pragma hdrstop 
#include "Unit1.h" 
#include "Unit2.h" 
#include "Project1PCH1.h" 
#include "Unit3.h" 
#include "Unit4.h" 
#include "Unit5.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
: TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::BitBtn2Click(TObject *Sender) 
{ 
Close(); 
} 
//--------------------------------------------------------------------------- 

---

28 
void __fastcall TForm1::BitBtn1Click(TObject *Sender) 
{ 
if (Edit1->Text=="Admin" && Edit2->Text==123456) {Form1->Hide();
Form2->ShowModal(); 
} else {ShowMessage("Login yoki Parol xato kiritilgan");} 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Help1Click(TObject *Sender) 
{ 
ShowMessage("Login yoki Parolni bilmasangiz kirmaganiz maqul bu 
yerdagi ma'lumotlar sir saqlanadi"); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::BitBtn3Click(TObject *Sender) 
{ 
Form2->Show(); 
} 
//--------------------------------------------------------------------------- 
Asosiy oyna 
//--------------------------------------------------------------------------- 
#include  
#pragma hdrstop 
#include "Unit2.h" 
#include "Unit3.h" 
#include "Unit4.h" 
#include "Project1PCH1.h" 

---

29 
#include "Unit1.h" 
#include "Unit5.h" 
#include "Unit6.h" 
#include "Unit7.h" 
#include "Unit8.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm2 *Form2; 
//--------------------------------------------------------------------------- 
__fastcall TForm2::TForm2(TComponent* Owner) 
: TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn1Click(TObject *Sender) 
{ 
Form2->Close(); 
Form3->ShowModal(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn2Click(TObject *Sender) 
{ 
Form4->ADOnom->Insert(); 
Form4->ADODori->Insert(); 
Form4->Show(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn4Click(TObject *Sender) 
{ 

---

30 
Close(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn3Click(TObject *Sender) 
{ 
Form8->Show(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn1Click(TObject *Sender) 
{ 
Form2->Close(); 
Form3->ShowModal(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn2Click(TObject *Sender) 
{ 
Form4->ADOnom->Insert(); 
Form4->ADODori->Insert(); 
Form4->Show(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn4Click(TObject *Sender) 
{ 
Close(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn3Click(TObject *Sender) 
{ 

---

31 
Form8->Show(); 
} 
void __fastcall TForm2::BitBtn1Click(TObject *Sender) 
{ 
Form2->Close(); 
Form3->ShowModal(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn2Click(TObject *Sender) 
{ 
Form4->ADOnom->Insert(); 
Form4->ADODori->Insert(); 
Form4->Show(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn4Click(TObject *Sender) 
{ 
Close(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::BitBtn3Click(TObject *Sender) 
{ 
Form8->Show(); 
}