Базы данных - библиотека

 

 

Unit3.h

 

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

 

#ifndef Unit3H

#define Unit3H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <Mask.hpp>

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

class TForm3 : public TForm

{

__published: // IDE-managed Components

TButton *Button1;

TLabel *Label1;

TLabel *Label3;

TLabel *Label4;

TLabel *Label5;

TLabel *Label6;

TLabel *Label7;

TLabel *Label8;

TLabel *Label2;

TDBEdit *DBEdit1;

TDBEdit *DBEdit2;

TDBEdit *DBEdit3;

TDBEdit *DBEdit4;

TDBEdit *DBEdit5;

TDBEdit *DBEdit6;

TDBEdit *DBEdit7;

TDBEdit *DBEdit8;

void __fastcall Button1Click(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private: // User declarations

public:  // User declarations

__fastcall TForm3(TComponent* Owner);

};

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

extern PACKAGE TForm3 *Form3;

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

#endif

 

 

Unit4.cpp

 

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

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit1.h"

#include "modul.h"

#include "Unit4.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

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

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

 

}

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

void __fastcall TForm4::Button1Click(TObject *Sender)

{

if(Form1->Label1->Caption.ToInt()==0){

DataModule2->ADOTable3Описание->AsString=Edit1->Text;

Form1->Label1->Caption=1;

}

else{

DataModule2->ADOStoredProc1->Parameters->ParamByName("@Описание")->Value=Edit1->Text;

DataModule2->ADOStoredProc1->ExecProc();

DataModule2->ADOTable3->Active=0;

DataModule2->ADOTable3->Active=1;

Form1->Label1->Caption=1;

}

Form4->Close();

}

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

void __fastcall TForm4::FormClose(TObject *Sender, TCloseAction &Action)

{

Form1->DBGrid1->Enabled=1;

Form1->Enabled=1;

}

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

 

Unit4.h

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

 

#ifndef Unit4H

#define Unit4H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <Mask.hpp>

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

class TForm4 : public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TButton *Button1;

TEdit *Edit1;

void __fastcall Button1Click(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private: // User declarations

public:  // User declarations

__fastcall TForm4(TComponent* Owner);

};

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

extern PACKAGE TForm4 *Form4;

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

#endif

Unit5.cpp

 

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

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit1.h"

#include "modul.h"

#include "Unit5.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

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

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

 

}

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

void __fastcall TForm5::Button1Click(TObject *Sender)

{

DataModule2->ADOTable4КодКниги->AsInteger=DBEdit1->Text.ToInt();

DataModule2->ADOTable4КодОблЗнаний->AsInteger=DBEdit2->Text.ToInt();

Form5->Close();

}

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

void __fastcall TForm5::FormClose(TObject *Sender, TCloseAction &Action)

{

Form1->DBGrid1->Enabled=1;

DataModule2->ADOTable4->Refresh();

Form1->Enabled=1;

}

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

 

 

 

Unit5.h

 

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

 

#ifndef Unit5H

#define Unit5H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <Mask.hpp>

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

class TForm5 : public TForm

{

__published: // IDE-managed Components

TButton *Button1;

TDBLookupComboBox *DBLookupComboBox1;

TDBLookupComboBox *DBLookupComboBox2;

TLabel *Label1;

TLabel *Label2;

TDBEdit *DBEdit1;

TDBEdit *DBEdit2;

void __fastcall Button1Click(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private: // User declarations

public:  // User declarations

__fastcall TForm5(TComponent* Owner);

};

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

extern PACKAGE TForm5 *Form5;

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

#endif

 

Unit6.cpp

 

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

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit1.h"

#include "modul.h"

#include "Unit6.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm6 *Form6;

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

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

 

}

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

void __fastcall TForm6::Button1Click(TObject *Sender)

{

DataModule2->ADOTable5ФИО->AsString=DBEdit1->Text;

DataModule2->ADOTable5Адресс->AsString=DBEdit2->Text;

DataModule2->ADOTable5Телефон->AsInteger=DBEdit3->Text.ToInt();

DataModule2->ADOTable5ДатаРожд->AsString=DBEdit4->Text;

Form6->Close();

}

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

void __fastcall TForm6::FormClose(TObject *Sender, TCloseAction &Action)

{

Form1->DBGrid1->Enabled=1;

DataModule2->ADOTable5->Refresh();

Form1->Enabled=1;

}

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

 

Unit6.h

 

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

 

#ifndef Unit6H

#define Unit6H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <Mask.hpp>

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

class TForm6 : public TForm

