Генерация отчетов

Литературный обзор средств проектирование базы данных Анализ сред разработки программ ввода / вывода Разработка структуры базы данных Реализация базы данных с помощью программы «Денвер 2» Разработка подсистемы ввода / вывода и генерации отчетов для автоматизированной информационной системы Режим администрирования Генерация отчетов

103838

знаков

таблицы

изображений

Режим администрирования

3.3 Генерация отчетов

«Поиск» создан для поиска хранящейся информации в базе данных. Поиск осуществляется по различным критериям: (Ф.И.О.) клиента, наименованию продукции, реализация, договор, данные о документе, поощрения, памятные даты.

Разработана структура подачи запроса для выбора данных из БД, которая может осуществлять запрос.

Пример формы приведен на рисунке 57.

Для того, что бы осуществить поиск по клиенту нужно в меню «Поиск» нажать на ссылку «(Ф.И.О.) клиента».

Появится окно, в котором будет поле для ввода клиента оно обязательное для заполнения. Нужно ввести интересующего вас клиента в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли клиента и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно название клиента и эот клиент есть в базе, то на экран выведется: форма собственности, ответственное лицо, клиент, юридический адрес, физический адрес, телефон, вид документа.

Полный системный код поиск по «клиенту» приведен в приложение Л.

Разработка АИС управления взаимоотношениями с клиентами

Рисунок 57. Поиск в базе.

Поиск по «(Ф.И.О.) клиента». Пример формы приведен на рисунке 58.

Разработка АИС управления взаимоотношениями с клиентами

Рисунок 58. «Поиск по Ф.И.О. Клиента»

Поиск по «продукции». Пример формы приведен на рисунке 59.

Разработка АИС управления взаимоотношениями с клиентами

Рисунок 59. Поиск по «наименованию продукции».

Для того, что бы осуществить поиск по наименованию продукции нужно в меню «Поиск» нажать на ссылку «Наименованию продукции».

Появится окно, в котором будет поле для ввода наименованию продукции оно обязательное для заполнения. Нужно ввести интересующее вас наименованию продукции в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли наименование продукции и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно наименованию продукции и эта наименования продукции есть в базе, то на экран выведется: вид продукции, название, упаковка, сорт, дата производства, срок годности, цена, количество на складу.

Поиск по «реализации». Пример формы приведен на рисунке 60.

Для того, что бы осуществить поиск по реализации нужно в меню «Поиск» нажать на ссылку «Реализация».

Разработка АИС управления взаимоотношениями с клиентами

Рисунок 60. «Поиск по реализации»

Появится окно, в котором будет поле для ввода даты отгрузки оно обязательное для заполнения. Нужно ввести интересующее вас дату отгрузки в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли дату отгрузки и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно дату отгрузки и эта дата отгрузки есть в базе, то на экран выведется: менеджер, клиент, продукция, дата отгрузки, количество отгруженной продукции, предмет договора.

Поиск по «договору». Пример формы приведен на рисунке 61.

Для того, что бы осуществить поиск по договору нужно в меню «Поиск» нажать на ссылку «Договор».

Появится окно, в котором будет поле для ввода договора оно обязательное для заполнения. Нужно ввести интересующее вас договор в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли договор и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно договор и этот договор есть в базе, то на экран выведется: предмет договора, ответсвенное лицо, форма расчета, дата.

Разработка АИС управления взаимоотношениями с клиентами

Рисунок 61. «Поиск по договору»

Поиск по «данным документа». Пример формы приведен на рисунке 62.

Разработка АИС управления взаимоотношениями с клиентами

Рисунок 62. «Поиск по данным документа»

Для того, что бы осуществить поиск по документу нужно в меню «Поиск» нажать на ссылку «Данные документа».

Появится окно, в котором будет поле для ввода документа оно обязательное для заполнения. Нужно ввести интересующее вас документ в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли документ и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно документ и этот документ есть в базе, то на экран выведется: вид документа, серия, дата выдачи кем выдан, место выдачи.

Поиск по «поощрению». Пример формы приведен на рисунке 63.

Разработка АИС управления взаимоотношениями с клиентами

Рисунок 63. «Поиск по поощрению»

Для того, что бы осуществить поиск по поощрению нужно в меню «Поиск» нажать на ссылку «Поощрения».

