Экзаменационная ведомость

По дисциплине Базы Группа 4 ПО-1

№	Фамилия, имя, отчество студентов	№ экзаменационного билета	Оценка по экзамену		Подпись экзаменатора
			цифрой	прописью
1	……	…….	…	….

Общая успеваемость (%)-

Задача 14.

Создать базу данных «Оплата за обучение» в СУБД Microsoft Access, заполнить ее информацией. Записать процедуру, в которой каждый символ 20-значного лицевого счета, поместить в отдельную ячейку массива. Выдать отчет «Извещение», используя при формирование отчета поле <лицевой счет>, разбитый по символам.

ИЗВЕЩЕНИЕ ____________________________________________________________

Фио студента

личный л/сч 4 0 9 1 1 8 1 0 3 7 0 3 0 3 9 0 2 0 3 5

Назначение платежа	Дата	Сумма
Оплата за обучение	02.10.2006	8 000,00

\

Задача 15.

По данному программному модулю создать таблицу «Студенты» в СУБД Microsoft Access и запустить данную процедуру на выполнение через макрос. Результат вывести в виде формы.

Function формир ()

Dim d As Database

Set d = DBEngine. Workspaces (0). Database (0).

Dim f As Recordset

Set f = d. OpenRecordset ("Студенты")

Do Until f. EOF

f.Edit

f! Адрес = f! Регион & ", " & f! Индекс & ", " & f! НазваниеНасПункта & " " & f! На

селенныйПункт & " , " & f! Улица & ", " & f! Квартира & ", " & "тел." & f! Телефон

f! данные паспорта = f! СерияПаспорта & " " & f! №Паспорта & f! кемвыдан & " " & f! когдавыдан

f! инициалы = f! фамилия & " " & Left (f! имя, 1) & " Left (f! отечество, 1) & "."

f! фамио = f! фамилия & " " & f! отчество

f! Update

f! MoveNext

Loop

End Function

Задача 16.

Для данного программного модуля создать базу данных в СУБД Microsoft Access и через макрос запустить его на выполнение. Результат вывести в виде таблицы.

Public Function прогр()

Dim d As Database

Dim s As Recordset

Dim b As Recordset

Dim f As Recordset

Set d = DBEngine.Workspaces(0).Databases(0)

Set f = d.OpenRecordset("Успеваемость")

Set b = d.OpenRecordset("Студенты")

f.Index = "инс"

Do Until b.EOF

f.Seek "=", b!инс

If f.NoMatch = True Then

Set s = d.OpenRecordset("УчПланы")

Do Until s.EOF

If b!группа = s!группа Then

f.AddNew

f!инс = b!инс

f!часы = s!часы

f!дисциплина = s!дисциплина

f.Update

End If

s.MoveNext

Loop

End If

b.MoveNext

Loop

Msgbox (“Программа завершена успешно”)

End Function

Задача 17.

Написать программный модуль для расчета средней месячной температуры. Создать отчет, в котором показать:

Наименование месяца	Число	t
…	…	…

Рассчитать среднемесячную температуру (t=).

Задача 18.

Создать базу данных «Товар» в СУБД Microsoft Access, заполнить ее информацией. Создать экранную форму «Товар на складе», вычислив стоимость товара в процедуре.

Наименование	Цена	Количество	Стоимость
….	…	…	…
		ИТОГО:	ИТОГО:

Задача 19.

Создать форму «Тарификация по группе» в СУБД Microsoft Access. Заполнить ее информацией. Написать процедуру для автоматического получения итоговой суммы при вводе количества часов в каждую колонку формы.