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

Автор работы: Пользователь скрыл имя, 14 Сентября 2014 в 19:03, курсовая работа

Краткое описание

Целью данной курсовой работы является:
Углубление теоретических и практических знаний в области баз данных и систем управления базами данных;
К задачам курсовой работы можно отнести следующее:
Разработка базы данных в РСУБД Firebird;
Создание приложения, основанного на клиент-серверной технологии;
Создание веб-приложения.

Содержание

Введение
Разработка б.д. для ИС «Библиотека»
Разработка клиентского приложения
3.Создание Web приложения. Web-доступ.
Заключение
Список использованных источников

Скачать в ZIP архиве (2.76 Мб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

Курсовая.doc

— 3.13 Мб (Скачать файл)

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

           DataModule2->IBTable2->Locate("avtor", Edit1->Text, flags);}     

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

DataModule2->IBStoredProc1->ParamByName("familiya")->AsString=Edit2->Text;

DataModule2->IBStoredProc1->ParamByName("name")->AsString=Edit3->Text;

DataModule2->IBStoredProc1->ParamByName("otchestvo")->AsString=Edit4->Text;

DataModule2->IBStoredProc1->ParamByName("ulica")->AsString=Edit5->Text;

DataModule2->IBStoredProc1->ParamByName("n_doma")->AsString=Edit6->Text;

DataModule2->IBStoredProc1->ParamByName("tel")->AsString=Edit7->Text;

DataModule2->IBStoredProc1->ParamByName("n_chit")->AsString=Edit10->Text;

DataModule2->IBStoredProc1->Prepare();

DataModule2->IBStoredProc1->ExecProc();

DataModule2->IBTable3->Active=false;

DataModule2->IBTable3->Active=true;

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

DataModule2->IBStoredProc2->ParamByName("familiya")->AsString=Edit2->Text;

DataModule2->IBStoredProc2->ParamByName("name")->AsString=Edit3->Text;

DataModule2->IBStoredProc2->ParamByName("otchestvo")->AsString=Edit4->Text;

DataModule2->IBStoredProc2->ParamByName("ulica")->AsString=Edit5->Text;

DataModule2->IBStoredProc2->ParamByName("n_doma")->AsString=Edit6->Text;

DataModule2->IBStoredProc2->ParamByName("tel")->AsString=Edit7->Text;

DataModule2->IBStoredProc2->Prepare();

DataModule2->IBStoredProc2->ExecProc();

DataModule2->IBTable3->Active=false;

DataModule2->IBTable3->Active=true;

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{

DataModule2->IBStoredProc3->ParamByName("n_CHITAT")->AsString=Edit8->Text;

DataModule2->IBStoredProc3->Prepare();

DataModule2->IBStoredProc3->ExecProc();

DataModule2->IBTable3->Active=false;

DataModule2->IBTable3->Active=true;

}

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

void __fastcall TForm1::Button5Click(TObject *Sender)

{

  DataModule2->IBTable3->Active=false;

DataModule2->IBTable3->Filtered=false;

DataModule2->IBTable3->Filter="NOMER_CHITATELYA='"+Edit9->Text+"'" ;

DataModule2->IBTable3->Active=true;

DataModule2->IBTable3->Filtered=true;

}

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

void __fastcall TForm1::Button4Click(TObject *Sender)

{

DataModule2->IBTable3->Filtered=false;

}

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

void __fastcall TForm1::Button6Click(TObject *Sender)

{

if (RadioButton4->Checked==true)

        {DataModule2->IBTable3->IndexName="RDB$PRIMARY1";}

        else if (RadioButton5->Checked==true)

        {DataModule2->IBTable3->IndexName="familiya_chitatelya";}

                else if (RadioButton6->Checked==true)

                {DataModule2->IBTable3->IndexName="ulica";}      

}

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

void __fastcall TForm1::Button7Click(TObject *Sender)

{

DataModule2->IBStoredProc4->ParamByName("n_biblio")->AsString=Edit11->Text;

DataModule2->IBStoredProc4->ParamByName("n_otdela")->AsString=Edit12->Text;

DataModule2->IBStoredProc4->ParamByName("familiya")->AsString=Edit13->Text;

DataModule2->IBStoredProc4->ParamByName("name")->AsString=Edit14->Text;

DataModule2->IBStoredProc4->Prepare();

DataModule2->IBStoredProc4->ExecProc();

DataModule2->IBTable4->Active=false;

DataModule2->IBTable4->Active=true;

}

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

