Информационные системы учета деятельности школьников

При этом в новой MDIформе события для запуска и закрытия формы характерны другим MDIформам. В отличии от других MDIформ форма поиска содержит компонент WebBrowser, который используется для отображения Web документов. Поэтому при запуске формы в компонент WebBrowserзагружается документ about. mht для страницы «О программе», help. mht для страницы «Помощь» (см. рис. 6.5).Рис. 6.

5. Окно справки и помощи.

Для того, чтобы MHT-документ загрузился в WebBrowserиспользуется процедура Navigate: procedureTForm10. FormCreate (Sender: TObject);beginPath:=ExtractFilePath (Application.ExeName);webbrowser1.Navigate (Path+'about.mht');webbrowser2.Navigate (Path+'help.mht'); end;Так как для открытия документа необходим полный путь к файлу, то перед запуском система определяет расположение самого приложения при помощи функции ExtractFilePath (Application.ExeName) и открывает файл с соответствующим именем. Так же как видно на рисунке 2.18 приложение оснащено панелью инструментов для работы скомпонентом WebBrowser. Эта панель содержит кнопки «Сохранить», «Печать», «Предварительный просмотр», «Поиск», «Размер шрифта», «Выход» (см. рис 3.14).Для выполнения первых трех кнопок используются встроенные функции для компонента WebBrowser.

Перед выполнением идет проверка активной страницы. Для сохранения используется функция: WebBrowser1. ExecWB (OLECMDID_SAVEAS, 1);Дляпечати — WebBrowser1. ExecWB (OLECMDID_PRINT, 1);Дляпредварительногопросмотра — WebBrowser1. ExecWB (OLECMDID_PRINTPREVIEW, 1).Поиск по документу производится по аналогичному алгоритму при помощи нижеописанной процедуры. procedure Find (Sender: TObject);constCGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';varCmdTarget: IOleCommandTarget;vaIn, vaOut: OleVariant;PtrGUID: PGUID;BeginNew (PtrGUID);PtrGUID^ := CGID_WebBrowser;if WebBrowser1. Document <> nil thentryWebBrowser1.Document.QueryInterface (IOleCommandTarget, CmdTarget);if CmdTarget <> nil thentryCmdTarget. Exec (PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);FinallyCmdTarget._Release;end;Exceptend;end;Dispose (PtrGUID);end;Дляудобногопрочтениядокументасуществуетвозможностьвыбораразмерашрифтадокумента из списка: 50%, 75%, 100%, 125%, 150%, 175%, 200%.Для того чтобы пользователь имел возможность изменения размера шрифта создан компонент ComboBoxEx, в котором указаны данные размеры. После выбора размера срабатывает процедура для данной операции. Она отслеживает нажатие клавиш, щелчок по кнопке на панели инструментов и движение колеса мыши. [ 10]. procedure TForm10. ComboBoxEx1Click (Sender: TObject);var s, mas: string;beginif pos ('%', ComboBoxEx1. Text)=0 thenwebbrowser1.OleObject.Document.Body.Style.Zoom :=strtoint (ComboBoxEx1.Text)/100elsebegins:=ComboBoxEx1.Text;delete (s, pos ('%', ComboBoxEx1. Text), 1);mas:=s;webbrowser1.OleObject.Document.Body.Style.Zoom:=strtoint (s)/100;end;end;procedure TForm10. ComboBoxEx1EndEdit (Sender: TObject);var s: string;beginif pos ('%', ComboBoxEx1. Text)=0 thenbeginComboBoxEx1. Text:=ComboBoxEx1.Text+'%'endelsebegins:=ComboBoxEx1.Text;delete (s, pos ('%', ComboBoxEx1. Text), 1);endend;procedure TForm10. ComboBoxEx1KeyPress (Sender: TObject; var Key: Char);beginif not ((key>='0') and (key<='9') or (key=#8)) then key:=chr (0);end;Рис. 6.

6. Использование операции поиска и печати7 Тестирование программы7.

1 Разработка плана тестирования.

Для проведение тестирования работы приложения были предусмотрены следующие требования:

Тестирование должно проводиться на некотором количестве компьютеров (не менее 3);Операционные системы, установленные на данные компьютеры должны быть разными (Windows 7, 8/8.1, 10);Учетные права пользователя должны иметь уровень «Администратора» иначе приложение необходимо запускать от имени Администратора;

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

7.2 Разработка алгоритма процедуры тестирования.

Согласно плану тестирования был разработан алгоритм проведения процедуры тестирования. Указание операционной системы компьютера (Windows 7, 8/8.1, 10).Из какой папки проводился запуск программы (корни дисков C, D, рабочий стол, папка документы, съемный диск).Реализация запуска дочерних окон и возможностей их расположения. Перемещение по данных таблиц БД, добавление, удаление. Экспорт данных в текстовый и табличный редакторы. Сворачивание приложения в трей системы. Проверка работы меню приложения и панелей инструментов. Осуществление поиска по данным. Открытие файла справки. Закрытие приложения и проверка закрытия процесса в диспетчере задач.

7.3 Оценка результатов проведения тестирования.

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

