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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 154
Dim Surname As String * 25
Dim Namee As String * 20
Dim Patronymic As String * 20
im TabularedNumber As String * 20
s String * 15
OfStudying As String * 15
im st As String
проведения занятий в группе"
rivate Sub cmdInq_Click()
3) + Chr(10)
Discipline = "Наименование предмета"
up = "Обозначение группы"
urname = "Фамилия преподавателя"
о"
Number = "Табельный номер"
ours = "Часы"
"
Вид занятия"
.Text = txtReport.Text + NameGroup + NumberOfSemester + Chr(13) + Chr(10)
ata17.RecordSource = txtInq.Text
rdset
eGroup = Format(.Fields("NameGroup").Value, 2)
NumberOfSemester = Format(.Fields("NumberOfSemester").Value, 2)
berOfSemester
tReport.Text + st + Chr(13) + Chr(10)
port.Text = txtReport.Text + NameDiscipline + Surname + Namee + _
Patronymic + TabularedNumber + KindOfStudying + Hours + Chr(13) + Chr(10)
e = Format(.Fields("NameDiscipline").Value, 2)
Surname = Format(.Fields("Surname").Value, 2)
Namee = Format(.Fields("Name").Value, 2)
ds("Patronymic").Value, 2)
umber = Format(.Fields("TabularedNumber"), 2)
KindOfStudying = Format(.Fields("KindOfStudying"), 2)
Hours = Format(.Fields("Hours"), 2)
urname & h & Namee & h & Patronymic & h & _
ber & h & KindOfStudying & h & Hours
txtReport.Text = txtReport.Text + st + Chr(13) + Chr(10)
.MoveNext
D
Dim Hours As String * 5
Dim NumberOfSemester A
Dim Kind
D
Const h As String = "|"
Const Title As String = "План
P
txtReport.Text = Title + Chr(1
Name
NameGro
S
Namee = "Имя"
Patronymic = "Отчеств
Tabulared
H
NumberOfSemester = "Семестр
KindOfStudying = "
txtReport
D
Data17.Refresh
With Data17.Reco
Nam
st = NameGroup & h & Num
txtReport.Text = tx
txtRe
Do While Not .EOF
NameDisciplin
Patronymic = Format(.Fiel
TabularedN
st = NameDiscipline & h & S
TabularedNum
Loop
End With
154
154                                       Мартьянова А.Е. Базы данных и знаний


Dim Surname As String * 25
Dim Namee As String * 20
Dim Patronymic As String * 20
Dim TabularedNumber As String * 20
Dim Hours As String * 5
Dim NumberOfSemester As String * 15
Dim KindOfStudying As String * 15
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 = "Обозначение группы"
Surname = "Фамилия преподавателя"
Namee = "Имя"
Patronymic = "Отчество"
TabularedNumber = "Табельный номер"
Hours = "Часы"
NumberOfSemester = "Семестр"
KindOfStudying = "Вид занятия"
txtReport.Text = txtReport.Text + NameGroup + NumberOfSemester + Chr(13) + Chr(10)
Data17.RecordSource = txtInq.Text
Data17.Refresh
With Data17.Recordset
     NameGroup = Format(.Fields("NameGroup").Value, 2)
     NumberOfSemester = Format(.Fields("NumberOfSemester").Value, 2)
     st = NameGroup & h & NumberOfSemester
     txtReport.Text = txtReport.Text + st + Chr(13) + Chr(10)
     txtReport.Text = txtReport.Text + NameDiscipline + Surname + Namee + _
     Patronymic + TabularedNumber + KindOfStudying + Hours + Chr(13) + Chr(10)
     Do While Not .EOF
           NameDiscipline = Format(.Fields("NameDiscipline").Value, 2)
           Surname = Format(.Fields("Surname").Value, 2)
           Namee = Format(.Fields("Name").Value, 2)
           Patronymic = Format(.Fields("Patronymic").Value, 2)
           TabularedNumber = Format(.Fields("TabularedNumber"), 2)
           KindOfStudying = Format(.Fields("KindOfStudying"), 2)
           Hours = Format(.Fields("Hours"), 2)
           st = NameDiscipline & h & Surname & h & Namee & h & Patronymic & h & _
          TabularedNumber & h & KindOfStudying & h & Hours
           txtReport.Text = txtReport.Text + st + Chr(13) + Chr(10)
          .MoveNext
     Loop
End With

                                        154

Страницы