Embarcadero Rad Studio xe2 muhiti bilan tanishish

Konstruktor tablitsadan yaratib olamiz.

---

Va bu yerda dorilar ro’yhati uchun jadval yaratib olamiz:
Endi buni ochgan papkamizga win32/Debug/... papkasiga joylaymiz.
Va ochgan formamizga kirib button dan tortta komponentasidan foydalanib
loihamizni amaliy qismini XE3 da boshlaymiz. Va uni Caption , fontv va boshqa
xususiyatlarini yozamiz va to’g’irlimiz.
Va ma’lumotlar bazasini bog’laymiz. Buning uchun File->New->Others->C++
Builder files-> Data Module ustiga bosamz va ma’lumotlar ba’zasini bog’lash
uchun yangi forma ochib olamiz.

---

Yangi formaga ma’lumotlar ba’zasini bog’lash uchun 1ta ADOConnection
1 ta ADOTable va 1 ta DataSource komponentalarini qo’shamiz.
Endi formaga 1 ta DBgrid1 tashlab ma’lumotlarni ekranga ko’rinadigan qilamiz.
Bunda DataSours xususiyatidan tat’il tanlab qo’yamiz.Va formani pastki qismiga 4
bitbutton tashab unga qodhish, taxrirlash, o’chirish va bosh sahifaga otish
xusussiyatini yaratamiz.

---

Qo’shish kodi:
void fastcall TForm2::BitBtn1Click(TObject *Sender)
{
Form4->Caption="..::Qo'shish ::..";
Form4->Show();
dm->ADOTable1->Insert();
}
O’zgartirish kodi:
void fastcall TForm2::BitBtn2Click(TObject *Sender)
{
Form4->Caption="..::Taxrirlash::..";
Form4->Show();
dm->ADOTable1->Edit();
}
O’chirish kodi:
void fastcall TForm2::BitBtn3Click(TObject *Sender)
{
Form2->Show();

---

dm->ADOTable1->Delete();
}
Bosh sahifaga otish kodi:
void fastcall TForm2::BitBtn4Click(TObject *Sender)
{
Form1->Show();
Form2->Close();
}
Dastur ishlaganda ekranni o’rtasida ishga tushishi uchun Formani position
xususiyatini poMainFormCenter qilib o’zgartiramiz. Shundan so’ng bu forma
Asosiy formamizning Markazida ishga tushadi.
Ta’tilga chiqivchi uchun aloxida forma yaratamiz bunda unga tegishli ma’lumotlar
kirgaziladi. Bunda xam malumotni saqlash uchu 2 ta button tashab unga saqlash,
va bekor qilishni yaratib olamiz.
Barchasini joylashtirib Labellarimizni Caption xususiyatini mos tarzda
o’zgartiramiz va DBEditlarni DataSource xususiyatidan bolalarni tanlaymiz
DataField fususiyatini ham birin ketin tanlaymiz.
Va OK ca CANCEL tugmalari uchun kod yozamiz.
Ok tugmasiga yozilgan kod:

---

void fastcall TForm4::BitBtn1Click(TObject *Sender)
{
dm->ADOTable1->Post();
Form4->Close();
}
CANCEL tugmasiga yozilgan kod:
void fastcall TForm4::FormClose(TObject *Sender, TCloseAction &Action)
{
dm->ADOTable1->Cancel();
}
Dorixonada dorilar ro’yhati dasturidan foydalanish.
Dorilarni tahrirlash bosilganda

---

Qo’shish bosilganda
Bosh sahifaga qaytish bosilsa asosiy sahifaga qaytadi