Создание информационных систем средствами Visual Basic .NET

Размещено на http://www.allbest.ru//

Размещено на http://www.allbest.ru//

Создание информационных систем средствамиVisual Basic .NET



1. Проектирование информационной системы

1.1 Описание предметной области

На первом этапе проектирования информационной системы необходимо выполнить анализ предметной области, т.е. определить объекты предметной области и связи между объектами.

При выборе состава и структуры предметной области возможны два подхода: функциональный и предметный.

Функциональный подход реализует принцип движения «от задач» и применяется, когда определен комплекс задач, для обслуживания которых создается информационная система. В этом случае можно выделить минимальный необходимый набор объектов предметной области, которые должны быть описаны.

В предметном подходе объекты предметной области определяются с таким расчетом, чтобы их можно было использовать при решении множества разнообразных, заранее не определенных задач.

Чаще всего используется комбинация этих двух подходов.

Опишем предметную область, предлагаемую в качестве примера в проекте, реализация которого представлена в данном пособии.

Предположим, что для деканата одного из факультетов учебного заведения требуется разработать информационную систему для автоматизации анализа и учета данных о студентах, обучающихся на факультете, и их успеваемости в текущей сессии.

В данном случае основным объектом предметной области является студент. Мы будем придерживаться функционального подхода, т.е. идти от задач, которые будут решаться. Поэтому ограничимся определенным набором свойств объекта «студент». Перечислим эти свойства:

- Номер зачетной книжки,

- Фамилия Имя и Отчество,

- Дата рождения,

- Пол,

- Курс,

- Номер учебной группы,

- Специальность,

- Количество сдаваемых в сессию экзаменов,

- Оценки, полученные на экзаменах.

Мы выбрали минимальный набор свойств-характеристик студента. Естественно, что этот набор может быть расширен.

Необходимо предусмотреть следующие ограничения на информацию:

Курсы имеют значения от 1 до 5.

Номер учебной группы изменяется от 1 до 15.

Количество сдаваемых в сессию экзаменов может изменяться от 2 до 5.

Предполагается, что с данной информационной системой будут работать сотрудники деканата, и они должны иметь возможность решать с её помощью следующие задачи:

1. Ввод и редактирование данных о студентах в удобной форме.

2. Просмотр данных о студентах в отсортированном виде.

3. Определение численности контингента в каждой учебной группе, на каждом курсе и в целом на факультете.

4. Подготовка к выводу на печать списков студентов.

5. Вычисление среднего балла каждого студента и вывод списков студентов по группам в алфавитном порядке фамилий или по убыванию среднего балла.

6. Вычисление среднего балла в каждой учебной группе, на каждом курсе и в целом по факультету.

7. Определение процента успеваемости в каждой учебной группе, на каждом курсе и в целом по факультету.

8. Просмотр и подготовка к выводу списков задолжников (с указанием количества задолженностей) по курсам и группам.

9. Просмотр и подготовка к выводу списков студентов, претендующих на получение стипендии, с отметкой о том, какая стипендия полагается: обычная или повышенная.

10. Организация поиска по фамилии или части фамилии.

1.2 Моделирование данных

Для проектирования концептуальной схемы (информационной структуры программного обеспечения информационной системы) можно использовать различные модели, в частности модель «сущность - связь».

Из моделей типа «сущность - связь» наиболее известна модель П.Чена, или ER-модель (Entity-Relationship). Общим для всех моделей этого типа является использование трех основных конструкций: сущность, связь и атрибут.

Сущность (Entity) - собирательное понятие, некоторая абстракция реально существующего объекта, процесса или явления, о котором необходимо хранить информацию.

Атрибут - поименованная характеристика сущности, которая принимает значение из некоторого множества значений. В модели атрибут выступает в качестве средства, с помощью которого моделируются свойства сущностей.

Связь(Relationship)- средство представления отношения между сущностями.

На первом этапе моделирования необходимо из описания предметной области извлечь информацию и выделить сущности.

Каждая сущность должна обладать уникальным идентификатором. Каждый экземпляр сущности должен однозначно идентифицироваться и отличаться от всех других экземпляров данного типа сущности. Каждая сущность должна обладать некоторыми свойствами:

каждая сущность должна иметь уникальное имя, и к одному и тому же имени должна всегда применяться одна и та же интерпретация. Одна и та же интерпретация не может применяться к различным именам, если только они не являются псевдонимами;

сущность обладает одним или несколькими атрибутами, которые либо принадлежат сущности, либо наследуются через связь;

сущность обладает одним или несколькими атрибутами, которые однозначно идентифицируют каждый экземпляр сущности;

каждая сущность может обладать любым количеством связей с другими сущностями модели.

Обращаясь к приведенному выше описанию предметной области, видно, что можно выделить следующие сущности: студент и специальность.

Следующим шагом моделирования является идентификация связей.

Связь- поименованная ассоциация между двумя сущностями, значимая для рассматриваемой предметной области. Связь - это ассоциация между сущностями, при которой, как правило, каждый экземпляр одной сущности, называемой родительской сущностью, ассоциирован с произвольным (в том числе нулевым) количеством экземпляров второй сущности, называемой сущностью-потомком, а каждый экземпляр сущности-потомка ассоциирован в точности с одним экземпляром сущности-родителя. Таким образом, экземпляр сущности-потомка может существовать только при существовании сущности родителя.

Связи может даваться имя, выражаемое грамматическим оборотом глагола и помещаемое возле линии связи. Имя каждой связи между двумя данными сущностями должно быть уникальным, но имена связей в модели не обязаны быть уникальными.

На языке ER - модели концептуальная схема может быть представленаERD (ER - диаграммой), в которой множество сущностей обозначается прямоугольниками, множество связей - ромбами.

Взаимосвязь сущностей описанной выше предметной области можно изобразить ER-диаграммой на рис. 1.

Рис. 1: ER-диаграмма

Каждый студент обучается только на одной специальности, но одну и ту же специальность получает много студентов. Если предположить, что возможна ситуация, когда один и тот же студент обучается сразу на двух специальностях, то в этом случае будут существовать два экземпляра объекта с разными номерами зачетной книжки.

В предлагаемой модели сущность «Специальность» и сущность «Студент» связаны отношением «один - много».

Последним шагом моделирования является идентификация атрибутов.

Атрибут - любая характеристика сущности, значимая для рассматриваемой предметной области и предназначенная для квалификации, идентификации, классификации, количественной характеристики или выражения состояния сущности. Атрибут представляет тип характеристик или свойств, ассоциированных с множеством реальных или абстрактных объектов (людей, мест, событий, состояний, идей, пар предметов и т.д.). Экземпляр атрибута - это определенная характеристика отдельного элемента множества. Экземпляр атрибута определяется типом характеристики и ее значением, называемым значением атрибута. В ER-модели атрибуты ассоциируются с конкретными сущностями. Таким образом, экземпляр сущности должен обладать единственным определенным значением для ассоциированного атрибута.

