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

Автор работы: Пользователь скрыл имя, 06 Марта 2011 в 20:26, курсовая работа

Описание работы

Цель данной курсовой работы — разработка интернет-магазина , который упрощает покупку необходимых товаров.

В качестве средств для реализации поставленной задачи были выбраны: веб-сервер Apache, sql-сервер MySQL и языки программирования Perl и JavaScript.

Содержание работы

Введение……………….………………………………………………………...
1 Web-приложение «Сайт системы научных конференций»....…………........

1.1 Анализ требований………………………………………….…................

1.1.1 Анализ предметной области…………………...................................

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 Тестирование…………………………………...........................................

Заключение…………………………………………………………..…………..

Список использованных источников………………………………..…………

Приложение А. Код приложения ……………………….......……….………...

Приложение Б. Результаты тестирования……………..………………………

Скачать архив (508.13 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Содержание.doc

— 1.98 Мб (Скачать файл)

    if (!($ref->{Name_Model})){$ref->{Name_Model} = "Не задано";}

    my $hd; if ($ref->{ehide}){$hd="_h";} 

    $HTML_SITE{content}.=<<LINES;

    <table border=1 cellpadding="0" cellspacing="0" align="center">

    <td width=90 height=50 valign="center" align="center">

    <img src="/admin/Photos/$ref->{Photo}" width="80" valign="absmiddle" align="absmiddle">

    </td>

    <td width=90 valign="center" align="center"><b><font color="blue">$ref->{Nfirma}</font></b>

    </td>

    <td width=150 valign="center" align="center"><b><font color="blue">$ref->{Name_Model}</font></b>

    </td>

    <td width=70 valign="center" align="center"><b><font color="red">$ref->{Price}</font>&nbsp.</b>

    </td>

    <td><a href="?act=$act&id=$ref->{id}&viev=edit"><img src="/admin/images/editor.jpg" width="40" height="40" align="absmiddle" alt="Редактировать"></a>

    </td>

    <td><a href="#" onclick="del_id('$ref->{id}')"><img src="/admin/images/Urna.jpg" width="40" height="40" align="absmiddle" alt="Удалить"></a>

    </td>

    </table>

    LINES 

                                               }

    $sth->finish(); 

    $HTML_SITE{content}.=<<LINES;

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

    LINES 

    $HTML_SITE{title} = "Список моделей часов [<a href=\"?act=$act&viev=add\">Добавить</a>]";

    $HTML_SITE{title2} = 'Просмотр';

                 }

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

                 

    sub blokedit {

                 

    my ($db_id,$db_Firma,$db_Name_Model,$db_Mechanism,$db_Kreplen,$db_Pol,$db_Data_post,$db_Price,$db_Photo) =

    $dbh->selectrow_array("SELECT id,id_Firma,Name_Model,id_Mechanism,id_Kreplen,id_Pol,Data_post,Price,Photo FROM $act WHERE id='$fid'");

                 

    $HTML_SITE{content}=<<LINES;

    <div style="clear:both"></div> 

    <form method="POST" enctype="multipart/form-data"> 

    <div class="nm">Фирма</div>

    <div class="nm2"><select name="Firma" size="1" style="width:30%">

    $sel

    </select>

    <script>\$('option[\@value=$db_Firma]').get(0).selected = 'selected';</script>

    </div> 

    <div class="nm">Название</div>

    <div class="nm2"><input name="Name_Model" value="$db_Name_Model" type="text" width=200"></div> 

    <div class="nm">Механизм</div>

    <div class="nm2"><select name="Mechanism" size="1" style="width:30%">

    $sel3

    </select>

    <script>\$('option[\@value=$db_Mechanism]').get(1).selected = 'selected';</script>

    </div> 

    <div class="nm">Крепление</div>

    <div class="nm2"><select name="Kreplen" size="1" style="width:30%">

    $sel2

    </select>

    <script>\$('option[\@value=$db_Kreplen]').get(2).selected = 'selected';</script>

    </div> 

    <div class="nm">Пол</div>

    <div class="nm2"><select name="Pol" size="1" style="width:30%">

    $sel1

    </select>

    <script>\$('option[\@value=$db_Pol]').get(3).selected = 'selected';</script>

    </div> 

    <div class="nm">Дата поставки</div>

    <div class="nm2"><input name="Data_post" value="$db_Data_post" type="text" width=200"></div> 

    <div class="nm">Стоимость</div>

    <div class="nm2"><input name="Price" value="$db_Price" type="text" width=200"></div> 

    <div class="nm">Изображение</div>

    <div class="nm2"><input name="Photo" value="$db_Photo" type="text" width=200"></div> 

    <div class="nm"><input name="action" type="submit" value="Изменить"></div> 

    <input name="id" value="$db_id" type="hidden"> 

    </form>

    LINES 

    $HTML_SITE{title} = 'Список моделей часов';

    $HTML_SITE{title2} = 'Редактор';

    } 
 

    sub blokadd { 

    $HTML_SITE{content}=<<LINES;

    <div style="clear:both"></div> 

    <form method="POST" enctype="multipart/form-data"> 

    <div class="nm">Фирма</div>

    <div class="nm2"><select name="Firma" size="1" style="width:30%">

    $sel

    </select></div> 

    <div class="nm">Название</div>

    <div class="nm2"><input name="Name_Model" value="$db_name" type="text" width=200"></div> 

    <div class="nm">Механизм</div>

    <div class="nm2"><select name="Mechanism" size="1" style="width:30%">

    $sel3

    </select></div> 

    <div class="nm">Крепление</div>

    <div class="nm2"><select name="Kreplen" size="1" style="width:30%">

    $sel2

    </select></div> 

    <div class="nm">Пол</div>

    <div class="nm2"><select name="Pol" size="1" style="width:30%">

    $sel1

    </select></div> 

    <div class="nm">Дата поставки</div>

    <div class="nm2"><input name="Data_post" value="$db_name" type="text" style="width=200"></div> 

    <div class="nm">Стоимость</div>

    <div class="nm2"><input name="Price" value="$db_name" type="text" style="width=200"></div> 

    <div class="nm">Изображение</div>

    <div class="nm2"><input name="Photo" value="$db_name" type="text" style="width=200"></div> 

    <div class="nm"><input name="action" type="submit" value="Добавить"></div> 

    <input name="firm" value="1" type="hidden"> 

    </form>

    LINES 

    $HTML_SITE{title} = "Список моделей часов";

    $HTML_SITE{title2} = 'Добавление';

    } 

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

    sub edit { 
 

    my $Firma = param('Firma'); $Firma = $dbh->quote( $Firma );

    my $Name_Model = param('Name_Model'); $Name_Model = $dbh->quote( $Name_Model );

    my $Mechanism = param('Mechanism'); $Mechanism = $dbh->quote( $Mechanism );

    my $Kreplen = param('Kreplen'); $Kreplen = $dbh->quote( $Kreplen );

    my $Pol = param('Pol'); $Pol = $dbh->quote( $Pol );

    my $Data_post = param('Data_post'); $Data_post = $dbh->quote( $Data_post );

    my $Price = param('Price'); $Price = $dbh->quote( $Price );

    my $Photo = param('Photo'); $Photo = $dbh->quote( $Photo );

     

    my $sth = $dbh->prepare("UPDATE $act SET id_Firma=$Firma,Name_Model=$Name_Model,id_Mechanism=$Mechanism,id_Kreplen=$Kreplen,id_Pol=$Pol,Data_post=$Data_post,Price=$Price,Photo=$Photo  WHERE (id='$fid')");

    if ($sth->execute()){

    push @ok, {text=>'Запись отредактирована'};

    $sth->finish();     }

    else {push @error, {text=>'Запись не отредактирована'}; } 

    } 
 

    sub add { 

    my $Firma = param('Firma');

    my $Name_Model = param('Name_Model');

    my $Mechanism = param('Mechanism');

    my $Kreplen = param('Kreplen');

    my $Pol = param('Pol');

    my $Data_post = param('Data_post');

    my $Price = param('Price');

    my $Photo = param('Photo'); 

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

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

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

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

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

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

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

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

    my $sth = $dbh->prepare("insert into $act (id_Firma,Name_Model,id_Mechanism,id_Kreplen,id_Pol,Data_post,Price,Photo) values ($Firma,$Name_Model,$Mechanism,$Kreplen,$Pol,$Data_post,$Price,$Photo)");

    if ($sth->execute()){

    push @ok, {text=>"Запись добавлена"};

    $sth->finish();     }

    else {push @error, {text=>"Запись не добавлена"}; } 
 

    } 
 

    sub del {

    my $ids = param("ids"); $ids =~s/\D//g; 

    if ($ids) {

    #Удаление  из базы

    $sth=$dbh->do("DELETE FROM $act WHERE (id='$ids')"); # удаляем старые

             if ($sth) { push @ok, {text=>"Элемент удалён"};}

             else   { push @error, {text=>"Элемент  удалён"};}

                   }

    else {

    push @error, {text=>"Ошибка. Возможно отключен JavaScript"};

         } 

    } 

    1; 

    Sale.pl

    1; 

    if ($action eq 'Удалить') {&del;} 

    &blokviev; 
 

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

    sub blokviev { 

    my $sth = $dbh->prepare("SELECT Sale.*,Model.Name_Model as Mname,Schet.fio as Sfio,

     Schet.data as Sdata, Schet.nom as Snom, Firma.Name_Firma as Fname, Model.Price as Mprice

    FROM Sale inner join Model on Sale.Model_id = Model.id

               inner join Schet on Sale.Schet_id = Schet.id

               inner join Firma on Model.id_Firma = Firma.id"); 

            

    $sth->execute();

    while (my $ref = $sth->fetchrow_hashref()) { 

    if (!($ref->{id})){$ref->{id} = "Не задано";}

    my $hd; if ($ref->{ehide}){$hd="_h";} 

    $HTML_SITE{content}.=<<LINES;

    <table border=1 cellpadding="0" cellspacing="0" align="center">

    <td width=30 valign="center" align="center"><b><font color="blue">$ref->{Snom}</font></b>

    </td>

    <td width=200 valign="center" align="center"><b><font color="blue">$ref->{Sfio}</font></b>

    </td>

    <td width=80 valign="center" align="center"><b><font color="blue">$ref->{Fname}</font></b>

    </td>

    <td width=100 valign="center" align="center"><b><font color="blue">$ref->{Mname}</font></b>

Информация о работе Web-приложение «Сайт системы научных конференций»