Файл: Основы проектирования программ. Этапы создания программного обеспечения (Этапы создания программного обеспечения).pdf
Добавлен: 27.06.2023
Просмотров: 87
Скачиваний: 3
Список использованной литературы
- Архангельский А.Я. Программирование в Delphi 7. М.: Бином, 2012. – 1152 с.
- Архангельский А.Я. Delphi 2009. Справочное пособие. Откорректированное и дополненное – М.: Бином, 2009. – 569 с.
- Вендров А.М. Проектирование программного обеспечения экономических информационных систем: Учебник. – 2-е изд., перераб. и доп. – М.: Финансы и статистика, 2009. – 554 с.
- Гуда А.Н., Колесников В.И. Информатика и программирование: компьютерный практикум – М.: Дашков и К, 2010. – 240 с.
- Гультяев А.К., Машин В.А. Проектирование и дизайн пользовательского интерфейса. – СПБ.: Корона Принт, 2009. – 536 с.
- Информатика: Учебник. 3-е перераб. Изд. / Под ред. Н.В. Макаровой. – М.: Финансы и статистика, 2010. – 768 с.: ил.
- Кантор, М. Управление программными проектами. Практическое руководство по разработке успешного программного обеспечения / М. Кантор. - М.: Вильямс, 2012. – 758 с.
- Липаев В. В. Отладка сложных программ. Методы, средства, технологии. – М.: Энергоатомиздат. 2009. – 364с.
- Лодон Дж., Лодон К. Управление информационными системами. 7-е изд. / Пер. с англ. под ред. Д.Р. Трутнева. – СПб.: Питер, 2009. – 912 с
- Макарова Н. В. Информатика и информационно-коммуникационные технологии. – СПб.: Питер, 2010. – 224 с.
- Маркин В.Е. Технологии объектно-ориентированного программирования: Учебное пособие. – Владивосток: МГУ им.адм. Г.И.Невельского, 2011. – 939 с.
- Орлов С. А. Технологии разработки программного обеспечения. СПб.: Питер, 2009. – 480с.
- Трофимов В. В. Информатика : учебник / С.-Петерб. гос. ун-т экономики и финансов ; под ред. В. В. Трофимова – М.: Юрайт, 2010. – 911 с.
- Угринович Н. Д. Информатика и ИКТ. Базовый уровень / Н. Д. Угринович. – 5-е изд. – М.: БИНОМ, 2010. – 212 с.
- Фаронов В. 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">Нет; </strong></p>
<p style="margin-left: 100px;"><strong><input name="q2" value="22" type="radio">В большинстве случаев; </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. На кого были ориентированы "Оранжевая книга" и последующие подобные издания? </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>