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

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

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



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 и поработайте с приложением через меню


Text6

Text5

Shape1

Text7

Text3


Text2

List1

Data1

Text1

Command1

Text4(0)-4(5)

Label 813



Заголовок 5Заголовок 615