перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
продолжение приложения 2
Exit_Поиск_Click:
Exit Sub
Err_Поиск_Click:
MsgBox Err
RecordCount = 0 Then
DoCmd.Hourglass False
MsgBox "Нет книг, удовлетворяющих вашим условиям", vbExclamation, "Фильтр"
DoCmd.ShowAllRecords
'Forms![Форма ввода библиографического описания издания].Visiable = False
Me.Visible = True
Exit Sub
End If
DoCmd.Hourglass False
Else
Set db = CurrentDb
Set rst = db.OpenRecordset( _
"SELECT DISTINCTROW " _
"ШИФРЫ.[Идентификатор издания] " _
"FROM [Издание] " _
"WHERE " gstrWhereBook ";")
If rst.RecordCount = 0 Then
DoCmd.Hourglass False
MsgBox "Нет книг, удовлетворяющих вашим условиям", vbExclamation, "Фильтр"
gstrWhereBook = ""
Me.Visible = True
rst.Close
Exit Sub
End If
'Переход к последней строке для получения числа записей
rst.MoveLast
lngCount = rst.RecordCount
DoCmd.Hourglass False
Если найдено более 10 записей - запрос на просмотр только кратких сведений о книгах
If lngCount > 10 Then
intRtn = MsgBox("Найдено более 10 книг. " _
"Нажмите Да для просмотра кратких сведений о " lngCount _
"найденных книгах," _
" или Нет - для просмотра полных сведений об этих книгах." _
" Нажав Отмена Вы предпримете новую попытку поиска", _
vbInformation + vbYesNoCancel, "Фильтр")
Select Case intRtn
Case vbCancel
Me.Visible = True
Exit Sub
Case vbYes
DoCmd.OpenForm _
FormName:="Краткие сведения о книгах", _
WhereCondition:=gstrWhereBook
DoCmd.Close acForm, Me.Name
Forms![Краткие сведения о книгах].SetFocus
Exit Sub
End Select
End If
'Если нажата кнопка Нет или найдено менее 10 книг,
' Отображаем полные данные
DoCmd.OpenForm _
FormName:="Издание", _
WhereCondition:=gstrWhereBook
'If Not IsNull(Автор) Then
' Forms![Издание]![Вкладка100] = 1
' End If
продолжение приложения 2
End If
' Закрываем форму
DoCmd.Close acForm, Me.Name
End Sub
Листинг программы формы “Читательский формуляр”
Option Compare Database
Option Explicit
Private Sub Кнопка6_Click()
On Error GoTo Err_Кнопка6_Click
'Просмотр сведений о читателях
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Сведения о читателях"
stLinkCriteria = "[Номер читательского формуляра]=" Me![Номер читательского формуляра]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка6_Click:
Exit Sub
Err_Кнопка6_Click:
MsgBox Err.Description
Resume Exit_Кнопка6_Click
End Sub
Private Sub Поиск_Click()
On Error GoTo Err_Поиск_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
продолжение приложения 2
Exit_Поиск_Click:
Exit Sub
Err_Поиск_Click:
MsgBox Err.
скачать бесплатно Взаимодействие пользователя с системой
Содержание дипломной работы
В выпускной квалификационной работе рассмотрены вопросы внедрения системы в работу библиотеки, проведен анализ условий труда, организации рабочего места пользователя системы (библиотекаря)
Расчет показателей экономической эффективности и ожидаемого
годового экономического эффекта от внедрения разработки
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
Учебно-методическое пособие по курсу “Учебно-методическое пособие по курсу технико-экономическое проектирование”
