ВУЗ:
Составители:
Рубрика:
33
Пользовательская функция FindSpecCode, возвращает учетный номер спе-
циальности, находящейся в справочнике на указанной позиции, передаваемой в
качестве параметра.
Private Function FindSpecCode(ByVal number As Integer) As _
Integer
Dim Sp As TSpec = New TSpec()
Sp.ReadFromFile(F1_sp, number)
FindSpecCode = Sp.code
End Function
Пользовательская функция FindSpecIndex получает на вход учетный номер
специальности и возвращает номер записи в файле-справочнике, соответствую-
щие этой специальности.
Public Function FindSpecIndex(ByVal code As Integer) _
As Integer
Dim Sp As TSpec = New TSpec()
Dim i As Integer
Dim temp As Integer
' определяется количество записей в справочнике
NSpec = F1_sp.Length \ Sp.len
temp = 0
For i = 1 To NSpec
' поочередно считываются записи из файла
Sp.ReadFromFile(F1_sp, i)
' и если учетный номер записи совпадает,
If (Sp.Code = code) Then
' то запоминается номер его позиции
temp = i
' и осуществляется выход из цикла проверки
Exit For
End If
Next
' возвращается запомненный номер позиции
FindSpecIndex = temp
End Function
Описав все эти процедуры и функции, мы обеспечили взаимодействие дан-
ных основного файла с данными в файле-справочнике, т.е. обеспечили связь меж-
ду файлами.
Страницы
- « первая
- ‹ предыдущая
- …
- 31
- 32
- 33
- 34
- 35
- …
- следующая ›
- последняя »
