перейти к полному списку дипломных проектов
Ссылка на скачивания файла в формате .doc находится в конце странички
Caption = Nz(Me![ItemText], "")
FillOptions
' Выход из приложения
MoveNext
Wend
End If
' Закрытие набора записей и базы данных.
rst.Close
dbs.Close
End Sub
Private Function HandleButtonClick(intBtn As Integer)
' Эта функция вызывается при нажатии кнопки.
' Аргумент intBtn указывает, какая кнопка была нажата.
' Константы для выполняемых команд.
Const conCmdGotoSwitchboard = 1
Const conCmdOpenFormAdd = 2
Const conCmdOpenFormBrowse = 3
Const conCmdOpenReport = 4
Const conCmdCustomizeSwitchboard = 5
Const conCmdExitApplication = 6
Const conCmdRunMacro = 7
Const conCmdRunCode = 8
' Особая ошибка.
Const conErrDoCmdCancelled = 2501
Dim dbs As Database
Dim rst As Recordset
On Error GoTo HandleButtonClick_Err
' Поиск записи, соответствующей нажатой кнопке,
' в таблице элементов кнопочной формы.
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("Элементы кнопочной формы", dbOpenDynaset)
rst.FindFirst "[SwitchboardID]=" Me![SwitchboardID] " AND [ItemNumber]=" intBtn
' Если нужная запись не найдена, вывод
' сообщения об ошибке и выход из функции.
If (rst.NoMatch) Then
MsgBox "Ошибка при чтении таблицы элементов кнопочной формы."
rst.Close
dbs.Close
Exit Function
End If
Select Case rst![Command]
' Переход к другой кнопочной форме.
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" rst![Argument]
' Открытие формы в режиме добавления записей.
Case conCmdOpenFormAdd
DoCmd.OpenForm rst![Argument], , , , acAdd
Открытие формы.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rst![Argument]
' Открытие отчета.
Case conCmdOpenReport
DoCmd.OpenReport rst![Argument], acPreview
' Настройка кнопочной формы.
Case conCmdCustomizeSwitchboard
' Обработка ситуации, когда диспетчер
' кнопочных форм не установлен
' (например, при сокращенной установке).
On Error Resume Next
Application.Run "WZMAIN80.sbm_Entry"
If (Err <> 0) Then MsgBox "Команда недоступна."
On Error GoTo 0
' Обновление формы.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'по умолчанию' "
Me.Caption = Nz(Me![ItemText], "")
FillOptions
' Выход из приложения.
Case conCmdExitApplication
CloseCurrentDatabase
' Запуск макроса.
Case conCmdRunMacro
DoCmd.RunMacro rst![Argument]
' Выполнение программы.
Case conCmdRunCode
Application.
скачать бесплатно Выбор методологии разработки
Содержание дипломной работы
В выпускной квалификационной работе рассмотрены вопросы внедрения системы в работу библиотеки, проведен анализ условий труда, организации рабочего места пользователя системы (библиотекаря)
Расчет показателей экономической эффективности и ожидаемого
годового экономического эффекта от внедрения разработки
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
Учебно-методическое пособие по курсу “Учебно-методическое пособие по курсу технико-экономическое проектирование”