программа запускается из различных вариантов расположения на локальных или съемных дисков, доступ к БД при этом не нарушается;

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

— возможности экспорта данных в текстовый или табличный редакторы выполняется при всех запусках приложения;

— дочерние формы при запуске и сворачивании сопровождаются анимированными эффектами;

— приложение эффективно открывает формы и при помощи панели инструментов, и при помощи меню;

— приложение успешно сворачивается в трей системы и разворачивается;

— приложение полностью закрывается, при закрытии сохраняются сведения БД, уничтожается процесс приложения.

8 Сопровождение.

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

Заключение

.

Таким образом, работа над фрагментом информационной системы базы данных «Информационная система учета деятельности школьников» была завершена, что является достижением поставленной цели. Самой важной частью моей работы является изучение особенностей баз данных и их свойств, анализ СУБД, и основных компонентов среды Delphi и технологии ADO, которые позволяют оперировать базами данных. Затем в СУБД MS Access была составлена база данных из шести таблиц, которая отражает заданную предметную область. После того как, база данных «Информационная система учета деятельности школьников» была готова, было создано приложение методами среды программирования Delphi при использовании технологии ADO. Оно содержит необходимые компоненты для подключения базы данных и вывода ее таблиц на экран, а также снабжено возможностью пользовательского редактирования записей.

Список использованных источников

1.Сохранение базы данных Jet 4.0 в работоспособном состоянии. Поддержка Microsoft. URL:

http://support.microsoft.com/kb/303 528/ru2.Delphi. Профессиональное программирование. Осипов Д. — СПб.: БХВ-Петербург, 2012. — 1056 с.

3.Когаловский М. Р. Энциклопедия технологий баз данных. Когаловский М. Р. — М.: Финансы и статистика, 2002. — 800 с.

4.Фленов М. Е. Библия Delphi. Фленов М. Е. — СПб.: БХВ-Петербург, 2011. — 688 с.

5.Хомоненко А. Д. Самоучитель Delphi.NET. Хомоненко А. Д. — СПб.: БХВ-Петербург, 2006. — 464 с.

6.Швецов В. И., Визгунов А. Н., Мееров И. Б. Базы данных: учеб. пособие / Швецов В. И., Визгунов А. Н., Мееров И. Б. — Н. Новгород: Изд-во ННГУ, 2004. — 217 с.

7.Базы данных и Delphi. Теория и практика. Осипов Д. Л. — СПб.: БХВ-Петербург, 2011. — 752 с.

8.Основы программирования в Delphi XE. Культин Н. Б. — СПб.: БХВ-Петербург, 2011. — 416 с.

9.Использование Delphi для создания приложений баз данных. Устюгова В. Н., -Казань: Казань 2010, 2010. — 72 с.

10.Delphi в примерах, играх и программах. Рубанцев Валерий. — М.: Я + R, 2011. — 418.

11.Буч, Г. Язык UML. Руководство пользователя / Дж. Рамбо, А. Джекобсон.

— М.: ДМК, 2000. — 432с.

12.Информационные технологии в процессе проектирования систем: Материалы научно-методического семинара.

— Тюмень: Издательство Тюменского государственного университета, 2002.

— 188 с.

13.Чейз, Н. Java 5 на примерах / Н. Чейз.

14.Рассел Джонс, Java 5. полное руководство / А. Рассел Джонс.

— М: ВЕК+, 2000.

— 704 с.

15.Коналлен, Дж. Разработка Web приложений с использованием UML: Пер. с англ. / Дж. Коналлен.

— М.: Издательский дом «Вильямс», 2001. — 288 с.

16.Браун, М. Spring в подлиннике / М. Браун, Д. Ханикатт.

— СПб.: BHV Санкт-Петербург, 1998.

17.Java 2. Руководство разработчика: Пер. с англ.: Уч. пос. — М: Издательский дом Вильямс", 2000. — 720с.

18.Сибаров, Ю. Г. Охрана труда в вычислительных центрах / Ю. Г. Сибаров, Н. Н. Сколотнев и др. — М.: Машиностроение, 1990.

