Лабораторна робота №8 на тему Створення форм індивідуального завдання

8.1. Завдання

1. Створіть прості форми за допомогою майстра форм для кожної з таблиць двох різних типів – у стовпець і стрічкова.

2. Створіть форму для відображення даних з декількох зв'язаних таблиць: форму з підлеглою формою, створену на основі многотабличного запиту, що містить обчислюють поля, що. У формі в області Примітка форми повинне бути поле, що підсумує значення обчислює поля, що, у підлеглій формі.

3. Створіть форму в режимі конструктора, що містить елементи керування текстове поле, список і кнопку й виконує дії, зазначені в індивідуальному завданні, за допомогою процедури, пов'язаної із кнопкою.

8.2. Варіанти індивідуальних завдань

Варіант 1

Створіть такі форми:

- форму з підлеглою формою. У головній формі повинна бути інформація про поїзд і дату відправлення. У підлеглій формі розташуєте дані про продані квитки і їхню вартість. Обчислите загальну вартість квитків.

- Форму, що містить такі елементи керування:

1) Текстове поле для уведення номера поїзда;

2) Кнопку, з якої зв'язана така програма: програма вводить із текстового поля номер поїзда, шукає відповідний запис у таблиці «Поїзда», виводить у текстові поля пункт відправлення, пункт призначення. Створює запит про продані квитки на цей поїзд із вказівкою їхньої вартості й виводить його в список. Підраховує кількість проданих квитків й їхню загальну вартість.

3) Текстові поля для висновку пунктів відправлення й призначення;

4) Список, у який виводиться інформація про продані квитки.

Варіант 2

Створіть такі форми:

- форму з підлеглою формою. У головній формі повинна бути інформація про фірму-клієнта. У підлеглій формі розташуєте відомості про автомобілі, куплених фірмою-клієнтом. Обчислите загальну вартість куплених автомобілів.

- Форму в режимі конструктора, що містить такі елементи керування:

1) текстове поле для уведення коду моделі автомобіля;

2) кнопку, з якої зв'язана процедура пошуку запису в таблиці «Автомобілі» по уведеному коді. Процедура виводить у поля назва моделі, вартість і фірму-виробника. Потім процедура формує запит про замовлення на цю модель і показує його в списку. Обчислити вартість всіх замовлень і вивести у форму;

3) текстові поля для висновку назви моделі, вартості й виробник^-виробника-фірми-виробника;

4) список, у якому відображаються замовлення на автомобіль.

- Форму, що реєструє замовлення на покупку автомобіля, з обчисленням суми податку й суми до оплати.

Варіант 3

Створіть такі форми:

- форму з підлеглою формою. У головній формі повинна бути інформація про транспорт, а в підлеглій формі перераховуються всі замовлення на перевезення цим видом транспорту з обчисленням вартості замовлення. Поле, що обчислює, повинне обчислювати загальну суму стоимостей замовлень.

- Форму в режимі конструктора, що містить такі елементи керування:

1) текстове поле для уведення коду транспорту;

2) кнопку, з якої зв'язана процедура пошуку запису в таблиці «Транспорт» по уведеному коді транспорту. Процедура знаходить запис і виводить у текстові поля назва транспорту, вартість транспорту. Потім процедура формує запит, у якому вказуються всі замовлення на цей транспорт із підрахунком вартості замовлення. Результати запиту виводяться в список. Обчислити загальну вартість всіх замовлень.

3) Текстові поля для висновку в них назви транспорту й вартості;

4) Список для висновку інформації про замовлення на перевезення з вартістю замовлення.

- Форму для реєстрації нового замовлення з можливістю вибору виду транспорту, обчисленням вартості перевезення.

Варіант 4

Створіть такі форми:

- форму з підлеглою формою. У головній формі повинна бути інформація про магазин. У підлеглої - список замовлень цього магазина з обчисленням суми замовлення й суми до оплати;

- Форму в режимі конструктора, що містить такі елементи керування:

1) текстове поле для уведення коду магазина;

2) кнопку, з якої зв'язана процедура пошуку запису в таблиці «Магазини». Процедура знаходить потрібний запис і виводить у текстові поля назва магазина, адреса й телефон. Процедура формує запит, що містить список всіх замовлень даного магазина із вказівкою дати замовлення, вартості замовлення й суми, яку потрібно заплатити (з урахуванням знижки). Обчислити загальну вартість всіх замовлень.

