«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша
жүктеу/скачать 2,7 Mb.
|
«Бағдарламалау тілдері» пәнінен тәжірибелік жұмыстар жинағы
| 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 өңдеуші оқиғасын құрамыз: void __fastcall TForm1::Button3Click(TObject *Sender) { if (Table1->Active) { Table1->SetRangeStart(); Table1->Fields[0]->AsString = Edit1->Text; Table1->SetRangeEnd(); Table1->Fields[0]->AsString = Edit2->Text; Table1->ApplyRange(); } } Енді Edit1 және Edit2 өңдеу өрістері және Button3 батырмасы көмегімен клиенттер нөмірі диапазонын таңдауға болады, яғни олар туралы мәліметтер DBGrid1 көрінуі үшін. Сосын Visual Query Builder арқылы Query2 компонентінің SQL қасиетін орнатамыз. Деректер қоры аты ретінде BCDEMOS таңдаймыз және сұранысқа CUSTOMER және ORDERS кестелерін енгіземіз. Ары қарай кестелер арасында байланыс орнатамыз. Сұранысқа келесі өрістерді енгіземіз: - Customer.CustNo - Customer.Company - Orders.OrderNo - Orders.AmountPaid 4.3.2-сурет. Аралас сұраныс құру үшін Visual Query Builder қолдану Енді сұраныс нәтижесін сатып алушы нөмірі бойынша сұрыптаймыз және Visual Query Builder –ден шығамыз. Объектілер инспекторын қолданып, Query2 компонентін таңдаймыз және Active қасиеті мәнін true теңестіреміз. RadioButton3 радиобатырмасына OnClick өңдеуші оқиғасын құрамыз: жүктеу/скачать 2,7 Mb. Достарыңызбен бөлісу:
|