перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Удаление_Click:
Exit Sub
Err_Удаление_Click:
MsgBox Err
SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Find_Record_Click:
Exit Sub
Err_Find_Record_Click:
MsgBox Err.Description
Resume Exit_Find_Record_Click
End Sub
Private Sub Form_Load()
FlCorr = True
DoCmd.Maximize
End Sub
Private Sub Form_Error(DataErr As Integer, Response As Integer)
'Перехват дубликата значения
Dim strMsg As String
Const conDupKey = 3022
If DataErr = conDupKey Then
strMsg = "Вы ввели дубликат идентификатора книги"
strMsg = strMsg "Пожалуйста введите новое значение"
MsgBox strMsg
[Идентификатор издания].SetFocus
Response = acDataErrContinue
End If
End Sub
Private Sub Form_AfterUpdate()
' Обновляет поле со списком "Языковой материал" после изменения записи.
Me!ТипИздания.Requery
End Sub
Private Sub INVNum_Click()
On Error GoTo Err_INVNum_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Добавление инвентарных записей"
stLinkCriteria = "[Идентификатор издания]=" Me![Идентификатор издания]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_INVNum_Click:
Exit Sub
Err_INVNum_Click:
MsgBox Err.Description
Resume Exit_INVNum_Click
End Sub
Private Sub ТипИздания_NotInList(NewData As String, Response As Integer)
'Добавление пользователем нового элемента в список
Dim ctl As Control
'Определяет поле со списком в качестве объекта элемента управления
Set ctl = Me!ТипИздания
'Подтверждение на ввод нового значения
If MsgBox("Собираетесь добавить новое значение в список?", vbOKCancel) _
Then
'Установить аргумент Response для отображения добавляемого значения
Response = acDataErrAdded
'Добавляет строку в список значений в источник строки
Debug.Print ctl.RowSource
ctl.RowSource = ctl.RowSource ";" NewData
Debug.Print ctl.RowSource
Else
'Если нажата кнопка отмена - выдается сообщение об ошибке
Response = acDataErrContinue
ctl.Undo
End If
End Sub
'Private Sub Form_AfterUpdate()
' Обновляет поле со списком "Языковой материал" после изменения записи.
' Me!ТипИздания.Requery
'End Sub
Private Sub Кнопка84_Click()
On Error GoTo Err_Кнопка84_Click
DoCmd.GoToRecord , , acNewRec
FlCorr = False
Exit_Кнопка84_Click:
Exit Sub
Err_Кнопка84_Click:
MsgBox Err.Description
Resume Exit_Кнопка84_Click
End Sub
Private Sub Кнопка86_Click()
On Error GoTo Err_Кнопка86_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Аннотация"
stLinkCriteria = "[Идентификатор издания]=" Me![Идентификатор издания]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка86_Click:
Exit Sub
Err_Кнопка86_Click:
MsgBox Err.Description
Resume Exit_Кнопка86_Click
End Sub
Private Sub Цена_Click()
продолжение приложения 2
On Error GoTo Err_Цена_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Цена"
stLinkCriteria = "[Идентификатор издания]=" Me![Идентификатор издания]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Цена_Click:
Exit Sub
Err_Цена_Click:
MsgBox Err.Description
Resume Exit_Цена_Click
End Sub
Private Sub ГОСТ_Click()
On Error GoTo Err_ГОСТ_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Описание по ГОСТ"
stLinkCriteria = "[Идентификатор издания]=" Me![Идентификатор издания]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ГОСТ_Click:
Exit Sub
Err_ГОСТ_Click:
MsgBox Err.Description
Resume Exit_ГОСТ_Click
End Sub
продолжение приложения 2
Private Sub Удаление_Click()
On Error GoTo Err_Удаление_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Удаление_Click:
Exit Sub
Err_Удаление_Click:
MsgBox Err.Description
Resume Exit_Удаление_Click
End Sub
Листинг программы формы “Просмотр книг”
Option Compare Database
Option Explicit
Private Sub cmdSome_Click()
Dim strWhere As String, varItem As Variant
Dim gstrWhereBook As String
If Me!lstBName.ItemsSelected.Count = 0 Then
'ExitSub
End If
For Each varItem In Me!lstBName.ItemsSelected
strWhere = strWhere _
Me!lstBName.
скачать бесплатно Взаимодействие пользователя с системой
Содержание дипломной работы
В выпускной квалификационной работе рассмотрены вопросы внедрения системы в работу библиотеки, проведен анализ условий труда, организации рабочего места пользователя системы (библиотекаря)
Расчет показателей экономической эффективности и ожидаемого
годового экономического эффекта от внедрения разработки
7
Структура реализации библиотечных процессов в автоматизированной информационной библиотечной системе приведена на плакате “Организация библиотечных процессов
При регистрации библиотека заносит в читательский формуляр паспортные данные читателя и в дальнейшем в читательском формуляре отмечаются все книги, взятые читателем и сроки взятия и возврата книг
Для автоматизации процесса ведения читательского формуляра в структуру базы данных системы были введены таблицы “Сведения о читателе” и “Читательский формуляр”
2 Разработка прикладного программного обеспечения
Программное обеспечение подсистемы АБИС АКВТ позволяет осуществлять процессы обработки и комплектования и процессы работы с читателями
Поиск осуществляется по основным полям ввода библиографического описания: название, автор, другие авторы, ,ответственность, издание и др
В системе реализована функция алфавитного каталога, записи в каталоге, отсортированы в алфавитном порядке
В режиме просмотра читательского формуляра билиотекарь нажатием кнопки “Добавить” осуществляет добавление информации в читательский формуляр
1 Исходные тексты программ
Исходные тексты программ представлены на прилагаемой к пояснительной записке дискете и в приложении 2
4)
гдеЗпм - заработная плата программиста за месяц, руб;
N - количество рабочих дней в месяце, дни;
8 - продолжительность рабочего дня, час
Учитывая, что число часов работы в день равно 4, на разработку программы было затрачено 299,2 часа, из них 145,6 часа – время работы на ЭВМ
;
TM – годовая трудоемкость решения решения задачи на ЭВМ, руб
При стоимости одной карточки 0,07 руб, экономия на бумагу для 350 поступивших за год изданий составит (при затратах - две карточки на наименование) 49 руб
Критерием эффективности создания и внедрения прикладных программных продуктов является ожидаемый годовой экономический эффект, получаемый потребителем программы
Для помещения, где будет установлено оборудование для АБИС АКВТ, необходимо предусмотреть выполнение всех требований к помещениям с вычислительной техникой
При выборе лампы для освещения должно быть соблюдено условие:
Условие при выборе типа лампы для освещения помещения было соблюдено:
8
При поступлении на работу и периодические медицинские осмотры работающих, лечебно-профилактическое питание и проведение лечебно-профилактических мероприятий по предупреждению заболеваний работающих
При этом оказывающий помощь производит выдох воздуха из своих легких в легкие пострадавшего через рот или нос пострадавшего
В пожароопасных помещениях (книгохранилища) допускается применение светильников только в закрытом исполнении; стеклянные колпаки переносных светильников должны быть закрыты металлической сеткой
В ней не должны создаваться электронные документы, а они должны поставляться из многочисленных электронных издательств
Visible = False
Next intOption
' Открытие таблицы элементов кнопочной формы,
' поиск первого элемента текущей страницы формы
Caption = Nz(Me![ItemText], "")
FillOptions
' Выход из приложения
OpenReport stDocName, acViewNormal, strFilter
Exit_Кнопка187_Click:
Exit Sub
Err_Кнопка187_Click:
MsgBox Err
DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Удаление_Click:
Exit Sub
Err_Удаление_Click:
MsgBox Err
Hourglass True
If IsLoaded("Издание") Then
продолжение приложения 2
Forms![Издание]
DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
продолжение приложения 2
Exit_Поиск_Click:
Exit Sub
Err_Поиск_Click:
MsgBox Err
DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Поиск_Click:
Exit Sub
Err_Поиск_Click:
MsgBox Err
Учебно-методическое пособие по курсу “Учебно-методическое пособие по курсу технико-экономическое проектирование”
