![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Частина 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;
|