Появится окно, в котором будет поле для ввода поощрения оно обязательное для заполнения. Нужно ввести интересующее вас поощрение в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли поощрение и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно поощрения и это поощрение есть в базе, то на экран выведется: клиент, поощрения, дата.

Поиск по «памятным датам». Пример формы приведен на рисунке 64.

Разработка АИС управления взаимоотношениями с клиентами

Рисунок 64. «Поиск по памятным датам»

Для того, что бы осуществить поиск по памятным датам нужно в меню «Поиск» нажать на ссылку «Памятные даты».

Появится окно, в котором будет поле для ввода клинта оно обязательное для заполнения. Нужно ввести интересующее вас клинта в это поле и нажать на кнопку «найти». Если вы ошиблись, нажмите кнопку «очистить». В случае если вы не занесли клинта и нажали на кнопку «найти» то на экран, не выведется не какой информации. Если вы занесли правильно клинта и этот клинт есть в базе, то на экран выведется: клиент, менеджер, дата, примечание.

Заключение

В данной дипломной работе была спроектирована автоматизированная информационная система взаимоотношения и управления с клиентами для ОАО «Токаревский «Мясокомбинат»». База данных создавалась на основе программы MySQL.

При помощи пакета Denver 2 удалось создать программу ввода данных и генерацию отчетов, отладить скриптовую часть интерфейса. Для проверки работоспособности скриптов осуществлялась связь с базой.

В ходе написания дипломной работы было выполнено следующее:

1. Разработан алгоритм для формирования полей к базе данных;

2. Спроектирован алгоритм для анализа и обработки информации из базы данных;

3. Разработана клиент-серверная программа для обработки запросов на языке Perl;

4. Разработана гипертекстовая форма запроса, выполняющаяся на клиентской платформе, показана ее надежная работа;

5. Разработанные модули переданы в эксплуатацию.

Спроектированная база данных занимает минимум пространства памяти при условии всех связей между данными. В нее легко можно вводить новые данные. База данных полностью удовлетворяет требованиям клиента, так как она удобна в использовании и выдает нужную информацию. В завершении выполненной работы получил положительный отзыв от организации ОАО «Токаревский «Мясокомбинат»».

Полученная в результате программа может быть представлена как демонстрация моих профессиональных навыков. Все поставленные цели в результате выполнения работы достигнуты.

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

Атре Ш. «Microsoft SQL Server 6.5». М.: Комплект документации, 2004 г. -200 с.

Белью К., Браун М., Ливингстон Д. «Perl Web профессионалам». Киев: BHV, 2004 г. – 300 с.

Голицина ОЛ, Максимов НВ, Попов ИИ. «Базы данных». М.: Диалектика, 2005 г. – 350 с.

Дюбуа П. «Применение MySQL и Perl в Web приложениях». М.: Вильямс, 2004 г. – 400 с.

Игнатович И. «Семейство реляционных баз данных IBM DB2». М.: СУБД 2/05, 2006 г.-250 с.

Кастро Э. «Perl & CGI для всемирной паутины» М.: Наука, 2004 г. – 200 с.

Клинтон П. «Освой самостоятельно Perl за 24 часа». Киев: Мир 2005 г.-150 с.

Конноли Т.К. «Базы данных проектирование реализация и сопровождение». Берг: Диалектика, 2005 г.-180 с.

Конноли Т.К. «Базы данных проектирование реализация и сопровождение» Берг: Диалектика, 2005 г.-300 с.

Леонтьев Б.К. «Язык программирования Perl для Интернет»; «Новый издательский дом» – 2006 г.-350 с.

Маслов В.В. «Введение в Perl». М.: Наука, 2005 г.-200 с.

Местерн П. «Perl: интеграция с Интернет». Берг: Диалектика, 2005 г.-200 с.

Нагао М., Катаяма Т., Уэмура С. «Реализация языка SQL в СУБД MySQL». М.: Мир, 2006 г.-350 с.

Паттерсон Л. «Использование HTML». М.: Изд. дом Вильямс, 2004 г.-400 с.

Прохоров А. «Microsoft SQL Server 6.5 DBA Survival Guide, by Mark Spenik & Orryn Sledge». Хабаровск: ISBN, 2005 г.-500 с.

Уайтхэд П «Perl: наглядный курс программирования»; М.: «Диалектика», 2005 г.-350 с.

