1 Глушаков, С.А. Самоучитель. - АСТ, 2008. – 448 с.;
2 Марков, Е.С. Программирование в Delphi7. BHV, 2007. – 496 с.;
3 Орлов, С.А. Технология разработки программного обеспечения. – Мн.: Сокол, 2002. – 300 с.;
4 Палицин, В.А. Технико-экономическое обоснование дипломных проектов: Методическое пособие. – Мн.: БГУИР, 2005. – 28 с.;
5 Архангельский, А. Я. Программирование в Delphi 7 М.: ООО «Бином-Пресс», 2003 — 1152 с.;
6 Шпак, Ю.А. Delphi 7 на примерах, 2003. – 384 с.;
7 Бабук, И.М. Экономика предприятия: учебное пособие – Мн: 2008 – 104 с.
8 Зайцев, Н.Л. Экономика, организация и управление предприятием: учебное пособие – Москва: Инфра–М, 2009. – 453 с.
9 Челноков, А. А. Охрана труда Мн.: «Вышэйшая школа», 2006 – 346 с.
10 Сокол, Т.С. Охрана труда Мн.: «Дизайн ПРО», 2006
11 Самойлов, М.В., Паневчик, В.В., Ковалев, А.Н. Основы Энергосбережения: Учебное пособие. – Мн.: БГЭУ, 2002. – 198 с.
12 Википедия – свободная энциклопедия [Электронный ресурс] – Электронные данные. – Режим доступа: https://ru.wikipedia.org
ПРИЛОЖЕНИЕ А
(справочное)
Фрагмент текста программы
procedure TFormMain.ImageTestClick(Sender: TObject);
begin
ADOTableTest.First;
// Создание формы с тестированием и запуск ее
FormTest:= TFormTest.Create(Self);
FormTest.ShowModal;
end;
procedure TFormMain.ImagePresentationClick(Sender: TObject);
var
PowerPoint: OLEVariant;
begin
try
PowerPoint:= CreateOleObject('PowerPoint.Application');
PowerPoint.Presentations.Open(FilePath + 'Presentation\Presentation.ppt',
False, False, True);
PowerPoint.ActivePresentation.SlideShowSettings.Run;
except
raise Exception.Create('Запуск презентации невозможен, возможно ' +
'не установлен Power Point');
end;
end;
procedure TFormCopy.ImageStartClick(Sender: TObject);
begin
if not Assigned(FOriginalBitmap) then
ShowMessage('Не загружен оригинал')
else
begin
case FScale of
0: FScaleConst:= 50;
1: FScaleConst:= 70;
2: FScaleConst:= 81;
3: FScaleConst:= 100;
4: FScaleConst:= 141;
5: FScaleConst:= 200;
else
FScaleConst:= 100;
end;
FValueConst:= 2 - Value;
FPrint:= True;
PaintBoxCopy.Refresh;
end;
end;
// Форма справки
procedure TFormHelp.BitBtnAnswerClick(Sender: TObject);
begin
ShellExecute(Handle, '', PChar(FormMain.FilePath + 'Help\Help.chm'), '', '', SW_SHOW);
end;
procedure TFormHelp.FormCreate(Sender: TObject);
begin
end;
end.
// Форма теории
procedure TFormTheory.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex <> -1 then
begin
WebBrowser1.Navigate(FormMain.FilePath + 'Theory\' +
IntToStr(ListBox1.ItemIndex) + '.html');
end;
end;
procedure TFormTheory.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caFree;
end;
procedure TFormTheory.BitBtnCloseClick(Sender: TObject);
begin
Close;
end;
procedure TFormTheory.BitBtnBackClick(Sender: TObject);
begin
if ListBox1.ItemIndex > 0 then
begin
ListBox1.ItemIndex:= ListBox1.ItemIndex - 1;
ListBox1.OnClick(nil);
end;
end;
procedure TFormTheory.BitBtnNextClick(Sender: TObject);
begin
if ListBox1.ItemIndex < ListBox1.Count - 1 then
begin
ListBox1.ItemIndex:= ListBox1.ItemIndex + 1;
ListBox1.OnClick(nil);
end;
end;
procedure TFormTheory.FormCreate(Sender: TObject);
begin
// Выбор первой темы
ListBox1.ItemIndex:= 0;
ListBox1.OnClick(nil);
end;
procedure TFormTheory.Panel1Click(Sender: TObject);
begin
end;
end.
// Форма просмотра видео
procedure TFormVideo.Play;
var
FilePath: string;
begin
FilePath:= FormMain.FilePath + 'Video\' + IntToStr(Num) + '.flv';
// Если файл не найден, то выдать исключение
if not FileExists(FilePath) then
raise Exception.Create('Не найдены видео файлы в папке Video программы');
WindowsMediaPlayer1.URL:= FilePath;
end;
procedure TFormVideo.FormCreate(Sender: TObject);
begin
// Начать воспроизведение
Play;
end;
procedure TFormVideo.BitBtnBackClick(Sender: TObject);
begin
if Num > 0 then
begin
Num:= Num - 1;
Play;
end;
end;
procedure TFormVideo.BitBtnNextClick(Sender: TObject);
begin
if FileExists(FormMain.FilePath + 'Video\' + IntToStr(Num + 1) + '.flv') then
begin
Num:= Num + 1;
Play;
end;
end;
procedure TFormVideo.BitBtnCloseClick(Sender: TObject);
begin
Close;
end;
end.
ПРИЛОЖЕНИЕ В
(справочное)
Диаграммы UML
Изм. |
Лист |
№ документа |
Подпись |
Дата |
Лист |
ДП133ТП.021209.081 ПЗ |
Разраб. |
Сбродова А.А. |
Провер. |
Вилкина О.А. |
Т. Контр. |
Катонов В.В. |
Н. Контр. |
Белоцкая О.М. |
Утв. |
Разработка электронно-обучающего пособия по разделу «Копировальные аппараты» предмета «Оргтехника» |
Лит. |
Листов |
УО «МГКЭ» |
Масса |
Масштаб |
Диаграмма вариантов использования |
Изм. |
Лист |
№ документа |
Подпись |
Дата |
Лист |
КП13ТП.013102.081 ПЗ |
Разраб. |
Сбродова А.А. |
Провер. |
Вилкина О.А. |
Т. Контр. |
Н. Контр. |
Утв. |
Лит. |
Листов |
УО «МГКЭ» |
Масса |
Масштаб |