Атрибут может быть либо обязательным, либо необязательным. Обязательность означает, что атрибут не может принимать неопределенных значений (nullvalues). Атрибут может быть либо описательным (т.е. обычным дескриптором сущности), либо входить в состав уникального идентификатора (первичного ключа).

Уникальный идентификатор - это атрибут или совокупность атрибутов и/или связей, предназначенная для уникальной идентификации каждого экземпляра данного типа сущности. В случае полной идентификации каждый экземпляр данного типа сущности полностью идентифицируется своими собственными ключевыми атрибутами, в противном случае в его идентификации участвуют также атрибуты другой сущности-родителя.

Каждый атрибут идентифицируется уникальным именем, выражаемым грамматическим оборотом существительного, описывающим представляемую атрибутом характеристику. Атрибуты изображаются в виде списка имен внутри блока ассоциированной сущности, причем каждый атрибут занимает отдельную строку. Атрибуты, определяющие первичный ключ, размещаются наверху списка и выделяются жирным шрифтом.

Каждая сущность должна обладать хотя бы одним возможным ключом. Возможный ключ сущности - это один или несколько атрибутов, чьи значения однозначно определяют каждый экземпляр сущности. При существовании нескольких возможных ключей один из них обозначается в качестве первичного ключа, а остальные - как альтернативные ключи.

С учетом имеющейся информации дополним построенную ранее диаграмму (рис. 2), определив для каждой сущности набор атрибутов. Следует отметить, что набор атрибутов для каждой из сущностей может быть расширен, например, в реальной ситуации для каждого студента должны выясняться и сохраняться такие атрибуты, как дата рождения, паспортные данные, адрес и другие. Также отметим, что некоторые из атрибутов могут иметь «пустые» значения, т.е. они могут быть необязательными.

В предлагаемом проекте будет рассмотрен именно тот набор атрибутов сущности «Студент», который помещен на диаграмме на рис. 2.

Размещено на http://www.allbest.ru//

Размещено на http://www.allbest.ru//

Рис. 2:ER-диаграмма с атрибутами

Обсудим значения атрибута «идентификационный номер специальности» сущности «Студент». Значения этого атрибута ассоциируют каждый экземпляр сущности «Студент» с одним из экземпляров сущности «Специальность».

Значение атрибута «идентификационный номер специальности» в сущности «Студент» обеспечивает связь сущности «Специальность» с сущностью «Студент» в отношении «один - много». Одну и ту же специальность могут получать много студентов, но информация о специальности заполняется только один раз, что позволяет избежать дублирования информации о специальности при её хранении.



1.3 Представление данных

Как правило, при использовании систем управления базами данных в информационных системах, после этапа моделирования данных выполняется преобразование ER-модели в реляционную модель, т.е. сущностям и связям ER-модели ставятся в соответствие отношения, или таблицы.

Однако особенностью описываемой реализации информационной системы является то, что она выполняется без использования систем управления базами данных, а создание, ведение и обработка данных выполняется средствами языка и системы программирования VisualBasic.

Для хранения данных будут использоваться файлы прямого доступа с записями пользовательского типа.

Выполним преобразование атрибутов сущностей «Студент» и «Специальность» в поля соответствующих пользовательских типов TStud (рис. 3) и TSpec (рис. 4).

Рис. 3: Преобразование сущности «Студент» к типу TStud



Рис. 4: Преобразование сущности «Специальность» к типу TSpec



2. Реализация информационной системы «Студенты»

2.1 Предварительные замечания

Рассмотрим все этапы разработки и создания информационной системы на примере ИС «Студенты». Разработка выполняется в среде программирования VisualBasic 2008ExpressEdition(платформа.NET), для хранения данных используются файлы прямого доступа, диалог пользователя с информационной системой для ведения и обработки данных организован с использованием средств графического интерфейса.

Для получения наилучшего результата, изучение данного материала следует производить последовательно для каждого блока с обязательным тестированием каждой части кода. Т.е. каждая процедура, функция или описание переменной должны быть тщательно изучены и протестированы не только на наличие синтаксических ошибок, зачастую возникающих при наборе текстов, но и на правильность работы приложения в целом.

2.2 Постановка задачи

Описание предметной области было сделано выше, в данном разделе сформулируем техническое задание на создание информационной системы для заданной предметной области.

Требуется разработать информационную систему, позволяющую обрабатывать данные о студентах и их успеваемости, представленные в определенном формате. Информационная система должна содержать средства для ввода и редактирования данных, обеспечивать сортировку по одному или нескольким полям данных, обеспечивать возможность поиска по одному или нескольким критериям, выполнять обработку данных и выдавать результаты обработки.

Информация о студентах представлена следующими данными:

фамилия, имя и отчество;

дата рождения;

пол;

специальность;

курс;

группа;

количество экзаменов;

оценки, полученные на экзамене.

Для хранения и обработки этой информации создать базу данных в виде набора файлов прямого доступа.

Необходимо предусмотреть возможность упорядочения данных (сортировку) по следующим полям:

по ФИО;

по курсу;

по группе.

Необходимо также иметь возможность просмотра данных в виде, отсортированном по любой совокупности перечисленных полей.

Во избежание дублирования данных и экономии памяти для поля «специальность» создать отдельный файл-справочник (файл прямого доступа), используемый для заполнения и просмотра этого поля данных.

Критериями поиска для данной информационной системы являются: ФИО, курс, группа.

Для заданной предметной области необходимо предусмотреть возможность решения следующих задач:

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

Вычисление среднего балла для каждого студента; подготовка к выводу результатов в виде, отсортированном по курсу и группе, а в пределах группы предусмотреть одну из возможных сортировок: в алфавитном порядке фамилий или по убыванию среднего балла.

Для каждой учебной группы вычисление количества студентов и среднего балла, предусмотреть сортировку по курсу и номеру группы.

Для каждой из перечисленных задач предусмотреть возможность просмотра результатов на экране и возможность сохранения их в текстовых файлах для последующего использования.

Заметим, что при описании предметной области было определено больше функций информационной системы и, соответственно, задач, которые могут быть решены для выделенных данных. Однако в представляемой конкретной реализации будут решены задачи, перечисленные в техническом задании.

2.3 Структура проекта

ИС «Студенты» реализуется в среде программирования VisualBasic.Netи представляет собой приложение с графическим интерфейсом, состоящее из экранных форм, диалоговых окон и других элементов управления.