Ульман Д. «Теория и практика БД». М.: Машиностроение, 2005 г.-250 с.

Фролов П.С. «Базы данных в Интернет» М.: СУБД, 2005 г.-400 с.

Шуленин А. «Microsoft SQL Server и активный Internet». Киев: Материалы Форума «Информационные Технологии'98».-2004 г.-350 с.

Шуленин А. «Microsoft SQL Server».М.: СУБД 1/05, 2005 г.-180 с.

Шнитман В. «Серверы баз данных: проблемы оценки конфигурации системы». М.:СУБД 5–6/05, 2004 г.-350 с.

Приложение A

Код программы «Клиент»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML><HEAD><TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернутьсяк главной странице</a> </font></p></body></html>

ERRDB exit;};

#Выбор значений из таблицы клиент

$const=«SELECT form, fio, otv, ur_adr, fiz_adr, tel, vid

FROM form_sob, client, vid_doc

WHERE form_sob.id=client.id_form_sob and vid_doc.id=client.id_vid_doc»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Клиент</font></div>

<tr><td align= «center»><h3>Форма собственности</h3></td><td align= «center»><h3>Клиент (Ф.И.О)</h3></td><td align= «center»><h3>Ответственное лицо</h3></td><td align= «center»><h3>Юр. адрес</h3></td><td align= «center»><h3>Физ. адрес</h3></td><td align= «center»><h3>Телефон</h3></td><td align= «center»><h3>Вид досумента</h3></td></tr>

TBL while(($form,$fio,$otv,$ur_adr,$fiz_adr,$tel,$vid)=$sth->fetchrow_array)

{print»<tr><td><center>$form</center></td><td><center>$fio</center></td><td><center>$otv</center></td><td><center>$ur_adr</center></td><td><center>$fiz_adr</center></td><td><center>$tel</center></td><td><center>$vid</center></td></tr>\n»;};

$sth->finish;

print <<EOFR;

</BODY></table>

<a href=»/combin/2.html»><h3><U>Вернутся на главную</U></h3></a>

</HTML>

EOFR

exit;

Приложение Б

Код программы «Продукция»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML>

<HEAD>

<TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернуться

к главной странице</a></font></p>

</body></html>

ERRDB

exit;

};

#Выбор значений из таблицы продукция

$const=«SELECT vid_pr, naz, upack, sor, data, sroc, cena, kol

FROM vid_pr, upac, sort, prod

WHERE vid_pr.id=prod.id_vid_pr and upac.id=prod.id_upac and sort.id=prod.id_sort»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Продукция</font></div>

<tr><td align= «center»><h3>Вид продукции</h3></td><td align= «center»><h3>Название</h3></td><td align= «center»><h3>Упаковка</h3></td><td align= «center»><h3>Сорт</h3></td><td align= «center»><h3>Дата производства</h3></td><td align= «center»><h3>Срок годности</h3></td><td align= «center»><h3>Цена</h3></td><td align= «center»><h3>Количество на складе</h3></td></tr>

TBL

while(($vid_pr,$naz,$upack,$sor,$data,$sroc,$cena,$kol)=$sth->fetchrow_array)

{

print «<tr><td><center>$vid_pr</center></td><td><center>$naz</center></td><td><center>$upack</center></td><td><center>$sor</center></td><td><center>$data</center></td><td><center>$sroc</center></td><td><center>$cena</center></td><td><center>$kol</center></td></tr>\n»;

};

$sth->finish;

print <<EOFR;

</BODY>

</table>

<a href=»/combin/2.html»><h3><U>Вернутся на главную</U></h3></a>

</HTML>

EOFR

exit;

Приложение В

Код программы «Реализация»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML>

<HEAD>

<TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернуться

к главной странице</a></font></p>

</body></html>

ERRDB

exit;

};

#Выбор значений из таблицы реализация продукции

$const=«SELECT men.fio1, client.fio, vid_pr.vid_pr, dog.pred, realiz.data, realiz.kol

FROM men, client, vid_pr, dog, realiz

WHERE men.id=realiz.id_men and client.id=realiz.id_client and vid_pr.id=realiz.id_vid_pr and dog.id=realiz.id_dog»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Реализация продукции</font></div>

