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

UptoLike

ВУЗ: 

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

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

Рубрика: 

61
Кроме того, эта процедура пригодна и для сортировки по убыванию ключа;
для этого достаточно при инициализации массива Key умножить значения ключе-
вых полей на минус единицу.
Для процедур сортировки по строковым полям и полям типа даты приве-
дем только заголовки, так как код тела этих процедур полностью совпадает с ко-
дом тела
процедуры сортировки по числовым полям.
Заголовок процедуры сортировки по строковым полям имеет вид:
Public Sub SortStr(Key() As String , N As Integer, _
Ind() As Integer)
Заголовок процедуры сортировки по полям типа даты имеет вид:
Public Sub SortDate(Key() As Date, N As Integer, _
Ind() As Integer)
Опишем теперь работу с указанными процедурами сортировки. Т.е. опишем
процедуры обработки событий выбора пунктов меню «Сортировка Æ По курсу»,
«Сортировка Æ По группе», «Сортировка Æ По ФИО» и «Сортиров-
ка Æ Исходный порядок». При этом необходимо предусмотреть корректное вы-
полнение вложенных сортировок.
Выбор пункта меню «Сортировка Æ По
курсу»
Private Sub mnuSortKursItem_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles mnuSortKursItem.Click
Dim i As Integer
Dim KeyK(Nmax) As Single
Dim R As TStud = New TStud()
' подготовка к сортировке
For i = 1 To N
R.ReadFromFile(f1, i)
KeyK(i) = R.Kurs
Next i
' вызов процедуры сортировки
Sort(KeyK, N, Ind)
End Sub

Страницы