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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Заключение

В данной дипломной работе была спроектирована автоматизированная информационная система взаимоотношения и управления с клиентами для ОАО «Токаревский «Мясокомбинат»». База данных создавалась на основе программы 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>

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>