<tr><td align= «center»><h3>Менеджер (Ф.И.О):</h3></td><td align= «center»><h3>Клиент (Ф.И.О):</h3></td><td align= «center»><h3>Продукция</h3></td><td align= «center»><h3>Предмет договора</h3></td><td align= «center»><h3>Дата отгрузки</h3></td><td align= «center»><h3>Количество отгруженной продукции</h3></td></tr>

TBL

while(($fio1,$fio,$vid_pr,$pred,$data,$kol)=$sth->fetchrow_array)

{

print «<tr><td><center>$fio1</center></td><td><center>$fio</center></td><td><center>$vid_pr</center></td><td><center>$pred</center></td><td><center>$data</center></td><td><center>$kol</center></td></tr>\n»;

};

$sth->finish;

print <<EOFR;

</BODY>

</table>

<a href=»/combin/2.html»><h3><U>Вернутся на главную</U></h3></a>

</HTML>

EOFR

exit;

Приложение Г

Код программы «Договор»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML><HEAD><TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернуться

к главной странице</a></font></p>

</body></html>

ERRDB

exit;

};

#Выбор значений из таблицы договор

$const=«SELECT pred, otv, form, data

FROM form_ras, dog

WHERE form_ras.id=dog.id_form_ras»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Договор</font></div>

<tr><td align= «center»><h3>Предмет договора</h3></td><td align= «center»><h3>Ответственное лицо (Ф.И.О)</h3></td><td align= «center»><h3>Форма расчёта</h3></td><td align= «center»><h3>Дата</h3></td></tr>

TBL

while(($pred,$otv,$form,$data)=$sth->fetchrow_array)

{print «<tr><td><center>$pred</center></td><td><center>$otv</center></td><td><center>$form</center></td><td><center>$data</center></td></tr>\n»;

};

$sth->finish;

print <<EOFR;

</BODY></table>

<a href=»/combin/2.html»><h3><U>Вернутся на главную</U></h3></a>

</HTML>

EOFR

exit;

Приложение Д

Код программы «Данные о документе»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML><HEAD><TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернуться

к главной странице</a></font></p>

</body></html>

ERRDB

exit;

};

#Выбор значений из таблицы данные о документе

$const=«SELECT vid, cer, data, mest, kem

FROM vid_doc, dan_doc

WHERE vid_doc.id=dan_doc.id_vid_doc»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Данные о документе</font></div>

<tr><td align= «center»><h3>Вид документа</h3></td><td align= «center»><h3>Серия</h3></td><td align= «center»><h3>Дата выдачи</h3></td><td align= «center»><h3>Место выдачи</h3></td><td align= «center»><h3>Кем выдан</h3></td></tr>

TBL

while(($vid,$cer,$data,$mest,$kem)=$sth->fetchrow_array)

{print «<tr><td><center>$vid</center></td><td><center>$cer</center></td><td><center>$data</center></td><td><center>$mest</center></td><td><center>$kem</center></td></tr>\n»;};

$sth->finish;

print <<EOFR;

</BODY></table>

<a href=»/combin/2.html»><h3><U>Вернутся на главную</U></h3></a>

</HTML>

EOFR

exit;

Приложение Е

Код программы «Поощрения»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML>

<HEAD>

<TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернуться

к главной странице</a></font></p>

</body></html>

ERRDB

exit;

};

#Выбор значений из таблицы поощрения

$const=«SELECT fio, posh, data

FROM client, vid_posh, posher

WHERE client.id=posher.id_client and vid_posh.id=posher.id_vid_posh»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Поощрение</font></div>

<tr><td align= «center»><h3>Клиент (Ф.И.О)</h3></td><td align= «center»><h3>Поощрение</h3></td><td align= «center»><h3>Дата</h3></td></tr>

TBL

while(($fio,$posh,$data)=$sth->fetchrow_array)

{print «<tr><td><center>$fio</center></td><td><center>$posh</center></td><td><center>$data</center></td></tr>\n»;};

$sth->finish;

print <<EOFR;

</BODY>

</table>

<a href=»/combin/2.html»><h3><U>Вернутся на главную</U></h3></a>

</HTML>

EOFR

exit;

Приложение Ж

Код программы «Памятные даты»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML><HEAD><TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернуться

к главной странице</a></font></p>

</body></html>

ERRDB

exit;

};

#Выбор значений из таблицы памятные даты

$const=«SELECT fio1, fio, data, prim

FROM men, client, pam