void __fastcall TForm1::Button8Click(TObject *Sender)

{

DataModule2->IBStoredProc5->ParamByName("n_biblio")->AsString=Edit11->Text;

DataModule2->IBStoredProc5->ParamByName("n_otdel")->AsString=Edit12->Text;

DataModule2->IBStoredProc5->ParamByName("familiya")->AsString=Edit13->Text;

DataModule2->IBStoredProc5->ParamByName("name")->AsString=Edit14->Text;

DataModule2->IBStoredProc5->Prepare();

DataModule2->IBStoredProc5->ExecProc();

DataModule2->IBTable4->Active=false;

DataModule2->IBTable4->Active=true;

}

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

void __fastcall TForm1::Button9Click(TObject *Sender)

{

DataModule2->IBStoredProc6->ParamByName("n_biblio")->AsString=Edit15->Text;

DataModule2->IBStoredProc6->Prepare();

DataModule2->IBStoredProc6->ExecProc();

DataModule2->IBTable4->Active=false;

DataModule2->IBTable4->Active=true;

}

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

 

void __fastcall TForm1::Button10Click(TObject *Sender)

{

DataModule2->IBTable4->Active=false;

DataModule2->IBTable4->Filtered=false;

DataModule2->IBTable4->Filter="Nomer_BIBLIOtekorya='"+Edit16->Text+"'" ;

DataModule2->IBTable4->Active=true;

DataModule2->IBTable4->Filtered=true;

}

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

void __fastcall TForm1::Button12Click(TObject *Sender)

{

if (RadioButton7->Checked==true)

        {DataModule2->IBTable4->IndexName="pk_bibliotekor";}

        else if (RadioButton8->Checked==true)

        {DataModule2->IBTable4->IndexName="fam";}

}

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

void __fastcall TForm1::Button11Click(TObject *Sender)

{

DataModule2->IBTable4->Filtered=false;

}

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

void __fastcall TForm1::Button13Click(TObject *Sender)

{

DataModule2->IBStoredProc7->ParamByName("n_knigi")->AsString=Edit17->Text;

DataModule2->IBStoredProc7->ParamByName("n_otdela")->AsString=Edit18->Text;

DataModule2->IBStoredProc7->ParamByName("new_nazvanie")->AsString=Edit19->Text;

DataModule2->IBStoredProc7->ParamByName("kol_vo_stranic")->AsString=Edit20->Text;

DataModule2->IBStoredProc7->ParamByName("avtor")->AsString=Edit21->Text;

DataModule2->IBStoredProc7->Prepare();

DataModule2->IBStoredProc7->ExecProc();

DataModule2->IBTable5->Active=false;

DataModule2->IBTable5->Active=true;

}

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

void __fastcall TForm1::Button14Click(TObject *Sender)

{

DataModule2->IBStoredProc8->ParamByName("n_otdela")->AsString=Edit18->Text;

DataModule2->IBStoredProc8->ParamByName("new_nazvanie")->AsString=Edit19->Text;

DataModule2->IBStoredProc8->ParamByName("kol_vo_stranic")->AsString=Edit20->Text;

DataModule2->IBStoredProc8->ParamByName("avtor")->AsString=Edit21->Text;

DataModule2->IBStoredProc8->Prepare();

DataModule2->IBStoredProc8->ExecProc();

DataModule2->IBTable5->Active=false;

DataModule2->IBTable5->Active=true;

}

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

void __fastcall TForm1::Button15Click(TObject *Sender)

{

DataModule2->IBStoredProc9->ParamByName("n_knigi")->AsString=Edit22->Text;

DataModule2->IBStoredProc9->Prepare();

DataModule2->IBStoredProc9->ExecProc();

DataModule2->IBTable5->Active=false;

DataModule2->IBTable5->Active=true;

}

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

void __fastcall TForm1::Button16Click(TObject *Sender)

{

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))

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