7.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. Форма Работа с читателем.

Лабораторная работа № 8

Тема: Создание отчетов индивидуального задания

8.1 Задание.

1. Создайте с помощью мастера отчет, в котором отображаются данные из таблицы вашей базы данных. В отчете должно быть вычисляемое поле и поля, которые подсчитывают итоговые величины для нескольких числовых полей.

2. Создайте с помощью конструктора отчеты, указанные в вашем индивидуальном задании.

8.2 Индивидуальные задания к лабораторной работе

Вариант 1

Создайте отчеты:

• общая стоимость проданных билетов за каждый месяц с начала текущего года;

• для каждого поезда и даты отправления общее количество проданных билетов с подсчетом процентного вхождения к общему количеству проданных билетов по всем рейсам.

Вариант 2

Создайте отчеты:

• -количество заказов для каждой модели на каждый квартал и общая уплаченная сумма;

• для каждого клиента все заказы с вычислением стоимости заказа и суммы к оплате.

Вариант 3

Создайте отчеты:

• общую стоимость перевозок для каждого вида транспорта за каждый месяц текущего года;

• для каждого заказчика все заказы на перевозки с вычислением стоимости перевозки.

Вариант 4

Создайте отчеты:

• для каждого заказа перечень заказанных товаров, количество заказанных товаров и их стоимость с вычислением общей суммы заказа и суммы к оплате;

• для каждого магазина перечень заказов с указанием даты заказа, суммы заказа и даты оплаты.

8.3 Контрольные вопросы

1. Назначение и использование отчетов. Возможности обработки данных с помощью отчетов.

2. Элементы отчета, их назначение и использование. Создание групп данных в отчете.

3. Итоги в отчетах, итоговые функции. Элементы управления, которые используются в отчетах.

Лабораторная работа № 9

Тема: Создание базы данных в SQL.

Литература

1. Бекаревич Ю., Пушкина Н. Самоучитель Microsoft Access 2000. – СПб.: БХВ – Санкт-Петербург, 2000. – 356 с.

2. Михеева В., Харитонова И. Microsoft Access 2000.– СПб.: БХВ – Санкт-Петербург, 2000. – 508 с.

3. Марков А.С. Базы данных: Введение в теорию и методологию: Учебник для ВУЗов по спец. «Прикладная математика». – М.: Финансы и статистика, 2006. – 510 с.

4. Кузин А.В. Разработка баз данных в системе Microsoft Access: Учебник для ВУЗов по спец. «Прикладная информатика». – М.: Форум Инфра, 2005. – 223 с.

5. Сеннов А. Access 2003: Практическая разработка баз данных. – С.– Петербург: Питер, 2005. – 2005. – 225 с.

6. Диго С.М. Базы данных: Проектирование и использование: : Учебник для ВУЗов по спец. «Прикладная информатика». – М.: Финансы и статистика, 2005. – 590 с.

7. Харрингтон Д. Разработка баз данных. – М.: Дик Пресс, 2005. – 269 с.

8. Советов Б.Я. Базы данных: Теория и практика: Учебное пособие для ВУЗов. – М.: Высшая школа, 2005. – 462 с.