«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша



бет59/63
Дата06.01.2022
өлшемі2,75 Mb.
#14335
1   ...   55   56   57   58   59   60   61   62   63
void __fastcall TForm1::Button1Click(TObject *Sender)

{

if (Table1->Active)

{

Table1->Close();



Button1->Caption = "Ioe?uou nienie &eeeaioia";

}

else

{

Table1->Open();



Button1->Caption= "Cae?uou nienie &eeeaioia";

}

}



Енді осы батырманы басқанда Customer кестесі бірде ашылады, бірде жабылады, сонымен қатар батырмадағы жазу өзгеріп отырады.

Button2 батырмасына OnClick өңдеуші оқиғасын құрамыз :

void __fastcall TForm1::Button2Click(TObject *Sender)

{

if (Query1->Active)

{

Query1->Active = false;



Button2->Caption = "Ioe?uou список &caeacia";

}

else

{

Query1->Active = true;



Button2->Caption = "Заe?uou список &caeacia";

}

}



Button2 батырмасын басқанда Query1 сұранысы бірде ашылады, бірде жабылады, құрамында тапсырыстар тізімі бар:

RadioButton1 және RadioButton2 радиобатырмаларына OnClick өңдеуші оқиғасын құрамыз:

void __fastcall TForm1::RadioButton1Click(TObject *Sender)

{

DBGrid1->DataSource = DataSource1;



}

//------------------------------------------------------------------------





Достарыңызбен бөлісу:
1   ...   55   56   57   58   59   60   61   62   63




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет