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

Ссылка на скачивания файла в формате .doc находится в конце странички

Hourglass True If IsLoaded("Издание") Then продолжение приложения 2 Forms![Издание]

Column(0, varItem) ","

Next varItem

' Удаление лишней запятой в строке IN

strWhere = Left$(strWhere, Len(strWhere) - 1)

' Открытие формы для просмотра всех данных о книге с отбором

продолжение приложения 2

'выделенных книг

gstrWhereBook = "[Идентификатор издания] IN (" _

strWhere ")"

DoCmd.OpenForm "Издание", WhereCondition:=gstrWhereBook

End Sub

Private Sub Form_Load()

DoCmd.Maximize

End Sub

Private Sub lstBName_DblClick(Cancel As Integer)

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.Column(0, varItem) ","

Next varItem

' Удаление лишней запятой в строке IN

strWhere = Left$(strWhere, Len(strWhere) - 1)

' Открытие формы для просмотра всех данных о книге с отбором

'выделенных книг

gstrWhereBook = "[Идентификатор издания] IN (" _

strWhere ")"

DoCmd.OpenForm "Издание", WhereCondition:=gstrWhereBook

End Sub

Листинг программы для формы “Краткие сведения о книгах”

Option Compare Database

Option Explicit

‘Реакция на нажатие кнопки “Подробнее”

Private Sub Detalis_Click()

Dim gstrWhereBook As String

' Открывает форму для книги, выбранной в списке

gstrWhereBook = "[Идентификатор издания] = " _

Me![Идентификатор издания]

DoCmd.OpenForm FormName:="Описание по ГОСТ", _

WhereCondition:=gstrWhereBook

DoCmd.Close acForm, Me.Name

Forms![Описание по ГОСТ].SetFocus

End Sub

Листинг формы “Сведения в архив”

(форма вызывается для отправки в архив сведений о списанной литературе, вызывается двойным щелчком мыши на любой записи формы “Библиографическое описание”)

Option Compare Database

Option Explicit

Private Sub Post()

'Предлагает архивировать выбранные записи

Dim wsp As Workspace, dbsCurrent As Database

Dim rstPost As Recordset

Dim intCount As Integer, blnInTrans As Boolean

Dim varReturn As Variant, strMsg As String

Dim strSQLArchive As String, strSQLDelete As String

Dim dtmCutOff As Double, intChoice As Integer

Dim dat As Date, dtmCutPr As String

Dim A As String

On Error GoTo Err_Post

dat = Date

blnInTrans = False

Set wsp = DBEngine.Workspaces(0)

Set dbsCurrent = CurrentDb()

' Подпрограмма архивации

ArchiveTrans:

intChoice = MsgBox("Будете добавлять в архив новые записи?", _

vbYesNo + vbQuestion, "Архивация?")

If intChoice = 7 Then

GoTo Exit_Post

Else

'Отключение предупреждения Access

DoCmd.SetWarnings False

dtmCutOff = Me![Инвентарный номер]

If Not Me![Состояние] = "на руках" Then

strSQLArchive = "INSERT INTO [Списанная литература] ([Инвентарный номер], [Идентификатор издания], [Цена издания], [Дата списания], [Причина списания], [Название книги]) " _

"VALUES (Forms![Сведения в архив]![Инвентарный номер], Forms![Сведения в архив]![Идентификатор издания], Forms![Сведения в архив]![Цена издания], Forms![Сведения в архив]![Дата списания], Forms![Сведения в архив]![Причина списания], Forms![Сведения в архив]![Название книги]);"

DoCmd.RunSQL (strSQLArchive)

strSQLDelete = "DELETE [Инвентарная книга].* FROM [Инвентарная книга] " _

"WHERE ([Инвентарная книга]![Инвентарный номер])= " dtmCutOff ";"

DoCmd.RunSQL (strSQLDelete)

'Сброс предупреждения.

DoCmd.SetWarnings True

'выход из формы

DoCmd.Close

Else

MsgBox ("Книга находиться на руках и не подлежит архивации")

продолжение приложения 2

DoCmd.Close

End If

End If

Exit_Post:

Exit Sub

Err_Post:

MsgBox Err.Description

Resume Exit_Post

End Sub

Private Sub Архив_Click()

Post

End Sub

Листинг программы для формы “Фильтр”

Option Compare Database

Dim iD As Integer

Option Explicit

Private Sub Form_Load()

DoCmd.Maximize

Me!Связь2 = "AND"

Me!Связь3 = "AND"

Me!Связь4 = "AND"

Me!Связь5 = "AND"

Me!Связь6 = "AND"

Me!Связь7 = "AND"

Me!Связь8 = "AND"

Me!Связь9 = "AND"

Me!Связь10 = "AND"

End Sub

Private Sub Связь2_Click()

If Me!Связь3 = "AND" Then

Me!Связь3 = "OR"

Else: Me!Связь3 = "AND"

End If

End Sub

Private Sub Связь3_Click()

If Me!Связь3 = "AND" Then

Me!Связь3 = "OR"

Else: Me!Связь3 = "AND"

End If

End Sub

Private Sub Связь4_Click()

If Me!Связь4 = "AND" Then

Me!Связь4 = "OR"

Else: Me!Связь4 = "AND"

End If

End Sub

Private Sub Связь5_Click()

If Me!Связь5 = "AND" Then

Me!Связь5 = "OR"

Else: Me!Связь5 = "AND"

End If

End Sub

Private Sub Связь6_Click()

If Me!Связь6 = "AND" Then

Me!Связь6 = "OR"

Else: Me!Связь6 = "AND"

End If

End Sub

Private Sub Связь7_Click()

If Me!Связь7 = "AND" Then

Me!Связь7 = "OR"

Else: Me!Связь7 = "AND"

End If

