Файл: Основы проектирования программ. Этапы создания программного обеспечения (Этапы создания программного обеспечения).pdf

ВУЗ: Не указан

Категория: Курсовая работа

Дисциплина: Не указана

Добавлен: 27.06.2023

Просмотров: 94

Скачиваний: 3

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

Список использованной литературы

  1. Архангельский А.Я. Программирование в Delphi 7. М.: Бином, 2012. – 1152 с.
  2. Архангельский А.Я. Delphi 2009. Справочное пособие. Откорректированное и дополненное – М.: Бином, 2009. – 569 с.
  3. Вендров А.М. Проектирование программного обеспечения экономических информационных систем: Учебник. – 2-е изд., перераб. и доп. – М.: Финансы и статистика, 2009. – 554 с.
  4. Гуда А.Н., Колесников В.И. Информатика и программирование: компьютерный практикум – М.: Дашков и К, 2010. – 240 с.
  5. Гультяев А.К., Машин В.А. Проектирование и дизайн пользовательского интерфейса. – СПБ.: Корона Принт, 2009. – 536 с.
  6. Информатика: Учебник. 3-е перераб. Изд. / Под ред. Н.В. Макаровой. – М.: Финансы и статистика, 2010. – 768 с.: ил.
  7. Кантор, М. Управление программными проектами. Практическое руководство по разработке успешного программного обеспечения / М. Кантор. - М.: Вильямс, 2012. – 758 с.
  8. Липаев В. В. Отладка сложных программ. Методы, средства, технологии. – М.: Энергоатомиздат. 2009. – 364с.
  9. Лодон Дж., Лодон К. Управление информационными системами. 7-е изд. / Пер. с англ. под ред. Д.Р. Трутнева. – СПб.: Питер, 2009. – 912 с
  10. Макарова Н. В. Информатика и информационно-коммуникационные технологии. – СПб.: Питер, 2010. – 224 с.
  11. Маркин В.Е. Технологии объектно-ориентированного программирования: Учебное пособие. – Владивосток: МГУ им.адм. Г.И.Невельского, 2011. – 939 с.
  12. Орлов С. А. Технологии разработки программного обеспечения. СПб.: Питер, 2009. – 480с.
  13. Трофимов В. В. Информатика : учебник / С.-Петерб. гос. ун-т экономики и финансов ; под ред. В. В. Трофимова – М.: Юрайт, 2010. – 911 с.
  14. Угринович Н. Д. Информатика и ИКТ. Базовый уровень / Н. Д. Угринович. – 5-е изд. – М.: БИНОМ, 2010. – 212 с.
  15. Фаронов В. Delphi 2005 язык, среда, разработка приложений. – СПб.: Питер, 2011. – 743 с.

Приложения

Приложение 1

Код главной программы

unit Unit1;

interface

// подключаем необходимые библиотеки

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, SkinData, Menus, DynamicSkinForm, SkinCtrls, OleCtrls, SHDocVw;

type

TForm1 = class(TForm)

WebBrowser1: TWebBrowser;

procedure spDynamicSkinForm1ActivateCustomObject(IDName: String;

var ObjectVisible: Boolean);

// объявляем используемые процедуры (меню)

procedure spSkinButton1Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);


procedure N8Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure N7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.spDynamicSkinForm1ActivateCustomObject(IDName: String;

var ObjectVisible: Boolean);

begin

if IDName = 'custombutton' then ObjectVisible := True;

end;

procedure TForm1.spSkinButton1Click(Sender: TObject);

begin

Close();

end;

// процедура для выхода из программы (меню – Выход)

procedure TForm1.N9Click(Sender: TObject);

begin

Close();

end;

// процедура для вывода лекций на экран

procedure TForm1.N2Click(Sender: TObject);

var path:string; //объявляем переменную для хранения имени файла

begin

path:=ExtractFilePath(Application.ExeName);

// прописываем путь к необходимому файлу

path:='file://'+path+'index_lect.html';

// выводим файл в элемент Navigate

webbrowser1.Navigate(path);

end;

// процедура для вывода практик на экран

procedure TForm1.N3Click(Sender: TObject);

var path:string; begin

path:=ExtractFilePath(Application.ExeName);

path:='file://'+path+'index_pract.html';

webbrowser1.Navigate(path);

end;

// процедура для вывода индивидуальных заданий на экран

procedure TForm1.N5Click(Sender: TObject);

var path:string; begin

path:=ExtractFilePath(Application.ExeName);

path:='file://'+path+'index_zad.html';

webbrowser1.Navigate(path);

end;

// процедура для вывода примеров индивидуальных заданий на экран

procedure TForm1.N6Click(Sender: TObject);

var path:string; begin

path:=ExtractFilePath(Application.ExeName);

