DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Удаление_Click: Exit Sub Err_Удаление_Click: MsgBox Err


перейти к полному списку дипломных проектов

Ссылка на скачивания файла в формате .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
На этом этапе осуществляется учет вынесеных постановлений по делу об административном правонарушении, учет штрафов уплаченных добровольно
Данный запрос необходим для компоновки сведений необходимых для составления постановления об административном правонарушении
Регистрация поступивших материалов Все материалы, поступившие на рассмотрение административной комиссии, должны быть надлежащим образом зарегистрированы
Модуль "Изменение справочных таблиц" Заключение Законодательство об административных правонарушениях занимает большое место в правоохранительном блоке Российского законодательства
Комплекс стандартов на автоматизированные системы ИПК издательство стандартов

заработать

Закачай файл и получай деньги