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

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

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 г.-200 с.