Приложение, А Листинг программы дочерней формыvar Form2: TForm2;i, j, k, l: integer; bm: TBookMark; numrows, numcolumns: integer;implementationuses Unit1, Unit8, Unit4;const wdLineWidth025pt=2; wdColor='wdAuto';var range, MyRange, table: variant;Cell:variant;{$R *.dfm}procedure TForm2. FormCreate (Sender: TObject);begindbCombobox1.Clear;with form1. ADOClass dobeginopen;while not EOF dobegindbComboBox1.Items.Add (FieldByName ('Название').AsString);next;end;end;buttonvisible (Sender);end;procedure TForm2. buttonvisible (Sender: TObJect);beginfor i := 0 to 9 doif dbnavigator1. Controls[i]. Enabled thentoolbar1. Buttons[i]. Enabled:=trueelsetoolbar1.Buttons[i].Enabled:=false;end;procedure TForm2. DBComboBox1Change (Sender: TObject);beginform1.ADOClass.Locate ('Название', dbcombobox1. Text, [loCaseInsensitive, loPartialKey]);end;procedure TForm2. DBEdit1Change (Sender: TObject);beginform1.ADOClass.Locate ('Код', dbEdit1. Text, [loCaseInsensitive, loPartialKey]);end;procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);beginAction:= caFree;form1.n21.Enabled:=true;form1.toolbutton4.Enabled:=true;end;procedure TForm2. FormShow (Sender: TObject);beginAnimateWindow (Handle, 1000, AW_CENTER or AW_SLIDE);end;procedure TForm2. ToolButton10Click (Sender: TObject);begindbnavigator1.BtnClick (nbrefresh);buttonvisible (Sender);end;procedure TForm2. ToolButton11Click (Sender: TObject);beginE:=CreateOleObject ('Excel.Application');E.visible:=true;E.WorkBooks.Add;for j := 0 to dbgrid1.Columns.Count-1 dobeginCell:=E.Application.ActiveSheet.Cells[1,j+1]; Cell. Value:=dbgrid1.Columns[j].Title.Caption;k:=round ((dbgrid1.Columns[j].Width)/6);cell.ColumnWidth:=k;end;trydbgrid1.Visible := False; //Делаемгридневидимым, чтобынетратилосьвремя//на его перерисовку при прокрутке DataSet — просто и//эффективноbm := dbgrid1.DataSource.DataSet.GetBookmark; // для того чтобы не// потерять текущую записьdbgrid1.DataSource.DataSet.First;l:=2;while not dbgrid1.DataSource.DataSet.EOF dobeginfor j := 0 to dbgrid1.Columns.Count — 1 dobeginCell:=E.Application.ActiveSheet.Cells[l, j+1]; Cell. Value:=dbgrid1.Columns.Items[j].Field.AsString;end;l:=l+1;dbgrid1.DataSource.DataSet.Next;end;dbgrid1.DataSource.DataSet.GotoBookmark (bm);finallydbgrid1.Visible := True;end;end;procedure TForm2. ToolButton12Click (Sender: TObject);beginW:=CreateOleObject ('Word.Application');W.Visible:=true;W.Documents.add;W.ActiveDocument.Range.InsertAfter ('Таблица «'+form2.Caption+'» .');MyRange:=W.ActiveDocument.Range (W.ActiveDocument.Range.End-1,W.ActiveDocument.Range.End-1);W.ActiveDocument.Tables.Add (Range:=MyRange, NumRows:=2,NumColumns:=dbgrid1.Columns.Count);W.ActiveDocument.Range.InsertAfter (' ');table:=W.ActiveDocument.Tables.item (1);for j := 0 to dbgrid1.Columns.Count-1 dotable. Cell (1,j+1).Range.Text:=dbgrid1.Columns[j]. Title. Caption;trydbgrid1.Visible := False;//Делаем грид невидимым, чтобы не тратилось время//на его перерисовку при прокрутке DataSet — просто и эффективноbm := dbgrid1.DataSource.DataSet.GetBookmark;// для того чтобы не потерять текущую записьdbgrid1.DataSource.DataSet.First;l:=2;while not dbgrid1.DataSource.DataSet.EOF dobeginfor j := 0 to dbgrid1.Columns.Count — 1 dobegintable. Cell (l, j+1).Range.Text:=dbgrid1.Columns.Items[j]. Field. AsString;end;l:=l+1;table.Rows.Add;dbgrid1.DataSource.DataSet.Next;end;dbgrid1.DataSource.DataSet.GotoBookmark (bm);finallydbgrid1.Visible := True;end;end;procedure TForm2. ToolButton13Click (Sender: TObject);beginApplication.CreateForm (TForm8, Form8);end;procedure TForm2. ToolButton1Click (Sender: TObject);begindbnavigator1.BtnClick (nbfirst);buttonvisible (Sender);end;procedure TForm2. ToolButton2Click (Sender: TObject);begindbnavigator1.BtnClick (nbprior);buttonvisible (Sender);end;procedure TForm2. ToolButton3Click (Sender: TObject);begindbnavigator1.BtnClick (nbnext);buttonvisible (Sender);end;procedure TForm2. ToolButton4Click (Sender: TObject);begindbnavigator1.BtnClick (nblast);buttonvisible (Sender);end;procedure TForm2. ToolButton5Click (Sender: TObject);begindbnavigator1.BtnClick (nbinsert);buttonvisible (Sender);end;procedure TForm2. ToolButton6Click (Sender: TObject);begindbnavigator1.BtnClick (nbdelete);buttonvisible (Sender);end;procedure TForm2. ToolButton7Click (Sender: TObject);begindbnavigator1.BtnClick (nbedit);buttonvisible (Sender);end;procedure TForm2. ToolButton8Click (Sender: TObject);begindbedit1.Text:=dbtext1.Caption;dbCombobox1.Clear;with form1. ADOClass dobeginopen;while not EOF dobegindbComboBox1.Items.Add (FieldByName ('Название').AsString);next;end;end;dbnavigator1.BtnClick (nbpost);buttonvisible (Sender);end;procedure TForm2. ToolButton9Click (Sender: TObject);begindbnavigator1.BtnClick (nbcancel);buttonvisible (Sender);end;