Главная форма системы содержит строку выпадающих меню, команды которых обеспечивают работу с системой. В процессе работы из главной формы вызываются подчиненные формы для ввода и редактирования исходных данных, просмотра данных и результатов обработки.

Программы обработки содержатся в процедурах обработки событий, связанных с объектами форм, а также в пользовательских процедурах и функциях, не связанных с объектами.

Проект, из которого строится приложение, кроме форм содержит пользовательские модули, не связанные с формами. Пользовательские модули в данном проекте используются для объявления пользовательских типов, констант и переменных, а также для описания пользовательских процедур, реализующих алгоритмы сортировки.

В интерфейсе приложения используются различные элементы управления, их назначение и особенности применения будут описываться по мере того, как будет возникать необходимость в их применении.

2.4 Создание меню

Как уже было сказано, в проекте используется несколько форм для выполнения разных функций; все функции и команды информационной системы вызываются из главной формы с помощью меню.

Меню позволяет представить функции приложения в четком и, как правило, удобном для пользователя виде.

Зачастую, меню состоит из одного или нескольких заголовков верхнего уровня, каждый заголовок раскрывается в набор строк, каждая из которых представляет собой команду, вызов диалогового окна или подменю.

Каждый заголовок меню и каждая строка меню представляет собой объект, обладающий своим набором свойств и событий, включая нужное нам событие Click.

Перечислим некоторые, наиболее важные, свойства элементов меню:

Свойство Text определяет текст, отображаемый в меню (заголовок меню или команда меню). Текст может содержать символ «амперсенд» (&) перед символом, который используется в комбинации с клавишей Alt для быстрого вызова.

Свойство Name является обязательным, рекомендуется в имени пункта использовать префикс mnu, а для команд меню использовать окончание Item. Например, для заголовка меню Файл зададим имя mnuFile, а для пункта Выход в меню Файл, т.е. команды Файл / Выход, зададим имя mnuFileExitItem.

Свойство Checked помещает (или удаляет) маркер-галочку рядом с командой. Задавая значение свойства Checked, можно «включать» или «выключать» команды меню во время выполнения программы.

Свойство Enabled по умолчанию имеет значение True. Если заголовок меню или команду необходимо сделать недоступной, заблокировать, то для такой команды нужно сбросить флажок в свойстве Enabled, что будет соответствовать значению False для этого свойства.

Свойство Visible по умолчанию имеет значение True. Это свойство позволяет скрыть элемент меню (однако стоит задуматься о целесообразности этого действия, не лучше ли заблокировать элемент меню до нужного момента).

Свойство Shortcut определяет клавиатурную комбинацию для вызова команды с клавиатуры, обычно используются служебные клавиши Ctrlи Altв сочетании с другими клавишами (например, F1).

Создание приложения начнем с конструирования макета главной формы, которая будет иметь вид, представленный на рис.5.

Рис. 5: Макет главной формы в режиме конструктора

Теперь опишем начало процесса создания приложения и создание макета главной формы. Для этого необходимо выполнить следующие действия:

Запустить Visual Basic.

Создать новый проект типа WindowsApplication, в него сразу загружается форма со стандартным именем Form1. Новый проект имеет имя WindowsApplication1, однако, рекомендуется при создании дать проекту содержательное имя.

Переименовать форму, изменив в окне свойств формы свойство Name (в нашем приложении главная форма будет иметь имя frmMenu). Здесь же можно сменить заголовок формы, используя свойство Text (Text = ИС «Студенты»).

Сохранить проект в новом каталоге, предназначенном для хранения файлов данного проекта.

Для продолжения работы с проектом запустить файл проекта - файл с расширением .sln. Затем, поместить на форму элемент MenuStrip(это будет главное меню формы), а после этого создать все элементы главного меню, вид которого представлен в таблице 1.

Сохранить форму в каталоге проекта.

В макете формы выбрать пункты и команды меню. Двойной щелчок на команде меню открывает окно кода формы и в нем процедуру-заготовку для обработки события Click.

Сохранить проект.

Таблица 1 определяет значения свойств Text, NameиEnabled соответствующих пунктов меню (см. рис. 5).Отступ в поле Textв таблице означает подчиненность данного пункта меню по отношению к ближайшему верхнему пункту, у которого в поле Text нет отступа.Все действия по созданию и структурированию элементов главного меню производятся на главной форме.

Таблица 1

Text	Name	Enabled
&Файл	mnuFile	True
Создать	mnuFileNewItem	True
Открыть	mnuFileOpenItem	True
-	mnuFileSep1	True
Сохранить	mnuFileSaveItem	False
Сохранить как…	mnuFileSaveAsItem	False
-	mnuFileSep2	True
Закрыть	mnuFileCloseItem	False
Удалить	mnuFileDeleteItem	False
-	mnuFileSep3	True
Выход	mnuFileExitItem	True
Прос&мотр	mnuView	False
Форма	mnuViewFormItem	True
Таблица	mnuViewTableItem	True
&Сортировка	mnuSort	False
По курсу	mnuSortKursItem	True
Погруппе	mnuSortGroupItem	True
ПоФИО	mnuSortFIOItem	True
Исходный порядок	mnuSortUnsorted	True
&Поиск	mnuSearch	False
&Отчеты	mnuQuery	False
Список по группе	mnuQueryListItem	True
Все группы	mnuQueryListAllItem	True
Однагруппа	mnuQueryListOneItem	True
Вычисление среднего балла	mnuQueryBallItem	True
Кол-во и средний балл в группе	mnuQueryKolItem	True
&?	mnuHelp	True

Для продолжения работы с проектом необходимо из каталога, в котором сохранен проект, запустить файл проекта - файл с расширением .sln. Он будет загружен в среду разработки VisualBasic. Попытаемся запустить проект в режиме выполнения. Однако перед этим опишем процедуру обработки события выхода из главной формы разрабатываемой информационной системы. Это команда «Выход» в меню «Файл». Будем обозначать такой выбор следующим образом «Файл  Выход».

При выборе пункта меню «Файл Выход» приложение должно завершить свою работу, но по правилам хорошего тона приложение обязано сделать запрос на подтверждение закрытия приложения. Для ввода кода необходимо на макете формы в меню «Файл» выбрать команду «Выход» и дважды щелкнуть левой кнопкой мыши, появится заготовка процедуры обработки события Click, состоящая из операторов заголовка и конца процедуры. Остается ввести операторы, являющиеся телом процедуры. Код процедуры, реализующий функцию выбора команды меню «ФайлВыход», приведенниже.

PrivateSubmnuFileExitItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles mnuFileExitItem.Click

If (vbYes =MsgBox("Действительно хотите выйти?",vbYesNo)) Then

End

EndIf

EndSub

Таким образом, при выборе команды меню «Файл Выход» пользователю будет предложено подтвердить выход из приложения и при утвердительном ответе приложение завершит свою работу.

