Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Российский новый университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

РЭУБД_лекции.doc

Скачиваний:

Добавлен:

01.03.2025

Размер:

1.05 Mб

Скачать

☆

<<< < Предыдущая 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 3839 / 3939

Часть 2

#!d:/actiperl/bin/perl.exe

# add new wine to database - 2-st stage -- check params & insert data

use DBI;

use CGI qw(:standard escapeHTML);

# declarations

my $dbh ; #database handler

my $sth ; #database statement handler

my %countries = (); #declared countries

my %typus = (); #declared types of wines

my %tmphash = ();

my $base = 'wineyard'; #database name

my $comp = 'localhost'; #IP-address of host computer

my $dbport = '3306'; #standard MySQL port

my ($ky, $val);

print "Content-type: text/html\n\n";

print <<EOH;

<HTML>

<HEAD>

.norm {padding-left: 20; padding-right: 10; padding-top: 10; }

a {text-decoration: none; }

</style>

<TITLE>Wineyard DB_connection</TITLE>

</HEAD>

<h1 align="center"><font color="#0602B0" size="+4">Wineyard</font></h1>

<p class="norm" align="center"><font size="+1">Интерфейс к базе данных по винам

на основе <b>MySQL</b></font></p>

EOH

# process database index files

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

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="/wineyard/index.html">Вернуться

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

</body></html>

ERRDB

exit;

};

################# rebuild?

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

$sth->execute;

while(($ky, $val)=$sth->fetchrow_array) { #country name is the key

$countries{$ky} = $val;

};

$sth->finish;

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

$sth->execute;

while(($ky, $val)=$sth->fetchrow_array) { #type of wines is the key

$typus{$ky} = $val;

};

$sth->finish;

# process input parameters

$nm = param('nm');

$ctid = param('ctid');

$tpid = param('tpid');

$qty = param('qty');

$skl = param('skl');

my $er = 0;

if ($nm eq "") {

$er += 1;

print qq[<p class="norm" align="left"><b>Не указано наименование напитка</b> – обязательное поле</p>\n];

};

if (!(($qty eq "") || ($qty =~ /^\d+$/))) {

$er += 1;

print qq[<p class="norm" align="left"><b>Неверно указано количество контейнеров</b></p>\n];

};

if (!(($skl eq "") || ($skl =~ /^\d+$/))) {

$er += 1;

print qq[<p class="norm" align="left"><b>Неверно указан номер склада</b></p>\n];

};

if ($er > 0) { #a very long operator block begin here

print <<SOF;

<p class="norm" align="center"><font size="+1" color="#A00000"><b>Проверьте все поля

и исправьте ошибки</b></font><br>

<font color="#A00000">или откажитесь от занесения данных в базу и вернитесь к главной странице</font></p>

<tr><td>Наименование:</td><td><input type="text" size="50" maxlength="100" name="nm" Value="$nm"></td></tr>

<tr><td>Страна-производитель:</td>

<td>Выберите из списка <select name="ctid">

SOF

foreach $ky (sort keys %countries) {

$val = $countries{$ky};

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

};

print <<MID;

</select></td><tr>

<tr><td>Тип напитка:</td>

<td>Выберите из списка <select name="tpid">

MID

foreach $ky (sort keys %typus) {

$val = $typus{$ky};

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

};

print <<EOFR;

</select></td><tr>

<tr><td>Количество:<br>(можно не указывать)</td><td><input type="text" size="8" name="qty" Value="$qty"></td></tr>

<tr><td>Номер склада:<br>(можно не указывать)</td><td><input type="text" size="8" name="skl" Value="$skl"></td></tr>

</table>

</p>

</form>

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

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

</BODY>

</HTML>

EOFR

exit;

}; # end of the very long block

#here - everything is Ok

# create record in main wine table

$qry = "INSERT INTO wine (id, name, t_id, c_id, quant, store) VALUES (NULL, "

. $dbh->quote($nm) . ", $tpid, $ctid, ";

if ($qty eq "") {$qry .= "NULL, "} else {$qry .= "$qty, "};

if ($skl eq "") {$qry .= "NULL)"} else {$qry .= "$skl)"};

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

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

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

$dbh->disconnect;

print qq[<p class="norm" align="left">Новая запись внесена в таблицу вин:</p>];

if ($qty eq "") {$qty = "Не установлено"};

if ($skl eq "") {$skl = "Не установлен"};

%tmphash = reverse %countries;

$ncnt = $tmphash{$ctid};

%tmphash = ();

%tmphash = reverse %typus;

$ntyp = $tmphash{$tpid};

print <<EODT;

<tr><td>Наименование вина:</td><td><font color=navy><b>$nm</b></font></td></tr>

<tr><td>Страна-производитель:</td><td><font color=navy><b>$ncnt</b></font></td></tr>

<tr><td>Тип напитка:</td><td><font color=navy><b>$ntyp</b></font></td></tr>

<tr><td>Количество:</td><td><font color=navy><b>$qty</b></font></td></tr>

<tr><td>Номер склада:</td><td><font color=navy><b>$skl</b></font></td></tr>

</table>

<p class="norm" align="left"><font size="+1"><a href="/cgi-bin/add.pl">Добавить еще

одну запись в базу</a></font></p>

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

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

</BODY>

</HTML>

EODT

exit;

<<< < Предыдущая 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 3839 / 3939

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
26.05.201512.02 Кб92РосНоУ титульный лист.docx
#
26.05.2015487.42 Кб36Росноу цены Голованова.doc
#
01.07.2025113.02 Кб0российский новый УНИВЕРСИТЕТ.docx
#
01.07.2025101.89 Кб4РП Инвестирование.doc
#
01.07.202552.33 Кб1русский яз. 1-17.docx
#
01.03.20251.05 Mб3РЭУБД_лекции.doc
#
26.05.2015309.25 Кб41РЯ и КР учебное пособие.doc
#
01.07.2025192.51 Кб2Сам.раб.СХ,2курс.doc
#
01.07.20251.71 Mб2сама работа.doc
#
26.05.2015517.63 Кб40самост.работа 8 физика-5.doc
#
26.05.2015116.71 Кб22семья и дети.docx