Автоматизированной информационная библиотечная система

Таблица 1.12.

Структура таблицы “Издательства”

Имя поля

Тип

Размер

Дес

Предназначение

1

Идентификатор издательства

Счетчик

Длинноватое целое

0

Индексированное ключевое поле, совпадения не допускаются

2

Место издания

Текстовый

20

3

Издательство

Текстовый

50

4

Телефон

Текстовый

15

Шаблон ввода:

!\(999") "000\-0000;0;_

Таблица 1.13.

Структура таблицы “Инвентарная книжка”

Имя поля

Тип

Размер

Дес

Предназначение

1

Инвентарный номер

Числовой

С плавающей точкой (8 б)

0

Индексированное ключевое поле, совпадения не допускаются

2

Стоимость издания

Валютный

Валютный

2

3

Идентификатор издания

Числовой

Длинноватое целое

0

4

Состояние

Текстовый,

подстановка

10

Поле со перечнем:

"в фонде"; "на руках"

Таблица 1.14.

Структура таблицы “Справочник ББК”

Имя поля

Тип

Размер

Дес

Предназначение

1

Код Автоматизированной информационная библиотечная система ББК

Текстовый

10

Индексированное ключевое поле, совпадения не допускаются

2

Описание ББК

Текстовый

100

Таблица 1.15.

Структура таблицы “Сведения о читателях”

Имя поля

Тип

Размер

Дес

Предназначение

1

Номер читательского формуляра

Счетчик

Длинноватое целое

0

Индексированное поле, совпадения не допускаются

2

Фамилия

Текстовый

20

3

Имя_Отчество

Текстовый

40

4

Год рождения

Дата/Время

Лаконичный формат даты

Шаблон ввода:

99/99/00;0;_

5

Группа

Текстовый: подстановка

10

Поле со перечнем: таблица “Группы”

6

Домашний адресок временный

Текстовый

60

7

Домашний адресок неизменный

Текстовый

60

8

Телефон

Текстовый

15

Шаблон ввода:

!\(999") "000\-0000;0;_

9

Дата заведения формуляра

Дата/Время

Лаконичный формат даты

Шаблон: 99/99/00;0;_

10

Дата списания

Дата/Время

Лаконичный формат Автоматизированной информационная библиотечная система даты

Шаблон: 99/99/00;0;_

11

Дата перегистрации

Дата/Время

Лаконичный формат даты

Шаблон: 99/99/00;0;_

12

Фамилия отца

Текстовый

20

13

Имя_отчество отца

Текстовый

50

14

Место работы отца

Текстовый

60

15

Фамилия мамы

Текстовый

20

16

Имя_отчество мамы

Текстовый

50

17

Место работы мамы

Текстовый

60

Таблица 1.16.

Структура таблицы “Читательский формуляр”

Имя поля

Тип

Размер

Дес

Предназначение

1

Номер читательского формуляра

Числовой

Длинноватое целое

0

2

Инвентарный номер книжки

С плавающей точкой (8 б)

20

3

Дата выдачи

Дата/Время

Лаконичный формат даты

Шаблон: 99/99/00;0;_

4

Дата возврата

Дата/Время

Лаконичный формат даты

Шаблон: 99/99/00;0;_

5

Возврат

Дата/Время

Лаконичный формат даты

Шаблон: 99/99/00;0;_

ПРИЛОЖЕНИЕ 2

Листинг программки главной кнопочной формы

Option Автоматизированной информационная библиотечная система Compare Database

Option Explicit

Private Sub Form_LostFocus()

DoCmd.Maximize

End Sub

Private Sub Form_Open(Cancel As Integer)

' Свертывание окна базы данных,

' инициализация формы.

' Переход на страничку кнопочной формы, отмеченную для использования по дефлоту.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'по дефлоту' "

Me.FilterOn = True

End Sub

Private Sub Form_Current()

' Обновление заголовка и Автоматизированной информационная библиотечная система наполнение

' перечня команд.

Me.Caption = Nz(Me![ItemText], "")

FillOptions

End Sub

Private Sub FillOptions()

' Наполнение команд для странички

' кнопочной формы.

' Число кнопок в форме.

Const conNumButtons = 8

Dim dbs As Database

Dim rst As Recordset

Dim strSQL As String

Dim intOption As Integer

' Установка фокуса на первую кнопку формы,

' скрытие всех кнопок формы, не считая первой.

' Поле с Автоматизированной информационная библиотечная система фокусом скрыть нельзя.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

Me("Option" & intOption).Visible = False

Me("OptionLabel" & intOption).Visible = False

Next intOption

' Открытие таблицы частей кнопочной формы,

' поиск первого элемента текущей странички формы.

Set dbs = CurrentDb()

strSQL = "SELECT * FROM [Элементы кнопочной формы]"

strSQL = strSQL & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

strSQL = strSQL & " ORDER BY Автоматизированной информационная библиотечная система [ItemNumber];"

Set rst = dbs.OpenRecordset(strSQL)

' Вывод сообщения при отсутствии частей

' на страничке кнопочной формы. В других

' случаях - наполнение странички элементами.

If (rst.EOF) Then

Me![OptionLabel1].Caption = "Элементы кнопочной формы отсутствуют"

Else

While (Not (rst.EOF))

Me("Option" & rst![ItemNumber]).Visible = True

Me("OptionLabel" & rst![ItemNumber]).Visible = True

Me("OptionLabel" & rst![ItemNumber]).Caption Автоматизированной информационная библиотечная система = rst![ItemText]

rst.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.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.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.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 gstrWhereBook = "" Then

MsgBox "Критерий не Автоматизированной информационная библиотечная система задано.", vbExclamation, "Фильтр"

'ExitSub

End If

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

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

If gstrWhereBook = "" Then

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

Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь9] & " [Ответственность за том] 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 gstrWhereBook = "" Then

MsgBox "Критерий не задано.", vbExclamation, "Фильтр"

End If

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

If Not IsNull(Me![Название серии]) Then

If gstrWhereBook = "" Then

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

Else: gstrWhereBook = gstrWhereBook & " " & Me![Связь10] & " [Название серии Автоматизированной информационная библиотечная система] LIKE " & _

Chr$(34) & Me![Название серии]

End If

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

gstrWhereBook = gstrWhereBook & Chr$(34)

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

End If

End If

'Поиск на базе построенного запроса

Me.Visible = False

DoCmd.Hourglass True

If IsLoaded("Издание") Then

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

Forms![Издание].SetFocus

DoCmd.ApplyFilter , gstrWhereBook

If Forms![Издание].RecordsetClone.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.Description

Resume Exit_Поиск_Click

End Sub

Private Sub Формуляр_DblClick(Cancel As Integer)

'Фильтр по введенному номеру читательского формуляра

Dim strFilter As String

strFilter = Me![Формуляр]

Me.Filter = "[Номер читательского формуляра]= " & strFilter

Me.FilterOn = True

End Sub

Private Sub Добавление_Click()

On Error GoTo Err_Добавление_Click

Dim frm As Form

'Открытие формы как сокрытой

DoCmd Автоматизированной информационная библиотечная система.OpenForm "Ввод записи в формуляр читателя", acNormal, , , , acHidden

'Присвоение переменной ссылки на форму

Set frm = Forms![Ввод записи в формуляр читателя]

'Копирование данных в форму

frm![Номер читательского формуляра] = Me![Номер читательского формуляра]

frm![Инвентарный номер книги].SetFocus

'вывод сокрытой формы

frm.Visible = True

Exit_Добавление_Click:

Exit Sub

Err_Добавление_Click:

MsgBox Автоматизированной информационная библиотечная система Err.Description

Resume Exit_Добавление_Click

End Sub

Листинг программки формы “Перечень литературы”

Option Compare Database

Option Explicit

Private Sub Номер_формуляра_AfterUpdate()

Dim Cancel As Integer

Dim strFilter As String

strFilter = Me![Номер формуляра]

Me.Filter = "[Номер читательского формуляра]>= " & strFilter

Me.FilterOn = True

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:

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

Exit Sub

Err_Формуляр_Click:

MsgBox Err.Description

Resume Exit_Формуляр_Click

End Sub

Private Sub Добавление_Click()

On Error GoTo Err_Добавление_Click

Dim stDocName As String

stDocName = "Сведения о читателях"

'Открываем форму "Сведения о Автоматизированной информационная библиотечная система читателях" для прибавления новейшей записи

DoCmd.OpenForm stDocName

DoCmd.GoToRecord , , acNewRec

Exit_Добавление_Click:

Exit Sub

Err_Добавление_Click:

MsgBox Err.Description

Resume Exit_Добавление_Click

End Sub

Private Sub Кнопка15_Click()

On Error GoTo Err_Кнопка15_Click

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Кнопка15_Click:

Exit Sub

Err_Кнопка15_Click:

MsgBox Err.Description

Resume Exit Автоматизированной информационная библиотечная система_Кнопка15_Click

End Sub

Private Sub Поиск_Click()

On Error GoTo Err_Поиск_Click

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Поиск_Click:

Exit Sub

Err_Поиск_Click:

MsgBox Err.Description

Resume Exit_Поиск_Click

End Sub

Private Sub Formular_Click()

On Error GoTo Err_Formular_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName Автоматизированной информационная библиотечная система = "Читательский формуляр"

stLinkCriteria = "[Номер читательского формуляра]=" & Me![Номер читательского формуляра]

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Formular_Click:

Exit Sub

Err_Formular_Click:

MsgBox Err.Description

Resume Exit_Formular_Click

End Sub

Перечень литературы

“С компом на ты”: Методическое пособие для библиотек по информационным технологиям и Веб. Вып. 3./ Ред.-сост. Л.А. Казаченкова. - М.: Либерея, 2000. -112 с.

Цветкова И.Б Автоматизированной информационная библиотечная система. Лингвистическое обеспечение библиотечных информационных ресурсов// Доклад, Всероссийское совещание директоров федеральных и региональных библиотек Рф. М., 1999.

Русский коммуникативный формат представления библиографических записей в машиночитаемой форме(Рос. вариант UNIMARC)/ И. Б. Цветкова и др.; М-во культуры PФ, Рос. библ. ассоц. - СПб.: Изд-во РНБ, 1998.

Вейскас Д. Действенная работа Автоматизированной информационная библиотечная система с Microsoft Access 97. - СПб.: Издательство “Питер”, 2000. - 976 с.: ил.

Учебно-методическое пособие по курсу “Учебно-методическое пособие по курсу технико-экономическое проектирование”. Сост. Ю.В. Брусницын, А.Н. Гармаш. - Таганрог, ТРТУ, 1998 г. - 35 с.

Охрана труда в вычислительных центрах: Учебное пособие для учащихся средних особых учебных заведений по специальности “Программирование для Автоматизированной информационная библиотечная система быстродействующих математических машин”/ Ю. Г. Сибаров, Н.Н. Нагинаев. - М.: Машиностроение, 1985. - 176 с., ил.

Белах Н.В., Петраков Н.Я., Русаков В. П. Доходы, предложения и цены -- неувязка сбалансированности//Изв. АН СССР. Сер. экон. 1982. № 2. С. 71-77.

Охрана труда в радио- и электрической индустрии: Учебник для техникумов. - 2-е изд., перераб. и Автоматизированной информационная библиотечная система доп. / С.П. Павлов, Л.С. Виноградов, Н.Ф. Крылова и др.; Под ред. С.П. Павлова. - М.: Радио и связь, 1985. - 200 с., ил.

1, 2, 3, 4


avtomatizaciya-vspomogatelnoj-kotelnoj-ustanovki-stranica-2.html
avtomatizaciya-yamnoj-proparochnoj-kameri-s-primeneniem-elektricheskogo-regulyatora.html
avtomatizaciya-zvuka-ch-v-seredine-slov-predislovie.html