Разработка информационной системы "Библиотека" с использованием клиент-серверной технологии

DataModule2->IBStoredProc10->Prepare();

DataModule2->IBStoredProc10->ExecProc();

DataModule2->IBTable6->Active=false;

DataModule2->IBTable6->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button20Click(TObject *Sender)

{

if (RadioButton11->Checked==true)

{DataModule2->IBTable6->IndexName="pk_otdel_knig";}

else if (RadioButton12->Checked==true)

{DataModule2->IBTable6->IndexName="nazv";}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button18Click(TObject *Sender)

{

DataModule2->IBStoredProc11->ParamByName("nazvanie")->AsString=Edit23->Text;

DataModule2->IBStoredProc11->ParamByName("kol_knig")->AsString=Edit25->Text;

DataModule2->IBStoredProc11->ParamByName("telefon")->AsString=Edit26->Text;

DataModule2->IBStoredProc11->ParamByName("n_biblio")->AsString=Edit27->Text;

DataModule2->IBStoredProc11->Prepare();

DataModule2->IBStoredProc11->ExecProc();

DataModule2->IBTable6->Active=false;

DataModule2->IBTable6->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button19Click(TObject *Sender)

{

DataModule2->IBStoredProc12->ParamByName("n_otdela")->AsString=Edit28->Text;

DataModule2->IBStoredProc12->Prepare();

DataModule2->IBStoredProc12->ExecProc();

DataModule2->IBTable6->Active=false;

DataModule2->IBTable6->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button21Click(TObject *Sender)

{

DataModule2->IBStoredProc13->ParamByName("n_zapisi")->AsString=Edit29->Text;

DataModule2->IBStoredProc13->ParamByName("n_knigi")->AsString=Edit30->Text;

DataModule2->IBStoredProc13->ParamByName("n_biblio")->AsString=Edit31->Text;

DataModule2->IBStoredProc13->ParamByName("n_chit")->AsString=Edit32->Text;

DataModule2->IBStoredProc13->ParamByName("data_vyd")->AsString=Edit33->Text;

DataModule2->IBStoredProc13->ParamByName("data_vozvr")->AsString=Edit34->Text;

DataModule2->IBStoredProc13->Prepare();

DataModule2->IBStoredProc13->ExecProc();

DataModule2->IBTable7->Active=false;

DataModule2->IBTable7->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button22Click(TObject *Sender)

{

DataModule2->IBStoredProc14->ParamByName("n_zapisi")->AsString=Edit29->Text;

DataModule2->IBStoredProc14->ParamByName("n_knigi")->AsString=Edit30->Text;

DataModule2->IBStoredProc14->ParamByName("n_biblio")->AsString=Edit31->Text;

DataModule2->IBStoredProc14->ParamByName("n_4itatelya")->AsString=Edit32->Text;

DataModule2->IBStoredProc14->ParamByName("data_vyd")->AsString=Edit33->Text;

DataModule2->IBStoredProc14->ParamByName("data_vozv")->AsString=Edit34->Text;

DataModule2->IBStoredProc14->Prepare();

DataModule2->IBStoredProc14->ExecProc();

DataModule2->IBTable7->Active=false;

DataModule2->IBTable7->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button23Click(TObject *Sender)

{

DataModule2->IBStoredProc15->ParamByName("n_zapisi")->AsString=Edit35->Text;

DataModule2->IBStoredProc15->Prepare();

DataModule2->IBStoredProc15->ExecProc();

DataModule2->IBTable7->Active=false;

DataModule2->IBTable7->Active=true;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Edit36Change(TObject *Sender)

{

if (RadioButton13->Checked==true)

{Set<TLocateOption,0,1> flags;

flags << loPartialKey;

if (!DataModule2->IBTable7->IsEmpty())

DataModule2->IBTable7->Locate("nomer_zapisi", Edit36->Text, flags);}

if (RadioButton14->Checked==true)

{Set<TLocateOption,0,1> flags;

flags << loPartialKey;

if (!DataModule2->IBTable7->IsEmpty())

DataModule2->IBTable7->Locate("nomer_chitatelya", Edit36->Text, flags);}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button24Click(TObject *Sender)

{

if (RadioButton15->Checked==true)

{DataModule2->IBTable7->IndexName="pk_vida4a_knig";}

else if (RadioButton16->Checked==true)

{DataModule2->IBTable7->IndexName="fk_vida4a_knig_1";}

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button25Click(TObject *Sender)

{

Form3->QuickRep1->Preview();

}

//-------------------------------------------------------------------

Приложение 3. «Создание Web-приложения»

Листинг 3.1. HTML-файл index.html

<html>

<head>

<title>Библиотека</title>

</head>

<body background=4.jpg>

<p align=center><b><font size="7" color="indigo"><i><b>Библиотека>>>>> </i></font></b></p>

<p><b><font size="6" color="indigo"><i><b><<<Просмотры</i></font></b>

<td><h2><img src="111.gif"><a href=knigi_view.php target="2">Все книги</h2></a>

<td><h2><img src="211.gif"><a href=vozvrat_view.php target="2">Возврат книг</h2></a>

<td><h2><img src="211.gif"><a href=knigi_hist.php target="2">История книг</h2></a>

</td>

<p><b><font size="6" color="indigo"><i><b><<<<Таблицы</i></font></b>

<td><h2><img src="111.gif"><a href=chitatel.php target="2">Читатели</h2></a>

<h2><img src="211.gif"><a href=bibliotekar.php target="2">Библиотекари</h2></a>

<td><h2><img src="111.gif"><a href=otdel.php target="2">Отделы книг</h2></a>

<td><h2><img src="211.gif"><a href=knigi.php target="2">Книги</h2></a>

<td><h2><img src="111.gif"><a href=vydacha.php target="2">Выдача книг</h2></a>

</td>

</body>

</html>

Листинг 3.2. PHP код страницы vozvrat_view.php

<body background=13.jpg>

<h1 align="center">Просмотр возврвта книг </h1>

<?php

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="select * from vozvrat_VIEW";

$result=ibase_query($query);

echo '<table border=1 align=center>';

echo '<tr><th bgcolor=\"#ccccff\">Фамилия</th>'.

'<th bgcolor=\"#ccccff\">Имя</th>'.

'<th bgcolor=\"#ccccff\">Отчество</th>'.

'<th bgcolor=\"#ccccff\">Номер читателя</th>'.

'<th bgcolor=\"#ccccff\">Номер книги</th>'.

'<th bgcolor=\"#ccccff\">Название</th>'.

'<th bgcolor=\"#ccccff\">Дата возврата</th>'.

'<tr>';

$i=0;

while($row=ibase_fetch_row($result))

{$i++;

echo "<tr><td>$row[0]</td>

<td>$row[1]</td>

<td>$row[2]</td>

<td>$row[3]</td>

<td>$row[4]</td>

<td>$row[5]</td>

<td>$row[6]</td>

</tr>";

}

echo "</table>";

ibase_free_result($result);

?><a href="index.html"><li>На главную</li></a>

</body>

</html>

Листинг 3.3. PHP код страницы knigi_hist.php

<html>

<head>

<title>История книг</title>

</head>

<body background=4.jpg>

<b><font size="7" color="indigo"><i><b>История книг</i></font></b><br>

<?php

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="select * from new_table";

$result=ibase_query($query);

echo '<table border=1 align=center>';

echo '<tr><th bgcolor=\"\">Номер записи</th>'.

'<th bgcolor=\"\">Номер книги</th>'.

'<th bgcolor=\"\">Номер отдела</th>'.

'<th bgcolor=\"\">Название</th>'.

'<th bgcolor=\"\">Кол-во страниц</th>'.

'<th bgcolor=\"\">Автор</th>'.

'<th bgcolor=\"\">Изминение</th>'.

'<th bgcolor=\"\">Дата</th>'.

'<tr>';

$i=0;

while($row=ibase_fetch_row($result))

{$i++;

echo "<tr><td>$row[0]</td>

<td>$row[1]</td>

<td>$row[2]</td>

<td>$row[3]</td>

<td>$row[4]</td>

<td>$row[5]</td>

<td>$row[6]</td>

<td>$row[7]</td></tr>";

}

echo "</table>";

ibase_free_result($result);

?>

</body>

</html>

Листинг 3.4. PHP код страницы knigi.php

<html>

<head>

<title>Таблица Книги</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Таблица Книги</i></font></b><br>

<?php

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="select * from KNIGI";

$result=ibase_query($query);

echo '<table border=1 align=center>';

echo '<tr><th bgcolor=\"\">№книги</th>'.

'<th bgcolor=\"\">№ отдела</th>'.

'<th bgcolor=\"\">Название</th>'.

'<th bgcolor=\"\">Кол-во страниц</th>'.

'<th bgcolor=\"\">Автор</th>'.

'<tr>';

$i=0;

while($row=ibase_fetch_row($result))

{$i++;

echo "<tr><td>$row[0]</td>

<td>$row[1]</td>

<td>$row[2]</td>

<td>$row[3]</td>

<td>$row[4]</td>

</tr>";

}

echo "</table>";

ibase_free_result($result);

?>

<br><p align="center">

<form action="upd_knigi.php" method="post"><br>

№книги <input type="text" name="n_knigi" size="3">&nbsp;

№ отдела <input type="text" name="n_otdela" size="3">&nbsp;

Название <input type="text" name="new_nazvanie" size="10">&nbsp;

Кол-во страниц <input type="text" name="kol_vo_ctranic" size="10">&nbsp;

Автор <input type="text" name="avtor" size="10">&nbsp;

<br><input type="submit" value="Изменить">

</form></p>

<br><hr>

<p><b><font size="5" color="indigo"><i><b>Операции над таблицей</i></font></b>

<a href="ins_knigi.html"><li>Ввод данных</li></a>

<a href="del_knigi.html"><li>Удаление записей</li></a>

<a href="search_knigi.html"><li>Поиск информации</li></a>

<a href="sort_knigi.html"><li>Сортировка записей</li></a>

<a href="index.html"><li>На главную</li></a>

</body>

</html>

Листинг 3.5. код страницы ins_knigi.html

<html>

<head>

<title>Таблица Книги - форма ввода новой записи</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="6" color="indigo"><i><b>Добавление новой книги</i></font></b>

<br>

<form action="ins_knigi.php" method="post"><br>

<p><b><font size="5" color="indigo"><i><b>Название </i></font></b><input type="text" name="new_nazvanie"><br>

<p><b><font size="5" color="indigo"><i><b>№отдела </i></font></b><input type="text" name="n_otdela"><br>

<p><b><font size="5" color="indigo"><i><b>Кол-во страниц </i></font></b><input type="text" name="kol_vo_stranic"><br>

<p><b><font size="5" color="indigo"><i><b>Автор </i></font></b><input type="text" name="avtor"><br>

<br>

<input type="submit" value="Добавить">

</form>

</body>

</html>

Листинг 3.6. PHP код страницы ins_knigi .php

<html>

<head>

<title>Таблица Книги - результаты ввода</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Добавление книги</i></font></b><br>

<?php

$n_otdela=$_POST['n_otdela'];

$new_nazvanie=$_POST['new_nazvanie'];

$kol_vo_stranic=$_POST['kol_vo_stranic'];

$avtor=$_POST['avtor'];

if(!$new_nazvanie)

{ echo 'Вы ввели не все данные';

exit;

}

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="execute procedure ADD_KNIG('".$n_otdela."','".$new_nazvanie."','".$kol_vo_stranic."','".$avtor."')";

$it=ibase_trans();

echo '<br>';

$result=ibase_query($query);

$ic=ibase_commit();

if($result){echo'Запись успешно добавлена';}

?>

<br><br><hr>

<a href="ins_knigi.html"><li>Назад</li></a>

<a href="knigi.php"><li>Просмотр таблицы</li></a>

<a href="index.html>"><li>В начало</li></a>

</body>

</html>

Листинг 3.7. PHP код страницы del_knigi .php

<html>

<head>

<title>Таблица Книги - результаты ввода</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Таблица Книга - результаты ввода</i></font></b><br><br>

<?php

$n_knigi=$_POST['n_knigi'];

if(!$n_knigi)

{ echo 'Вы ввели не все данные';

exit;

}

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="execute procedure DEL_KNIG('".$n_knigi."')";

$it=ibase_trans();

echo '<br>';

$result=ibase_query($query);

$ic=ibase_commit();

if($result){echo'Запись успешно удалена';}

?>

<br><br><hr>

<a href="del_knigi.html"><li>Назад</li></a>

<a href="knigi.php"><li>Просмотр таблицы</li></a>

<a href="index.html"><li>В начало</li></a>

</body>

</html>

Листинг 3.8. код страницы del_knigi .html

<html>

<head>

<title>Удаление книги</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="6" color="indigo"><i><b>Удаление книги</i></font></b>

<br>

<form action="del_knigi.php" method="post"><br>

<p><b><font size="5" color="indigo"><i><b>№книги </i></font></b><input type="text" name="n_knigi"><br>

<br>

<input type="submit" value="Удалить">

</form>

</body>

</html>

Листинг 3.9. PHP код страницы upd_knigi .php

<html>

<head>

<title>Таблица Книги - результаты редактирования</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Результаты редактирования книги</i></font></b><br>

<?php

$n_knigi=$_POST['n_knigi'];

$n_otdela=$_POST['n_otdela'];

$new_nazvanie=$_POST['new_nazvanie'];

$kol_vo_ctranic=$_POST['kol_vo_ctranic'];

$avtor=$_POST['avtor'];

if(!$n_knigi||!$new_nazvanie||!$avtor)

{ echo 'Вы ввели не все данные';

exit;

}

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="execute procedure RED_KNIG('".$n_knigi."','".$n_otdela."','".$new_nazvanie."','".$kol_vo_ctranic."','".$avtor."')";

$it=ibase_trans();

echo '<br>';

$result=ibase_query($query);

$ic=ibase_commit();

if($result){echo'Запись успешно изменена';}

?>

<br><br><hr>

<a href="knigi.php"><li>Просмотр таблицы</li></a>

<a href="index.html"><li>В начало</li></a>

</body>

</html>

Листинг 3.10. код страницы search_knigi .html

<html>

<head>

<title>поиск книги</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="6" color="indigo"><i><b>Поиск книги</i></font></b>

<br>

<form action="search_knigi.php" method="post"><br>

<p><b><font size="6" color="indigo"><i><b>Выберите тип поиска:</i></font></b><br>

<select name="search_type">

<option value="nomer_knigi">№книги</option>

<option value="nazvanie_knigi">Название</option>

<option value="avtor">Автор</option>

</select>

<br><br><br>

<p><b><font size="6" color="indigo"><i><b>Введите информацию для поиска:</i></font></b><br>

<input type="text" name="search_term">

<br><br>

<input type="submit" value="Найти">

</form>

</body>

</html>

Листинг 3.11. PHP код страницы search_knigi .php

<html>

<head>

<title>Поиск книги</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b> Результаты поиска книги</i></font></b><br>

<?php

$searchtype=$_POST['search_type'];

$searchterm=$_POST['search_term'];

$searchterm=trim($searchterm);

if(!$searchtype||!$searchterm)

{

echo 'Вы не ввели параметры поиска';

exit;

}

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="select * from knigi where ".$searchtype." like '%".$searchterm."%'";

$result=ibase_query($query);

echo '<p><H3>Найдено:</h3>';

$i=0;

while($row=ibase_fetch_row($result))

{$i++;

echo '<p><strong>'.$i.'.№ книги: ';

echo ($row[0]);

echo '</strong><br> № отдела: ';

echo ($row[1]);

echo '</strong><br> Название: ';

echo ($row[2]);

echo '</strong><br> Кол-во страниц: ';

echo ($row[3]);

echo '</strong><br> Автор: ';

echo ($row[4]);

echo '</p><br>';

};

ibase_free_result($result);

?>

<br><br><hr>

<a href="search_knigi.html"><li>Назад</li></a>

<a href="knigi.php"><li>Просмотр таблицы</li></a>

<a href="index.html"><li>В начало</li></a>

</body>

</html>

Листинг 3.12. PHP код страницы sort_knigi .php

<html>

<head>

<title>Таблица Книги - результаты сортировки</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Результаты сортировки книг</i></font></b><br>

<?php

$sortf=$_POST['sort_f'];

$sorttype=$_POST['sort_type'];

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="select * from knigi order by ".$sortf." ".$sorttype."";

$result=ibase_query($query);

echo '<table border=1 align=center>';

echo '<tr><th bgcolor=\"#ccccff\">№книги</th>'.

'<th bgcolor=\"#ccccff\">№ отдела</th>'.

'<th bgcolor=\"#ccccff\">Название</th>'.

'<th bgcolor=\"#ccccff\">Кол-во страниц</th>'.

'<th bgcolor=\"#ccccff\">Автор</th>'.

'<tr>';

$i=0;

while($row=ibase_fetch_row($result))

{$i++;

echo "<tr><td>$row[0]</td>

<td>$row[1]</td>

<td>$row[2]</td>

<td>$row[3]</td>

<td>$row[4]</td>

</tr>";

}

echo "</table>";

ibase_free_result($result);

?>

<br><br><hr>

<a href="sort_knigi.html"><li>Назад</li></a>

<a href="knigi.php"><li>Просмотр таблицы</li></a>

<a href="index.html"><li>В начало</li></a>

</body>

</html>

Листинг 3.13. код страницы sort_knigi .html

<html>

<head>

<title>Таблица Книги - сортировка записей</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="6" color="indigo"><i><b>Сортировка записей книг</h1>

<br>

<form action="sort_knigi.php" method="post"><br>

<p><b><font size="5" color="indigo"><i><b>Выберите поле для сортировки:</i></font></b><br>

<select name="sort_f">

<option value="nomer_knigi">№книги</option>

<option value="nazvanie_knigi">Название</option>

<option value="avtor">Автор</option>

</select>

<br><br><br>

<p><b><font size="5" color="indigo"><i><b>Выберите тип сортировки:</i></font></b><br>

<select name="sort_type">

<option value="asc">По возрастанию</option>

<option value="desc">По убыванию</option>

</select>

<br><br>

<input type="submit" value="Сортировать">

</form>

</body>

</html>

Листинг 3.14. PHP код страницы otdel .html

<html>

<head>

<title>Таблица Отделы книг</title>

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Таблица Отделы книг</i></font></b>

<?php

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="select * from otdel_knig";

$result=ibase_query($query);

echo '<table border=1 align=center>';

echo '<tr><th bgcolor=\"\">Название</th>'.

'<th bgcolor=\"\">№ отдела</th>'.

'<th bgcolor=\"\">Кол-во книг</th>'.

'<th bgcolor=\"\">Телефон</th>'.

'<td bgcolor=\"\">№ библиотекаря</th>'.

'</tr>';

$i=0;

while($row=ibase_fetch_row($result))

{$i++;

echo "<tr><td>$row[0]</td>

<td>$row[1]</td>

<td>$row[2]</td>

<td>$row[3]</td>

<td>$row[4]</td>

</tr>";

}

echo "</table>";

ibase_free_result($result);

?>

<br><p align="center">

<form action="upd_otdel.php" method="post"><br>

Название <input type="text" name="nazvanie" size="15">&nbsp;

№отдела<input type="text" name="n_otdela"size="10">&nbsp;

Кол-во книг <input type="text" name="kol_knig" size="10">&nbsp;

Телефон <input type="text" name="telefon" size="10">&nbsp;

№библиотекаря <input type="text" name="n_biblio" size="10">&nbsp;

<br><input type="submit" value="Изменить">

</form></p>

<br><hr>

<p><b><font size="7" color="indigo"><i><b>Операции над таблицей</i></font></b>

<a href="ins_otdel.html"><li>Ввод данных</li></a>

<a href="del_otdel.html"><li>Удаление записей</li></a>

<a href="search_otdel.html"><li>Поиск информации</li></a>

<a href="sort_otdel.html"><li>Сортировка записей</li></a>

<a href="index.html"><li>На главную</li></a>

</body>

</html>

Листинг 3.15. PHP код страницы upd_otdel .pxp

<html>

<head>

<title>Таблица Отделы книг - результаты редактирования</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Таблица Отделы книг - результаты редактирования</i></font></b>

<?php

$nazvanie=$_POST['nazvanie'];

$n_otdela=$_POST['n_otdela'];

$kol_knig=$_POST['kol_knig'];

$telefon=$_POST['telefon'];

$n_biblio=$_POST['n_biblio'];

if(!$n_otdela||!$nazvanie)

{ echo 'Вы ввели не все данные';

exit;

}

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="execute procedure RED_OTDEL('".$nazvanie."','".$n_otdela."','".$kol_knig."','".$telefon."','".$n_biblio."')";

$it=ibase_trans();

echo '<br>';

$result=ibase_query($query);

$ic=ibase_commit();

if($result){echo'Запись успешно изменена';}

?>

<br><br><hr>

<a href="otdel.php"><li>Просмотр таблицы</li></a>

<a href="index.html"><li>В начало</li></a>

</body>

</html>

Листинг 3.16. PHP код страницы del_otdel .pxp

<html>

<head>

<title>Таблица Отделы книг - результаты ввода</title>

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Результаты удаления отдела</i></font></b><br>

<?php

$n_otdela=$_POST['n_otdela'];

if(!$n_otdela)

{ echo 'Вы ввели не все данные';

exit;

}

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;

}

$query="execute procedure DEL_OTDEL('".$n_otdela."')";

$it=ibase_trans();

echo '<br>';

$result=ibase_query($query);

$ic=ibase_commit();

if($result){echo'Запись успешно удалена';}

?>

<br><br><hr>

<a href="del_otdel.html"><li>Назад</li></a>

<a href="otdel.php"><li>Просмотр таблицы</li></a>

<a href="index.html"><li>В начало</li></a>

</body>

</html>

Листинг 3.17. PHP код страницы search_otdel .pxp

<html>

<head>

<title>Таблица Отдел книг- результаты поиска</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Результаты поиска отдела</i></font></b><br>

<?php

$searchtype=$_POST['search_type'];

$searchterm=$_POST['search_term'];

$searchterm=trim($searchterm);

if(!$searchtype||!$searchterm)

{

echo 'Вы не ввели параметры поиска';

exit;

}

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{ echo 'Ошибка соединения с БД';

exit;}

$query="select * from otdel_knig where ".$searchtype." like '%".$searchterm."%'";

$result=ibase_query($query);

echo '<p><H3>Найдено:</h3>';

$i=0;

while($row=ibase_fetch_row($result))

{$i++;

echo '<p><strong>'.$i.'.Название отдела: ';

echo ($row[0]);

echo '<p><strong>'.$i.'.№ отдела: ';

echo ($row[1]);

echo '<p><strong>'.$i.'.Кол-во книг: ';

echo ($row[2]);

echo '<p><strong>'.$i.'.Телефон: ';

echo ($row[3]);

echo '</strong><br>№библиотекаря: ';

echo ($row[4]);

echo '</p><br>';

};

ibase_free_result($result);

?>

<br><br><hr>

<a href="search_otdel.html"><li>Назад</li></a>

<a href="otdel.php"><li>Просмотр таблицы</li></a>

<a href="index.html"><li>В начало</li></a>

</body>

</html>

Листинг 3.18. PHP код страницы ins_otdel .pxp

<html>

<head>

<title>Таблица Отделы книг - результаты ввода</title>

<meta http-equiv="Выберите расширение для паковки" content="text/html; charset=windows-1251">

</head>

<body background=13.jpg>

<p><b><font size="7" color="indigo"><i><b>Таблица Отделы книг - результаты ввода</i></font></b>

<?php

$nazvanie=$_POST['nazvanie'];

$kol_knig=$_POST['kol_knig'];

$telefon=$_POST['telefon'];

$n_biblio=$_POST['n_biblio'];

if(!$nazvanie)

{ echo 'Вы ввели не все данные';

exit;

}

$host='inf612c00:D:\DB\G140604_KALASHNIKOVA.FDB';

$usname='SYSDBA';

$pswrd='masterkey';

$db=ibase_pconnect($host, $usname, $pswrd);

if(!$db)

{

echo 'Ошибка соединения с БД';

exit;}

$query="execute procedure ADD_OTDEL('".$nazvanie."','".$telefon."','".$kol_knig."','".$n_biblio."')";

$it=ibase_trans();

echo '<br>';

$result=ibase_query($query);

$ic=ibase_commit();

if($result){echo'Запись успешно добавлена';}

?>

<br><br><hr>

<a href="ins_otdel.html"><li>Назад</li></a>

<a href="otdel.php"><li>Просмотр таблицы</li></a>

<a href="index.html"><li>В начало</li></a>

</body>

</html>

Размещено на Allbest.ru

...