3) Текстові поля для висновку інформації про магазин;

4) Список для висновку інформації про замовлення.

- форму, що реєструє замовлення. При реєстрації вибір товарів у замовлення потрібно робити зі списку товарів, обчислювати вартість обраних товарів й обчислювати вартість замовлення.

8.3. Контрольні питання

1. Мети створення форми. Типи форм й їхньої особливості (проста, стрічкова й т.д.). Спливаюча форма, модальна форма.

2. Розділи форми. Властивості форм.

3. Елементи керування, призначення кожного елемента, їхньої властивості, методи, події.

4. Поняття підлеглої форми. Створення підлеглої форми й впровадження її в основну форму.

5. Створення полів, що обчислюють, у формі. Робота з построителем виражень.

6. Елементи керування список і список, що розкривається: завдання запиту як джерело даних.

7. Макрокоманда виклику форми. Перелічите всі її параметри.

8.4. Приклад виконання роботи

У прикладі розглядається задача “Робота із читачем бібліотеки”. Форма знаходить запис про читача по номері читацького квитка й виводить інформацію про книги, які на руках у читача, підраховує загальну кількість книг у читача й суму пені.

У формі розміщені такі об'єкти:

• Текстове поле, у яке вводиться номер читацького квитка. Ім'я поля - nbil;

• Текстові поля, у які записуються прізвище, кафедра й телефон. Їхні імена відповідно fam, kaf, tel;

• Командна кнопка з написом "Знайти читача". Ім'я - cmdchit;

• Командна кнопка для повернення книги. Ім'я кнопки - vozvrat;

• Командна кнопка для виклику форми пошуку й одержання нової книги. Ім'я - vzat;

• Список, у якому показуються книги, які перебувають на руках у читача. Ім'я списку - knigi;

• Два написи, розташовані під списком, у яких виводиться загальна кількість книг і пеня, за затримку книг. Їхні імена - vsego, pena.

Тексти програм, які пов'язані з формою “Робота із читачем”.

Private Sub cmdchit_Click()

' Знайти читача по номері читацького квитка

' Вивести його прізвище й список книг, які в нього на руках.

' Обчислити кількість книг і пеню за прострочені книги

Dim k As Integer, pen As Currency, i As Integer

Dim s As String, s1 As String, s2 As String, s3 As String

Dim rstreader As Recordset

Dim bil As String, nom As String

'

nbil.SetFocus

bil = nbil.Text

Set rstreader = CurrentDb.OpenRecordset("Читачи", dbOpenDynaset)

rstreader.FindFirst "[NB]='" & bil & "' "

If rstreader.NoMatch Then

MsgBox " Ви ввели не вірний номер чит. квитка "

nbil.SetFocus

Else

fam.SetFocus

fam.Text = rstreader![Прізвище]

kaf.SetFocus

kaf.Text = rstreader![Кафедра]

tel.SetFocus

tel.Text = rstreader![Телефон]

' Створюється запит і заповнюється список книг читача

nbil.SetFocus

s = "SELECT Книги.[Інв№], Книги.Автор, Книги.Назва,” & _

“Читкниги.[Дата видачі], Читкниги.[Дата повернення],"

s1 = " [Вартість]*0.01*IIf([Дата повернення]<Date(),” & _

“DateDiff(""d"", [Дата повернення], Date()), 0) AS Пеня "

s2 = " FROM [Читкниги] INNER JOIN Книги"

s3 = " ON Читкниги.[Інв№] = Книги.[Інв№] WHERE “ & _

“ Читкниги.NB=nbil.Text;"

knigi.RowSource = s & s1 & s2 & s3

k = knigi.ListCount

‘до – це кількість рядків у списку, тобто кількість книг

vsego.Caption = "Усього книг на руках - " & k

pen = 0

' Цикл по рядках списку, у якому обчислюється загальна сума пені

For i = 0 To k - 1

pen = pen + knigi.Column(5, i)

Next i

pena.Caption = " Усього пені за прострочені книги - " & pen & "гр"

End If

End Sub

Малюнок 29. Форма Робота із читачем.

З повагою ІЦ "KURSOVIKS"!