50221 (572514), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

3.1 Краткая характеристика выбранной среды программировании

MS Access является программой для создания легких в пользовании баз данных, программа содержит в себе компоненты и возможности позволяющие без особого труда провести как поиск по любой выбранных категории, так и ввод данных и их редактирование.

3.2 Постановка задачи

Создать базу данных «Именной каталог».

База данных была создана с целью упорядочивания информации о людях, зарегистрированных в базе данных архива.

База данных способна проводить поиск по всем категориям приведенных в именном каталоге

• По фамилии.

• По имени.

• По отчеству.

• По году рождения.

• По номеру фонда.

• По номеру описи.

• По номеру дела.

• По наличию примечания.

3.3 Формы

Форма содержит управляющие кнопки, поля с категориями данных, поле с указанием количество данных и фоновый дизайн.

4. Листинг программы

Private Sub Печать_Click()

On Error GoTo Err_Печать_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.PrintOut acSelection

Exit_Печать_Click:

Exit Sub

Err_Печать_Click:

MsgBox Err.Description

Resume Exit_Печать_Click

End Sub

Private Sub Сохранить_Click()

On Error GoTo Err_Сохранить_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Сохранить_Click:

Exit Sub

Err_Сохранить_Click:

MsgBox Err.Description

Resume Exit_Сохранить_Click

End Sub

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

Private Sub Переход_Click()

On Error GoTo Err_Переход_Click

Dim stDocName As String

stDocName = ChrW(1047) & ChrW(1072) & ChrW(1087) & ChrW(1088) & ChrW(1086) & ChrW(1089) & ChrW(32) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1085) & ChrW(1099) & ChrW(1093)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Переход_Click:

Exit Sub

Err_Переход_Click:

MsgBox Err.Description

Resume Exit_Переход_Click

End Sub

Характеристики

Список файлов ответов (шпаргалок)