void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (DataModule1->Query1->Active)
{
DataModule1->Query1->Active = false;
Button2->Caption = "Открыть таблицу &заказов";}
else
{
DataModule1->Query1->Active = true;
Button2->Caption = "Закрыть таблицу &заказов";
}
}
//-----------------------------------------------------
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
DBGrid1->DataSource = DataModule1->DataSource1;
}
//-----------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
DBGrid1->DataSource = DataModule1->DataSource2;
}
//-----------------------------------------------------
void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
DBGrid1->DataSource = DataModule1->DataSource3;
}
//----------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (DataModule1->Table1->Active)
{
DataModule1->Table1->SetRangeStart();
DataModule1->Table1->Fields[0]->AsString = Edit1->Text;
DataModule1->Table1->SetRangeEnd();
DataModule1->Table1->Fields[0]->AsString = Edit2->Text;
DataModule1->Table1->ApplyRange();
}
}
//-----------------------------------------------
Тапсырмалар
1-деңгей
DataModule және TQuery компоненттерін қолданып деректер қоры қосымшасын құру:
1. Жоғарғы оқу орнының студенттері туралы мәліметтер.
2. Автотранспорттық шаруашылық жұмысы.
3. Компьютерлік фирма жұмысы.
2-деңгей
1. Аэропорт кассасы жұмысы.
2. Оқытушылардың жүктемесiн есептеу
3. Автосалон жұмысы.
3-деңгей
1. Поликлиника дәрігерлері туралы мәліметтер.
2. Кітапхана.
3. Аэропорт анықтамалық бюросының мәліметтері.
4. Стоматология.
Достарыңызбен бөлісу: |
