Разработка электронного учебника "Энциклопедия Интернет"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
Вµдой, Сделаны соответствующие выводы, на основе которых были подправлены некоторые части программного обеспечения.
Данная курсовая работа поможет ознакомиться с "Энциклопедией интернет", а контекстный поиск информации без труда поможет вывести интересующую информацию, для дальнейшего преобразования.
Данное программное обеспечение может быть внедрено в ознакомительную программу библиотеки, для заполнениям пробелов в знаниях, так как в ходе тестирования разработанного програмного продукта было установлено, что он работает корректно и соответствует заявленным функциональным требованиям, а так же не требует углубленных знаний в освоении данной программы.
Список литературы
1.ГОСТ 2.105-95. ЕСКД. Единая система конструкторской документации. Общие требования к тестовым документам.
2.ГОСТ 19.701-90. ЕСПД. Схемы алгоритмов, программ, данных и систем, условные обозначения и правила выполнения.
3.Архангельский А.Я. "100 компонентов общего назначения", электронный учебник, 2002. - 173c.
.Баженова И.Ю. "Delphi 7 Самоучитель программиста" - М.: "КУДИЦ-ОБРАЗ", 2003. - 448с.
.Вальвачев А.Н., Сурков К.А., Сурков Д.А., Четырько Ю.М. Программирование на языке Delphi. Учебное пособие. - 2005. - 217с.
6.Гвоздева В.А., Лаврентьева И.Ю. "Основы построения АИС" - М.: ИД "ФОРУМ": ИНФРА-М, 2007. - 320с.
.Глушаков С.В., Клевцов А.Л. "Программирование в среде Delphi 7.0" - Харьков: "ФОЛИО", 2003. - 528с.
.Гофман В., Хомоненко А "Delphi Быстрый старт" - СПб.: "БХВ-Петербург", 2003. - 288с.
.Грекул В.И. "Проектирование ИС. Курс лекций" Москва 2005. - 303с.
10.Гусев А.А. "Базы данных на Паскале" - М.: Машиностроение, 1990 - 386 с.
.Рубенкинг Нил Дж. Язык программирования Delphi для "чайников". Введение в Borland Delphi 2006 - Delphi for Dummies. - М.: Диалектика, 2007. - 336 с. - ISBN 0-7645-0179-8
.Парижский С.М. Книга Delphi. Учимся на примерах. П18 Delphi. "Учимся на примерах" / Под ред. Шпака Ю.А. - К.: "МК-Пресс", 2005. - 216с, ил. ISBN 966-8806-02-6.
13.delphi-prg.ru - сайт о том как создавать приложения под Windows.
14.delphi-lubitel. ucoz.ru - любительский сайт по Delphi.
15.forums. realcoding.net - форум программистов.
16.encyclopedia.ru - электронная энциклопедия.
.krugosvet.ru - универсальная онлайн-энциклопедия.
.ru. wikipedia.org - свободная энциклопедния интернет.
19.slovari. yandex.ru - большой электронный словарь.
Приложение
var: TForm1;: Integer;: String;
{$R *. dfm}TForm1. N2Click (Sender: TObject);. close;;TForm1. TreeView1Change (Sender: TObject; Node: TTreeNode);
// По умолчанию в WebBrowser1 ничего не показывается
// В принципе между ковычек можно расположить любой текст
WebBrowser1. Navigate ('');node. StateIndex = 11 then. Navigate (ProgramPath+'теория\Index0. htm');node. StateIndex = 13 then. Navigate (ProgramPath+'теория\Index1. htm');node. StateIndex = 14 then. Navigate (ProgramPath+'теория\Index2. htm');node. StateIndex = 15 then. Navigate (ProgramPath+'теория\Index3. htm');node. StateIndex = 16 then. Navigate (ProgramPath+'теория\Index4. htm');node. StateIndex = 17 then. Navigate (ProgramPath+'теория\Index5. htm');node. StateIndex = 18 then. Navigate (ProgramPath+'теория\Index6. htm'); node. StateIndex = 19 then
// Данный код программы повторяется, изменяются только номерация названия документов до stateindex=161 и index149. htm.
End;TForm1. FormCreate (Sender: TObject);
// В этой переменной будет храниться полный путь до *. exe - файла
ProgramPath: =ExtractFilePath (Application. ExeName);;TForm1. Timer1Timer (Sender: TObject);. Caption: =timetostr (time);;
// Функция поиска
function FindTreeNode (FirstNode: TTreeNode; Const AText: String): TTreeNode;: =FirstNode;Result 0 then exit;: = Result. GetNext;
end;
end;
// Процедура активации кнопки необходима для того чтобы оградить пользователя от необдуманных действий. Таких как поиск по пустому полю. Для того чтобы осознать смысл присвоения FindButton1. Caption: ='Искать' необходимо внимательно прочитать следующую процедуру.
procedure TForm1. Edit1Change (Sender: TObject);
beginEdit1. Text='' then. Caption: ='Искать';. Enabled: =False;. Caption: ='Искать';. Enabled: =True;;
end;
// Я использую Caption кнопки поискf вместо переменной типа Boolean. Поскольку в дереве может быть несколько узлов с одинаковыми названиями необходимо обеспечить продолжение поиска с узла следующего за найденным (Иначе всегда будет находиться узел, ближний к корню дерева). Для этого я использую переменную NodeIndex, которая объявляется глобально.
procedure TForm1. Button1Click (Sender: TObject);: TTreeNode;Button1. Caption='Искать' then: =FindTreeNode (TreeView1. Items. Item [0], Edit1. Text);Node=nil then('Группа "'+Edit1. Text+'" не найдена. ',mtInformation, [mbOk],0). Caption: ='Искать далее';: =Node. AbsoluteIndex;. Items. Item [NodeIndex]. Selected: =True;. SetFocus;;NodeIndex<TreeView1. Items. Count-1 then: =FindTreeNode (TreeView1. Items. Item [NodeIndex+1], Edit1. Text);Node=nil then. Caption: ='Искать';
MessageDlg ('Окончание поиска. ',mtInformation, [mbOk],0);. SetFocus;. Caption: ='Искать далее';: =Node. AbsoluteIndex;. Items. Item [NodeIndex]. Selected: =True;. SetFocus;;. Caption: ='Искать';. SetFocus;('Окончание поиска. ',mtInformation, [mbOk],0);;;;TForm1. Edit1Click (Sender: TObject);. clear;;TForm1. Button2Click (Sender: TObject);. FullExpand;;TForm1. Button3Click (Sender: TObject);. FullCollapse;;.