O’zbekiston respublikasi raqamli texnologiyalar vazirligi muhammad al

4.Rasm. Ribbon controls komponentalar politrasidagi Ribbon komponentasidan foydalanib bu menyuni yaratib oldim.

4.Rasm

5.Rasm Qo’shish tugmasi bosilganda qo’shish amalini bajarish uchun yangi oyna yaratib oldim va Jadvalimga ma’lumot qo’shish uchun Data controls komponentalar politrasidan DBEdit komponentasidan foydalandim.

Qo’shish tugmasi ostiga quyidagi kodni yozdim.
void __fastcall TForm1::Action10Execute(TObject *Sender)
{
Form3->Show();
Form3->Caption = " qo'shish";
DataModule2->ADOTable->Insert();
}

OK tugmasi bosilganda yangi qo’shmoqchi bolgan ma’lumotlarni jadvalimga qo’shib berishi uchun quyidagi kodni kiritdim
void __fastcall TForm3::BitBtn2Click(TObject *Sender)
{
DataModule2->ADOviloyat->Post();
Form3->Close();
}
}Cancel tugmasi bosilganda jarayonni to’xtatish uchun Cancel tugmasi ichiga quyidagi kodni yozdim.
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
DataModule2->ADOviloyat->Cancel();
Form3->Close();
}
Action Manager komponentasidan foydalanib Tahrirlash tugmasini hosil qildim va uni ichiga quyidagi kodni yozdim.

void __fastcall TForm1::Action11Execute(TObject *Sender)
{
Form6->Show();
Form6->Caption = "Tahrirlash";
DataModule2->ADOmaktab->Edit();
}
Action Manager komponentasidan foydalanib O’chirish tugmasini hosil qildim va uni ichiga quyidagi kodni yozdim.

void __fastcall TForm1::Action3Execute(TObject *Sender)
{
DataModule2->ADOviloyat->Delete();
}
Shunday qilib Viloyatlar bo’limi tayyor bo’ldi, huddi shu holatda qolgan bo’limlar uchun ham jarayonni takrorladim va natijaga erishdim.

3.2 Loyihadan foydalanish tartibi

1. Yangi Viloyatni qo’shish uchun Viloyatlar bo’limidagi qo’shish tugmasini bosamiz

Yangi hosil bo’lgan oynaga so’ralgan ma’lumotlarni kiritamiz va OK tugmasini bosamiz.