Мартьянова А.Е. Базы данных и знаний. Учебное пособие

Подождите немного. Документ загружается.

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

1. Добавьте в раздел Group Footer

oup_Footer) объект RptLabel и введите в свойство

в группе».

и назовите его

значение свойства FunctionType 1-

. Установите для свойства DataMember значение

mandStudent и в свойстве DataField выберите поле

tReceipt». Для свойства DataFormat оставьте значение

General

(CommandStudentGr

Caption текст «Средний балл при поступлении

Добавьте в эту секцию объект RptFunction 2.

rptAvgRating. Установите

rptFuncAve

Com

«PointA

(Общий).

3. Запустите приложение на выполнение и просмотрите отчет (рис.

II.55).

Рис. II.55. Окончательный вид отчета DataReportStudentGroup в режиме запуска

приложения

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

Создание формы для вывода отчета в файл

Рассмотрим создание формы для вывода отчета «План проведения

заняти в ой в группе» файл с указанием запрошенной п льзователем груп-

пы и семестра учебного года. Внешний вид формы – см. рис. II.56.

Рис. II.56. Вид формы для вывода в файл отчета «План проведения занятий в группе»

в режиме запуска приложения

Постройте форму frmzPlanStudingGroup в соответствии с табл.

II.29.

152

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

Объект Свойс Значение

аблица II.29. Таблица свойств формы frmzPlanStudingGroup

тво

Форма Name

Caption

frmzPlanStudingGroup

ан проведения занятий в

ппе

Пл

гру

Элемент CommandButton Name

Caption Ввести в предложение

WHERE обозначение

группы и номер семестра,

выполнить запрос

cmdInq

Элемент CommandButton Name

Caption

cmdCreate

Создать текстовый файл и

отобразить его текст

Элемент CommandButton Name

Caption

dClose

&Close

Элемент TextBox Name

MultiLine

Text

txtInq

True

. запрос под табл. II.29

см

Элемент TextBox Name

MultiLine

ScrollBars

txtReport

True

3 – Both

Элемент Data Name Data17

Установите для элемента управления TextBox с именем txtInq

свойство MultiLine в позицию True, в свойства Text введите текст сле-

дующ

его запроса:

SELECT DISCIPLINE.NameDiscipline, GROUP_.NameGroup, TEACHER.Surname,

TEACHER.Name, TEACHER.Patronymic, TEACHER.TabularedNumber,

STUDYING.Hours, STUDYING.NumberOfSemester, STUDYING.Ki

ndOfStudying

FROM

1' And STUDYING.NumberOfSemester =1

GROU

NG.NumberOfSemester, STUDYING.KindOfStudying

scipline As String * 25

Dim N eGroup As String * 20

ADVANCED, DISCIPLINE, GROUP_, STUDENT, STUDYING, TEACHER

WHERE ADVANCED.CodeStudent=STUDENT.CodeStudent And

GROUP_.CodeGroup=STUDENT.CodeGroup And

DISCIPLINE.CodeDiscipline=STUDYING.CodeDiscipline And

STUDYING.CodeTeacher=TEACHER.CodeTeacher And

ADVANCED.CodeStudying=STUDYING.CodeStudying And GROUP_.NameGroup =

'DFD-3

P BY DISCIPLINE.NameDiscipline, GROUP_.NameGroup, TEACHER.Surname,

TEACHER.Name, TEACHER.Patronymic, TEACHER.TabularedNumber,

STUDYING.Hours, STUDYI

ORDE

R BY DISCIPLINE.NameDiscipline, GROUP_.NameGroup, TEACHER.Surname;

В окно кода формы frmzPlanStudingGroup введите следующий

текст:

Dim Na eDim

Мартьянова А.Е. Базы данных и знаний 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

Dim Hours As String * 5

Dim NumberOfSemester A

Dim Kind

Const h As String = "|"

Const Title As String = "План

txtReport.Text = Title + Chr(1

Name

NameGro

Namee = "Имя"

Patronymic = "Отчеств

Tabulared

NumberOfSemester = "Семестр

KindOfStudying = "

txtReport

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

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

End Sub

Private Sub cmdCreate_Click()

fileN = "C:\MyDB\" & "PlanStudingGroup" & NameGroup & NumberOfSemester & _

) & Hour(Time) & Minute(Time) & ".txt"

Open fi

"______________________________________________________________"

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.MoveN

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

Day(Date

leN 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

ext

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

«План проведения занятий в группе» группы DFD-32 во втором

семестре текущего учебного года, записанный в текстовый файл – см.

рис. II.57.

Рис. II.57. Файл «План проведения занятий в группе» DFD-32

КОНТРОЛЬНЫЕ ВОПРОСЫ к заданию

ются отчеты при создании интерфей-

Перечислите разделы отчета объекта DataReport.

3. Перечислите элементы управления объекта DataReport.

ойства объекта DataReport.

функции элемента управления RptFunction.

ения отчета с группировкой данных.

аметры функции Format.

ЗАДАНИЕ на проектирование БД «Учебный процесс»

щью объекта DataReport отчет «Спи-

давателей».

объекта DataReport отчет с груп-

ок студентов».

Запустите отчет «

Список студентов» на выполнение. Нажми-

е кнопку Export и сохраните файл с именем «ListStudentsGroup» в папке

1. С какой целью использу

сов приложения?

4. Перечислите св

5. Перечислите

6. Какой синтаксис имеет метод Show?

7. Опишите порядок построения простого отчета

8. Опишите порядок постро

9. Опишите пар

1. Установите окружение данных отчета

2. Спроектируйте с помо

сок препо

3. Спроектируйте с помощью

пировкой данных «Спис

156

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

«MyDB», предназначенной для размещения файлов проекта. Тип файла

е Text (*.txt). Откройте этот файл и отредактируйте его.

отчета «План проведения

пользователем груп-

естра учебного года.

6. Спроектируйте форму с названием frmzExaminationSheet

мости в файл

с указанием запрошен-

х: предмета, группы, вида сдачи предмета и

семестра учебного года (рис. II.58), используя нижеприведенный

E.NameDiscipline, GROUP_.NameGroup,

G.NumberOfSemester, STUDYING.KindOfReport,

T.NumberTestBook, STUDENT.Surname, STUDENT.Name,

, ADVANCED.DateOfReport

P_, STUDENT, STUDYING, TEACHER

UP_.CodeGroup=STUDENT.CodeGroup And

ADVA

scipline And

cher And DISCIPLINE.NameDiscipline =

ameGroup = 'DFD-31' And STUDYING.KindOfReport =

d STUDYING.NumberOfSemester = 2

ameDiscipline, GROUP_.NameGroup,

G.KindOfReport, STUDENT.Surname;

ия Data1 формы frmzExaminationSheet пере-

выберит

5. Спроектируйте форму для вывода

ем запрошеннойзанятий в группе» в файл с указани

пы и сем

для вывода экзаменационной ведо

ных пользователем данны

номера

запрос:

LINSELECT DISCIP

STUDYIN

TUDENS

STUDENT.Patronymic, ADVANCED.Rating

LINE, GROUFROM ADVANCED, DISCIP

GROWHERE

NCED.CodeStudent=STUDENT.CodeStudent And

ADVANCED.CodeStudying=STUDYING.CodeStudying And

DISCIPLINE.CodeDiscipline=STUDYING.CodeDi

STUDYING.CodeTeacher=TEACHER.CodeTea

'Informatika' And GROUP_.N

'exam.' An

ORDER BY DISCIPLINE.N

STUDYING.NumberOfSemester, STUDYIN

Элемент управлен

именуйте в Data18.

Мартьянова А.Е. Базы данных и знаний 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)

elds("KindOfReport").Value, 2)

