To’xtasinov Islombekning Dasturlash 2 fanidan Loyiha ishi Mavzu: Axborot resurs markazi tizimini yaratish

To’xtasinov Islombekning Dasturlash 2 fanidan Loyiha ishi
Mavzu:Axborot resurs markazi tizimini yaratish .
** Bu dasturda axborotlarni kitoblar deb hisoblaymiz.

Dastur kodi :
//---------------------------------------------------------------------------

#include

#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

/* Ushbu holatda dastur ochish kodini yozilgan kodlar malumotlarni korish uchun xizmat qiladi */
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->Visible=false;
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{

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

/* Bu formada esa malumotlarni ko’rish va tahrirlash uchun xizmat qiladi.*/

Unit 2
//---------------------------------------------------------------------------

#include
#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
Form2->Visible=false;
Form1->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
Form1->ADOTable1->Insert();
Form3->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn2Click(TObject *Sender)
{
Form3->ShowModal();
Form1->ADOTable1->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::BitBtn3Click(TObject *Sender)
{ int r = MessageDlg("Ma'lumotni o'chirmoqchimisiz",mtWarning,TMsgDlgButtons()< if (r==mrOk)
{
Form1->ADOTable1->Delete();
ShowMessage("Ma'lumot o'chirildi");
}
}
//---------------------------------------------------------------------------



/*Ushbu formada malumotla ustida ishlar bajarish uchun qo’llaniladi*/

Unit3
//---------------------------------------------------------------------------

#include
#pragma hdrstop

#include "Unit3.h"

#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
Form1->ADOTable1->Post();
Form3->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm3::BitBtn2Click(TObject *Sender)

{
Form1->ADOTable1->Cancel();

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

void __fastcall TForm3::FormCreate(TObject *Sender)
{

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