перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
OpenReport stDocName, acViewNormal, strFilter
Exit_Кнопка187_Click:
Exit Sub
Err_Кнопка187_Click:
MsgBox Err
Run rst![Argument]
' Другие команды не поддерживаются.
Case Else
MsgBox "Неизвестная команда."
End Select
' Закрытие набора записей и базы данных.
rst.Close
dbs.Close
HandleButtonClick_Exit:
Exit Function
HandleButtonClick_Err:
' Если выполнение прервано пользователем,
' сообщение об ошибке не выводится. Вместо этого
' выполнение продолжается со следующей строки.
If (Err = conErrDoCmdCancelled) Then
Resume Next
Else
MsgBox "Ошибка при выполнении команды.", vbCritical
Resume HandleButtonClick_Exit
End If
End Function
Листинг программы для формы “Издание”
Option Compare Database
Dim FlCorr As Boolean
Option Explicit
'Открытие окна диалога Поиска.
Private Sub Find_Record_Click()
On Error GoTo Err_Find_Record_Click
Screen.PreviousControl.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()
'Загрузка формы
DoCmd.Maximize
FlCorr = True
продолжение приложения 2
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()
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
'Вызов формы поиска по фильтру
Private Sub Фильтр_Click()
On Error GoTo Err_Фильтр_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Фильтр"
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 strFilter As String
stDocName = "Тематическая справка"
strFilter = Me.Filter
DoCmd.OpenReport stDocName, acPreview, , strFilter
Exit_Тематическая_справка_Click:
Exit Sub
Err_Тематическая_справка_Click:
MsgBox Err.Description
Resume Exit_Тематическая_справка_Click
End Sub
Private Sub Кнопка187_Click()
On Error GoTo Err_Кнопка187_Click
'Печать каталожной карточки
Dim strFilter As String
Dim stDocName As String
stDocName = "Каталожная карточка"
strFilter = Me.Filter
DoCmd.OpenReport stDocName, acViewNormal, strFilter
Exit_Кнопка187_Click:
Exit Sub
Err_Кнопка187_Click:
MsgBox Err.Description
Resume Exit_Кнопка187_Click
End Sub
Листинг программы для формы “Библиографическое описание издание”
Option Compare Database
Dim FlCorr As Boolean
Option Explicit
Private Sub Find_Record_Click()
'Открыть форму диалога Поиска.
On Error GoTo Err_Find_Record_Click
Screen.PreviousControl.
скачать бесплатно Взаимодействие пользователя с системой
Содержание дипломной работы
В выпускной квалификационной работе рассмотрены вопросы внедрения системы в работу библиотеки, проведен анализ условий труда, организации рабочего места пользователя системы (библиотекаря)
Расчет показателей экономической эффективности и ожидаемого
годового экономического эффекта от внедрения разработки
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
Учебно-методическое пособие по курсу “Учебно-методическое пособие по курсу технико-экономическое проектирование”