eGroup & h & NumberOfSemester & h & _

+ s ) + Chr(10)

tBook + Surname + Nam

ep 3) + Chr(10)

158

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

Do While Not .EOF

NumberTestBook = Format(.Fields("NumberTestBook").Value, 2)

tronymic = Format(.Fields("Patronymic").Value, 2)

Patronymic

менационная ведомость"

set.MoveLast

cordCount

elds("NameDiscipline"); " "; _

meGroup")

______________"; "Группа_______________"

__"

cordset.Fields("KindOfReport")

_________________"; "Дата_________________"

__________________________________________"

Фамилия "; "Имя "; "Отчество|"; _

____________________________________________"

Data18.Recordset.Fields("NumberTestBook"); " |"; _

urname"); ""; Data18.Recordset.Fields("Name"); ""; _

"Patronymic"); "|"; " |"

________________________________________"

Surname = Format(.Fields("Surname").Value, 2)

Namee = Format(.Fields("Name").Value, 2)

st = NumberTestBook & h & Surname & h & Namee & h &

txtReport.Text = txtReport.Text + st + Chr(13) + Chr(10)

.MoveNext

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,

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

Print #1, "________________________

Close #1

fn = FreeFile

Open fileN For Input As #fn

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

txtReport.Text = Input(LOF(fn), fn)

т по работе.

Close #fn

End Sub

Private Sub cmdClose_Click()

Unload Me

End Sub

7. Оформите отче

160