- •Информатика
- •1. Устройство и характеристики пэвм
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •2. Типы пользовательских интерфейсов
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •3. Основы работы с объектами Windows
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •4. Работа со стандартными приложениями Windows
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •Пакеты прикладных программ на примере ms Word и работа с ними
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •6. Антивирусные программы и работа с ними
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •Архиваторы и работа с ними
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •Утилиты и работа с ними
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •9. Электронные таблицы на примере ms Excel и работа с ними
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •10. Системы управления базой данных на примере ms Access и работа с ней
- •10.1. Создание таблиц и схем данных
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •10.2. Разработка запросов к базе данных
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •10.3. Конструирование экранных форм для работы с данными
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •10.4. Конструирование отчетов
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •10.5. Субд ms Access. Автоматизация приложения средствами макросов и модулей vba
- •Справочная информация
- •Обучающее задание
- •Самостоятельное задание и контрольные вопросы
- •11. Написание и отладка программ средствами редактора vba
- •11.1. Справочная информация
- •4. Программа решения задачи
- •Задание
- •Контрольные вопросы
- •12. Создание программ обработка цифровой информации
- •12.1. Справочная информация
- •12.2. Пример программы
- •'Пример 1
- •12.3. Задание
- •Варианты заданий
- •12.4. Контрольные вопросы
- •13. Создание программ обработки символьной информации
- •13.1. Справочная информация
- •13.2. Пример программы
- •13.3. Задание
- •Варианты заданий
- •13.4. Контрольные вопросы
- •14. Создание финансовых функций
- •14.1. Справочная информация
- •14.2. Пример программы
- •14.3. Задание
- •Варианты заданий
- •14.4. Контрольные вопросы
- •15. Обработка объектов субд ms Access
- •15.1. Справочная информация
- •15.2. Пример программы поиска
- •15.3. Пример программы поиска и редактирования записей
- •15.4. Пример программы поиска и удаления записей
- •15.5. Пример программы расчета
- •15.6. Пример программы ввода новой записи
- •15.7. Задание
- •Контрольные вопросы
- •Литература
- •Образец оформления титульного листа
- •Приложение 4
- •Приложение 13 Основные типы данных
- •Приложение 14 Функции и операторы vba и ms Access
- •Приложение 15
- •Методы и свойства объекта Recordset
- •Оглавление
15.2. Пример программы поиска
Требуется создать процедуру поиска записей в таблице Студенты учебной базы данных. Поиск осуществляется по фамилии студента, значение которой вводится с клавиатуры. Если записи найдены, то выводится номер найденной записи с указанием фамилии, имени и отчества студента. Если подобных записей нет, то выводится сообщение об этом.
'Последовательный поиск по фамилии и вывод на экран
‘Программа не проверяет корректность введенной с клавиатуры фамилии
Sub Поиск()
Dim База, Запись As Variant
Dim p As String * 20, i As Integer, признак As Boolean
Set База = CurrentDb
Set Запись = База.OpenRecordSet("Студенты")
признак = False
'признак характеризует хотя бы одну найденную запись
p = InputBox("Введите фамилию", "Поиск", "Шариков")
If RTrim(p) = Empty Then Exit Sub
With Запись
Do Until Запись.EOF = True 'Свойство "End of File" - признак конца файла
If RTrim(![Фамилия].Value) = RTrim(p) Then
i = i + 1
признак = True
MsgBox str(i) & "-я запись. Студент " & ![Фамилия].Value _ & " " & ![Имя].Value & " " & [Отчество].Value
End If
.MoveNext 'метод перехода к следующей записи
Loop
If признак = False Then MsgBox "Записи с фамилией " _
& p & "отсутствуют"
.Close
End With
End Sub
15.3. Пример программы поиска и редактирования записей
Требуется создать процедуру поиска записей в таблице Студенты учебной базы данных. Поиск осуществляется по фамилии студента, значение которой вводится с клавиатуры. Если записи найдены, то значение фамилии студентов изменяются на другую, вводимую с клавиатуры. Если подобных записей нет, то сообщение об этом не выводится.
'Работа с записями таблицы - поиск и редактирование
Sub редактирование()
Dim База, Запись As Variant
Set База = CurrentDb 'семейство объектов текущей базы данных
Set Запись = База.OpenRecordSet("Студенты")
'открытие набора записей текущей базы данных
Do Until Запись.EOF = True
'Свойство "End of File" - признак конца файла
If Запись![Фамилия].Value = InputBox ("Введите _
искомую фамилию") Then
Запись.Edit
'метод блокирует запись и разрешает обновление полей записи
Запись![Фамилия].Value = InputBox ("Введите _
новую фамилию")
Запись.Update 'метод сохраняет изменения полей записи
MsgBox Запись![Фамилия].Value
End If
Запись.MoveNext 'метод перехода к следующей записи
Loop
End Sub
15.4. Пример программы поиска и удаления записей
Требуется создать процедуру поиска и удаления записей в таблице Студенты учебной базы данных. Поиск осуществляется по фамилии студента, значение которой вводится с клавиатуры. Если записи найдены, то выводится фамилия, имя, отчество студента и номер группы, после чего спрашивается разрешение пользователя на удаление этой записи. Если подобных записей нет, то выводится сообщение об этом.
'Последовательный поиск по фамилии и удаление
'Программа не проверяет корректность введенной с клавиатуры 'фамилии
Sub удаление()
Dim База, Запись As Variant
Dim p As String * 20, признак As Boolean, удаление As Byte
Set База = CurrentDb
Set Запись = База.OpenRecordSet("Студенты")
признак = False 'признак характеризует хотя бы одну найденную 'запись
p = InputBox("Введите фамилию", "Поиск и удаление")
If RTrim(p) = Empty Then Exit Sub
With Запись
Do Until Запись.EOF = True
If RTrim(![Фамилия].Value) = RTrim(p) Then
признак = True
удаление = MsgBox(RTrim(![Фамилия].Value) & " "
& RTrim(![Имя]) & " " & RTrim(![Отчество]) _
& " " & ![КодСпециальности] & "-" & ![Курс] _
& ![Группа], vbYesNoCancel + vbQuestion, _
"Удалить запись?")
Select Case удаление
Case vbYes
MsgBox RTrim(p) & " отчислен(а)!", vbCritical
.Delete
Case vbNo
MsgBox "Ура! Не отчислили!", vbExclamation
Case vbCancel
Exit Sub
End Select
End If
.MoveNext 'метод перехода к следующей записи
Loop
If признак = False Then MsgBox "Записи с фамилией " _
& RTrim(p) & " отсутствуют"
.Close
End With
End Sub