Для запуска проекта на выполнение необходимо выбрать в строке меню среды разработки пункт «Debug» и команду «StartDebugging»или нажать клавишу F5. В меню появившейся формы выбрать пункт «Файл», а затем команду «Выход».

На этом месте читателю следует на основе прочитанного материала, протестировать проект на работоспособность и корректность работы.

2.5 Пользовательские модули

В проекте используется два стандартных модуля, не связанных ни с какими формами. Один из них, с именемDeclar, используется для объявления пользовательских типов, констант и переменных. Другой, с именем Sorting, содержит пользовательские процедуры сортировки данных различных типов.

Сначала в проект нужно добавить новый стандартный модуль командой Project/AddModule и дать ему имя, затем ввести программный код.

Приведем программный код модуля Decl.

` Подключение библиотек ввода и вывода для работы с файлами

ImportsSystem.IO

Imports System.Text

` создание нового пространства имен для

` возможности подключения модуля к формам проекта

NamespaceDecl

ModuleDeclar

` Объявление пользовательского типа,

` описывающего структуру записи для

` входных данных - информации о студенте

Public Class TStud

Public Kurs As Byte ' курс

Public Group As Byte' номер группы

Public FIO As String ' фамилия, имя и отчество

PublicSpecAsInteger' учетныйномерспециальности

Public DataR As Date ' дата рождения

Public Pol As Byte' пол

PublicKolAsByte ' количество экзаменов

PublicM(4) AsByte ' полученные оценки

Public len As Integer = 1 + 1 + 40 + 4 + 20 + 1 + 1 + 5

' размер переменной

Public Sub writeToFile(ByVal ff As FileStream)

Dim writer As BinaryWriter = New BinaryWriter(ff)

Dim tempstr As String

If FIO.Length > 20 Then

FIO = Left(FIO, 20)

Else

tempstr = New String(" ", 20 - FIO.Length)

FIO = FIO + tempstr

End If

writer.Write(Kurs)

writer.Write(Group)

Dim temp() As Byte = _

UnicodeEncoding.Unicode.GetBytes(FIO)

writer.Write(temp)

writer.Write(Spec)

temp = _

UnicodeEncoding.Unicode.GetBytes(DataR.ToString("dd.MM.yyyy"))

writer.Write(temp)

writer.Write(Pol)

writer.Write(Kol)

writer.Write(M)

End Sub

Public Sub writeToFile(ByVal ff As FileStream, _

ByVal i As Integer)

ff.Seek((i - 1) * len, SeekOrigin.Begin)

writeToFile(ff)

End Sub

Public Sub ReadFromFile(ByVal ff As FileStream, _

ByVal i As Integer)

ff.Seek((i - 1) * len, SeekOrigin.Begin)

Dim reader As BinaryReader = New BinaryReader(ff)

Dim temp() As Byte

Kurs = reader.ReadByte()

Group = reader.ReadByte()

temp = reader.ReadBytes(40)

FIO = UnicodeEncoding.Unicode.GetString(temp, 0, 40)

Spec = reader.ReadInt32()

temp = reader.ReadBytes(20)

DataR = _

CType(UnicodeEncoding.Unicode.GetString(temp, 0, 20), Date)

Pol = reader.ReadByte()

Kol = reader.ReadByte()

M = reader.ReadBytes(5)

End Sub

End Class

' Объявление пользовательского типа,

' описывающего структуру записи для

' входных данных справочника - информации о специальности

Public Class TSpec

Public Code As Integer' учетный номер специальности

Public Number As String = New String(" ", 6)

' шестизначный код специальности

Public Name As String = New String(" ", 100)

' наименование специальности

PubliclenAsInteger = 4 + 7 + 200 ' размер переменной

Public Sub writeToFile(ByVal ff As FileStream)

Dim writer As BinaryWriter = New BinaryWriter(ff)

Dim tempstr As String

If Number.Length > 6 Then

Number = Left(Number, 6)

Else

tempstr = New String(" ", 6 - Number.Length)

Number = Number + tempstr

End If

If Name.Length > 100 Then

Name = Left(Name, 100)

Else

tempstr = New String(" ", 100 - Name.Length)

Name = Name + tempstr

End If

Dim temp() As Byte = _

UnicodeEncoding.Unicode.GetBytes(Number)

writer.Write(Code)

writer.Write(temp)

temp = UnicodeEncoding.Unicode.GetBytes(Name)

writer.Write(temp)

End Sub

Public Sub writeToFile(ByVal ff As FileStream, _

ByVal i As Integer)

ff.Seek((i - 1) * len, SeekOrigin.Begin)

writeToFile(ff)

End Sub

Public Sub ReadFromFile(ByVal ff As FileStream, _

ByVal i As Integer)

ff.Seek((i - 1) * len, SeekOrigin.Begin)

Dim reader As BinaryReader = New BinaryReader(ff)

Dim temp() As Byte

Code = reader.ReadInt32()

temp = reader.ReadBytes(12)

Number = UnicodeEncoding.Unicode.GetString(temp, 0, 12)

temp = reader.ReadBytes(200)

Name = UnicodeEncoding.Unicode.GetString(temp, 0, 200)

EndSub

EndClass

' Объявление пользовательского типа,

' описывающего структуру записи

' для вычисления среднего балла студента

Public Class TBall

Public Kurs As Byte ' курс

Public Group As Byte' номер группы

Public FIO As String = New String(" ", 20)

Public Sb As Single ' средний балл

Public len As Integer = 1 + 1 + 40 + 4 ' размер

` переменной

Public Sub writeToFile(ByVal ff As FileStream)

Dim writer As BinaryWriter = New BinaryWriter(ff)

Dim tempstr As String

If FIO.Length > 20 Then

FIO = Left(FIO, 20)

Else

tempstr = New String(" ", 20 - FIO.Length)

FIO = FIO + tempstr

End If

Dim temp() As Byte = _

UnicodeEncoding.Unicode.GetBytes(FIO)

writer.Write(Kurs)

writer.Write(Group)

writer.Write(temp)

writer.Write(Sb)

End Sub

Public Sub writeToFile(ByVal ff As FileStream, _

ByVal i As Integer)

ff.Seek((i - 1) * len, SeekOrigin.Begin)

writeToFile(ff)

End Sub

Public Sub ReadFromFile(ByVal ff As FileStream, _

ByVal i As Integer)

ff.Seek((i - 1) * len, SeekOrigin.Begin)

Dim reader As BinaryReader = New BinaryReader(ff)

Kurs = reader.ReadByte()

Group = reader.ReadByte()

Dim temp() As Byte = reader.ReadBytes(40)

FIO = UnicodeEncoding.Unicode.GetString(temp, 0, 40)

Sb = reader.ReadSingle()

End Sub

End Class

' Объявление констант и переменных,

' используемых в модулях форм,

' пользовательских процедурах и функциях

PublicConstNmaxAsInteger = 100

Public Const PathUntitled As String = "с:\untitled.dan"

Public Const PathTemp As String = "c:\$$$$.tmp"

Public Path As String

Public PathSpec As String

Public Path1 As String

Public Path2 As String

Public FName As String

Public richName As String

Public f1 As FileStream

Public F2 As FileStream

Public F3 As FileStream

Public F4 As Integer

Public F1_sp As FileStream

Public N As Integer

Public NSpec As Integer

Public Pos As Integer

Public Ind(Nmax) As Integer

Public Del(Nmax) As Integer

PublicButtonAsMsgBoxResult

` функция, которая закрывает все открытые рабочие файлы

