Реферат Web-приложение Сайт системы научных конференций

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Имя

Выберите тип работы:

Курсовая работа Дипломная работа Контрольная работа Реферат Отчет по практике Эссе Доклад Решение задач Научно-исследовательская работа Монография Аспирантский реферат Магистерская работа Научная статья Публикация статьи в ВАК Публикация статьи в Scopus Дипломная работа MBA Бизнес-план Тест/экзамен online Чертеж Рецензия

Принимаю Политику конфиденциальности

Продолжить

Скидка 25% при заказе до 11.11.2024

1.1.2Анализ функциональных требований

1.1.3Анализ требований к интерфейсу пользователя

1.1.4Выбор технологий и инструментальных программных средств

1.2Проектирование

1.2.1Проектирование структур данных

1.2.2Проектирование структуры программного обеспечения и алгоритмов

1.2.3Проектирование пользовательского интерфейса

1.3Реализация

1.3.1Программная реализация

1.3.2Кодирование

1.4Тестирование

Basket.pl
1;
if ($action eq 'Оформить_заказ')   {&zakaz;}

elsif ($action eq 'Удалить') {&del;}
#viv
if (($action eq 'Оформить_заказ') and ($kvit)){&kvitanc;}

else{&viev;}
sub viev {
$q = CGI->new();

my $cookies = $q->cookie('basket');
@ms = split(/:/,$cookies);

$sum=0;

foreach $ls (@ms){
my ($ss1,$ss2) = split(/-/,$ls);
if (($idd1 eq $ss1) and ($idd2 eq $ss2)){ #условие чтобы не выводить уже удалённую модель. Нужно, т.к. куки не успевают записаться

}else{

my (@db) = $dbh->selectrow_array("

SELECT Firma.Name_Firma as Nfirma,Model.Name_Model,Model.Price

FROM Model inner join Firma on Model.id_Firma = Firma.id WHERE Model.id='$ss1'

");
$text.=<<LINES;

<tr><td align="center"><p>$db[0]</p></td><td align="center">$db[1]</td><td align="center">$db[2]</td><td><a href="#" onclick="delbasket('$ss1-$ss2')"><img src="/admin/images/Urna.jpg" width="30" height="30" align="absmiddle" alt="title" alt="Удалить"></a></td></tr>

LINES

$sum=$sum+$db[2];

                                        }

}
$HTML_SITE{title} = "Корзина";
$HTML_SITE{content}.=<<LINES;

<table cellpadding=5 cellspacing=5 width=50% align="center">

<tr>

<td align="center"><p><b>Фирма</b></p></td>

<td align="center"><b>Модель</b></td>

<td align="center"><b>Стоимость</b></td>

<td></td>

</tr>

$text

</table>

<HR WIDTH="50%" SIZE="3" color="red">

<table cellpadding=5 cellspacing=5 width=50% align="center">

<td align="center">

Общая сумма заказа равна $sum рублей

</td>

</table>
<form style="display: none" method="POST" action="" id="deletes" name="deletes"><input type="hidden" name="ids" value=""><input type="hidden" name="action" value="Удалить"></form>

<br>

<h2>Пожалуйста заполните форму</h2>

<font color="red">*</font><small>Поля обязательные для заполнения</small>

<form method="POST" action="">

<br>

<div align="center"><font color="red">*</font>ФИО</div>

<div align="center"><input name="fio" value="" type="text" style="width:50%"></div>

<br>

<div align="center"><font color="red">*</font>Телефон</div>

<div align="center"><input name="tel" value="" type="text" style="width:50%"></div>

<br>

<div align="center"><font color="red">*</font>Email</div>

<div align="center"><input name="email" value="" type="text" style="width:50%"></div>

<br>

<div align="center"><input name="action" type="submit" value="Оформить_заказ"></div>

</form>
LINES

}

#######################################

sub kvitanc {

require "kvit.pm";

my $kvit = &kvit($idins);
$HTML_SITE{content}="$kvit";

}

#######################################

sub del {

my $ids = param("ids");

$q = CGI->new();

my $cookies = $q->cookie('basket');

@ms = split(/:/,$cookies);

($idd1, $idd2) = split(/-/,$ids);

foreach $ls (@ms){

my ($ss1,$ss2) = split(/-/,$ls);
if (($ss1 eq $idd1) and ($ss2 eq $idd2)){
}else{

                if ($newcook){

                $newcook = "$newcook:$ss1-$ss2";

                }else{

                $newcook = "$ss1-$ss2";

                }

}

}
#Устанавливаем новые куки средствам Perl

$c = new CGI::Cookie(-name=>'basket',

                     -value=>"$newcook",

                     );

$c =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$c =~ s/<!--(.|\n)*-->//g;

print "Set-Cookie: $c\n";
}
######################################

sub zakaz {

my $fio = param('fio');

my $tel = param('tel');

my $email = param('email');

if ($fio and $tel and $email){
#Создаём номер квитанции

my $noschet = $dbh->selectrow_array("SELECT max( nom ) FROM schet");

$noschet++;
$fio = $dbh->quote( $fio );

$tel = $dbh->quote( $tel );

$email = $dbh->quote( $email );
#Записываем квитанцию в базу

my $sth = $dbh->prepare("insert into schet (nom,fio,tel,email,data) values ('$noschet',$fio,$tel,$email,'$reg_date $time_form')");

if ($sth->execute()){

$idins = $sth->{'mysql_insertid'};

$sth->finish();
        #Заносим купленные билеты. т.е. отмечаем их, что они купленные

        $q = CGI->new();

        my $cookies = $q->cookie('basket');

        @ms = split(/:/,$cookies);

        foreach $ls (@ms){

        my ($ss1,$ss2) = split(/-/,$ls);
        $sth=$dbh->do("INSERT INTO sale (Model_id, schet_id) VALUES ('$ss1', '$idins')"); # добавляем новый
        #Удаляем куки

           my  $c = new CGI::Cookie(-name=>'basket',

                                -expires => '-1y',

                                );

           $c =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

           $c =~ s/<!--(.|\n)*-->//g;

           print "Set-Cookie: $c\n";

           $kvit=1;

                        }

}

}else{

$HTML_SITE{title2} = "<p style=\"color:red;\">Не заполнены обязательные поля</p>";

}
}
1;

Приложение Б

Результаты тестирования



Рисунок Б-1 — Введены неверные логин и пароль.


Рисунок Б-2 — Успешная авторизация.



Рисунок Б-3 — Добавляем новые часы.


Рисунок Б-4 — Данные добавились.



Рисунок Б-5 — Хотим редактировать верхнюю запись.


Рисунок Б-6 — Изменяем стоимость.



Рисунок Б-7 — Данные изменены.


Рисунок Б-8 — Удаляем ранее добавленный товар.



Рисунок Б-9 — Данные корректно удалены.


Рисунок Б-10 — Заполняем поля для запроса.



Рисунок Б-11 — По нашему запросу вывелись 2 модели.


Рисунок Б-12 — Добавляем товар в корзину.



Рисунок Б-13 — Проверяем корзину, товар в ней присутствует.