Для всех учителей из 37 347 образовательных учреждений по всей стране

Скидка до 75% на все 778 курсов

Выбрать курс
Получите деньги за публикацию своих
разработок в библиотеке «Инфоурок»
Добавить авторскую разработку
и получить бесплатное свидетельство о размещении материала на сайте infourok.ru
Инфоурок Информатика ПрезентацииРазработка приложений на VB (или VBA) для баз данных

Разработка приложений на VB (или VBA) для баз данных

библиотека
материалов
Введение в VBA Занятие 9. Создание диалоговых форм в VBA (VBScript) Автор: к....

Описание презентации по отдельным слайдам:

1 слайд Введение в VBA Занятие 9. Создание диалоговых форм в VBA (VBScript) Автор: к.
Описание слайда:

Введение в VBA Занятие 9. Создание диалоговых форм в VBA (VBScript) Автор: к.т.н. Герасимов Н.А. Доступ приложений к базам данных (через ADO компоненты)

2 слайд Занятие 9. Создание диалоговых форм в VBA Тема занятия : Разработка диалогово
Описание слайда:

Занятие 9. Создание диалоговых форм в VBA Тема занятия : Разработка диалоговой формы в среде VBA Excel для ввода данных. Доступ к базам данных через ODBC - интерфейс Обработка данных формы в VBSCript (ADO-компоненты в скриптах) В примере используется база данных Avto.mdb Герасимов Н.А

3 слайд Вариант схемы базы данных avto.mdb Герасимов Н.А
Описание слайда:

Вариант схемы базы данных avto.mdb Герасимов Н.А

4 слайд Понятие диалоговой формы Герасимов Н.А Под диалоговой формой понимается визуа
Описание слайда:

Понятие диалоговой формы Герасимов Н.А Под диалоговой формой понимается визуальный контейнер, к котором размещаются объекты для реализации интерактивного взаимодействия человека с компьютером. В качестве объектов здесь выступают: Надписи (label); Текстовые боксы (textbox); Выпадающие списки (listbox); Кнопки (button); Специальные кнопки-указатели (checkbutton или radio) И другие. Каждый объект имеет свои свойства (параметры). Обязательным параметром объекта является Имя (Name)

5 слайд Пример диалоговой формы в виде «Окно» Герасимов Н.А
Описание слайда:

Пример диалоговой формы в виде «Окно» Герасимов Н.А

6 слайд Создание диалогового окна в VBA Войти в Excel – выбрать команду Вид – выбрать
Описание слайда:

Создание диалогового окна в VBA Войти в Excel – выбрать команду Вид – выбрать Макросы – Изменить Попадаем в режим проектирования VBA приложений. Другой способ войти в это режим - нажать клавиши Alt+F11. В режиме проектирования VBA приложений выбираем команду Вставить (Insert)- Форму (UserForm) и попадаем в редактор пользовательских форм Герасимов Н.А

7 слайд Начальное состояние формы
Описание слайда:

Начальное состояние формы

8 слайд Основные объекты на панели VBA ToolBox 1 – Select Objects (выбор объектов), 2
Описание слайда:

Основные объекты на панели VBA ToolBox 1 – Select Objects (выбор объектов), 2 – Label (надпись), 3 – TextBox (поле), 4 – ComboBox (поле со списком), 5 – ListBox (список), 6 – CheckBox (флажок), 7 – OptionButton (переключатель), 8 – ToggleButton (выключатель), 9 – Frame (рамка) 10 – CommandButton (кнопка), 11 – TabStrip (набор вкладок), 12 – MultlPage (набор страниц), 13 – ScrollBar (полоса прокрутки), 14 – SpinButton (счетчик), 15 – Image (рисунок), 16 –RefEdit

9 слайд Изменение свойств формы и размещение объектов Изменим свойства формы: Имя фор
Описание слайда:

Изменение свойств формы и размещение объектов Изменим свойства формы: Имя формы – Name = MyForm Заголовок формы – Caption = Ввод данных Шрифт – Font = 10 bould Разместим на форме объекты: Метку (label) с текстом (Caption = SQL Запрос ) Текстовый бокс (textbox) c (Value=select * from people;) и (MultiLine=True) Кнопку (button) с текстом (Caption = Выполнить) Герасимов Н.А

