Функциональное назначение

 

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

Описание логической структуры программы

 

Загрузка программы

После запуска программы первой загружается форма frmStart (Приложение 2. с.61), так как она является объектом запуска. При ее загрузке запускается процедура Private Sub Form_Load() (Приложение 1. с.62), которая устанавливает начальное значение переменной х, используемой в таймере анимации, равным нулю. Далее происходит запуск заставки. Запускается процедура таймера: Private Sub tmrAni_Timer() (Приложение 1. с.33). Это таймер, управляющий анимацией. Он работает, используя переменную х. По значению переменной программа определяет какое изображение следует отобразить на экране. После завершения работы таймера, управление передается форме frmDatabase (главная форма программы. Приложение 2. с.62). При ее запуске, выполняется ее процедура Private Sub Form_Load() (Приложение 1. с.39)

 

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

При входе в базу данных выполняется процедура init из модуля modAbout (Приложение 1. с.58), которая используется в процедуре Form_Load главной формы программы. Она устанавливает начальные значения переменных, создает надписи с названиями полей и применяет дизайн форм программы. Форма загрузилась – база данных уже создана. Если в процессе работы потребуется создать новую базу данных, например, при помощи меню «Файл -> Создать (Ctrl+N)», то запускается процедура Create() (Приложение 1. с.33), которая запрашивает подтверждение создания базы, после чего очищает все поля таблицы и устанавливает занчение переменной OpenFile=””, что означает, что на данный момент нет активного файла, с которым производится работа. Его можно будет создать при сохранении базы, либо открыть.

 

Открытие базы данных

Управление получит процедура Open_File() (Приложение 1. с.33). С помощью элемента ComonDialog будет создано окно открытия файла, в котором вам будет предложено выбрать файл расширения *.mdb (MyDataBase). Далее процедура из файла считывает информацию и размещает ее в listBox-элементах главной формы. OpenFile принимает значение, равное имени выбранного файла.

Сохранение базы данных

Управление получит процедура Save(intSave As Byte) (Приложение 1. с.34). Если переменная OpenFile пуста, то в процедуру будет передан параметр «1», обозначающий то, что необходимо сохранить базу в новый файл. С помощью элемента ComonDialog будет создано окно сохранения файла, в котором вам будет предложено ввести имя и выбрать путь для нового файла (можно без расширения, программа создаст его автоматически). Сразу же после выбора имени, информация считывается из listBox-элементов главной формы и помещается в указанный файл. Если же OpenFile не пуста, то старый файл будет удален, а на его место будет записан новый с тем же именем, но с новой информацией. В процедуру в этом случае передается «0».

При выборе меню «Файл -> Сохранить как (Ctrl+S)» в любом случае передается параметр «1».

 

Закрытие программы

Управление получит Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) (Приложение 1. с.39). События, описанные в этой процедуре, выполняются при попытке закрыть форму. Если параметр Cancel этой процедуры будет равен 1, то происходит отмена выхода и форма не закрывается. Это лежит в основе процесса выхода из программы. В случае отрицательного ответа на предложенное сообщение выход осуществлен не будет. Завершение работы программы происходит только при подтверждении выхода.

 

Добавление данных

Если запись выделена, то управление получит Процедура Edit("Add", 0) (Приложение 1. с.35). Эти параметры обозначают, что необходимо добавить запись. Второй параметр для добавления записи не имеет значения. Он нужен при редактировании. Затем будет показана форма добавления записи frmAdd (Приложение 2. с.62), в которой необходимо заполнить правильно все поля. Ввод контролируется модулем modInspect (Приложение 1. с.60) и функцией Date_raz(date1 As String, date2 As String) As Long из модуля modData (Приложение 1. с.59), которая возвращает число, равное разности сумм произведений <число>+<месяц>*30+<год*365> двух дат, передаваемых в качестве параметров При нажатии кнопки «Добавить». В случае правильного ввода, запись появится в listbox-элементах главной формы.

 

Удаление данных

Если запись выделена, управление получит Процедура Edit("Del", lstZapis(0).ListIndex). Эти параметры обозначают, что необходимо удалить запись с номером выделенной записи. После подтверждения удаления запись будет удалена из всех полей таблицы.

 

Изменение данных

Если запись выделена, управление получит Процедура Edit("Edt", lstZapis(0).ListIndex). Эти параметры обозначают, что необходимо редактировать запись с номером выделенной записи. Затем будет показана форма редактирования записи frmEdit (Приложение 2. с.63) (она очень похожа на форму добавления записи, но в ней уже заполнены все поля), в которой вы можете изменить значение одного или нескольких полей данной записи (Ввод контролируется теми же модулями, что и при добавлении). Нажмите кнопку «Изменить». В случае правильного ввода, запись изменится в listbox-элементах главной формы.

 

Формат данных

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

 

Поиск данных

Public Sub Search(strType As String) (Приложение 1. с.35) – это процедура поиска. Если strType=fst, то производится поиск по первой букве в выбранном поле, а результат помещается в таблицу формы результатов frmSearch (Приложение 2. с.64), после чего процедура выводит эту форму на экран. При загрузке формы поиска в строку состояния записывается количество записей в таблице.

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

 

Построение диаграмм

Сначала загружается форма диаграмм frmDiagramms (Приложение 2. с.63), на которой с помощью кнопки выбирается тип диаграммы, а затем с помощью ComboBox или ListBox параметры, по которым необходимо построить диаграмму. Диаграммы строятся внути PictureBox-элементов, для каждого вида диаграмм отдельных. Для каждого вида диаграмм вызывается своя процедура: Graf() (Приложение 1. с.54) – для графика, Round(ob_kol As Long, kol1 As Long) (Приложение 1. с.53) – для круговых. Параметр ob_kol обозначает общее количество записей (100%), а kol1 – текущее количество, для построения сектора; Stolb(Групп As Integer) – для столбчатых, где Групп – это количество групп, которое нужно для определения ширины столбцов.

 

Сортировка

Для сортировки данных по определенному столбцу используется стандартное сравнение Visual Basic и функции больше (>) и меньше (<). Для сортировки по датам используется функция Date_raz(date1 As String, date2 As String) As Long из модуля modData, которая описана выше.