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



бет58/62
Дата08.02.2022
өлшемі2,7 Mb.
#117933
1   ...   54   55   56   57   58   59   60   61   62
Байланысты:
с

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;
}
//------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
DBGrid1->DataSource =DataSource2;
}
Енді осы радиобатырмалар көмегімен клиенттер тізімі және тапсырыстар тізімі арасында ауысуға болады.
Button3 батырмасына OnClick өңдеуші оқиғасын құрамыз:


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




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

    Басты бет