Задание №4. 1. Откройте новое приложение
1. Откройте новое приложение. Скопируйте в свой каталог таблицу Animals (создайте псевдоним , если он не существует) .
2. Поместите на модуль данных (DMod) компоненты TQuery (AnimalsQuery), TDataSource.
3. Для объекта TQuery установите в свойстве DatabaseName значение используемого алиаса, в свойстве Name значение AnimalsQuery, в свойстве SQL введите с помощью редактора:
Select * from Animals
where
Animals.”Size” > :Size and
Animals.”Weight” > :Weight
4. Для объекта DataSource установите в свойстве Name значение AnimalsDataSource, в свойстве DataSet выберите из списка AnimalsQuery.
5. Поместите на форму компонент TDBGrid, 2 компонента TListBox, TBBImage. Разместите их как показано на рисунке
6. Также поместите на форму два компонента Label, чтобы ввести надписи Size и Weight.
7. Включите модуль данных в основную форму.
8. Для объекта TDBImage установите значение свойства DataSource , выбрав из списка, и введите в свойство DataField значение BMP (так называется поле в таблице).
9. Для объекта TDBGrid определите источник данных, выбрав из списка.
10. В модуле данных (DMod) поместите метод для выполнения условия для двух операторов:
void TDMod::RunQuery(int Box1, int Box2)
{
AnimalsQuery->Close();
AnimalsQuery->Prepare();
AnimalsQuery->Params->Items[0]->AsInteger=Box1;
AnimalsQuery->Params->Items[1]->AsInteger=Box2;
AnimalsQuery->Open();
}
11. Для формы определите события OnCreate:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int i;
AnsiString S;
for (i=0; i<40; i++)
{
S=i;
ListBox1->Items->Add(S);
ListBox2->Items->Add(S);
}
ListBox1->ItemIndex=0;
ListBox2->ItemIndex=0;
}
Также для формы определите событие OnShow:
void __fastcall TForm1::FormShow(TObject *Sender)
{
DMod->RunQuery(0,0);
}
12. В форме для обоих списков для события OnClick поместите следующую процедуру:
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
DMod->RunQuery( ListBox1->Items->Strings[ListBox1->ItemIndex].ToInt(),
ListBox2->Items->Strings[ListBox2->ItemIndex}.ToInt());
}
13. Запустите приложение на выполнение. Убедитесь в работоспособности приложения.