path:='file://'+path+'index_zad_prim.html';

webbrowser1.Navigate(path);

end;

// процедура для вывода справки на экран

procedure TForm1.N8Click(Sender: TObject);

var path:string; begin

path:=ExtractFilePath(Application.ExeName);

path:='file://'+path+'index.html';

webbrowser1.Navigate(path);

end;

// процедура для вывода справки

// во время запуска программы на экран

procedure TForm1.FormCreate(Sender: TObject);

var path:string;

begin

path:=ExtractFilePath(Application.ExeName);

path:='file://'+path+'index.html';

webbrowser1.Navigate(path);

end;

// процедура для выполнения тестирования

procedure TForm1.N7Click(Sender: TObject);

var path:string;

begin

path:=ExtractFilePath(Application.ExeName);

path:='file://'+path+'test.html';

webbrowser1.Navigate(path);

end;

// конец главной программы

end.

Код тестирующего модуля

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">

<title>Тест</title>

<script language="JavaScript">

<!-- Hide JavaScript from Java-Impaired Browsers

l=0;

function dataBase(test) {

var counter=0;

// храним правильные ответы,

//во всех тестах правильный ответ первый

if (test.q1[0].checked) {counter++;}

if (test.q2[0].checked) {counter++;}

if (test.q3[0].checked) {counter++;}

if (test.q4[0].checked) {counter++;}

if (test.q5[0].checked) {counter++;}

if (test.q6[0].checked) {counter++;}

if (test.q7[0].checked) {counter++;}

if (test.q8[0].checked) {counter++;}

if (test.q9[0].checked) {counter++;}

if (test.q10[0].checked) {counter++;}

// если пользователь не ответил на один или несколько вопросов,


// они не засчитываются в общий бал

if (l==0)

{

counter=counter;

}

else

{

counter=0;

}

l=l+1;

document.test.display.value = counter;

}

// End Hiding Script -->

</script>

</head>

<body style="background-color: rgb(166, 202, 240);">

<center>

<form method="post" name="test"><!--ENCTYPE="text/plain"-->

<h2>Тест на тему: Защита информационных сетей</h2>

<hr width="75">

// первый вопрос

<h3>1. В каком году в России Государственная техническая

комиссия при Президенте РФ (Гостехкомиссия РФ) издала серию документов,

посвященных проблеме защиты от несанкционированного доступа.</h3>

<div align="left">

// ответ №1

<p style="margin-left: 100px;"><strong><input name="q1" value="11" type="radio">1992;</strong></p>

// ответ №2

<p style="margin-left: 100px;"><strong><input name="q1" value="12" type="radio">1993;</strong><strong></strong></p>

// ответ №3

<p style="margin-left: 100px;"><strong><input name="q1" value="12" type="radio">1994;</strong></p>

// ответ №4

<p style="margin-left: 100px;"><strong><input name="q1" value="13" type="radio">1995.

</strong></p>

</div>

<hr>

<h3>2. Является ли безопасность информационных технологий (ИТ) и

систем (ИС) одной из важнейших составляющих проблемы обеспечения

экономической безопасности организации?</h3>

<div align="left">

<p style="margin-left: 100px;"><strong><input name="q2" value="21" type="radio">Да;</strong></p>

<p style="margin-left: 100px;"><strong><input name="q2" value="22" type="radio">Нет;&nbsp;</strong></p>

<p style="margin-left: 100px;"><strong><input name="q2" value="22" type="radio">В большинстве случаев;&nbsp;</strong></p>

<p style="margin-left: 100px;"><strong><input name="q2" value="23" type="radio">Иногда

</strong></p> </div> <hr>

<h3>3. В 1983 году министерство обороны США выпустило "Оранжевую книгу". О чем была эта книга?</h3>

<div align="left">

<p style="margin-left: 100px;"><strong><input name="q3" value="31" type="radio">О критериях оценки надежных компьютерных систем;</strong></p>

<p style="margin-left: 100px;"><strong><input name="q3" value="32" type="radio">О глобализации современного информационного пространства;</strong></p>

<p style="margin-left: 100px;"><strong><input name="q3" value="33" type="radio">О возможностях современных информационных технологий;</strong></p>

<p style="margin-left: 100px;"><strong><input name="q3" value="33" type="radio">О информационных системах.<br>

</strong></p> </div> <hr>

<h3>4. На кого были ориентированы "Оранжевая книга" и последующие подобные издания?&nbsp;</h3>

<div align="left">

<p style="margin-left: 100px;"><strong><input name="q4" value="41" type="radio">На корпоративных разработчиков программного обеспечения и информационных систем;.</strong></p>

<p style="margin-left: 100px;"><strong><input name="q4" value="42" type="radio">На пользователей;</strong></p>