6529

Модули в СУБД ACCESS. Создание процедур

Конспект урока

Информатика, кибернетика и программирование

Модули в СУБД ACCESS. Создание процедур Предполагаем освоение следующих вопросов: Понятие модуля. Назначение процедур. Виды процедур: процедура обработки события процедура преобразования. Типы процедур процедуры-подпрограммы (Su...

Русский

2013-01-05

42 KB

16 чел.

Модули в СУБД ACCESS. Создание процедур

Предполагаем освоение следующих вопросов:

  1.  Понятие модуля.
  2.  Назначение процедур.
  3.  Виды процедур:

процедура обработки события;

процедура преобразования.

4 Типы процедур

процедуры-подпрограммы (Sub);

процедуры-функции (Function)

  1.  Типы переменных
  2.  Основные операторы языка VBA

Модулем называется объект базы данных Access содержащий совокупность созданных пользователем и хранящихся совместно процедур

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

Все задания следует выполнять в базе данных Продукция  созданной на занятии по созданию макросов.

ВАРИАНТ ПОДГОТОВИТЕЛЬНЫЙ 

  1.  Процедуры обработки событий

ЗАДАНИЕ 1. Создать процедуру обработки события, которая отображает в форме Форма_2 индикаторы текущей даты и времени.

Рекомендации по выполнению

  1.  Откройте форму Форма_2 в Режиме конструктора
  2.  Добавьте в область Заголовок формы две надписи Дата и Время, щелкнув на Панели элементов по кнопке [Надпись] и нарисовав рамки для надписей.
  3.  Задайте имя надписям Дата и Время Для этого в окне Свойства для надписи Дата на вкладке Все: в строку Имя введите Дата, а в окне Свойства для надписи Время на вкладке Все в строку Имя введите Время.
  4.  Для создания процедуры обработки события, откройте окно Свойства дня формы Форма_2, выполнив команду Вид  Свойства, предварительно сняв выделение со всех элементов формы.
  5.  Установите значение интервала таймера формы равным 1000. Для этого в окне Свойства перейдите на вкладку События и в строку Интервал таймера введите 1000.
  6.  Выберите из раскрывающегося списка строки Таймер [Процедура обработки событий]. Далее для открытия окна Модуля нажмите на три точки в конце строки Таймер.
  7.  Введите текст процедуры. Он будет следующим.

Private Sub Form_Timer()

Время. Caption = Time 'устанавливает текущее время

Дата. Caption = Date 'устанавливает значение текущей даты

End Sub

Все комментарии к операторам пишутся после пака апострофа (') в одну строку Если комментарий занимает несколько строк, то вначале каждой строки следует ставить знак апостроф (').

  1.  Откомпилируйте полученный модуль, выполнив команду Отладка Компилировать загруженные модули. Если возникли какие-то ошибки, исправьте их и снова откомпилируйте модуль.

  1.  Проверьте работу модуля, открыв форму Форма_2 в режиме формы. В области заголовка должны появиться текущая дата и текущее время.

ЗАДАНИЕ 2. Создать процедуру обработки события, которая в форме Форма_1 устанавливает цвет подписи Отклонение зеленым, цвет поля — голубым.

Рекомендации по выполнению

  1.  Откройте форму Форма_1 в Режиме конструктора.
  2.  Для создания процедуры обработки события, откройте окно Свойства для формы Форма_1. 
  3.  Задайте имя подписи и полю Отклонение и Отклонение1 соответственно.
  4.  На вкладке События выберите из раскрывающегося списка строки Текущая запись Процедура обработки событий. Далее для открытия окна Модуля нажмите на три точки в конце этой строки.
  5.  Введите текст процедуры. Он будет следующим:

Private Sub Form_Current()

Const conClear = 0

Ме!Отклонение. ВасkСо1ог = 65280 'устанавливает зеленый цвет подписи

Me!Отклонение 1.BackColor = 16776960 'устанавливает голубой цвет поля

End Sub

  1.  Откомпилируйте полученный модуль. Если возникли какие-то ошибки, исправьте их и снова откомпилируйте модуль.
  2.  Проверьте работу модуля, открыв форму Форма_1 в режиме формы.

ЗАДАНИЕ 3. Создать процедуру обработки события, которая в форме Форма_1 устанавливает цвет поля Сорт красным для изделий высшего сорта.

Для выполнения этого задания к предыдущей процедуре следует добавить строку:

If Me!Copm = "высший" Then Me!Copm. BackColor = 255

ЗАДАНИЕ 4. Создать процедуру обработки события, которая в отчете Отчет_1 увеличивает значение поля Количество выпущенных по плану на 20%.

ОТЧЕТ ПО РАБОТЕ. Представьте на экране формы Форма_1 и Фор- ма_2, отчет Отчет_1, расположив их слева направо. Продемонстрируйте работу модулей.


 

А также другие работы, которые могут Вас заинтересовать

37108. Разоблачение культа личности Сталина. XX съезд КПСС 15.81 KB
  Именно Хрущеву было поручено прочитать доклад и лично встретить непредсказуемую реакцию участников съезда. Созванный за восемь месяцев до уставного срока в связи с насущной необходимостью подвести итоги произошедших после смерти Сталина изменений и дискуссии о выборе курса съезд завершился знаменитым секретным докладом Хрущева. в последний день работы XX съезда на закрытом заседании с докладом О культе личности и его последствиях выступил первый секретарь ЦК КПСС Н. В докладе были обнародованы и осуждены факты массовых репрессий...
37109. Политика либерализации советского общества. «Оттепель». Н.С. Хрущев – политик и человек 18.45 KB
  Хрущев политик и человек. Хрущев. После недолгой борьбы к власти пришел Никита Сергеевич Хрущев. Резкий решительный неосторожный в словах и поступках Хрущев прошел все ступени партийной работы возглавлял крупные парторганизации.
37110. Нарастание застойных явлений в жизни СССР в 70-е – начале 80-х гг. и их сущность 27.5 KB
  Сохранилась жёстко централизованная система власти. Костяк этой власти составили аппаратчики. К власти пришло третье поколение советских правителей типичных аппаратчиков исполнителей. В моменты ослабления центрального руководства незаметные исполнители почувствовали мощь власти и те блага которые можно приобрести с её помощью.
37111. Перестройка политической системы СССР 24.95 KB
  В истории СССР начался этап получивший название перестройка . По решению XIX партконференции учреждается новый высший орган законодательной власти Съезд народных депутатов СССР и соответствующие республиканские съезды. Был введен пост Президента СССР первым и последним Президентом СССР стал М.
37112. Россия в СНГ и мире: проблема взаимоотношений. Россия на рубеже XX-XXI вв 16.75 KB
  После распада СССР и провозглашения Содружества Независимых Государств для России сложилась новая внешнеполитическая ситуация. Обустройство этих войск в новых местах дислокации обернулось для России значительными финансовыми затратами. 30 мая 1997 года президентами России и республики Беларусь был подписан Устав нового союза однако противников объединения этих двух славянских государств остается немало как с одной так и с другой стороны. В отношении дальнего зарубежья внешняя политика России ставшей правопреемницей СССР характеризуется...
37113. Социально-экономическое развитие суверенной России: переход к рынку, приватизация 17.41 KB
  Приватизация. Осенью 1992 года началась приватизация. Решению этой задачи была подчинена и объявленная приватизация.
37114. Политические преобразования в РФ в 90-е годы. Октябрьский кризис 1993 г. Принятие Конституции, переход к парламентаризму 16.59 KB
  Принятие Конституции переход к парламентаризму. После октябрьских событий началась ликвидация системы Советов завершившаяся с принятием на всенародном референдуме 12 декабря 1993 новой Конституции Российской Федерации 3в 19901993 гг. Ельциным которая впервые занялась разработкой новой Конституции. Проект подготовленный этой комиссией не был принят ни на первом ни на втором обсуждении на съездах народных депутатов но одобрялась общая концепция Конституции что значительно затягивало переход к новому конституционному строю в...
37115. политических противоречий в Российской Империи в начале XX века. 15.04 KB
  Национальный вопрос в России в начале XX века. Национальный вопрос одно из основных социальнополитических противоречий в Российской Империи в начале XX века. Рост недовольства на окраинах подпитывался как жесткой национальной политикой правительства в частности ограничениями в отношении поляков финнов армян и некоторых других народов так и экономическими неурядицами которые переживала Россия в первые годы XX века. К началу XX века российские этносы представляли собой чрезвычайно разнородную массу.
37116. Общенациональный кризис в стране осенью 1917 г 23.48 KB
  Приход к власти большевиков Осенью 1917 г. Бесспорно что если бы большевики промедлили с взятием власти и не упредили правые силы слабое правительство Керенского сменила бы военная диктатура. В нем объявлялось о низложении Временного правительства и переходе власти к Петроградскому ВРК. Тем самым шанс на спасение буржуазной власти был утрачен.