10 слайд Вид формы после редактирования Герасимов Н.А
Описание слайда:

Вид формы после редактирования Герасимов Н.А

11 слайд Создание обработчика под событие Click на кнопке Для создания обработчика соб
Описание слайда:

Создание обработчика под событие Click на кнопке Для создания обработчика события click на объекте Button достаточно дважды щелкнуть по этому объекту. Герасимов Н.А

12 слайд Добавление команд в обработчик событий на кнопке Добавим в обработчик событий
Описание слайда:

Добавление команд в обработчик событий на кнопке Добавим в обработчик событий на кнопке две команды: Команда чтения из текстового бокса текущего значения параметра value txt=textbox1.value Команда вывода сообщения в модальное окно MsgBox txt Герасимов Н.А

13 слайд Пример обработчика события на кнопке Герасимов Н.А Запуск формы на выполнение
Описание слайда:

Пример обработчика события на кнопке Герасимов Н.А Запуск формы на выполнение

14 слайд Работа формы при нажатии кноки «Выполнить» Герасимов Н.А
Описание слайда:

Работа формы при нажатии кноки «Выполнить» Герасимов Н.А

15 слайд Добавление на форму объекта ListBox Герасимов Н.А Объект будет выводить на фо
Описание слайда:

Добавление на форму объекта ListBox Герасимов Н.А Объект будет выводить на форму список (ListBox) возможных вопросов, который находится на Листе (Query) Список передается в объект ListBox через свойство RowSource=Query!B1:B10

16 слайд Вариант формы для выбора запроса из списка Герасимов Н.А Пользователь выбирае
Описание слайда:

Вариант формы для выбора запроса из списка Герасимов Н.А Пользователь выбирает из списка запрос и после нажатия на этом запросе, запрос попадает в текстовый бокс для редактирования.

17 слайд Подключение формы к исполняемому модулю В качестве исполняемого модуля будем
Описание слайда:

Подключение формы к исполняемому модулю В качестве исполняемого модуля будем использовать процедуру выполнения SQL-запроса в базе данных Avto.mdb (Access). Процедура ReadDB(strSQL) в качестве входного параметра имеет SQL-запрос, который находится в символьной переменной strSQL. Процедура ReadDB(strSQL) выполняет следующие функции: Открывает канал связи с базой данных Avto.mdb Выполняет полученный SQL-запрос Результат выводит на Лист1 Закрывает канал связи

18 слайд Создание таблицы Employees в редакторе SQL СУБД Access Герасимов Н.А Sub Read
Описание слайда:

Создание таблицы Employees в редакторе SQL СУБД Access Герасимов Н.А Sub Read_db(strSQL) '---(1) Открыть канал связи с БД----------- strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Avto.mdb;" Set Db = CreateObject("ADODB.Connection") Db.Open strConn '---(2) Выполнить запрос ------ Set Rs = CreateObject("ADODB.RecordSet") Rs.Open strSQL, Db '---(3) вывод таблицы результатов --------- With Sheets("Лист1") nstr = 1: k = 1 '----- подготовка заголовка таблицы ---- For Each fl In Rs.fields .Cells(nstr, k).Value = fl.Name : k = k + 1 Next nstr = 2 '----- вывод строк таблицы ---------- Do While (Rs.EOF = False) k = 1 For Each fl In Rs.fields .Cells(nstr, k).Value = fl.Value : k = k + 1 Next '---- перемещение на след строку ---- nstr = nstr + 1 : Rs.movenext Loop End With End Sub

19 слайд Создание модуля Read_DB в проекте VBA Герасимов Н.А
Описание слайда:

Создание модуля Read_DB в проекте VBA Герасимов Н.А

20 слайд Обработчик событий на кнопке Private Sub CommandButton1_Click() '--- чтение д
Описание слайда:

Обработчик событий на кнопке Private Sub CommandButton1_Click() '--- чтение данных из текстового бокса - strSQL = TextBox1.Value '--- вывод сообщения в модальное окно -- rep = MsgBox(strSQL, 308, "") If rep = vbYes Then '---- Выполнение запроса --- Call Clear_Sheet 'Очистка листа Call Read_DB(strSQL) End If End Sub Герасимов Н.А