Public Sub CloseAllFiles()

If Not (f1 Is Nothing) Then f1.Close()

If Not (F1_sp Is Nothing) Then F1_sp.Close()

If Not (F2 Is Nothing) Then F2.Close()

If Not (F3 Is Nothing) Then F3.Close()

End Sub

End Module

End Namespace

После описания пользовательского модуля Declar необходимо изменить функцию обработки события выбора пункта меню «Выход». Измененная функция имеет вид:

PrivateSubmnuFileExitItem_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles mnuFileExitItem.Click

If (vbYes =MsgBox("Действительно хотите выйти?",vbYesNo)) Then

Decl.CloseAllFiles()

End

EndIf

EndSub

2.6 Работасфайлами

2.6.1 Использование диалогового окна Windows

Для открытия и сохранения файлов в проекте используется стандартное диалоговое окно Windows, которое создается с использованием элементов управления соответственно OpenFileDialogи SaveFileDialog.Нанесем на главную форму с меню (frmMenu) объекты для работы с диалоговыми окнами для открытия и сохранения файлов, можно оставить им те имена, которые им присвоит система (OpenFileDialog1и SaveFileDialog1), а можем дать другие имена. Заметим, что во время выполнения приложения данные элементы управления не видны.

Окна диалога имеют определенные свойства и методы. Используемые нами в данной реализации свойства и методы для обоих типов объектов совершенно одинаковы, поэтому остановимся на свойствах только одного элемента управления при пояснении кодов процедур обработки событий для открытия и сохранения файлов. Что касается методов, то для обоих элементов будет использован метод ShowDialog() для получения имен диска, папки и файла соответственно для существующего файла и нового, сохраняемого файла.

Приведем фрагмент кода для вызова диалогового окна Windows для открытия и сохранения файлов.

` запрос имени файла базы данных

WithOpenFileDialog1

.filename = ""

.Filter = "Все файлы (*.*)|*.*|" + _

"текстовые файлы(*.txt)|*.txt|" + _

"файлы исх. данных(*.dan)|*.dan|" + _

"файлы результата (*.rez)|*.rez"

.FilterIndex = 3

` метод, используемый для открытия файла

.ShowDalog()

Decl.Path = .filename

EndWith

В приведенном выше коде используются следующие свойства окна диалога:Filter - для списка возможных типов файлов, показываемых в поле ввода со списком для типа файла;FilterIndex- для вывода в окне для типа файла того типа, который в списке Filter имеет номер, задаваемый свойством FilterIndex. Имя выбранного файла помещается в окно для имени файла, а полное имя файла становится значением свойства FileName. Чтобы не использовать длинные имена, полное имя файла записывается в переменную Path модуля Declar.

При открытии файла появится диалоговое окно (рис.6), в котором необходимо выбрать файл, который нужно открыть.

Рис. 6: Диалоговое окно открытия файла

информационный студент база

2.6.2 Создание файлов базы данных

Создание файлов базы данных выполняется при выборе команды меню «Файл Создать». Данной команде соответствует процедура обработки события mnuFileNewItem_Click, которая с помощью методаShow должна выводить на экран ту форму, при помощи которой будет производиться ввод новых и редактирование существующих записей данных.

Вначале, для простоты работы с загрузкой новых записей базы данных, основной рабочий файл с данными будем создавать в корневом каталоге какого-либо диска, например, диска «c:» с полным именем «c:\untitled.dan», а после выхода из формы для ввода и редактирования пользователю будет предложено сохранить данные в некотором файле. Для этих целей используем элемент управления «SaveFileDialog1» главной формы frmMenu. При этом фактически будет происходить переименование файла «c:\untitled.dan» и присвоение ему имени, введенного пользователем в окне диалога.

Запишем процедуру обработки события выбора команды меню «ФайлСоздать».

Private Sub mnuFileNewItem_Click(ByVal sender As System.Object,_

ByVal e As System.EventArgs) Handles mnuFileNewItem.Click

DimiAsInteger

