Loyiha ishi mavzu: Kutubxona axborot tizimlari

C++ Builder dasturlash tili.
Xozirgi vaqtga kelib komp`yuter olamida ko’plab dasturlash tillari mavjud. Paskal, C++, Delphi va boshqa dasturlash tillaridir. C++ dasturlash tili universal tildir. U UNIX sistemasi bilan bog`langan bo`lib, bu sistemada ishlatiladigan bir qancha dasturlar C++ tilida yozilgan. C++ Denis Ritchi tomonidan 1972 yili UNIX tipidagi operasion sistemalarini yaratish uchun loyihalashtirilgan.Borland C++ dasturlash tili Windows uchun mo’ljallangan bo’lib, uning birinchi versiyasi Windows operatsion sistema qobig’ida ishlagan. Borland C++ dasturlash tili – bu dasturlarni qayta ishlash muxiti bo’lib, Windows operatsion sistemasida ishlaydi. Unda ob'ektli dasturlash tillari bo’lgan Object mujassamlashgan. Borland C++ dassturlash tili turli xolat protseduralarini qayta ishlash va dasturlarni qayta ishlashda vaqtdan yutish va boshqalarni o’z ichiga oladi.
Dastur yaratish muhiti

Dastur yaratish umumlashgan muhiti Redaktor form – Shakllar muharriri, Inspektor ob’ektov – Ob’ektlar inspektori, Palitra komponentov – Komponentlar palitrasi, Administrator proekta – Proekt administratori va to’la umumlashgan Redaktor koda – Kodlar muharriri hamda kodlar va resurslar ustidan to’liq nazoratni ta’minlaydigan , dastur ilovalarini tezkor yaratadigan Otladchik - instrumentov - Sozlash- instrumentlari kabilarni birlashtiradi.

3. DASTURIY QISM
Navicat PREMIUM dasturiga MySQL bazamizni ulab Bazani yaratib olamiz.


Standart komponentalar va iconlardan foydalanib formalarga dizayn berib dastur tuzishni va Ma’lumotlar bazasini ulab ishni boshlaymiz
















Dasturda quyidagi kodlardan foydalanilgan :
#include
#pragma hdrstop
#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"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{

//5-sinflar

if(Edit1->Text==("Usmonov") & Edit2->Text==("0161"))

{
Form2->ShowModal();
}
if(Edit1->Text=="Aliyev" & Edit2->Text=="6294")
{
Form2->ShowModal();
}
if(Edit1->Text=="Nuriddin" & Edit2->Text=="0032")
{
Form2->ShowModal();
}
if(Edit1->Text=="Shamatov" & Edit2->Text=="1009")
{
Form2->ShowModal();
}
if(Edit1->Text=="Meliboyev" & Edit2->Text=="3939")
{
Form2->ShowModal();
}

//9-sinflar

if(Edit1->Text==("Ganiyev") & Edit2->Text==("0000"))

{
Form2->ShowModal();
}
if(Edit1->Text=="Valiyev" & Edit2->Text=="0000")
{
Form3->ShowModal();
}
if(Edit1->Text=="Mansurov" & Edit2->Text=="0000")
{
Form3->ShowModal();
}
if(Edit1->Text=="Abdullayev" & Edit2->Text=="0000")
{
Form3->ShowModal();
}
if(Edit1->Text=="Mamadaliyev" & Edit2->Text=="0000")
{
Form3->ShowModal();
}

else
MessageDlg("Xato ! ", mtError, TMsgDlgButtons() <

Edit1->Text=EmptyStr;

Edit2->Text=EmptyStr;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{

Form4->Show();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
MessageDlg("TATUFF TT VA KT FAKULTETI \n 620-21 GURUH \nUSMONOV MA'MURJON", mtInformation, TMsgDlgButtons() <}
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
if (Edit1->Text==("Ubaydullayev") & Edit2->Text==("0013"))
{
Form5->ShowModal();
}
if(Edit1->Text==("Solijonov") & Edit2->Text==("5603"))
Form6->ShowModal();

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

void __fastcall TForm4::FormCreate(TObject *Sender)
{
Form7->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::BitBtn1Click(TObject *Sender)
{
if (Edit3->Text == "BIR") {
Button2->Visible=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button2Click(TObject *Sender)
{
Form7->Show();
}
{
Form5->ADOTable2->Post();
MessageDlg("Baholandi !", mtInformation, TMsgDlgButtons() <}
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button3Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button4Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button1Click(TObject *Sender)
{
Form7->ADOTable1->Post();
Form7->ADOTable2->Post();
Form7->ADOTable3->Post();
}

XULOSA.