WHERE men.id=pam.id_men and client.id=pam.id_client»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Памятные даты</font></div>

<tr><td align= «center»><h3>Менеджер (Ф.И.О)</h3></td><td align= «center»><h3>Клиент (Ф.И.О)</h3></td><td align= «center»><h3>Дата</h3></td><td align= «center»><h3>Прим</h3></td></tr>

TBL

while(($fio1,$fio,$data,$prim)=$sth->fetchrow_array)

{print «<tr><td><center>$fio1</center></td><td><center>$fio</center></td><td><center>$data</center></td><td><center>$prim</center></td></tr>\n»;};

$sth->finish;

print <<EOFR;

</BODY></table>

<a href=»/combin/2.html»><h3><U>Вернутся на главную</U></h3></a>

</HTML>

EOFR

exit;

ПРИЛОЖЕНИЕ З

Код программы «Администирование»

#!/usr/bin/perl

use DBI;

use CGI qw (:standard escapeHTML);

# declarations

my $dbh; #database handler

my $sth; #database statement handler

$base = 'comb';

$comp = 'localhost';

$dbport = '3306';

print «Content-type: text/html\n\n»; print <<EOH;

<HTML><HEAD><TITLE>База Токарёвского мясокомбината</TITLE></HEAD>

EOH print <<EOFR;

<br><DIV style= «height: 140; width: 650; filter: Shadow (Color=red, Direction=300)"><font face= «Monotype Corsiva» size=6 color=yellow>База Токарёвского мясокомбината</font></div>

<font style= «FONT-SIZE: 20pt» color=yellow>Администрирование</font></div>

<fieldset style= «width:20%»><legend><font size=6 color= «336699»>Идентификация</font></legend>

<font face= «Ravie» size=5>Login:</font><br>

<font face= «Ravie» size=5>Password:</font><br>

</fieldset></font><br><br>

</form><br></center></BODY></HTML> EOFR exit;

#!/usr/bin/perl

use DBI;

use CGI qw (:standard escapeHTML);

# declarations

my $dbh; #database handler

my $sth; #database statement handler

my ($log, $pass);

$base = 'comb';

$comp = 'localhost';

$dbport = '3306';

print «Content-type: text/html\n\n»; print <<EOH;

<HTML><HEAD><TITLE>База Токарeвского мясокомбината</TITLE><style>

a {text-decoration:none;}

h3 {font-size:18pt; color:0099CC;} </style>

EOH $dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=&dbport», 'root', «);

if (not $dbh) {print <<ERRDB;

<p>Не могу подключиться к базе по порту 3306 дл проверки имени пользователя и пароля. Причина ошибки – <b>$DBI:errstr</b></p>

<hr width=90% border=2> ERRDB exit;};

$user = param («user»);

$password = param («password»);

my $er = 0;

$const = «select * from adm where login = '$user' and password = '$password'»;

$sth = $dbh->prepare($const);

$sth->execute;

while(($log, $pass)=$sth->fetchrow_array) {

if ($log = $user) {

$er += 1;};

if ($pass = $password) {

$er += 1};};

$sth->finish;

if ($er < 1) {print <<SOF;

<br><DIV style= «height: 140; width: 650; filter: Shadow (Color=red, Direction=300)"><font face= «Monotype Corsiva» size=6 color=yellow>База Токаревского мясокомбината</font></div>

<font style= «FONT-SIZE: 20pt» color=yellow>Администрирование</font></div><br>

<font size=6 color=336699 face= «Monotype Corsiva»><p>Не правильно заданы Логин и пароль</p></font>

<fieldset style= «width:20%»><legend><font size=6 color=336699>Идентификация</font></legend>

<font face= «Ravie» size=5>Login:</font><br>

<font face= «Ravie» size=5>Password:</font><br>

</fieldset></font><br><br>

</form><br></center></BODY> SOF exit;}; print <<EODT;

<h3>Пароль принят вы можете войти в базу</h3><br><br>

</BODY></html>

EODT exit;

Приложение И

Код программы «Добавить клиента»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

my ($ky, $val);

my @form_sob = ();

my @vid_doc = ();

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML>

<HEAD>

<TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернуться

к главной странице</a></font></p>

</body></html>

ERRDB

exit;

};

$sth = $dbh->prepare ('select form, id from form_sob where id > 0');

$sth->execute;

