Смекни!
smekni.com
Информатика и программирование

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

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>&bsol;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&bsol;n&bsol;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>&bsol;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&bsol;n&bsol;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>&bsol;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&bsol;n&bsol;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>&bsol;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&bsol;n&bsol;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>&bsol;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&bsol;n&bsol;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>&bsol;n»;};

 
назад
читать дальше
1
2
3
4
5
6
7
8
9
10
НАПИШИТЕ НАМ
Copyright © Smekni.com. All rigths reserved.