{

__published: // IDE-managed Components

TButton *Button1;

TLabel *Label1;

TLabel *Label2;

TLabel *Label3;

TLabel *Label4;

TDBEdit *DBEdit1;

TDBEdit *DBEdit2;

TDBEdit *DBEdit3;

TDBEdit *DBEdit4;

void __fastcall Button1Click(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private: // User declarations

public:  // User declarations

__fastcall TForm6(TComponent* Owner);

};

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

extern PACKAGE TForm6 *Form6;

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

#endif

 

Unit7.cpp

 

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

 

#include <vcl.h>

#pragma hdrstop

 

#include "Unit1.h"

#include "modul.h"

#include "Unit7.h"

#include "Unit8.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm7 *Form7;

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

__fastcall TForm7::TForm7(TComponent* Owner)

: TForm(Owner)

{

 

}

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

void __fastcall TForm7::Button1Click(TObject *Sender)

{

// DataModule2->ADOQuery1->Active=0;

DataModule2->ADOTable6КодКниги->AsInteger=DBEdit1->Text.ToInt();

// DataModule2->ADOQuery1->SQL->Add("select * from Экземпляр where КодКниги="+DBComboBox1->Text);

// DataModule2->ADOQuery1->Active=1;

// Form1->DBGrid1->DataSource=DataModule2->DataSource7;

Form7->Close();

 

}

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

void __fastcall TForm7::FormClose(TObject *Sender, TCloseAction &Action)

{

Form1->DBGrid1->Enabled=1;

DataModule2->ADOTable6->Refresh();

Form1->Enabled=1;

}

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

 

 

Unit7.h

 

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

 

#ifndef Unit7H

#define Unit7H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <Mask.hpp>

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

class TForm7 : public TForm

{

__published: // IDE-managed Components

TButton *Button1;

TDBLookupComboBox *DBLookupComboBox1;

TLabel *Label1;

TDBEdit *DBEdit1;

void __fastcall Button1Click(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private: // User declarations

public:  // User declarations

__fastcall TForm7(TComponent* Owner);

};

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

extern PACKAGE TForm7 *Form7;

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

#endif

 

Unit9.cpp

 

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

 

#include <vcl.h>

#pragma hdrstop

 

#include "modul.h"

#include "Unit1.h"

#include "Unit9.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm9 *Form9;

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

__fastcall TForm9::TForm9(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm9::Button1Click(TObject *Sender)

{

DataModule2->ADOQuery4->Active=0;

DataModule2->ADOQuery4->SQL->Add("select k.КодКниги, e.КодЭкземпляра, k.Название, o.Описание, i.КодИстории, ch.КодЧитателя from Читатель ch inner join История i on ch.КодЧитателя=i.КодЧитателя inner join Экземпляр e on i.КодЭкземпляра=e.КодЭкземпляра inner join Книги k on e.КодКниги=k.КодКниги inner join ОблЗнанийКниги ok on k.КодКниги=ok.КодКниги inner join ОблЗнаний o on ok.КодОблЗнаний=o.КодОблЗнаний where ch.ФИО='"+Edit1->Text+"'");

DataModule2->ADOQuery4->ExecSQL();

 

//  DataModule2->ADOQuery4->Refresh();

    DataModule2->ADOQuery4->Active=1;

}

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

 

 

 

void __fastcall TForm9::FormClose(TObject *Sender, TCloseAction &Action)

{

Form1->Enabled=1;

}

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

 

 

 

 

Unit9.h

 

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

 

#ifndef Unit9H

#define Unit9H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

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

class TForm9 : public TForm

{

__published: // IDE-managed Components

TEdit *Edit1;

TButton *Button1;

TLabel *Label1;

TDBGrid *DBGrid1;

void __fastcall Button1Click(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private: // User declarations

public:  // User declarations

__fastcall TForm9(TComponent* Owner);

};

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

extern PACKAGE TForm9 *Form9;

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

#endif

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5. Тестирование. Результаты тестирования.

 

Можно просматривать содержимое таблиц:

 

 

 

 

 

 

 

Есть возможность добавлять  записи в таблицы. В таблице Истории  при добавление запись добавляется в таблицы История и Экземпляр при помощи транзакции.

 

 

 

 

Добавление записи в таблицу  Книги

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

6. Список использованной литературы

 

1. Основы использования и проектирования баз данных

Илюшечкин В.М. Издательство Юрайт ИД Юрайт 

2. Borland C++ Builder 6. Руководство разработчика. Jarrod Hollingworth. Издательство SAMS
3. Программирование в C++ Builder 2010 Архангельский.  А. Я., Тагин М. А. Издательство: Бином-Пресс