while(($ky, $val)=$sth->fetchrow_array) {

$form_sob{$ky} = $val;

};

$sth->finish;

$sth = $dbh->prepare ('select vid, id from vid_doc where id > 0');

$sth->execute;

while(($ky, $val)=$sth->fetchrow_array) {

$vid_doc{$ky} = $val;

};

$sth->finish;

$dbh->disconnect;

print <<SOF;

<font style= «FONT-SIZE: 20pt» color=yellow>Добавить Клиента</font></div>

<tr><td align=center><b>Форма собственности: (выбрать из списка)</td>

SOF

foreach $ky (sort keys % form_sob) {

$val = $form_sob{$ky};

print «<option value=$val>$ky\n»;

};

print <<MID;

</select>

</td></tr>

<tr><td align=center><b>Клиент (Ф.И.О):</td><td><input type= «text» size= «30» maxlength= «100» name= «fio»></td></tr>

<tr><td align=center><b>Ответственное лицо (Ф.И.О):</td><td><input type= «text» size= «30» maxlength= «100» name= «otv»></td></tr>

<tr><td align=center><b>Юр. адрес:</td><td><input type= «text» size= «50» maxlength= «100» name= «ur_adr»></td></tr>

<tr><td align=center><b>Физ. адрес:</td><td><input type= «text» size= «50» maxlength= «100» name= «fiz_adr»></td></tr>

<tr><td align=center><b>Телефон:</td><td><input type= «text» size= «20» maxlength= «20» name= «tel»></td></tr>

<tr><td align=center><b>Вид документа: (выбрать из списка)</td>

MID

foreach $ky (sort keys % vid_doc) {

$val = $vid_doc{$ky};

print «<option value=$val>$ky\n»;

};

print <<EOFR;

</select>

</td></tr>

</table><br><input type= «submit» value= «Сохранить в базу»><input type=reset value= «Очистить поля»></form>

<a href=»/combin/3.html»><h3><U>Вернутся к Добавлению</U></h3></a>

</BODY>

</HTML>

EOFR

exit;

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

my ($ky, $val);

my $form= param('form');

my $fio= param('fio');

my $otv= param('otv');

my $ur_adr= param ('ur_adr');

my $fiz_adr= param ('fiz_adr');

my $tel= param('tel');

my $vid= param('vid');

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML>

<HEAD>

<TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернуться

к главной странице</a></font></p>

</body></html>

ERRDB

exit;

};

my $er = 0;

if ($fio eq «») {

$er += 1;

print qq [<p><h1><font color=red><B> ERROR -</B> </font>Не указан Клиент (Ф.И.О) </h1></p>\n];

};

if ($otv eq «») {

$er += 1;

print qq [<p><h1><font color=red><B> ERROR -</B> </font>Не указано Ответственное лицо (Ф.И.О)</h1></p>\n];

};

if ($ur_adr eq «») {

$er += 1;

print qq [<p><h1><font color=red><B>ERROR -</B> </font>Не указан Юридический адрес:</h1></p>\n];

};

if ($fiz_adr eq «») {

$er += 1;

print qq [<p><h1><font color=red><B>ERROR -</B> </font>Не указан Физический адрес:</h1></p>\n];

};

if ($tel eq «») {

$er += 1;

print qq [<p><h1><font color=red><B>ERROR -</B> </font>Не указан Телефон:</h1></p>\n];

};

if ($er > 0) {

print <<SOF;

<hr size=0.1 color= "#5E89C5»><p><center><font color=red size=4>Проверьте все поля и исправте ошибки<br>

или откажитесь от занесения данных в базу</font></p><hr size=0.1 color= "#5E89C5»>

<a href=»/combin/3.html»><h3><U>Вернутся к Добавлению</U></h3></a>

SOF

exit;

};

$qry = «INSERT INTO client VALUES (NULL, '$form', '$fio', '$otv', '$ur_adr', '$fiz_adr', '$tel', '$vid');»;

$rows = $dbh->do($qry);

$rows = $dbh->{'mysql_indertid'};

$dbh->do ('FLUSH TABLES, STATUS');

$dbh->disconnect;

print qq [<p><b>Новая запись внесена в таблицу «Клиент»</b></p>];

print <<EODT;

