ВУЗ:
Составители:
Рубрика:
69
End Sub
Вывод списка одной группы реализован в процедуре обработки события
выбора пункта меню «Отчеты Æ Списки групп Æ Одна группа»
В этой задаче у пользователя сначала запрашиваются значения для курса и
группы, и проверяется корректность введенных значений. Затем файл исходных
данных упорядочивается по полю «Фамилия» в алфавитном порядке; после чего
он
просматривается, из него выбираются и выводятся в текстовый файл записи, в
которых значения курса и группы совпадают со значениями, введенными пользо-
вателем.
Private Sub mnuQueryListOneItem_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles mnuQueryListOneItem.Click
Dim i As Integer
Dim Ind(Nmax) As Integer
Dim NK As Byte
Dim NG As Byte
Dim NPP As Integer
Dim TempStr As String
Dim KeyFIO(Nmax) As String
Dim R As TStud = New TStud()
' открывается файл otch.ist, находящийся в той же папке,
' что и работающий проект
Path2 = CurDir() + "\otch.ist"
F4 = FreeFile()
FileOpen(F4, Path2, OpenMode.Output)
' запрос у пользователя интересующего его курса
TempStr = InputBox("Введите курс", "Ввод курса")
Do While Not IsNumeric(TempStr)
'если введенный курс не является числом,
' но является пустым значением
If (TempStr = "") Then
' то файл закрывается и осуществляется выход
' из процедуры
FileClose(F4)
Exit Sub
End If
' если введенный курс не является числом,
' то еще раз производится запрос номера курса
MsgBox("Курс - число", vbOKOnly + vbExclamation, _
Страницы
- « первая
- ‹ предыдущая
- …
- 67
- 68
- 69
- 70
- 71
- …
- следующая ›
- последняя »
