Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Другие методич. материалы / Разработка урока по теме "Использование Visual Basic при работе с базами данных" (11 класс)

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

Идёт приём заявок на самые массовые международные олимпиады проекта "Инфоурок"

Для учителей мы подготовили самые привлекательные условия в русскоязычном интернете:

1. Бесплатные наградные документы с указанием данных образовательной Лицензии и Свидeтельства СМИ;
2. Призовой фонд 1.500.000 рублей для самых активных учителей;
3. До 100 рублей за одного ученика остаётся у учителя (при орг.взносе 150 рублей);
4. Бесплатные путёвки в Турцию (на двоих, всё включено) - розыгрыш среди активных учителей;
5. Бесплатная подписка на месяц на видеоуроки от "Инфоурок" - активным учителям;
6. Благодарность учителю будет выслана на адрес руководителя школы.

Подайте заявку на олимпиаду сейчас - https://infourok.ru/konkurs

  • Информатика

Поделитесь материалом с коллегами:

Использование 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% скидкой при обучении по программам профессиональной переподготовки.

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

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

Начало обучения ближайших групп: 18 января и 25 января. Оплата возможна в беспроцентную рассрочку (20% в начале обучения и 80% в конце обучения)!

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

Автор
Дата добавления 06.09.2015
Раздел Информатика
Подраздел Другие методич. материалы
Номер материала ДA-030361
Получить свидетельство о публикации

УЖЕ ЧЕРЕЗ 10 МИНУТ ВЫ МОЖЕТЕ ПОЛУЧИТЬ ДИПЛОМ

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

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

Список всех тестов можно посмотреть тут - https://infourok.ru/tests

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

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