Курсовая работа: Создание базы данных
Формирование HTML.
При выборе пункта меню Результаты→Формирование HTML
вызывается процедура HTMLCreator_Click(строка 208). В ней вызывается диалог
выбора файла. Если файл выбран, то процедура CreateHTML сохраняет текущую БД в
файл, иначе выдается сообщение об отмене формирования HTML.
Защита (PasswordForm. frm) (рис.9).
При выборе Настройки→Защита вызывается процедура
Security_Click(строка 356). В ней показывается форма PasswordForm в режиме
настройки параметров безопосности. Если после завершения работы с формой
значение переменной PasswordForm. res истинно, то новые параметры сохраняются и выбается
соответствующее сообщение. После этого форма PasswordForm
выгружается из памяти.
Также данная форма используется при открытии БД,
защищенной паролем.
О программе (AboutForm. frm) (рис.10).
При выботе пункта О программе в меню? вызывается
процедура AboutProg_Click(строка 11). В ней модально отображается форма
AboutForm.
Помощь.
После выбора? →Помощь управление переходит к
процедуре HelpProg_Click(строка 140), запускающей с помощью API
функции ShellExecute(строка 2827) браузер с файлом программной справки. Форму
можно перетаскивать мышью за любое место. Для этого используются процедуры
MDown(строка 2874), MUp(строка 2880), MMove(строка 2862).
В процедуре MMove вызываются API функции GetWindowRect(строка 2846)
и MoveWindow(строка 2847). При щелчке по надписи «Xerx» вызывается
API функция ShellExecute(строка 2827), вызывающая
программу, зарегистрированную в системе как почтовая.
При выборе Результаты→Мастер диаграмм выполняется
процедура DiagDraw_Click(строка 114). В ней модально показывается форма
DiagMasterForm. Управление передается этой форме, ее процедуре Form_Load(строка
1196). В ней настраивается внешний вид формы, очищаются все списки и в список
TableIndexCombo добавляются названия всех открытых таблиц.
При выборе элемента в TableIndexCombo в процедуре
TableIndexCombo_Click(строка 1306) список TableColList заполняется заголовками
полей выбранной таблицы. При двойном щелчке в TableColList
вызывается процедура TableColList_DblClick(строка 1291), в которой выбранный
заголовок вместе с названием таблицы добавляется в список SelectColList с
предварительной проверкой на уже добавленность. Двойной щелчок в списке SelectColList вызывает процедуру SelectColList_DblClick(строка 1301), в которой
выбранная строчка удаляется.
Выбор элемента списка DiagTypeCombo
приводит к вызову процедуры DiagTypeCombo_Click(строка 1184), в которой изменяется картинка
типа диаграмм в компоненте DiagTypeImage, а также скрывается либо показывается
фрейм Frame2.
Нажатие на кнопку Отмена закроет форму DiagMasterForm.
Нажатие на кнопку Принять приводит к вызову процедуры
OkBut_Click(строка 1275), в которой вызывается функция GettingDiagData(строка 1229),
формирующая данные для диаграммы. В случае успешности этой загрузки загружается
в память форма DiagResForm(рис.16) и вызывается ее процедура InitDiagData(строка
1424), после чего загруженная форма модально показывается.
Форма DiagResForm, вызываемая из формы DiagMasterForm(рис.11)
кнопкой «Принять», предназначена непосредственно для построения диаграмм. Диаграммы
строятся на канве компонента Chart типа PictureBox,
используя его методы. Кнопка Image1 с изображение дискеты позволяет сохранить
диаграмму в качестве BMP файла. Для этого предназначена процедура Image1_Click(строка
2046), в которой, используя компонент CD типа CommonDialog,
указывается путь к создаваемому растровому файлу, после чего (если файл был
указан) вызывается встроенная процедура SavePicture, сохраняющая диаграмму. Нажатие
на изображение Image2 с изображением вопроса показывает модально окно настроек DiagOptForm(рис.15). Кнопка Image3 с изображение стрелки выгружает форму из памяти. Процедура
DrawDiagram(строка 1975), вызываемая при изменении размеров и изменении
настроек, непосредственно не строит диаграммы, она лишь заливает фон
градиентной заливкой (процедура ColorFill(строка 1440)), а также в
зависимости от типа строимой диаграммы вызывает процедуры DrawCircle(строка 1673)
(круговая диаграмма) и DrawPoint(строка 1749) (колончатая, точечная и
линейчатая диаграммы). Также DrawCircle вызывает процедуру OutOneElem(строка 1482),
стоящую один элемент круговой диаграммы. Данные для построения хранятся в
массиве DiagData(строка 1387), режим построения (тип диаграммы) в переменной
DrawingMode(строка 1388), а флаг использования 3D в переменной
Use3D(строка 1388). Значения этих переменных определяются в процедуре
InitDiagData(строка 1424). При перемещении мыши над диаграммой Chart
вызывается процедура Chart_MouseMove(строка 1988), выводящая в метку Label2
текст о значении функции в указанной точке. Перемещение ползунка полосы
прокрутки VScroll вызывает процедуру VScroll_Change(строка 2122),
изменяющую значение переменной Ellipce в зависимости от позиции ползунка и
перерисовывающую диаграмму.
На закладке «Цвета и текст» щелчок по любому
компоненту Frame2 вызывает диалог выбора цвета (используется ColorDlg).
Изменение цвета фреймов с индексами 0 или 1 вызывает процедуру ColorFill(строка 1440) для компонента Picture1 типа PictureBox. В списке List1 хранятся надписи элементов диаграммы, а в массиве List1.
ItemData хранятся цвета соответствующих элементов. В текстовом поле Text1
можно менять значение выбранной в List1 записи. При нажатии кнопки [Enter]
вызывается процедура Text1_KeyDown(строка 2203), сохраняющая значение подписи в
массив List1. Item. При нажатии кнопки Принять переменной res
присваивается значение 1, что сигнализирует об необходимости применить
внесенные изменения. После этого форма скрывается. При нажатии на кнопку Отмена
форма делается невидимой без изменения переменной res.
Двойной щелчок по строке в списке ListView вызывает
процедуру ListView_DblClick(строка 220), в которой настраивается внешний вид
формы EditRecordForm, вызывается процедура LoadData(строка 855), определенная в
модуле формы, и форма модально отображается. При загрузке формы вызываются
процедура Form_Load(строка 891), настраивающая внешний вид формы. В списке
CellList_Click выводятся поля выбранной в списке ListView записи. Выбор
элемента в списке сопровождается вызовом процедуры CellList_Click(строка 866),
в которой в зависимости от типа выбранного поля в метку Label6 выводится
соответствующий текст, а также процедурой ButEnabled(строка 2934), определенной
в модуле DBConst, меняется состояние кнопки «Редактор». После этого в
текстовое поле Text1 загружается значение выбранного поля и полностью
выделяется. Нажатие кнопки «Редактор» вызывает процедуру EditorBut_Click(строка
917), в которой сначала проверяется тип редактируемого поля, затем, если оно
числовое, выдается сообщение об ошибке, иначе поле сравнивается с форматом даты.
Если формат совпадает и флажок MonthForm. Check1(рис. 19) (установлен –
календарь не показывается) не установлен, то загружается форма TextEditForm(рис.8)
(в ином случае загружается форма MonthForm), в текстовый редактор
TextEdit типа RichTextBox загружается значение из текстового поля Text1. Если
окно TextEditForm было закрыто с сохранением текста, то переменная TextEditForm.
res истинна и измененный текст загружается в текстовое поле Text1.
После этого форма TextEditForm выгружается из памяти. Нажатие на кнопку
«Применить» вызывает процедуру FlipBut_Click(строка 1010), проверяющую
введенное значение на корректность (соответствие типу и разрядной сетке) и, в
случае отсутствия ошибок, присваивает выбранному в списке CellList элементу
введенное значение. В случае какой-либо ошибки выдается соответствующее
сообщение. Нажатие на кнопку «Вернуть» восстанавливает все поля записи из БД в
процедуре ReturnBut_Click(строка 908), вызывающей последовательно LoadData(строка
855) и OverloadList(строка 883), получающие и копирующие запись во временный
буфер Arr(строка 853). Нажатие на кнопку «Отмена» вызывает
процедуру CancelBut_Click(строка 982), выгружающая форму EditRecordForm из памяти. Кнопка «Принять» вызывает процедуру
SelectBut_Click(строка 954), работа которой заключается в сохранении полей
записи из локального массива Arr в глобальную таблицу.
Выбор записей и полей БД производится при помощи формы
SelectForm, предоставляющей удобный выбор среды указанных списков. В модуле
формы глобально объявлены функции SelectDlg(строка 556) и MultiSelectDlg(строка
598), предназначенные для организации диалога по выбору одного (SD) или
нескольких (MSD) записей (SD) либо полей (SD, MSD) из
указанной при вызове таблицы. Функция SelectDlg возвращает число равное
номеру выбранного элемента, либо «-1», если выбор был отменен. Функция
MultiSelectDlg возвращает строку, в которой через запятую перечислены индексы
всех выбранных элементов. Если строка пуста, то это однозначно указывает, что
ничего не было выбрано.
Нажатие кнопки «Редактор» вызывает форму «Редактор
текстовых полей» (TextEditForm), главной частью которой является компонент
TextEdit типа RichTextBox. На панель Toolbar1, расположен ряд кнопок, обработка
нажатий которых расположена в процедуре Toolbar1_ButtonClick(строка 522). Кнопка
«ClearText» очищает весь текст в TextEdit, а кнопка «SaveText»
указывает вызывающей форме о необходимости внести изменения в данные. Кнопки
«CopyText», «PasteText», «CutText» и «DeleteText» работают с системным буфером
обмена. Кнопка «Properties» позволяет, используя компонент FontDlg, настраивать
шрифт в редакторе.
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 |