10.5.7. Реализация проекта
Запустить на выполнение VB для создания нового проекта.
Создать модуль «Общие описания».
2. 1. На стандартной панели инструментов нажать стрелку справа от кнопки добавления нового объекта (вторая слева) и выбрать команду Add Module.
2.2. В появившемся диалоговом окне во вкладке Nеw выбрать значение Module и нажать кнопку «Открыть».
В появившемся окне кода ввести нужные описания (код модуля «Общие описания»).
На стандартной панели инструментов щелкнуть на кнопке «Сохранить» и в появившемся диалоговом окне Save File As в поле «Папка» указать нужную папку, а в поле «Имя файла» ввести название модуля «Общие описания», после чего щелкнуть на кнопке «Сохранить».
В окне свойств модуля в свойстве Name ввести имя «Общие_описания».
Создание формы «Потребность в стали».
3.1. Перейти в окно формы, которая появилась при открытии нового проекта.
3. 2. Задать заголовок и имя формы.
3.3. Создать текстовое поле с соответствующей надписью для ввода имени файла.
3.4. Создать три командные кнопки «Создание», «Вывод» и «Максимальная потребность».
3.5. Ввести код процедур для обработки событий, связанных с командными кнопками.
3.6. Сохранить форму в папке на диске D:.
Создать форму «Вид продукции».
4.1. На стандартной панели инструментов щелкнуть на стрелке справа от кнопки добавления нового объекта и выбрать команду Add Form.
4.2. В появившемся диалоговом окне «Add Form» выбрать значок Form и нажать кнопку «Открыть».
4.3. Задать заголовок формы «Вид продукции» и ее имя.
4.4. Создать три текстовых поля «Наименование», «Норма» и «Количество» и соответствующие надписи к ним.
4.5. Создать командную кнопку «Записать» и ввести код процедуры, которая обрабатывает событие щелчка мышью на ней.
4.6. Сохранить форму в папке на диске D:.
5. Создать форму «Содержимое файла».
5.1. Повторить п.п.4.1 и 4.2.
5.2. Задать заголовок формы «Содержимое файла» и ее имя.
5.3. Сохранить форму в папке на диске D:
6. Создать форму «Максимальная потребность». Выполняется аналогично п.5.
7. Сохранить весь проект в папке на диске D:.
10.5.8. Анализ проекта
Проект состоит из четырех форм и одного модуля общих описаний. Главной является форма «Потребность в стали». Она управляет работой остальных форм с помощью соответствующих процедур. На рис. 10.9 представлена схема взаимодействия форм.
Поскольку каждый из трех этапов начинается открытием файла и заканчивается его закрытием, то можно считать, что они работают независимо. Из этого следует, что после ввода имени файла работу можно начинать с любого этапа. Если файл с введенным именем уже существует, то сразу можно найти вид продукции с максимальным расходом стали, или предварительно ознакомиться с содержимым всего файла. Для вывода пустой формы в коде используется метод Show соответствующей формы, например:
frmСодержимое_файла.Show
Для вывода данных на форму используется метод Print этой формы. Например:
frmСодержимое_файла.Print udtСведения.strНаименование, _
udtСведения.sngНорма, udtСведения.intКоличество
Рис. 10.9. Схема взаимодействия форм
Обратим внимание, что при чтении/записи в файл используется сложная переменная пользовательского типа udtСведения. При этом передаются значения всех ее трех полей (strНаименование, sngНорма и intКоличество). В методе Print нужно указывать каждое поле отдельно. При этом каждое поле указывается в полной форме (с указанием имени переменной-записи udtСведения) либо в сокращенной (с использованием оператора With).
Отдельные элементы вывода в методе Print разделяются либо запятой, либо точкой с запятой. Если разделителем является запятая, то значения будут помещаться в 14-символьные зоны вывода, а если же точка с запятой – то значения выводятся подряд, без разрыва. Кроме того, в элементах вывода могут присутствовать функции Sps(n) (для вставки n пробелов между значениями в текстовой строке) и Tab(n) (для указания номера n позиции для начала вывода следующего элемента. Если в текущей строке позиция с номером n уже занята и используется функция Tab(n), то вывод будет осуществлен в следующей строке с n-ой позиции. В примере функция Tab(n) использована для вывода в один столбец данных по виду продукции с максимальным расходом стали. При этом название реквизита выводится, начиная с первой позиции каждой строки, а его значение – с 33 позиции этой же строки.
Используя функции Sps(n) и Tab(n) можно организовать вывод данных в виде табличного документа.