Создание отчета
Щелкните пункт меню Add – Ins – Report Designer…
Щелкните «Создать новый отчет»:
Щелкните кнопку Standard.
Кнопку Data File
Выберите базу данных C:\Мои документы\Склад.mdb
Add (добавить таблицу «Товары»)
Done
Next>> (вкладка Fields)
Add (Наименование, Цена, Количество)
Next>>(вкладка Sort)
Add (Наименование). Сортировка в порядке возрастания – in ascending order
Next>> (Вкладка Total). Предложено денежное и числовое поле для арифметических операций. Удалить (Remove) поле «Количество». Арифметическая операция – sum.
Щелкнуть кнопку Preview Report.
Кнопка
- увеличить лист.Переключитесь на вкладку Design:
Правой кнопкой мыши щелкнуть на секции #1: Наименование (на рисунке секция не обозначена – здесь представлены только основные разделы отчета)
Delete Section.
Поочередно выделить поля и установить шрифт Times New Roman Cyr (третий).
Вкладка Preview (Просмотр).
Вкладка Design.
В секции Title написать строку заголовка «Список товаров».
Сохранить под именем Товар.rpt
Создайте новый отчет, повторив пункты 2-11
Next>> (Вкладка Total). Предложено денежное и числовое поле для арифметических операций. Удалить (Remove) поле «Наименование». Снять флажок с «Add Grand Totals» (Подсчет всех числовых и денежных полей)
Щелкнуть кнопку Preview Report.
Кнопка - увеличить лист.
Переключитесь на вкладку Design:
Щелкните правой кнопкой мыши на верхнем #1: Наименование – Hide Section
Щелкните правой кнопкой мыши на нижнем #1: Наименование – Hide Section
Поставьте в полях русский шрифт
Меню: Report – Top N / Sort Group Expert
Установить значения как на рисунке.
ОК
Просмотрите отчет – 5 самых дорогих товаров.
Напишите заголовок к отчету и сохраните его: 5_дорогих.rpt
Вернитесь в VB
В пятую форму под кнопку «Печатать» поместить код:
Private Sub Command1_Click()
‘выбираем отчет для печати
If Option1.Value Then CrystalReport1.ReportFileName = "Товар.rpt"
If Option2.Value Then CrystalReport1.ReportFileName = "5_дорогих.rpt"
‘печатаем выбранный отчет
CrystalReport1.Action = 1
End Sub
Запустите программу и выведите отчеты на принтер.
Самостоятельно:
Добавьте в пятую форму переключатель для отчета «Цена товаров > 35р.» и создайте отчет для этой опции. Подсказка: после 12 пункта выбрать вкладку Select. Установки: is greater than 35,00р
Объекты
Для манипулирования объектами в VB используется особый тип переменной - объектная переменная. С такими переменными мы уже встречались при программировании баз данных. Теперь более подробно.
Если надо создать переменную, ссылающуюся на какой-либо объект проекта, используют ключевое слово Set:
Private Sub Command1_Click()
Set C = Command1
C.Caption = "Надпись на кнопке"
End Sub
Попробуйте в работе – измените надпись на кнопке при щелчке.
Самостоятельно при щелчке измените надпись на форме.
Примечание:
При использовании ключевого слова Set для объектной переменной выделяется дополнительная память. Поэтому после использование этой переменной память нужно очистить:
Set C = Nothing
NEW
Часто в процессе работы приложения необходимо создать новую копию объекта определенного класса. Предположим, что в проекте уже существует форма с именем Form1. Тогда команда:
Dim frmAForm as New Form1
создаст новую копию заданной формы с таким же наполнением объектами и такими же свойствами.
Создайте форму:
Под кнопкой напишите код:
Private Sub Command1_Click()
Dim frmAForm As New Form1
frmAForm.Show
End Sub
Запустите приложение и пощелкайте по командной кнопке – на экране будут появляться новые копии исходной формы.
К сожалению, только формы в VB являются классами (шаблонами для создания новых объектов). Поэтому этот метод создания новых объектов неприменим для создания новых элементов управления – попытка скомпилировать строку типа
Dim TextBox As New Text1
выдаст сообщение об ошибке.