21 слайд Результат выполнения запроса из формы Герасимов Н.А
Описание слайда:

Результат выполнения запроса из формы Герасимов Н.А

22 слайд Простая HTML-форма для ввода SQL-запроса    test load vbscript module    test
Описание слайда:

Простая HTML-форма для ввода SQL-запроса <html> <head> <title> test load vbscript module</title> <script type="text/vbscript" src="read_db.vbs"></script> </head> <body> <h2><center>test load vbscript module </h2></center><hr> Зарос: <textarea id=txtSQL rows=5 cols=60> select * from salespeople; </textarea> <input type=button value=test onclick="test()"> </body> </html> Сохранить текст в файле Form_read_db.html

23 слайд Простая форма ввода SQL-запроса
Описание слайда:

Простая форма ввода SQL-запроса

24 слайд Подгружаемый VBScript файл (read_db.vbs) SUB test() &#039;--- Чтение SQL- запроса
Описание слайда:

Подгружаемый VBScript файл (read_db.vbs) SUB test() '--- Чтение SQL- запроса из формы ---- strSQL=txtSQL.value msgbox "strSQL=>" & strSQL dbName="shop.mdb" call read_db(strSQL, dbName ) END SUB '---=================================---- Sub read_db (strSQL, dbName) '---(1) Открыть канал связи с БД----------- strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";" Set Db = CreateObject("ADODB.Connection") Db.Open strConn '---(2) Выполнить запрос ------ Set Rs = CreateObject("ADODB.RecordSet") Rs.Open strSQL, Db '---(3) вывод таблицы результатов ---------------- ss0="<tr>" '----- подготовка заголовка таблицы ---- For Each fl In Rs.Fields ss0 = ss0 & "<td>" & fl.Name & "</td>" Next ss0 = ss0 & "</tr>" '----- вывод строк таблицы ---------- ss1="" Do While (Rs.EOF = False) ss1= ss1 & "<tr>" For Each fl In Rs.Fields ss1 = ss1 & "<td>" & fl.Value & "</td>" Next ss1 = ss1 & "</tr>" '---- перемещение на след строку ---- Rs.movenext Loop '----------- вывод результата в HTML - виде ----- ss="База данных =" & dbName & "<br> SQL запрос=" & strSQL & "<hr>" tt=ss & "<table border=1>" & ss0 & ss1 & "</table>" document.write(tt) '-----------закрыть канал связи с базой ---- Db.Close End Sub

25 слайд Результат по запросу из базы данных shop.mdb
Описание слайда:

Результат по запросу из базы данных shop.mdb

26 слайд Источники Формы vba - https://studfiles.net/preview/4614862/ Герасимов Н.А. П
Описание слайда:

Источники Формы vba - https://studfiles.net/preview/4614862/ Герасимов Н.А. Практикум по разработке диалоговых приложений в среде VBA – М., Изд-во «РЭУ им. Г.В. Плеханова», 2004 г.,60 с Лекции по теиме «Формы на VBA» на youtube- https://www.youtube.com/watch?v=c8Yndw4rCfc https://www.youtube.com/watch?v=Bhzgf1rQ9P4 https://www.youtube.com/watch?v=4ZIMo82yZro https://www.youtube.com/watch?v=u6-gWWYM00k https://www.youtube.com/watch?v=wewZWa9zjfc

27 слайд Спасибо за внимание Герасимов Н.А. gera01@yandex.ru
Описание слайда:

Спасибо за внимание Герасимов Н.А. gera01@yandex.ru

Курс повышения квалификации
Курс профессиональной переподготовки
Учитель математики и информатики
Найдите материал к любому уроку,
указав свой предмет (категорию), класс, учебник и тему:
также Вы можете выбрать тип материала:
Проверен экспертом
Общая информация
Учебник: «Информатика (базовый и углублённый уровень)», Гейн А.Г., Сенокосов А.И.

Номер материала: ДБ-456534

Вам будут интересны эти курсы:

Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Облачные технологии в образовании»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.