Создание электронного учебника ( методички).

Содержание

Введение
Глава 1. Информационные технологии в образовании
1.1 Цель информатизации общества
1.2 Методологический аспект
1.3 Экономический аспект
1.4 Технический аспект
1.5 Технологический аспект
1.6 Методический аспект
1.7 Эффективность использования информационных ресурсов в образовательном процессе
1.8 Направления использования информационных технологий
Глава 2. Проектная часть
2.1 Разработка проекта автоматизации: информационный менеджмент
2.1.2 Разработка и описание проекта автоматизации, плана-графика автоматизации и сетевой модели задач
2.1.2 Ожидаемые риски на этапах жизненного цикла и их описание
2.2 Информационное обеспечение задачи
2.2.1 Информационная модель и её описание
2.2.2 Используемые классификаторы и системы кодирования
2.2.3 Характеристика нормативно-справочной, входной и оперативной информации
2.2.4 Характеристика результатной информации
2.3 Программное обеспечение задачи
2.3.1 Общие положения
2.3.2 Характеристика базы данных
2.3.3 Структурная схема системы
2.3.4 Описание программных модулей
2.3.5 Блок-схема программы
2.4 Технологическое обеспечение задачи
2.5 Интерфейс программы
Глава 3 Расчет экономических показателей
3.1 План маркетинга
3.1.1 Анализ рынка
3.1.2 Стратегия реализации
3.1.3 Организация рекламы
3.2 Расчет трудоемкости
3.3 Расчет себестоимости разрабатываемой системы
3.4 Расчет себестоимости
3.5 Финансовый план
Глава 4. Раздел обеспечения безопасности и экологичности проектных решений
4.1. Обзор вредных особенностей работы, встречающихся при изготовлении, наладке и эксплуатации программ
4.1.1. Посадочное место
4.1.2. Освещение
4.1.3. Монитор
4.1.4. Мышь и клавиатура
4.1.5. Тенакль
4.1.6. Шумы
4.1.7. Выделение избытков тепла
4.2. Анализ категории тяжести труда инженера-программиста
4.3. Анализ освещения на рабочем месте программиста
4.4 Проблема утилизации компьютерного лома
4.5 Вывод
Заключение

Создание электронного учебника ( методички).

L := Length(Str1);
repeat
P := Pos(Str1, Result); // ищем подстроку
if P > 0 then
begin
Delete(Result, P, L); // удаляем ее
Insert(Str2, Result, P); // вставляем новую
end;
until P = 0;
end;
//Закрыть приложение
procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FormFirst.Close;
end;
//Закрыть форму
procedure TFormMain.But_closeClick(Sender: TObject);
begin
FormMain.Close;
end;
//Создание формы
procedure TFormMain.FormCreate(Sender: TObject);
var sql : string;
begin
CurDir := GetCurrentDir;
WebBrowser1.Navigate(CurDir + '\html\lections\index.htm');
sql := 'SELECT TOP 3 * FROM questions ORDER BY RND(id)';
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add(sql);
ADOConnection1.Open;
AdoQuery1.Active := True;
AdoQuery1.ExecSQL;
AdoQuery1.First;
q1_num.Text := 'Вопрос №' + AdoQuery1.Fields.Fields[0].AsString;
q1_quest.Text := AdoQuery1.Fields.Fields[1].AsString;
AdoQuery1.Next;
q2_num.Text := 'Вопрос №' + AdoQuery1.Fields.Fields[0].AsString;
q2_quest.Text := AdoQuery1.Fields.Fields[1].AsString;
AdoQuery1.Next;
q3_num.Text := 'Вопрос №' + AdoQuery1.Fields.Fields[0].AsString;
q3_quest.Text := AdoQuery1.Fields.Fields[1].AsString;
AdoQuery1.Active := False;
ADOConnection1.Close;
end;
//Перейти на страницу назад
procedure TFormMain.But_backClick(Sender: TObject);
var Rez : TModalResult;
begin
try
WebBrowser1.GoBack;
except
rez := MessageDlg('Невозможно открыть страницу',mtError,[mbOk],0);
end;
end;
//Перейти на страницу вперед
procedure TFormMain.But_nextClick(Sender: TObject);
var Rez : TModalResult;
begin
try
WebBrowser1.GoForward;
except
rez := MessageDlg('Невозможно открыть страницу',mtError,[mbOk],0);
end;
end;
//Открыть страницу с лекциями
procedure TFormMain.But_indClick(Sender: TObject);
begin
WebBrowser1.Navigate(CurDir + '\html\lections\index.htm');
end;
procedure TFormMain.But_1Click(Sender: TObject);
begin
WebBrowser1.Navigate(CurDir + '\html\lections\lec1.htm');
end;
procedure TFormMain.But_2Click(Sender: TObject);
begin
WebBrowser1.Navigate(CurDir + '\html\lections\lec2.htm');
end;
procedure TFormMain.But_3Click(Sender: TObject);
begin
WebBrowser1.Navigate(CurDir + '\html\lections\lec3.htm');
end;
procedure TFormMain.But_4Click(Sender: TObject);
begin
WebBrowser1.Navigate(CurDir + '\html\lections\lec4.htm');
end;
procedure TFormMain.But_5Click(Sender: TObject);
begin
WebBrowser1.Navigate(CurDir + '\html\lections\lec5.htm');
end;
procedure TFormMain.But_6Click(Sender: TObject);
begin
WebBrowser1.Navigate(CurDir + '\html\lections\lec6.htm');
end;
procedure TFormMain.But_7Click(Sender: TObject);