Инфоурок / Информатика / Другие методич. материалы / Разработка урока по теме "Использование Visual Basic при работе с базами данных" (11 класс)
Обращаем Ваше внимание: Министерство образования и науки рекомендует в 2017/2018 учебном году включать в программы воспитания и социализации образовательные события, приуроченные к году экологии (2017 год объявлен годом экологии и особо охраняемых природных территорий в Российской Федерации).

Учителям 1-11 классов и воспитателям дошкольных ОУ вместе с ребятами рекомендуем принять участие в международном конкурсе «Я люблю природу», приуроченном к году экологии. Участники конкурса проверят свои знания правил поведения на природе, узнают интересные факты о животных и растениях, занесённых в Красную книгу России. Все ученики будут награждены красочными наградными материалами, а учителя получат бесплатные свидетельства о подготовке участников и призёров международного конкурса.

ПРИЁМ ЗАЯВОК ТОЛЬКО ДО 15 ДЕКАБРЯ!

Конкурс "Я люблю природу"

Разработка урока по теме "Использование Visual Basic при работе с базами данных" (11 класс)




Московские документы для аттестации!

124 курса профессиональной переподготовки от 4 795 руб.
274 курса повышения квалификации от 1 225 руб.

Для выбора курса воспользуйтесь поиском на сайте KURSY.ORG


Вы получите официальный Диплом или Удостоверение установленного образца в соответствии с требованиями государства (образовательная Лицензия № 038767 выдана ООО "Столичный учебный центр" Департаментом образования города МОСКВА).

ДИПЛОМ от Столичного учебного центра: KURSY.ORG


библиотека
материалов

Использование Visual Basic при работе с базами данных.


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

Создать на форме элементы управления, указанные на рисунке


hello_html_1aaf0fc8.gifhello_html_m1f64c33b.png


1. Создайте меню приложения:

Файл
Открыть…

Закрыть

2. Для объекта Data1 установите свойства:

DatabaseName = С:\ Мои документы\ Школьный рейтинг.mdb
Caption = Данные
RecordSource = Успеваемость

3. Свяжите текстовые поля TextBox с объектом Data1:

DataSource = Data1

DataField = Фамилия (Имя, Класс, математика и т.д.)

4. Установите на форму объект CommonDialog (добавить Microsoft Common Dialog

Control 6.0) и объект StatusBar (добавить Microsoft Windows Common Control 6.0)

5. Для первой панели объекта StatusBar установите свойство:

Style = sbrDate, для второй: AutoSize = sbrSpring
6. Наберите код программы:


Dim Fam(100) As String, Im(100) As String, Klass(100) As String

Dim Sum As Single, k As Integer

Dim Ball As Single


Private Sub Command1_Click()

:Sum = 0

Text5.Text = ""


For j = 0 To 5

Sum = Sum + CInt(Text4(j).Text)

Next

Text5.Text = Sum / 6

Ball = Sum / 6

Select Case Ball

Case Is > 4.8

Text6.Text = "Отлично "

Case Is >= 4

Text6.Text = "Хорошо "

Case Is >= 3

Text6.Text = " Удовлетворительно"

Case Else

Text6.Text = "Плохо "

End Select

End Sub



Private Sub Data1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

i = CInt(Text7.Text)

Fam(i) = Text1.Text

Im(i) = Text2.Text

Klass(i) = Text3.Text

If i > k Then

k = i

List1.AddItem Fam(k)

End If

End Sub


Private Sub Form_Activate()

StatusBar1.Panels(2) = Data1.DatabaseName

End Sub


Private Sub Открыть_Click()

CommonDialog1.Filter = "All Files (*.*)|*.*|Access Files (*.mdb)|*.mdb|"

CommonDialog1.FilterIndex = 2

CommonDialog1.ShowOpen

Data1.DatabaseName = CommonDialog1.FileName

Data1.Refresh

StatusBar1.Panels(2) = CommonDialog1.FileName

End Sub


Private Sub Закрыть_Click()

Unload Me

End Sub


Очистите от данных свойство DatabaseName объекта Data1 и поработайте с приложением через меню



Самые низкие цены на курсы переподготовки

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

После окончания обучения выдаётся диплом о профессиональной переподготовке установленного образца с присвоением квалификации (признаётся при прохождении аттестации по всей России).

Обучение проходит заочно прямо на сайте проекта "Инфоурок", но в дипломе форма обучения не указывается.

Начало обучения ближайшей группы: 13 декабря. Оплата возможна в беспроцентную рассрочку (10% в начале обучения и 90% в конце обучения)!

Подайте заявку на интересующий Вас курс сейчас: https://infourok.ru


Общая информация

Номер материала: ДA-030361
Курсы профессиональной переподготовки
133 курса

Выдаем дипломы установленного образца

Заочное обучение - на сайте «Инфоурок»
(в дипломе форма обучения не указывается)

Начало обучения: 13 декабря
(набор групп каждую неделю)

Лицензия на образовательную деятельность
(№5201 выдана ООО «Инфоурок» 20.05.2016)


Скидка 50%

от 13 800  6 900 руб. / 300 часов

от 17 800  8 900 руб. / 600 часов

Выберите квалификацию, которая должна быть указана в Вашем дипломе:
... и ещё 87 других квалификаций, которые Вы можете получить

Похожие материалы

Получите наградные документы сразу с 38 конкурсов за один орг.взнос: Подробнее ->>