Мавзу: Маълумотлар базасини яратиш технологияси

void __fastcall TForm1::Button3Click(TObject *Sender)

{

// O'chirish tugmasi bosilganda

int res = MessageDlg(

"Yozuvni o'chirmoqchimisiz!",

mtInformation,

TMsgDlgButtons() << mbYes << mbNo, 0

);

if (res == mrYes) {

ADOTable1->Delete();

}

}

Жадвалдаги маълумотларни ўчириш учун фойдаланувчидан ўчириш рухсатномаси ёрдамида сўраш амалга оширилади. Агарда фойдаланувчи ўчириш учун рухсат берса, дастур томонидан фаол турган ёзув ўчирилади. Агарда фойдаланувчи томонидан ўчиришга рухсат берилмаса, у ҳолда дастур ўчириш буйруғини инобатга олмайди.
Листинг 7.3.4: “Сақлаш” тугмасининг OnClick ҳодисаси

1. 
   void __fastcall TForm1::Button5Click(TObject *Sender)
   
2. 
   {
   
3. 
   // Saqlash tugmasi bosilganda
   
4. 
   ADOTable1->Post();
   
5. 
   GroupBox1->Visible = False;
   
6. 
   }
   

Дастур жадвалга янги маълумот қўшиш ёки мавжуд маълумотларни тахрирлашдан сўнг сақлаш буйруғини амалга оширади. Бу буйруқ ADOTable1 объектининг Post методи ёрдамида амалга оширилади. GroupBox1 объектининг Visible ҳусусияти false қиймат берилиб, бу объект кўринмаслини таъминланмоқда.
Листинг 7.3.5: “Бекор қилиш” тугмасининг OnClick ҳодисаси

1. 
   void __fastcall TForm1::Button6Click(TObject *Sender)
   
2. 
   {
   
3. 
   // Bekor qilish tugmasi bosilganda
   
4. 
   ADOTable1->Cancel();
   
5. 
   GroupBox1->Visible = False;
   
6. 
   }
   

Дастур жадвалга янги маълумот қўшиш ёки мавжуд маълумотларни тахрирлаш фойдаланувчи томонидан бекор қилиниши мумкин. Бу вақтда амалга оширилган ўзгаришларни бекор қилинади. Бу ўзгаришларни бекор қилиш учун ADOTable1 объектининг Cancel методидан фойдаланилади.