Базы данных и знаний. Мартьянова А.Е. - 155 стр.

   Мартьянова А.Е. Базы данных и знаний                                          155


End Sub

Private Sub cmdCreate_Click()
fileN = "C:\MyDB\" & "PlanStudingGroup" & NameGroup & NumberOfSemester & _
Day(Date) & Hour(Time) & Minute(Time) & ".txt"
Open fileN For Output As #1
Print #1, "План проведения занятий в группе " & NameGroup & " от " & Str(Date)
Print #1, "______________________________________________________________"
Print #1,
Print #1, "Обозначение группы|"; " Семестр /текущий учебный год/"
Print #1, "______________________________________________________________"
Print #1,
Data17.Recordset.MoveLast
recCount = Data17.Recordset.RecordCount
Data17.Recordset.MoveFirst
Print #1, Data17.Recordset.Fields("NameGroup"); Tab; _
Data17.Recordset.Fields("NumberOfSemester")
Print #1, "______________________________________________________________"
Print #1,
Print #1, "Наименование предмета|"; "Фамилия преподавателя|"; "Имя|"; _
"Отчество|"; "Табельный номер преподавателя|"; "Вид занятия|"; "Часы"
Print #1, "______________________________________________________________"
For i = 1 To recCount
     Print #1, Data17.Recordset.Fields("NameDiscipline"); Tab; _
     Data17.Recordset.Fields("Surname"); Tab; Data17.Recordset.Fields("Name"); Tab; _
     Data17.Recordset.Fields("Patronymic"); Tab; _
     Data17.Recordset.Fields("TabularedNumber"); Tab; _
     Data17.Recordset.Fields("KindOfStudying"); Tab; Data17.Recordset.Fields("Hours")
     Print #1,
     Data17.Recordset.MoveNext
Next
Print #1, "______________________________________________________________"
Close #1
fn = FreeFile
Open fileN For Input As #fn
txtReport.Text = Input(LOF(fn), fn)
Close #fn
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub