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

UptoLike

ВУЗ: 

АГТУ | Астрахань

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

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 159
Do While Not .EOF
NumberTestBook = Format(.Fields("NumberTestBook").Value, 2)
tronymic = Format(.Fields("Patronymic").Value, 2)
Patronymic
Lo
менационная ведомость"
set.MoveLast
cordCount
elds("NameDiscipline"); " "; _
meGroup")
______________"; "Группа_______________"
__"
cordset.Fields("KindOfReport")
_________________"; "Дата_________________"
__________________________________________"
Фамилия "; "Имя "; "Отчество|"; _
"
____________________________________________"
Data18.Recordset.Fields("NumberTestBook"); " |"; _
urname"); ""; Data18.Recordset.Fields("Name"); ""; _
"Patronymic"); "|"; " |"
Next
________________________________________"
Surname = Format(.Fields("Surname").Value, 2)
Namee = Format(.Fields("Name").Value, 2)
Pa
st = NumberTestBook & h & Surname & h & Namee & h &
txtReport.Text = txtReport.Text + st + Chr(13) + Chr(10)
.MoveNext
op
End With
End Sub
Private Sub cmdCreate_Click()
fileN =
"C:\MyDB\" & "ExaminationSheet" & NameDiscipline & NameGroup & _
NumberOfSemester & Day(Date) & Hour(Time) & Minute(Time) & ".txt"
Open fileN For Output As #1
Print #1, " "; "Экза
Print #1,
Print #1,
Data18.Record
recCount = Data18.Recordset.Re
Data18.Recordset.MoveFirst
Print #1, " "; Data18.Recordset.Fi
Data18.Recordset.Fields("Na
Print #1, "Название предмета______
Print #1,
Print #1, "Преподаватель _____________________
Print #1,
Print #1, " "; Data18.Re
Print #1, "Вид сдачи___________
Print #1,
Print #1, "______________________
Print #1, "Номер зачетной книжки|"; "
"Оценка|"; "Подпись преподавателя
Print #1, "____________________
For i = 1 To recCount
Print #1,
Data18.Recordset.Fields("S
Data18.Recordset.Fields(
Print #1,
Data18.Recordset.Move
Next
Print #1, "________________________
Close #1
fn = FreeFile
Open fileN For Input As #fn 
   Мартьянова А.Е. Базы данных и знаний                                         159


    Do While Not .EOF
         NumberTestBook = Format(.Fields("NumberTestBook").Value, 2)
         Surname = Format(.Fields("Surname").Value, 2)
         Namee = Format(.Fields("Name").Value, 2)
         Patronymic = Format(.Fields("Patronymic").Value, 2)
         st = NumberTestBook & h & Surname & h & Namee & h & Patronymic
         txtReport.Text = txtReport.Text + st + Chr(13) + Chr(10)
         .MoveNext
    Loop
End With
End Sub

Private Sub cmdCreate_Click()
fileN = "C:\MyDB\" & "ExaminationSheet" & NameDiscipline & NameGroup & _
NumberOfSemester & Day(Date) & Hour(Time) & Minute(Time) & ".txt"
Open fileN For Output As #1
Print #1, "            "; "Экзаменационная ведомость"
Print #1,
Print #1,
Data18.Recordset.MoveLast
recCount = Data18.Recordset.RecordCount
Data18.Recordset.MoveFirst
Print #1, "             "; Data18.Recordset.Fields("NameDiscipline"); "       "; _
Data18.Recordset.Fields("NameGroup")
Print #1, "Название предмета____________________"; "Группа_______________"
Print #1,
Print #1, "Преподаватель _______________________"
Print #1,
Print #1, "           "; Data18.Recordset.Fields("KindOfReport")
Print #1, "Вид сдачи____________________________"; "Дата_________________"
Print #1,
Print #1, "________________________________________________________________"
Print #1, "Номер зачетной книжки|"; "Фамилия "; "Имя "; "Отчество|"; _
"Оценка|"; "Подпись преподавателя"
Print #1, "________________________________________________________________"
For i = 1 To recCount
     Print #1, Data18.Recordset.Fields("NumberTestBook"); "          |"; _
     Data18.Recordset.Fields("Surname"); ""; Data18.Recordset.Fields("Name"); ""; _
     Data18.Recordset.Fields("Patronymic"); "|"; " |"
     Print #1,
     Data18.Recordset.MoveNext
Next
Print #1, "________________________________________________________________"
Close #1
fn = FreeFile
Open fileN For Input As #fn

Страницы