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

жүктеу/скачать 2,75 Mb.

бет	60/63
Дата	06.01.2022
өлшемі	2,75 Mb.
	#14335

1 ... 55 56 57 58 59 60 61 62 63

Байланысты:
000ee066-e66f71bc

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,75 Mb.

Достарыңызбен бөлісу:

1 ... 55 56 57 58 59 60 61 62 63