Задание №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. Разместите их как показано на рисунке

Задание №4. 1. Откройте новое приложение - student2.ru

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. Запустите приложение на выполнение. Убедитесь в работоспособности приложения.

Наши рекомендации