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

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

«Удаление продукции».

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

Появится окно вид продукции, название, упаковка, сорт, дата производства, срок годности, цена, количество на складу и удаление.

Для того чтобы удалить покупателя нужно нажать на крестик напротив покупателя и запись будет удалена из базы.

«Удалить реализацию».

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

Появится окно менеджер, клиент, продукция, предмет договора, дата отгрузки, количество отгруженной продукции и удаление.

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

«Удалить договор».

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

Появится окно предмет договора, ответственное лицо, форма расчета, дата и удаление.

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

«Удалить данные о документе».

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

Появится окно вид документа, серия, дата выдачи, место выдачи, кем выдан и удаление.

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

«Удалить поощрение».

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

Появится окно клиент, поощрения, дата и удаление.

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

«Удалить памятные даты».

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

Появится окно менеджер, клиент, дата, примечание и удаление.

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

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

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

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

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

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

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

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

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

Поиск по «реализации».

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

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

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

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

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

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

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

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

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

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

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

Заключение

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

21. Шнитман В. «Серверы баз данных: проблемы оценки конфигурации системы». М.:СУБД 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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

<table border=1>

<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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 350; filter: Shadow (Color=red, Direction=24)»>

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

<table border=1>

<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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

<table border=1>

<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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

<table border=1>

<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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

<table border=1>

<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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

<table border=1>

<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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

<table border=1>

<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;

<BODY BGCOLOR= «black» TEXT= «green»><center>

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

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

<img src=»/combin/image/3.png»>

<form name='FORM1' action=»/cgi-bin/adm1.pl» method= «post»><br>

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

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

<input type= «user» size=15 maxlength=15 name= «user»><br>

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

<input type= «password» size=15 maxlength=15 name= «password»><br>

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

<input type= «submit» value= «ВХОД» style= «color:blue»>&nbsp;&nbsp;&nbsp;&nbsp;<input type= «reset» value= «ОЧИСТКА» style= «color:blue»>

</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;

<BODY BGCOLOR= «black» TEXT= «green»><center>

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

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

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

<img src=»/combin/image/3.png»>

<form name='FORM1' action=»/cgi-bin/adm1.pl» method= «post»><br>

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

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

<input type= «user» size=15 maxlength=15 name= «user»><br>

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

<input type= «password» size=15 maxlength=15 name= «password»><br>

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

<input type= «submit» value= «ВХОД» style= «color:blue»>&nbsp;&nbsp;&nbsp;&nbsp;<input type= «reset» value= «ОЧИСТКА» style= «color:blue»>

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

<BODY BGCOLOR= «black» text= «0099CC» link= «red» vlink= «0099CC» alink= «yellow»><center>

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

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

<font style= «FONT-SIZE: 18pt»><a href=»/combin/index_1.html»>[Вход]</a></font>

</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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<form name= «add» action=»/cgi-bin/kl_addb.pl» method= «post»>

<br><DIV style= «height: 60; width: 300; filter: Shadow (Color=red, Direction=24)»>

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

<table align=center border=0 bordercolor=#151924>

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

<td><select name= «form»>

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>

<td><select name= «vid»>

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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<center>

<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>

<hr align= «center» noshade size= «2» width= «90%»>

<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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

<table border=1>

<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(($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>»;

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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

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

<table border=1>

<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(($id,$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>»;

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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

EOH

print <<EOFR;

<CENTER>

<FORM action=»/cgi-bin/kl_sear1.pl» method= «post»>

<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>

<input name = «fio» size=35></b>

<br><br>

<input type= «submit» value= «Найти!!!» name= «fio»>&nbsp;<input type= «reset» value= «Очитить»>

</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>

<BODY text= «0099CC» bgcolor= «black» alink= «red» link= «green» vlink= «0099CC»><center>

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>

<hr align= «center» noshade size= «2» width= «90%» color= «red»>

<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;

<br><DIV style= «height: 60; width: 270; filter: Shadow (Color=red, Direction=24)»>

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

<table border=1>

<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>