Маълумотлар базаси билан ишлаш


Download 0.53 Mb.
bet4/4
Sana16.02.2023
Hajmi0.53 Mb.
#1204399
1   2   3   4
Bog'liq
1522390980 70427

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 методидан фойдаланилади.
    Download 0.53 Mb.

    Do'stlaringiz bilan baham:
  • 1   2   3   4




    Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
    ma'muriyatiga murojaat qiling