<hr align= «center» noshade size= «2» width= «90%»><p><a href=»/cgi-bin/kl_add.pl»><b><h3><U>Добавить еще одну запись в базу</U></h3></b></a></p>

<a href=»/combin/3.html»><h3><U>Вернутся к Добавлению</U></h3></a>

<BODY>

</HTML>

EODT

exit;

Приложение К

Код программы «Удаление клиента»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML><HEAD><TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернуться к главной странице</a> </font></p></body></html>

ERRDB exit;};

#Выбор значений из таблицы клиент

$const=«SELECT form, fio, otv, ur_adr, fiz_adr, tel, vid

FROM form_sob, client, vid_doc

WHERE form_sob.id=client.id_form_sob and vid_doc.id=client.id_vid_doc»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Удалить Клиента</font></div>

TBL

while(($form,$fio,$otv,$ur_adr,$fiz_adr,$tel,$vid)=$sth->fetchrow_array)

print '<td><center><a href=»/cgi-bin/kl_del1.pl»><img src=»/combin/image/del.bmp» border= «0» align=»» ></a></center> </td></tr>';};

$sth->finish;

print <<EOFR;

</BODY></table>

<a href=»/combin/5.html»><h3><U>Вернутся к удалению</U></h3></a>

</HTML>

EOFR exit;

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

my $del=param('del');

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML><HEAD><TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

h4 {font-size:19pt; color:0099CC;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернутьсяк главной странице</a> </font></p></body></html>

ERRDB exit;};

my $stb;

#удаляем запись при наличии параметра del

if ($del>0)

{my $qry = «DELETE FROM `client` WHERE `id` = $del LIMIT 1»;

$dbh->do($qry);

$dbh->do ('FLUSH TABLES, STATUS');

#$dbh->disconnect;}

#Выбор значений из таблицы клиент

$const=«SELECT client.id, form_sob.form, client.fio, client.otv, client.ur_adr, client.fiz_adr, client.tel, vid_doc.vid

FROM form_sob, client, vid_doc

WHERE form_sob.id=client.id_form_sob and vid_doc.id=client.id_vid_doc»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Удаление клиента</font></div>

<h4>Вы действительно хотите удалить клиента?</h4>

TBL while(($id,$form,$fio,$otv,$ur_adr,$fiz_adr,$tel,$vid)=$sth->fetchrow_array)

print '<td><center><a href=»/cgi-bin/kl_del1.pl? del=',$id, ' "><img src=»/combin/image/del.bmp» border= «0» align=»» ></a></center> </td></tr>';};

$sth->finish;

print <<EOFR;

</BODY></table>

<a href=»/combin/5.html»><h3><U>Вернутся к удалению</U></h3></a>

</HTML>

EOFR exit;

ПРИЛОЖЕНИЕ Л

Код программы «Поиск по клиенту»

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML><HEAD><TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

print <<EOFR;

<br><br><br><br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)"><font style= «FONT-SIZE: 20pt» color=yellow>Поиск в Базе</font></div>

<fieldset style= «width:30%»><legend><font size=4 color= «0099CC»>Поиск по Ф.И.О Клиента</font></legend>

<br><font color= «aqua»><b>Клиент: (Ф.И.О)</font>

</FORM></fieldset>

<a href=»/combin/4.html»><h3><U>Вернутся к Поиску</U></h3></a>

</BODY></HTML>

EOFR exit;

#!/usr/bin/perl

#подключаем модули

use DBI;

use CGI qw (:standard escapeHTML);

#инициализируем переменные

my $dbh; #database handler

my $sth; #database statement handler

my $base = 'comb';

my $comp = 'localhost';

my $dbport = '3306';

#вывод заголовка

print «Content-type: text/html\n\n»;

#вывод документа

print <<EOH;

<HTML><HEAD><TITLE>Токарёвский мясокомбинат</TITLE>

<style>

a {text-decoration:none;}

h3 {font-size:12pt; color:green;}

</style>

EOH

#подключаемся к базе

$dbh = DBI->connect («DBI:mysql:database=$base; host=$comp; port=$dbport», 'root', «);

if (not $dbh) {

print <<ERRDB;

<p class= «norm»>Не удалось законнектить базу<b>$base</b> по порту $dbport.<br>

Причина неудачи – <b>$DBI:errstr</b></p>

<p class= «norm» align= «left»><font size= "+1»><a href=»/combin/index_1.html»>Вернутьсяк главной странице</a> </font></p></body></html>

ERRDB exit;};

