Частина 4

16. Завдання на створення запиту СУБД MS Access.

1) Відкриємо файл бази даних Розклад руху літаків.mdb. Додамо таблицю Рейси у вікно конструктора запитів.

Перетягнемо поля Рейс, Напрям, Відліт, Прибуття, Дні в нижню частину бланка запиту (рис. а).

Для відбору рейсів, які здійснюються щоденно, встановимо на значення поля Дні умову відбору «ЩДН» в рядку Условие отбора (Умова відбору). Знімемо прапорець у рядку Вывод на экран (Ви­ведення на екран) у нижній частині бланка запиту в полі Дні. Збережемо запит.

У режимі перегляду таблиці запит гляд, як показано на рис. б.

а

17.Для виконання завдання можна скористатися такими посиланнями:

• http://www.furshet.ua/ua/ — супермаркет «Фуршет», м. Київ.

• http://zakaz.furshet.ua/ru/ — група товарів: солодощі, чипси, снеки ^ тістечка.

• http://furshet.zakaz.ua/ru/store/#!a=category:0:напитки — група товарів: напої ^ сік.

• http://furshet.zakaz.ua/ru/store/#!q=мороженое — група товарів: морозилка ^ морозиво.

• http://megamarket.ua/ — супермаркет «Мегамаркет», м. Київ.

• http://megamarket.ua/catalog/search.php?s=тістечка&g=0 — група товарів: кондитерські ви­роби ^ тістечка.

• http://megamarket.ua/catalog/bezalkogoln_napoyi/napoi_skovmsn_soki_morsi_nektari/ — група товарів: безалкогольні вироби ^ напої, соки.

• http://megamarket.ua/catalog/zamorozhen_produkti/morozivo/ — група товарів: заморожені продукти ^ морозиво.

• http://veselyj-kloun.prom.ua/ — супермаркет «Веселий Клоун», м. Київ.

• http://veselyj-kloun.prom.ua/p305686-kakoj-prazdnik-bez.html — дитячий день народження з повітряними кульками.

18.Задача на програмування мовою Delphi.

Встановити в Інспекторі об'єктів для об'єкта Form значення Caption — Змінюємо колір кноп­ки. Змінити колір кнопки Button, BitBtn не можна, тому що їх малює Windows, у них використову­вати колір дозволяє компонент ColorBtn. Тому з палітри компонентів (вкладка Additional) вибираємо компонент TSpeedButton, на який можна розмістити малюнок. Готуємо у графічному редакторі

малюнки white.bmp і yellow.bmp (прямокутники білого й жовтого кольорів). При наведенні миші на кнопку завантажується малюнок із жовтим прямокутником, при переміщенні на форму — ма­люнок із білим прямокутником. Встановлюємо властивості об'єкта SpeedButton: розмір 225 х 120, за допомогою властивості Glyph завантажуємо малюнок white.bmp на кнопку, властивість Caption встановлюємо «колір кнопки — білий», властивість Layout встановлюємо blGlyphTop (заголовок на кнопці знаходитиметься під малюнком, ми його будемо бачити). unit Unit1; interface uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons; type

{ TForm1 }

TForml = class(TForm) SpeedButton1: TSpeedButton;

procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private

{ private declarations } public

{ public declarations } end;

var Form1: TForm1;

f: boolean=false; implementation {$R *.dfm} { TForm1 }

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin