Прошу подсказать, как лучше выстроить логику кода.
Суть: есть база данных диссертаций (mdb), включающая 7 текстовых файлов (научный руководитель, объект, предмет, цели, задачи, структура, новизна).
При загрузке формы выводится информация о фамилии автора диссертации в TDBGrid1.
Нажав на нужную фамилию, в семи TexBox'ах отражаются соответствующие текстовые файлы.
Их загрузка идет по коду
- Код: Выделить всё
Dim FN As Integer
Dim FName As String
Private Sub Text90_Change()
'___________________________Иванов Иван Иванович
If Text90.Text = "Иванов Иван Иванович" Then
FN = FreeFile
FName = App.Path & "\" & "Text\ivanov\nk.txt" 'научный консультант
Open FName For Input As #FN
Text5.Text = Input(LOF(FN), #FN)
Close #FN
FN = FreeFile
FName = App.Path & "\" & "Text\ivanov\ob.txt" 'объект
Open FName For Input As #FN
Text6.Text = Input(LOF(FN), #FN)
FN = FreeFile
FName = App.Path & "\" & "Text\ivanov\pr.txt" 'предмет
Open FName For Input As #FN
Text7.Text = Input(LOF(FN), #FN)
FN = FreeFile
FName = App.Path & "\" & "Text\ivanov\cel.txt" 'цель
Open FName For Input As #FN
Text8.Text = Input(LOF(FN), #FN)
FN = FreeFile
FName = App.Path & "\" & "Text\ivanov\zad.txt" 'задачи
Open FName For Input As #FN
Text9.Text = Input(LOF(FN), #FN)
FN = FreeFile
FName = App.Path & "\" & "Text\ivanov\ogl.txt" 'структура
Open FName For Input As #FN
Text10.Text = Input(LOF(FN), #FN)
FN = FreeFile
FName = App.Path & "\" & "Text\ivanov\nov.txt" 'новизна
Open FName For Input As #FN
Text11.Text = Input(LOF(FN), #FN)
End If
Проблема: в базе данных - 3000 диссертаций. Значит ли это, что я должен таких блоков кода вставить 3000 раз?
Или есть другая логика построения кода для решения проблемы?
Если такая логика есть, буду признателен за совет!
С уважением,