$fio=param («fio»);

#Выбор значений из таблицы клиент

$const=«SELECT form, fio, otv, ur_adr, fiz_adr, tel, vid

FROM form_sob, client, vid_doc

WHERE form_sob.id=client.id_form_sob and vid_doc.id=client.id_vid_doc and client.fio='$fio'»;

$sth = $dbh->prepare($const);

$sth->execute;

print <<TBL;

<font style= «FONT-SIZE: 20pt» color=yellow>Клиент</font></div>

TBL

while(($form,$fio,$otv,$ur_adr,$fiz_adr,$tel,$vid)=$sth->fetchrow_array)

{print «<tr><td><center>$form</center></td><td><center>$fio</center></td><td><center>$otv</center></td><td><center>$ur_adr</center></td><td><center>$fiz_adr</center></td><td><center>$tel</center></td><td><center>$vid</center></td></tr>\n»;};

$sth->finish;

print <<EOFR;

</BODY></table><br><br>

<a href=»/combin/4.html»><h3><U>Вернутся к поиску</U></h3></a>

</HTML>

EOFR exit;

1 Луиза Паттерсон. Использование HTML 4. – М.: Издательский дом “Вильямс”, 2004 г. - 400 с.

2 Microsoft SQL Server 6.5. Комплект документации.-2004 г.-200с.

3 Microsoft SQL Server 6.5 DBA Survival Guide, by Mark Spenik & Orryn Sledge, ISBN 0-672-30797-9.-2005г.-500 с

4 Шуленин А. "Microsoft SQL Server и активный Internet". Материалы Форума "Информационные Технологии'98".-2004г.-350 с.

5 Шуленин А. Microsoft SQL Server.СУБД 1/05.-2005г.-180 с.

6 Игнатович И. Семейство реляционных баз данных IBM DB2. СУБД 2/05.-2006г.-250 с.

7 Дэн Ливингстон, Крис Белью, Мика Браун . «Perl . Web-профессионалам»; «BHV-Киев» - 2004 г.- 300 с.

8 Дэн Ливингстон, Крис Белью, Мика Браун . «Perl . Web-профессионалам»; «BHV-Киев» - 2004г.- 300с.

9 Введение в Perl – Маслов В.В. 2005 г.-20

Режим администрирования

Раздел: Информатика, программирование
Количество знаков с пробелами: 103838
Количество таблиц: 3
Количество изображений: 38

Скачать

... в тех разрезах, которые Вам необходимы, формируя набор показателей «на лету». Прозрачность и достоверность данных обеспечивается наличием всей необходимой информации в единой системе. «Управление производством» позволяет полностью контролировать процесс прохождения производственного заказа по всем этапам производственного цикла от расчета потребностей в материалах и производственных ресурсах до ...

Скачать

... Заведующий кафедрой ИСЭ __________О.И.Пятковский «____» 200_ г. ЗАДАНИЕ № 06 НА ДИПЛОМНОЕ ПРОЕКТИРОВАНИЕ По специальности 351400 «Прикладная информатика в экономике» студенту группы 9ПИЭ-01 Тема: Автоматизация разработки медиаплана для ООО «Медиа-Групп» Утверждено приказом ректора от 27 марта 2006 г. № Л - 816 Срок исполнения дипломной работы 15 июня 2006 г. Задание принял к ...

Скачать

... операционной системы компьютер мертв. ОС загружается при включении компьютера. Прикладное ПО предназначено для решения конкретных задач пользователя и организации вычислительного процесса информационной системы в целом. Прикладное ПО позволяет разрабатывать и выполнять задачи (приложения) пользователя по бухгалтерскому учету, управлению персоналом и т.п. Прикладное программное обеспечение ...

Скачать

... . Становление рыночной экономики в России породило ряд проблем. Одной из таких проблем является обеспечение безопасности бизнеса. На фоне высокого уровня криминализации общества, проблема безопасности любых видов экономической деятельности становится особенно актуальной. Информационная безопасность среди других составных частей экономической безопасности (финансовой, интеллектуальной, кадровой, ...

Главная Новости Рефераты Статьи Вузы

О проекте Соглашение

Наверх

Войти на сайт

Навигация

Похожие работы

0 комментариев

Разделы

Инфо

Следите за новостями