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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 158
Рис. II.58. Файл «Экзаменационная ведомость» группы DFD-32 по предмету «Infor-
matika» во втором семестре текущего учебного года
В окно кода формы frmzExaminationSheet введите следующий
текст:
Dim NameDiscipline As String * 25
Dim NameGrou
Dim NumberOfSemester As String * 15
Dim KindOfReport As String * 15
Dim Numb
Dim Surnam
up = "Обозначение группы"
NumberOfSemester = "С
KindOfReport = "Вид сд
Numb Номер зач ки"
S амилия"
N "
P ество"
R ценка"
D rt = "Дата сдачи"
txtReport.Text = txtReport.Text + N Discipline oup + KindOfReport + _
C )
Data18.RecordSource = txtInq.Text
Data18.Refresh
With D
mberOfSemester = Format(.Fields("NumberOfSemester").Value, 2)
KindOfReport = Format(.Fi
st = NameDiscipline & h & Nam
KindOfReport
txtReport.Text = txtReport.Text t + Chr(13
txtReport.Text = txtReport.Text + NumberTes ee + _
Patronymic + Rating + DateOfR ort + Chr(1
p As String * 25
erTestBook As String * 25
e As String * 25
Dim Namee As String * 20
Dim Patronymic As String * 20
Dim Rating As String * 10
Dim DateOfReport As String * 20
Dim st As String
Const h As String = "|"
Const Title As String = "Экзаменационная ведомость"
Private Sub cmdInq_Click()
txtReport.Text = Title + Chr(13) + Chr(10)
NameDiscipline = "Наименование предмета"
NameGro
еместр"
ачи"
erTestBook = " етной книж
urname = "Ф
amee = "Имя
atronymic = "Отч
ating = "О
ateOfRepo
ame + NameGr
hr(13) + Chr(10
ata18.Recordset
NameDiscipline = Format(.Fields("NameDiscipline").Value, 2)
NameGroup = Format(.Fields("NameGroup").Value, 2)
Nu
elds("KindOfReport").Value, 2)
eGroup & h & NumberOfSemester & h & _
+ s ) + Chr(10)
tBook + Surname + Nam
ep 3) + Chr(10)
158
158                                      Мартьянова А.Е. Базы данных и знаний


Рис. II.58. Файл «Экзаменационная ведомость» группы DFD-32 по предмету «Infor-
                matika» во втором семестре текущего учебного года

         В окно кода формы frmzExaminationSheet введите следующий
текст:
Dim NameDiscipline As String * 25
Dim NameGroup As String * 25
Dim NumberOfSemester As String * 15
Dim KindOfReport As String * 15
Dim NumberTestBook As String * 25
Dim Surname As String * 25
Dim Namee As String * 20
Dim Patronymic As String * 20
Dim Rating As String * 10
Dim DateOfReport As String * 20
Dim st As String
Const h As String = "|"
Const Title As String = "Экзаменационная ведомость"

Private Sub cmdInq_Click()
txtReport.Text = Title + Chr(13) + Chr(10)
NameDiscipline = "Наименование предмета"
NameGroup = "Обозначение группы"
NumberOfSemester = "Семестр"
KindOfReport = "Вид сдачи"
NumberTestBook = "Номер зачетной книжки"
Surname = "Фамилия"
Namee = "Имя"
Patronymic = "Отчество"
Rating = "Оценка"
DateOfReport = "Дата сдачи"
txtReport.Text = txtReport.Text + NameDiscipline + NameGroup + KindOfReport + _
Chr(13) + Chr(10)
Data18.RecordSource = txtInq.Text
Data18.Refresh
With Data18.Recordset
     NameDiscipline = Format(.Fields("NameDiscipline").Value, 2)
     NameGroup = Format(.Fields("NameGroup").Value, 2)
     NumberOfSemester = Format(.Fields("NumberOfSemester").Value, 2)
     KindOfReport = Format(.Fields("KindOfReport").Value, 2)
     st = NameDiscipline & h & NameGroup & h & NumberOfSemester & h & _
     KindOfReport
     txtReport.Text = txtReport.Text + st + Chr(13) + Chr(10)
     txtReport.Text = txtReport.Text + NumberTestBook + Surname + Namee + _
     Patronymic + Rating + DateOfReport + Chr(13) + Chr(10)


                                        158

Страницы