` закрываются все открытые до этого времени файлы

Decl.CloseAllFiles()

' открывается основной файл "c:\untitled.dan"

Decl.Path = PathUntitled

f1 = New FileStream(Decl.Path, FileMode.Create)

' и файл-справочник "c:\untitled.spe"

PathSpec = Mid(Decl.Path, 1, Len(Decl.Path) - 4) +".spe"

F1_sp = New FileStream(Decl.PathSpec, FileMode.Create)

' количество записей в основной таблице базы данных

' равно нулю

N = 0

' инициализация индексного массива Ind, который будет

' использоваться для сортировки данных, и массива Del

' для пометки удаляемых записей

Fori = 1 ToNmax

Ind(i) = i

Del(i) = 0

Next i

' основная форма становится неактивной

Me.Enabled = False

' загрузка формы для ввода записей файла frmInputEdit

frmInputEdit.Text = "Файл: " + Decl.Path

frmInputEdit.Show()

frmInputEdit.ShowNewZap() ' пользовательская процедура

' ввода новой записи

EndSub

Поскольку, в данном коде программы участвует новая форма для ввода и редактирования данных, то необходимо добавить ее в проект, выполнив команду «Project/AddWindowsForm», и дать новой форме имя frmInputEdit.

Теперь наш проект содержит две формы и нужно указать, какая из них является главной, т.е. запускается первой. Для этого нужно выполнить команду «Project/*имя проекта*Properties…» и в открывшемся диалоговом окне в поле ввода со списком StartUpFormвыбрать в качестве стартового объекта форму frmMenu.

Замечание!!!Несмотря на то, что форма для ввода не содержит пока никаких элементов управления, запустите проект для проверки процедуры создания файлов и взаимодействия форм. Не забывайте регулярно сохранять проект.

2.7 Ввод и редактирование данных

2.7.1 Проектирование макета формы для ввода и редактирования данных

Для ввода и редактирования информации о студентах, сохраняемых в виде записей в файле данных, используется форма, которой дано имя frmInputEdit, она является подчиненной формой для главной формы с меню. Макет формы frmInputEdit показан на рис.7. При помощи выносок указаны имена помещенных на форму элементов управления - компонентов (объектов) формы.

Рис. 7: Форма для ввода и редактирования записей файла данных

Остановимся на тех элементах управления, которые используются на макете данной формы.

Надписи (тип Label)- это объекты с именами, имеющими префикс lbl, используются как подписиэлементов формы. Из этих подписей ясно, какие элементы для каких полей данных используются.

Текстовые поля (тип TextBox) - это объекты с именами, имеющими префикс txt: txtFIO - для поля «Фамилия И.О.»; txtM1, txtM2, txtM3, txtM4, txtM5 - группа объектов, которая используется для ввода оценок.

Командные кнопки (тип Button) - это объекты с префиксами cmd, нажатие на кнопку (событие Click), как правило, вызывает определенное действие, связанное с кнопкой.

Элементы управления DateTimePicker, позволяющие достаточно удобно вводить даты: txtDR- для поля «Дата рождения».

Комбинированные поля (тип ComboBox) - они сочетают возможности текстового поля и списка, который может быть раскрывающимся; этот тип элемента управления используется для значения поля «Пол» (ComPol), список значений этого поля задается свойством Items. Свойства элемента «ComPol» зададим следующим образом: Items= “мужской”“женский”, Sorted = True.

Для заполнения поля «Специальность» (ComSpec) используются данные из файла-справочника, список значений для этого поля формируется во время выполнения программы (код будет приведен ниже).

Флажок (тип CheckBox) - используется для того, чтобы отметить записи, которые будут удалены из файла:Check1.

Элемент управления NumericUpDown, который исполняет роль счетчика: txtKurs - для поля «Курс»; txtGroup - для поля «Группа»; txtKol - для поля «Количество оценок».

Элемент «NumericUpDown» используется для изменения, как в сторону увеличения, так и в сторону уменьшения с заданным шагом, в нашем случае равным единице (свойство «increment») значений полей «Курс», «Группа» и «Количество оценок». Свойства «minimum» и «maximum» задают нижнюю и верхнюю границы изменения счетчика соответственно.

Для перемещения по записям файла кроме командных кнопок используется также вертикальная полоса прокрутки, которая имеет имя «vscrZap», значения некоторых ее свойств определены следующим образом:minimum = 1, maxmum = 100, SmallChange = 1, LargeChange = 2, Value = 1.

В поле «специальность» при заполнении и просмотре записей основного файла базы данных должны подставляться данные из файла-справочника, для чего были составлены процедуры и функции, приведенные в следующем разделе.

В этом месте необходимо нанести на форму все элементы управления, задать из свойства и протестировать форму в автономном режиме, чтобы сравнить результат проектирования с приведенным образцом. Для автономного тестирования сделайте стартовым объектом форму frmInputEdit.



2.7.2 Программное обеспечение формы для ввода и редактирования

Программное обеспечение формы - это процедуры обработки событий, связанные с элементами управления формы, и пользовательские процедуры и функции, которые непосредственно с элементами не связаны.

Сначала опишем пользовательские процедуры и функции для работы с файлом-справочником. С их помощью выполняется связывание основного файла базы данных с файлом-справочником для поля «специальность».

Пользовательская процедура LoadSpravформирует список, который будет показан в поле ввода комбинированного списка ComSpec, т.е. во время выполнения программы формируется значение свойства Items элемента ComSpec, в списокItemsзагружаются все записи файла-справочника.

Private Sub LoadSprav()

Dim Sp As TSpec = New TSpec()

DimiAsInteger

' очищаем список элемента ComSpec и добавляем в него

' пустую строку

ComSpec.Items.Clear()

ComSpec.Items.Add(" ")

' определяем количество записей в справочнике

Decl.NSpec = F1_sp.Length \ Sp.len

' если есть хотя бы одна запись,

IfNSpec<> 0 Then

' то поочередно считываем их из файла и

' добавляем в список элемента ComSpec

For i = 1 To NSpec

Sp.ReadFromFile(F1_sp, i)

ComSpec.Items.Add(Trim(Sp.Number) + _

" - " + Trim(Sp.Name))

Next i

End If

EndSub

Пользовательская функция FindSpecCode, возвращает учетный номер специальности, находящейся в справочнике на указанной позиции, передаваемой в качестве параметра.

Private Function FindSpecCode(ByVal number As Integer) As _

Integer

Dim Sp As TSpec = New TSpec()

Sp.ReadFromFile(F1_sp, number)

FindSpecCode = Sp.code

EndFunction

Пользовательская функция FindSpecIndex получает на вход учетный номер специальности и возвращает номер записи в файле-справочнике, соответствующие этой специальности.

Public Function FindSpecIndex(ByVal code As Integer) _

As Integer

Dim Sp As TSpec = New TSpec()

Dim i As Integer

Dim temp As Integer

' определяется количество записей в справочнике

NSpec = F1_sp.Length \ Sp.len

temp = 0

Fori = 1 ToNSpec

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

Sp.ReadFromFile(F1_sp, i)

' и если учетный номер записи совпадает,

If (Sp.Code = code) Then

' то запоминается номер его позиции

temp = i

' и осуществляется выход из цикла проверки

ExitFor

EndIf

Next

' возвращается запомненный номер позиции

FindSpecIndex = temp

EndFunction

Описав все эти процедуры и функции, мы обеспечили взаимодействие данных основного файла с данными в файле-справочнике, т.е. обеспечили связь между файлами.

Для ввода значений полей новой записи файла данных должна быть активизирована форма, подготовленная для ввода данных, т.е. в ней некоторые поля должны быть очищены, а некоторые должны быть заполнены значениями по умолчанию. Из кнопок, обеспечивающих перемещение, активной должна быть только кнопка «Добавить». Все эти действия предусмотрены в пользовательской процедуреShowNewZap. Опишем код этой процедуры.

PublicSubShowNewZap()

' загружаем Файл-справочник специальности, выполняя

' пользовательскую процедуру

CallLoadSprav()

' полоса прокрутки становится неактивной

vscrZap.Enabled = False

' кнопка «Добавить» становится активной

cmdAdd.Enabled = True

' кнопки «Вперед», «Конец», «Изменить» и «Обновить»

' становятся неактивными

cmdForward.Enabled = False

cmdBottom.Enabled = False

cmdPack.Enabled = False

cmdEdit.Enabled = False

' начальное заполнение элементов,

' соответствующих полям записей

txtFIO.Text = ""

txtKurs.Value = 1

txtGroup.Value = 1

txtKol.Value = 2

ComPol.Text = ComPol.Items(1)

ComSpec.SelectedIndex = 0

txtDR.Value = Now

' в начале предоставлена возможность ввода двух оценок

' пользователь может увеличить их количество до пяти

txtM1.Visible = True

txtM2.Visible = True

txtM3.Visible = False

txtM4.Visible = False

txtM5.Visible = False

' очистка значений элементов txtM,

' которые могли остаться после ввода предыдущей записи

txtM1.Text = ""

txtM2.Text = ""

txtM3.Text = ""

txtM4.Text = ""

txtM5.Text = ""

lblZap.Text = "Новая запись"

txtFIO.Focus()

Check1.Visible = False

End Sub

Замечание!!!После ввода всех значений новой записи, для внесения ее в базу данных нужно нажать на кнопку «Добавить».

После окончания ввода данных необходимо закрыть форму frmInputEdit. При этом все введенные данные должны сохраниться, поэтому при закрытии формы необходимо запросить у пользователя имя файла, в который должно производиться сохранение. Но поскольку эту форму можно закрыть несколькими способами (например, нажав на кнопку «Выход» или кнопку в правом верхнем углу формы), поэтому необходимо обработать все события, обеспечивающие закрытие формы. А поскольку выходу из формы соответствует одна и та же последовательность действий, то оформим ее в виде пользовательской процедуры ExitFromInputEdit.

Sub ExitFromInputEdit()

Dim PathOld As String

Dim PathOldSpec As String

' еслипутькосновномуфайлуравен "c:\untitled.dan", т.е.

' форма открыта в режиме создания,

frmMenu.Text = frmMenu.Text + " В.А."

If LCase(Decl.Path) = PathUntitled Then

' то выводится запрос пользователю о сохранении базы

Button = MsgBox("Сохранить файл?", vbQuestion +_

vbYesNoCancel, "Сохранение файла")

If Button = vbYes Then

' если пользователь подтверждает сохранение, то

' следует запрос имени файла, в который будет

' сохранена база данных

PathOld = Decl.Path

PathSpec = Mid(Decl.Path, 1, Len(Decl.Path) - 4) + _

".spe"

PathOldSpec = PathSpec

With frmMenu.SaveFileDialog1

.FileName = ""

.Filter = "Все файлы (*.*)|*.*|" + _

"текстовые файлы(*.txt)|*.txt|" + _

"файлыисх. данных(*.dan) |*.dan|" + _

"файлырезультата (*.rez)|*.rez"

.FilterIndex = 3

.ShowDialog()

Decl.Path = .FileName

If Decl.Path <> "" Then

PathSpec = Mid(Decl.Path, 1, Len(Decl.Path) - 4) _

+ ".spe"

EndIf

EndWith

' если путь не пуст, т.е. пользователь указал

' имя нового файла,

If Decl.Path <> "" Then

' то файлы закрывается и переименовываются

CloseAllFiles()

If Not (Dir(Decl.Path) = "") Then

Kill(Decl.Path)

Kill(PathSpec)

End If

Rename(PathOld, Decl.Path)

Rename(PathOldSpec, Decl.PathSpec)

' затем открываются файлы с

' новыми именами

f1 = New FileStream(Decl.Path, FileMode.OpenOrCreate)

F1_sp = New FileStream(Decl.PathSpec, _

FileMode.OpenOrCreate)

' изменение заголовка формы

Me.Text = "Файл: " + Decl.Path

' все пункты меню становятся активными

frmMenu.mnuView.Enabled = True

frmMenu.mnuQuery.Enabled = True

frmMenu.mnuSort.Enabled = True

frmMenu.mnuFileSaveItem.Enabled = True

frmMenu.mnuFileSaveAsItem.Enabled = True

frmMenu.mnuFileCloseItem.Enabled = True

frmMenu.mnuFileDeleteItem.Enabled = True

frmMenu.mnuSearch.Enabled = True

' форма закрывается

Me.Hide()

' форма frmMenu становится активной

frmMenu.Show()

frmMenu.Enabled = True

frmMenu.Focus()

Else

' иначе считается, что нажата кнопка

' «Отмена»

Decl.Path = PathOld

PathSpec = PathOldSpec

Button = vbCancel

EndIf

Else

' если пользователь на вопрос о сохранении

' файла нажал кнопку «Нет»

If Button = vbNo Then

Pos = 0

N = 0

' файлы закрываются и удаляются

CloseAllFiles()

Kill(Decl.Path)

Kill(PathSpec)

' пункты меню, которые были неактивными в

' начале работы программы, снова

' становятся неактивными

frmMenu.mnuFileSaveItem.Enabled = False

frmMenu.mnuFileSaveAsItem.Enabled = False

frmMenu.mnuFileCloseItem.Enabled = False

frmMenu.mnuFileDeleteItem.Enabled = False

frmMenu.mnuView.Enabled = False

frmMenu.mnuSort.Enabled = False

frmMenu.mnuQuery.Enabled = False

frmMenu.mnuSearch.Enabled = False

' форма закрывается

Me.Hide()

' форма frmMenu становится активной

frmMenu.Show()

frmMenu.Enabled = True

frmMenu.Focus()

EndIf

EndIf

Else

' в случае если форма была открыта в режиме просмотра,

' она закрывается

Me.Hide()

' форма frmMenu становится активной

frmMenu.Show()

frmMenu.Enabled = True

frmMenu.Focus()

EndIf

EndSub

Теперь, опишем процедуры обработки событий нажатия на кнопку «Выход» или кнопку в правом верхнем углу формы.

Обработка события закрытия формы по нажатию кнопки «Выход»:

Private Sub cmdExit_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles cmdExit.Click

` вызов процедуры закрытия формы

