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

if (RadioButton9->Checked==true)

{DataModule2->IBTable5->IndexName="pk_knigi"; }

else if (RadioButton10->Checked==true)

{DataModule2->IBTable5->IndexName="_kniga"; }

}

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

void __fastcall TForm1:: Button17Click (TObject *Sender)

{

DataModule2->IBStoredProc10->ParamByName ("name_ot") - >AsString=Edit23->Text;

DataModule2->IBStoredProc10->ParamByName ("n_otel") - >AsString=Edit24->Text;

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

DataModule2->IBStoredProc10->ParamByName ("tel") - >AsString=Edit26->Text;

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

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