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

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

1) Відкриємо файл бази даних Підприємство.mdb.

2) Додамо таблицю Кадри у вікно конструктора запитів.

3) Перетягнемо поля Прізвище, Ім’я, По батькові, Посада, Оклад у нижню частину бланка

запиту (рис. а).

а

4) Для відбору співробітників, які працюють на посаді робітник, на значення поля Посада

встановимо умову відбору «Робітник» у рядку Условие отбора (Умова відбору).

5) Збережемо запит.

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

б

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

• https://www.plaza.kh.ua/ — інтернет-магазин цифрової техніки «Plaza»: ноутбуки,

комп’ютери, комплектуючі.

• https://www.plaza.kh.ua/guarantee/ — сервісні центри. Гарантійне обслуговування

придбаних товарів здійснюють авторизовані сервісні центри, координати яких по-

даються. Товари фірм-виробників, у яких немає сертифікованих сервісних центрів,

обслуговуються через гарантійний відділ інтернет-магазину «Plaza».

www.e-ranok.com.ua

Варіант 6 33

• https://hard.rozetka.com.ua/computers/c80095/filter/ — інтернет-супермаркет

«Rozetka»: добір комп’ютерів за такими параметрами: клас (навчальний рівень, для

роботи та навчання, ігрові комп’ютери), виробник, ціна, процесор, обсяг оперативної

пам’яті, відеокарта, обсяг жорсткого диску, оптичний привід, операційна система.

• https://rozetka.com.ua/service-centers/ — інформація про сервісні центри інтернет-

супермаркету «Rozetka».

• https://www.spark.ua/ — інтернет-магазин «Spark»: комп’ютери, портативна

техніка, монітори, комплектуючі, МФУ, принтери, сканери, планшети, оргтехніка,

мультимедіа, аксесуари для ПК, витратні матеріали, програмне забезпечення, носії

інформації, інтернет-карти, usb-сувеніри.

• https://service.spark.com.ua/ — інформація про сервісний центр інтернет-магазину

«Spark».

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

Встановити значення властивостей в Інспекторі об’єктів для об’єкта Form: Caption — Літаюча

кнопка, задати Width та Height форми, з палітри компонентів вибираємо необхідні компоненти,

встановлюємо властивості Interval — 1000 для компоненти Timer. В Інспекторі об’єктів встановити

для об’єкта BitBtn значення Caption — відповідно запропонованій в завданні назві кнопки, Glyph —

завантажити малюнок на кнопку.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn; // вкладка Additional, компонент BitBtn

Timer1: TTimer; // вкладка System, компонент Timer

procedure FormActivate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private { Private declarations }

delta: integer;

public { Public declarations }

end;

var Form1: TForm1;

implementation

uses Types; {$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);

Begin

delta: = 20; // 20 — крок для переміщення кнопки

end;

procedure TForm1.Timer1Timer(Sender: TObject);

Begin

if BitBtn1.Left+ 80 > Form1.Left + Form1.Width — 80 then //80 — розмір кнопки

Begin

BitBtn1.Left: = 5;

BitBtn1.Top: = 15;

delta: = 20;

end;

if BitBtn1.Top + 80 > Form1.BoundsRect.Bottom – 80 then delta: = –20;