ExitFromInputEdit()

EndSub

Обработка события закрытия формы по нажатию кнопки :

Private Sub frmInputEdit_FormClosing(ByVal sender As _

System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles _

MyBase.FormClosing

CallExitFromInputEdit()

` в том случае, если нажата кнопка «Отмена», то с формы

' выходнепроисходит

If Button = vbCancel Then e.Cancel = True

EndSub

Хотя подготовлено еще не все программное обеспечение формы, можно запустить проект, но пока не сохранять данные, так как наверняка будут сделаны ошибки, которые необходимо исправить.

Для работы с данными, а именно для вывода в форму полей очередной просматриваемой записи, предусмотрена процедура ShowZap. Она выполняет загрузку элементов формы значениями полей текущей записи (записи с номером i). Ниже приводится код этой процедуры, параметром ее является номер записи в файле.

Public Sub ShowZap(ByVal i As Integer)

Dim R As TStud = New TStud()

' номер записи не должен быть нулем!

Ifi<> 0 Then

' максимальное значение полосы прокрутки равно

' количеству записей

vscrZap.Maximum = N + 1

vscrZap.Enabled = True

Check1.Checked = False

txtM1.Text = ""

txtM1.Visible = False

txtM2.Text = ""

txtM2.Visible = False

txtM3.Text = ""

txtM3.Visible = False

txtM4.Text = ""

txtM4.Visible = False

txtM5.Text = ""

txtM5.Visible = False

' производится чтение записи и заполнение элементов

' формы, соответствующих полям записи

R.ReadFromFile(f1, Ind(i))

txtFIO.Text = R.FIO

ComPol.SelectedIndex = R.Pol

txtKurs.Text = CStr(R.Kurs)

txtGroup.Text = CStr(R.Group)

txtKol.Text = CStr(R.Kol)

ComSpec.SelectedIndex = FindSpecIndex(R.Spec)

txtDR.Value = R.DataR

If R.Kol > 0 Then

txtM1.Visible = True

txtM1.Text = CStr(R.M(0))

End If

If R.Kol > 1 Then

txtM2.Visible = True

txtM2.Text = CStr(R.M(1))

End If

If R.Kol > 2 Then

txtM3.Visible = True

txtM3.Text = CStr(R.M(2))

End If

If R.Kol > 3 Then

txtM4.Visible = True

txtM4.Text = CStr(R.M(3))

End If

If R.Kol > 4 Then

txtM5.Visible = True

txtM5.Text = CStr(R.M(4))

EndIf

' вывод номера записи и отметки об ее удалении

lblZap.Text = CStr(i) + "из" + CStr(N)

Check1.Visible = True

Check1.Checked = Del(Ind(i))

' значение полосы прокрутки полагается равным

' номеру записи

vscrZap.Value = i

EndIf

EndSub

Теперь опишем процедуры обработки событий.

Для работы пользователя с файлом справочником на форму были помещены кнопки cmdAddSpec, cmdEditSpecи cmdDelSpec, соответственно, для добавления, изменения и удаления записей в файле справочнике. Опишем процедуры обработки событий нажатия на эти кнопки.

Процедура обработки события для добавления записи в файл-справочник.

Private Sub cmdAddSpec_Click(ByVal sender As System.Object,_

ByVal e As System.EventArgs) Handles cmdAddSpec.Click

Dim TempStr As String

Dim Sp As TSpec = New TSpec()

DimtempIndexAsInteger

' текущая форма становится неактивной

Me.Enabled = False

' до тех пор пока пользователь не введет число, происходит

' запрос учетного номера новой специальности

TempStr = InputBox("Введите учетный номер специальности", _

"Вводданных")

Do While Not (IsNumeric(TempStr))

If (TempStr = "") Then

Me.Enabled = True

Exit Sub

End If

MsgBox("Ошибка ввода", vbOKOnly + vbExclamation, _

"Ошибка")

TempStr = InputBox("Введите учетный номер" + _

" специальности", "Ввод данных")

Loop

' учетный номер записывается в структуру Sp

Sp.Code = CByte(TempStr)

' запрос кода специальности

TempStr = InputBox("Введите код сциальности (6 цифр)", _

"Ввод данных")

' код записывается в структуру Sp

Sp.Number = TempStr

' запрос названия новой специальности

TempStr = InputBox("Введите название специальности", _

"Ввод данных")

' название записывается в структуру Sp

Sp.Name = TempStr

' проверяется попытка повторного использования учетного

' номера специальности в файле справочнике

tempIndex = FindSpecIndex(Sp.Code)

' если такой номер уже есть,

If 0 <>tempIndexThen

' то выводится сообщение о возможности изменения данных

If (vbYes = MsgBox("Такой учетный номер уже есть! " _

+ " Перезаписать?", vbYesNo + vbExclamation, _

"Предупреждение")) Then

' изменение данных записи

Sp.writeToFile(F1_sp, tempIndex)

EndIf

Else

' добавление новой записи в справочник

Sp.writeToFile(F1_sp, NSpec + 1)

EndIf

' вызов пользовательской процедуры загрузки записей

' справочника в элемент ComSpec

CallLoadSprav()

' текущая форма становится активной

Me.Enabled = True

EndSub

Процедура обработки события изменения записи в файле-справочнике.

Private Sub cmdEditSpec_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles cmdEditSpec.Click

Dim Sp As TSpec = New TSpec()

DimiAsInteger

' текущая форма становится неактивной

Me.Enabled = False

' чтение текущей записи из файла-справочника

i = ComSpec.SelectedIndex

Sp.ReadFromFile(F1_sp, i)

' запрос на изменение кода специальности

If (vbNo = MsgBox("Код специальности оставить без" + _

" изменения?", vbYesNo + vbExclamation, "Вопрос:"))Then

Sp.Number = InputBox("Введите новый код " + _

"специальности (6 цифр)", "Ввод данных")

EndIf

' запрос на изменение кода специальности

If (vbNo = MsgBox("Название специальности оставить " + _

"без изменения?", vbYesNo + vbExclamation, _

"Вопрос:"))Then

Sp.Name = InputBox("Введите новое название " + _

"специальности", "Ввод данных")

EndIf

' запись обновленных данных

Sp.writeToFile(F1_sp, i)

' вызов пользовательской процедуры загрузки записей

' справочника в элемент ComSpec

CallLoadSprav()

' текущая форма становится активной

Me.Enabled = True

EndSub

Процедура обработки события удаления записи из файла-справочника.

Private Sub cmdDelSpec_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles cmdDelSpec.Click

Dim i As Integer

Dim j As Integer

Dim ListIndex As Integer

Dim Sp As TSpec = New TSpec()

Dim R As TStud = New TStud()

DimTempFileAsFileStream

' текущая форма становится неактивной

Me.Enabled = False

' сообщение о возможности удаления записей

' из основного файла

If (vbNo = MsgBox("Внимание!!! Все данные, " + _

"содержащие удаляемую информацию будут уничтожены!" + _

" Продолжить?", vbYesNo + vbExclamation, _

"Предупреждение:"))Then

' если была нажата кнопка «Нет», то выход из процедуры

' и текущая форма становится неактивной

Me.Enabled = True

Exit Sub

End If

' отметка на удаление всех записей основного файла базы,

' в которых содержится информация об удаляемой спец-ности

ListIndex = ComSpec.SelectedIndex

If ListIndex <> 0 Then

Sp.ReadFromFile(F1_sp, ListIndex)

For i = 1 To N

R.ReadFromFile(f1, i)

If R.Spec = Sp.Code Then

Del(i) = 1

End If

Next i

EndIf

' запись во временный файл всех данных, за исключением

' данных об удаляемой специальности

TempFile = NewFileStream (PathTemp, FileMode.Create)

j = 1

For i = 1 To NSpec

...