Задачи, решаемые в информационной системе
Кроме этого элемента поместим на форму еще и кнопку (Name = cmdSaveOtch, Visible = False), при нажатии которой будем сохранять просматриваемый отчет. Таким образом, макет формы frmMenu, доработанный для вывода результатов имеет вид, представленный на рисунке 8. Результаты решения задач оформляются в виде отчетов, вывод которых вызывается командами пункта меню «Отчеты» в строке меню главной формы… Читать ещё >
Задачи, решаемые в информационной системе (реферат, курсовая, диплом, контрольная)
В техническом задании запланировано решение следующих задач:
- 1. Вывод списков групп по запросам для одной группы и для всех групп.
- 2. Вычисление среднего балла для каждого студента.
- 3. Для каждой учебной группы вычисление количества студентов и среднего балла в группе.
Результаты решения задач оформляются в виде отчетов, вывод которых вызывается командами пункта меню «Отчеты» в строке меню главной формы.
Заметим, что первый пункт — это фактически два различных отчета: списки всех групп и список одной, указанной группы. Из-за этого мы при создании пунктов меню поставили в соответствие этому отчету два пункта меню: «Отчеты Списки групп Все группы» и «Отчеты Списки групп Одна группа».
Отчеты будем генерировать в виде текстовых файлов. Для их просмотра используем компонент RichTextBox.
Поместим этот элемент на форму frmMenu, задав ему следующие свойства:
Name = RichTextBox1. | Системное имя. |
Font = Courier New. | Шрифт. |
ReadOnly = True. | Запрет редактирования. |
ScrollBars = Vertical. | Вертикальная полоса прокрутки. |
Visible = False. | Объект невидим. |
Кроме этого элемента поместим на форму еще и кнопку (Name = cmdSaveOtch, Visible = False), при нажатии которой будем сохранять просматриваемый отчет. Таким образом, макет формы frmMenu, доработанный для вывода результатов имеет вид, представленный на рисунке 8.
По нажатию кнопки «Сохранить отчет» текущий отчет (т.е. отчет, который просматривается в данный момент) должен быть сохранен. Таким образом, поскольку мы генерируем отчеты в текстовый файл с заранее заданным именем, то по нажатию кнопки должна быть сделана копия файла с отчетом.
Рисунок 8. Макет главной формы в режиме конструктора Приведем код процедуры обработки события нажатия на кнопку «Сохранить отчет».
Private Sub cmdSaveOtch_Click (ByVal sender As System. Object,_.
ByVal e As System. EventArgs) Handles cmdSaveOtch.Click.
' запрос имени файла для сохранения.
With SaveFileDialog1.
.FileName = «» .
.Filter = «Все файлы (*.*)|*.*|» + _.
" Текстовые файлы. (*.txt)|*.txt|" + _.
" Файлы исходных данных (*.dan)|*.dan|" + _.
" Файлы результатов (*.rez)|*.rez" .
.FilterIndex = 2.
.ShowDialog ().
End With.
' если имя файла не пусто и не равно имени.
' просматриваемого файла,.
If SaveFileDialog1. FileName «» And _.
richName SaveFileDialog1. FileName Then.
' то производится копирование просматриваемого файла,.
FileCopy (richName, SaveFileDialog1. FileName).
' его удаление.
Kill (richName).
' и вывод в RichTextBox1 нового файла.
richName = SaveFileDialog1.FileName.
RichTextBox1.LoadFile (richName, _.
RichTextBoxStreamType.PlainText).
' сообщение об успешном завершении сохранения отчета.
MsgBox («Отчет сохранен», vbOKOnly + vbInformation, _.
" Сохранение").
End If.
End Sub.