Разработка урока по теме "Использование 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 и поработайте с приложением через меню