Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Вариант 17
Решается задача расчета сметы на выполнение работ по объекту. База данных содержит четыре таблицы. Входная информация для решения задачи содержится в таблицах "Расценки", "Объекты", а выходная – в таблицах "Программа работ" и "Смета". При решении этой задачи формируются (добавляются) новые записи в выходных таблицах "Программа работ" и "Смета".
Стоимость работ, выполняемых на объекте, рассчитывается в соответствии с их расценками. Справочная информация о выполняемых предприятием работах находится в таблице "Расценки" а сведения об объекте – в таблице "Объекты".
Состав полей входных таблиц базы данных:
|
“Расценки” |
“Объекты” |
|
Код работы Наименование работы Расценка (руб. за ед.) |
Код объекта Наименование объекта Адрес |
В форму осуществляется ввод следующей информации о работах, которые необходимо выполнить на объекте:
В таблице "Объекты" осуществляется поиск записи с введенным кодом объекта. Если искомая запись найдена, то программа должна предусмотреть выполнение следующих операций: произвести поиск записи в таблице "Расценки" с введенным кодом работы и в случае, если искомая запись найдена выполнить расчеты и добавить новые записи в таблицы "Программа работ" и "Смета".
Выходные таблицы имеют следующий состав полей
|
“Программа работ” |
"Смета" |
|
Код объекта Код работы Объем работ (в ед.) |
Код объекта Наименование объекта Наименование работы Объем работ (в ед.) Стоимость работы (руб.) |
Примечание: Для корректного решения задачи при выполнении задания 2 необходимо предусмотреть в начале каждого сеанса работы с программой, реализующей решение данной задачи, полную очистку (удаление всех записей) выходной таблицы "Смета".
Решается задача обработки поступления товаров на склад. База данных содержит две таблицы. Входная информация для решения задачи содержится в таблице "Наличие", а выходная – в таблице "Накладные". При решении этой задачи корректируются записи входной таблицы "Наличие" и формируются (добавляются) новые записи в выходную таблицу "Накладные".
Справочная информация о товарах, хранящихся в магазине, имеется в таблице "Наличие", содержащей следующие данные:
В форму осуществляется ввод информации о каждой поступившей на склад партии товаров:
В таблице "Наличие" осуществляется поиск записи с введенным кодом детали. Если искомая запись найдена, то программа должна предусмотреть выполнение следующих операций:
Произвести корректировку найденной записи в таблице "Наличие", заключающуюся в добавлении к значению поля "Остаток" введенного значения "количество" и в замещении значения поля "Дата" на введенное значение "дата поступления".
Добавить новую запись в таблицу "Накладные".
Выходная таблица имеет следующий состав полей:
Форма, в которую осуществляется ввод данных для решения данной задачи, имеет следующий вид:
Текст VBA – кода размещен в модуле класса формы "Поступление"
Option Compare Database
Option Explicit
Dim n As String
Dim t As String
Dim d As Date
Dim k As Single
Private Sub Кнопка10_Click()
On Error GoTo Err_Кнопка10_Click
n = Поле0.Value
t = Поле2.Value
d = Поле4.Value
k = Поле8.Value
Obrabotka
Поле0.Value = Null
Поле2.Value = Null
Поле4.Value = Null
Поле8.Value = Null
Exit_Кнопка10_Click:
Exit Sub
Err_Кнопка10_Click:
MsgBox Err.Description
Resume Exit_Кнопка10_Click
End Sub
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
DoCmd.Close
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
Function Obrabotka()
Dim dbs As Database
Dim rst As Recordset
Dim nst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("наличие")
Set nst = dbs.OpenRecordset("накладные")
rst.MoveFirst
Do Until rst.EOF
If t = rst![Код товара] Then
rst.Edit
rst![Остаток] = rst![Остаток] + k
rst![Дата] = d
rst.Update
nst.AddNew
nst![Номер накладной] = n
nst![Код товара] = t
nst![Дата поступления] = d
nst![Количество по накладной] = k
nst.Update
End If
rst.MoveNext
Loop
End Function
Указания к выполнению задания №2 по СУБД ACCESS с использованием программирования.
Для выполнения этого задания необходимо владеть основными управляющими конструкциями языка VBA, иметь достаточное представление об объектах ACCESS и объектах доступа к данным DAO, о подходах к обработке событий.
Для выполнения этого задания необходимо написать VBA-код обработки данных входных таблиц с целью заполнения выходных таблиц базы данных. Этот код может содержать несколько процедур и размещаться в стандартном модуле и (или) в модуле класса формы.
Необходимо на проверку представить файл базы данных с необходимыми компонентами, записанный на дискете и текстовый файл, содержащий текст VBA- кода с пояснениями и вид используемых при решении задачи форм.
Контрольная работа №2 предназначена для закрепления теоретических знаний по темам 21-28 учебной программы и состоит из двух заданий. Первое задание требует овладения средствами ACCESS, не требующими создания программ на VBA. Второе задание требует создания стандартных модулей и модулей класса. Варианты для выполнения заданий 1 и 2 контрольной работы 2 одни и те же. Отчёт должен быть выполнен средствами Word, с обязательным копированием экранов ACCESS и встраиванием объектов в текст.