Использование средств Visual Basic .NET в создании информационных систем - 46 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

46
Кроме этого необходимо предусмотреть проверку корректности вводимых
данных в поля, соответствующие оценкам. Это можно сделать с помощью сле-
дующей обработки события изменения содержимого элементов txtM.
Private Sub txtM_TextChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles txtM5.TextChanged, _
txtM4.TextChanged, txtM3.TextChanged, txtM2.TextChanged, _
txtM1.TextChanged
Dim txtM As TextBox = sender
' если содержимое элемента txtM(Index) является числом
If IsNumeric(txtM.Text) = True Then
' и не находится в пределах от 2 до 5,
If CByte(txtM.Text) < 2 Or CByte(txtM.Text) > 5 Then
' пользователь получает предупреждение об ошибке
MsgBox("Неверная оценка", vbExclamation + vbOKOnly, _
"Ошибка")
End If
ElseIf txtM.Text <> "" Then
' если содержимое не является цифрой,
' пользователь получает предупреждение об ошибке
MsgBox("Оценка должна являться цифрой!", vbOKOnly + _
vbExclamation, "Ошибка")
End If
End Sub
В этом месте нужно выполнить полное тестирование формы frmInputEdit, для
этого необходимо заполнить файл данными (4–5 записей) и сохранить его.
Кроме ввода новых данных форма frmInputEdit должна позволять просмат-
ривать и редактировать существующие данные, для этого необходимо описать пе-
ремещение по записям нашей базы данных. Для перемещения по записям будем
использовать кнопки «Начало» (cmdTop), «Конец» (cmdBottom), «Назад»
(cmdBackUp) и «Вперед» (cmdForward). Опишем обработку событий нажатия для
каждой кнопки:
Private Sub cmdTop_Click(ByVal sender As System.Object,_
ByVal e As System.EventArgs) Handles cmdTop.Click
' вывод первой записи данных
Pos = 1
Call ShowZap(Pos)
' кнопки перемещения по записям становятся активными
frmMenu.Text = frmMenu.Text + " Авт"

Страницы