End Sub

Private Sub Связь8_Click()

If Me!Связь8 = "AND" Then

продолжение приложения 2

Me!Связь8 = "OR"

Else: Me!Связь8 = "AND"

End If

End Sub

Private Sub Связь9_Click()

If Me!Связь9 = "AND" Then

Me!Связь9 = "OR"

Else: Me!Связь9 = "AND"

End If

End Sub

Private Sub Связь10_Click()

If Me!Связь10 = "AND" Then

Me!Связь10 = "OR"

Else: Me!Связь10 = "AND"

End If

End Sub

Private Sub Поиск_Click()

Dim db As Database, rst As Recordset

Dim lngCount As Long, intRtn As Integer

Dim S As String, gstrWhereBook As String

'Очистка главной строки фильтра

gstrWhereBook = ""

DoCmd.Hourglass False

gstrWhereBook = ""

'Проверка поля ББК и создание условия

If Not IsNull(Me!ББК) Then

gstrWhereBook = "[ББК] Like " Chr$(34) Me!ББК

gstrWhereBook = gstrWhereBook Chr$(34)

End If

'Проверка поля Название и создание условия

If Not IsNull(Me!Название) Then

If gstrWhereBook = "" Then

gstrWhereBook = " [Название книги] LIKE " Chr$(34) Me!Название

Else: gstrWhereBook = gstrWhereBook " " Me![Связь3] " [Название книги] LIKE " Chr$(34) Me!Название

End If

If Right$(Me!Название, 1) = "*" Then

gstrWhereBook = gstrWhereBook Chr$(34)

Else: gstrWhereBook = gstrWhereBook "*" Chr$(34)

End If

End If

'Проверка поля Автор и создание условия

If Not IsNull(Me!Автор) Then

If gstrWhereBook = "" Then

gstrWhereBook = " [Автор] LIKE " Chr$(34) Me!Автор

Else: gstrWhereBook = gstrWhereBook " " Me![Связь4] " [Автор] LIKE " Chr$(34) Me!Автор

End If

If Right$(Me!Автор, 1) = "*" Then

gstrWhereBook = gstrWhereBook Chr$(34)

Else: gstrWhereBook = gstrWhereBook "*" Chr$(34)

End If

End If

'Проверка поля Другие авторы и создание условия

If Not IsNull(Me![Другие авторы]) Then

If gstrWhereBook = "" Then

gstrWhereBook = " [Другие авторы] LIKE " Chr$(34) Me![Другие авторы]

Else: gstrWhereBook = gstrWhereBook " " Me![Связь5] " [Другие авторы] LIKE " _

Chr$(34) Me![Другие авторы]

End If

If Right$(Me![Другие авторы], 1) = "*" Then

gstrWhereBook = gstrWhereBook Chr$(34)

Else: gstrWhereBook = gstrWhereBook "*" Chr$(34)

End If

End If

'Проверка поля Ответственность и создание условия

If Not IsNull(Me![Ответственность]) Then

If gstrWhereBook = "" Then

gstrWhereBook = " [Ответственность] LIKE " Chr$(34) Me![Ответственность]

Else: gstrWhereBook = gstrWhereBook " " Me![Связь6] " [Ответственность] LIKE " _

Chr$(34) Me![Ответственность]

End If

If Right$(Me![Ответственность], 1) = "*" Then

gstrWhereBook = gstrWhereBook Chr$(34)

Else: gstrWhereBook = gstrWhereBook "*" Chr$(34)

End If

End If

Построение строки IN для кода типа книги

If Not IsNull(Me![Материал]) Then

If gstrWhereBook = "" Then

gstrWhereBook = " [ТипИздания] LIKE " Chr$(34) Me![Материал]

Else: gstrWhereBook = gstrWhereBook " " " AND [ТипИздания] LIKE " _

Chr$(34) Me![Материал]

End If

If Right$(Me![Материал], 1) = "*" Then

gstrWhereBook = gstrWhereBook Chr$(34)

Else: gstrWhereBook = gstrWhereBook "*" Chr$(34)

End If

End If

'Проверка поля Номер тома и создание условия

If Not IsNull(Me![Номер тома]) Then

If gstrWhereBook = "" Then

gstrWhereBook = " [Номер тома/книги] LIKE " Chr$(34) Me![Номер тома]

Else: gstrWhereBook = gstrWhereBook " " Me![Связь7] " [Номер тома/книги] LIKE " _

Chr$(34) Me![Номер тома]

End If

If Right$(Me![Номер тома], 1) = "*" Then

gstrWhereBook = gstrWhereBook Chr$(34)

Else: gstrWhereBook = gstrWhereBook "*" Chr$(34)

End If

End If

'Проверка поля Название тома и создание условия

If Not IsNull(Me![Название тома]) Then

If gstrWhereBook = "" Then

gstrWhereBook = " [Название тома/книги] LIKE " Chr$(34) Me![Название тома]

Else: gstrWhereBook = gstrWhereBook " " Me![Связь8] " [Название тома/книги] LIKE " _

Chr$(34) Me![Название тома]

End If

If Right$(Me![Название тома], 1) = "*" Then

gstrWhereBook = gstrWhereBook Chr$(34)

Else: gstrWhereBook = gstrWhereBook "*" Chr$(34)

End If

End If

If gstrWhereB

скачать бесплатно Взаимодействие пользователя с системой

Содержание дипломной работы

В выпускной квалификационной работе рассмотрены вопросы внедрения системы в работу библиотеки, проведен анализ условий труда, организации рабочего места пользователя системы (библиотекаря)
Расчет показателей экономической эффективности и ожидаемого годового экономического эффекта от внедрения разработки 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
Учебно-методическое пособие по курсу “Учебно-методическое пособие по курсу технико-экономическое проектирование”