- •15 Февраля 2011 г. Москва вгна
- •1. Основные понятия информационного обеспечения аис
- •2. Задания для выполнения
- •3. Порядок выполнения задания
- •3.1. Формирование базы данных:
- •3.2. Разработка элементов базы данных "Налог"
- •3.2.1. Разработка таблиц базы данных
- •3.2.2. Формирование запросов
- •3.2.3. Разработка начального варианта формы "Платеж-Форма"
- •3.2.4. Разработка начального варианта формы "Статистик_Форма"
- •3.2.5. Разработка окончательного варианта формы "Платеж _Форма"
- •5. Добавление полей для ввода информации из списка:
- •6. Добавление командных кнопок перехода по записям
- •9. Добавление командной кнопки Расчет
- •10.7. Текст программы в окне редактора Visual Basic необходимо скорректировать:
- •3.2.6. Доработка формы Статистик_Форма
- •4. Работа с базой данных "Налог"
- •Литература
6. Добавление командных кнопок перехода по записям
Командные кнопки управления вводом информации и вычислительным процессом создаются следующим образом:
6.1. С помощью мыши расширьте Область данных формы "Платеж_Форма" вниз.
6.2. Кнопки "Первая запись", "Следующая запись", "Предыдущая запись", "Последняя запись", "Найти запись", с общепринятыми изображениями значков на кнопках объединены в группу "Переходы по записям". Остается их только подключить для работы. Подключение (создание) кнопки проводят в следующем порядке:
– на Панели элементов (рис. 10.26) с помощью мыши выберите инструмент Кнопка, и создайте пустую кнопку в нужном месте разрабатываемой формы "Платеж_Форма". Автоматически откроется окно Мастер Создание кнопок (рис. 10.38);
– в разделе Категории выберите Переходы по записям, в разделе Действия кнопку Первая запись. Нажмите кнопку Готово;
– в контекстном меню выберите команду Свойства и в появившемся окне Кнопка (рис. 10.39) задайте размеры и положение кнопки в форме.
Замечание: номер кнопки в Вашем случае будет другим.
6.3. Повторите пункт 6.2 и подключите недостающие кнопки "Следующая запись", "Предыдущая запись", "Последняя запись", "Найти запись".
Замечание: номера кнопок в Вашем случае будут другими.
6.4. Расположение кнопок перехода по записям приведено на рис. 10.25.
Рис. 10.38. Окно Создание кнопок
Рис. 10.39. Окно Кнопка
6.5. Перейдите в режим таблицы формы и, нажимая на созданные кнопки, убедитесь в их работоспособности.
6.6. При создании кнопок перехода на "Первая запись", "Следующая запись", "Предыдущая запись", "Последняя запись", "Найти запись", были автоматически сформированы программы, реализующие действия указанных кнопок. Просмотреть программный код (рис. 10.40), сформированный для кнопок, можно выбрав меню "Сервис" "Макрос" "Редактор VB". В табл. 10.2 приведены полные тексты кодов программ для используемых кнопок перехода. Сравните тексты программ, полученные Вами в процессе создания кнопок перехода, с текстами программ, приведенными в табл. 10.2, и в случае необходимости скорректируйте тексты программ для кнопок перехода.
Замечание: номера кнопок 65-69 в Вашем случае будут другими. Для уточнения номера кнопки необходимо:
– перейти в режим конструктора формы;
– выбрать нужную кнопку;
- контекстном меню выбрать команду Свойства;
– в открывшемся окне Кнопка уточнить номер кнопки.
Рис. 10.40. Фрагмент окна редактора VB с кодами программ для кнопок перехода
Таблица 10.2
Тексты кодов программ для кнопок перехода
а) Первая запись |
б) Следующая запись |
||
Private Sub Кнопка66_Click() On Error GoTo Err_Кнопка66_Click DoCmd.GoToRecord , , acFirst Exit_Кнопка66_Click: Exit Sub Err_Кнопка66_Click: MsgBox Err.Description Resume Exit_Кнопка66_Click End Sub |
Private Sub Кнопка67_Click() On Error GoTo Err_Кнопка67_Click DoCmd.GoToRecord , , acNext Exit_Кнопка67_Click: Exit Sub Err_Кнопка67_Click: MsgBox Err.Description Resume Exit_Кнопка67_Click End Sub |
||
|
|
||
в) Предыдущая запись |
г) Последняя запись |
||
Private Sub Кнопка68_Click() On Error GoTo Err_Кнопка68_Click DoCmd.GoToRecord , , acPrevious Exit_Кнопка68_Click: Exit Sub Err_Кнопка68_Click: MsgBox Err.Description Resume Exit_Кнопка68_Click End Sub |
Private Sub Кнопка65_Click() On Error GoTo Err_Кнопка65_Click DoCmd.GoToRecord , , acLast Exit_Кнопка65_Click: Exit Sub Err_Кнопка65_Click: MsgBox Err.Description Resume Exit_Кнопка65_Click End Sub |
||
|
|
||
г) Найти запись |
|||
|
Private Sub Кнопка69_Click() On Error GoTo Err_Кнопка69_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 Exit_Кнопка69_Click: Exit Sub Err_Кнопка69_Click: MsgBox Err.Description Resume Exit_Кнопка69_Click End Sub |
|
|
|
|
7. Подключение календаря
Специальные объекты типа календаря активируются следующим образом:
7.1. Перейдите в режим конструктора формы.
7.2. Нажмите на кнопку "Другие элементы" на Панели элементов (рис. 10.26).
7.3. В появившемся контекстном меню отыщите Элемент управления "Календарь 10.0" (находится в самом конце обширного списка меню) и активизируйте этот элемент.
7.4. Позиционируйте с помощью мыши расположение календаря в форме.
7.5. Активизируйте календарь и установите (увеличьте) необходимые размеры календаря.
7.6. Подключите элемент управления "Календарь" к полю "ДатаУплаты" формы, "Платеж_Форма". Для этого одним щелчком правой кнопки мыши вызовите Контекстное меню свойств и активизируйте команду "Свойство". В появившемся диалоговом окне «Элемент ActiveX:Calendar10" (рис. 10.41) в разделе "Данные" и строке "Данные" с помощью кнопки Список выберите поле "ДатаУплаты".
7.7. Закройте диалоговое окно. Элемент подключен к необходимому полю.
7.8. Для проверки правильности подключения Календаря перейдите из режима конструктора формы в режим таблицы формы. Наберите на Календаре необходимую дату и щелкните мышью по полю ДатаУплаты. В поле ДатаУплаты должна установиться введенная Вами дата.
Рис. 10.41. Диалоговое окно "Элемент ActiveX:Calendar10"
8. Добавление командной кнопки Выход
Командную кнопку Выход можно добавить двумя способами: использовать стандартную и разработать свою.
8.1. Создание стандартной кнопки Выход:
– перейдите в режим конструктора формы;
– на Панели элементов (рис. 10.26) с помощью мыши выберите инструмент Кнопка, и создайте пустую кнопку в нужном месте разрабатываемой формы "Платеж_Форма". Автоматически откроется окно Мастер Создание кнопок (рис. 10.38);
– в разделе Категории выберите Работа с формой, в разделе Действия кнопку Закрыть форму. Нажмите кнопку Готово;
– в контекстном меню выберите команду Свойства и в появившемся окне Кнопка (рис. 10.39) задайте размеры и положение кнопки в форме;
– расположение стандартной кнопки Выход приведено на рис. 10.25;
– перейдите в режим таблицы формы и, нажимая на кнопку Выход, убедитесь в ее работоспособности.
– при создании кнопки Выход автоматически формируется программа, реализующая действие кнопки. Просмотреть программный код (рис. 10.40), сформированный для кнопки, можно выбрав меню "Сервис" "Макрос" "Редактор VB". В табл. 10.3 приведен полный текст программы, для используемой кнопки. Сравните текст программы, полученной Вами в процессе создания кнопки Выход, с текстом программ, приведенной в табл. 10.3, и в случае необходимости скорректируйте текст программ для кнопки Выход.
Замечание: номер кнопки 75 в Вашем случае будет другим. Для уточнения номера кнопки смотрите замечание к п. 6.6.
Таблица 10.3
Текст программы для кнопки Выход
|
|||
|
Private Sub Кнопка75_Click() On Error GoTo Err_Кнопка75_Click DoCmd.Close Exit_Кнопка75_Click: Exit Sub Err_Кнопка75_Click: MsgBox Err.Description Resume Exit_Кнопка75_Click End Sub |
|
|
|
|
8.2. Создание индивидуальной кнопки Выход:
– перейдите в режим конструктора формы;
– на Панели элементов (рис. 10.26) с помощью мыши выберите инструмент Надпись;
– создайте надпись с именем Выход в нужном месте разрабатываемой формы "Платеж_Форма";
– в контекстном меню выберите команду Свойства и в появившемся окне Надпись (рис. 10.42) в разделе Подпись введите Выход, а также задайте размеры и положение кнопки в форме (рекомендуемый набор параметров: Выравнивание текста: По центру; Размер шрифта: 14; Насыщенность: полужирный; Ширина: 3 см; Высота 0,6 см; Тип границы: сплошная; Оформление: приподнятое);
Рис. 10.42. Окно Надпись
– поскольку кнопка индивидуальная, то для обеспечения ее работоспособности, необходимо сформировать программу, реализующую действие кнопки. Подключите Редактор VB (меню "Сервис" "Макрос" "Редактор VB") В окне Редактора VB введите (скопируйте с помощью Буфера обмена) текст программы, приведенный в табл. 10.4.
Замечание: номер надписи 77 в Вашем случае будет другим. Для уточнения номера надписи смотрите замечание к п. 6.6.
– расположение индивидуальной кнопки Выход приведено на рис. 10.25;
– перейдите в режим таблицы формы и, нажимая на кнопку Выход, убедитесь в ее работоспособности.
Таблица 10.4
Текст программы для кнопки Выход
|
|||
|
Private Sub Выход_Click() On Error GoTo Err_Выход_Click DoCmd.Close Exit_Выход_Click: Exit Sub Err_Выход_Click: MsgBox Err.Description Resume Exit_Выход_Click End Sub |
|
|
|
|